Topic: Вопрос по ячейкам в TableGrid.

Всех приветствую. Может кто подскажет, как сделать автоматический размер (ширину) ячейка при выводе формы на весь экран. Т.е Выводимая информация по ширине заполнения подстраивалась под текущий размер окна. Скрины приложил.

Post's attachments

Attachment icon QIP Shot - Screen 002.png 69.94 kb, 202 downloads since 2017-09-28 

надо идти вперёд....

Re: Вопрос по ячейкам в TableGrid.

kovalenko wrote:

Всех приветствую. Может кто подскажет, как сделать автоматический размер (ширину) ячейка при выводе формы на весь экран. Т.е Выводимая информация по ширине заполнения подстраивалась под текущий размер окна. Скрины приложил.

Post's attachments

Attachment icon QIP Shot - Screen 003.png 96.36 kb, 194 downloads since 2017-09-28 

надо идти вперёд....

Re: Вопрос по ячейкам в TableGrid.

попробуйте так

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
        Form1.TableGrid1.Columns[i].Options := Form1.TableGrid1.Columns[i].Options + coAutoSize ;
end;
Dmitry.

Re: Вопрос по ячейкам в TableGrid.

DriveSoft wrote:

попробуйте так

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
        Form1.TableGrid1.Columns[i].Options := Form1.TableGrid1.Columns[i].Options + coAutoSize ;
end;

Дмитрий по этой теме есть ещё два вопроса. Если в гриде пусть 5 ячеек, можно-ли сделать авторазмер или на какую-то конкретную ячейку-столбец, или на всю таблицу кроме конкретной ячейки-столбца. Интересны оба варианта.
Спасибо.

надо идти вперёд....

Re: Вопрос по ячейкам в TableGrid.

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin

   // авторазмер на 2 колонку
   Form1.TableGrid1.Columns[1].Options := Form1.TableGrid1.Columns[1].Options + coAutoSize ;

   // авторазмер на все колонки кроме второй
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
         if i <> 1 then
             Form1.TableGrid1.Columns[i].Options := Form1.TableGrid1.Columns[i].Options + coAutoSize ;
end;
Dmitry.

Re: Вопрос по ячейкам в TableGrid.

DriveSoft wrote:
procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin

   // авторазмер на 2 колонку
   Form1.TableGrid1.Columns[1].Options := Form1.TableGrid1.Columns[1].Options + coAutoSize ;

   // авторазмер на все колонки кроме второй
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
         if i <> 1 then
             Form1.TableGrid1.Columns[i].Options := Form1.TableGrid1.Columns[i].Options + coAutoSize ;
end;

Огромнейшее вам спасибо!!!

надо идти вперёд....