Изменение размеров колонок в StringGrid

Previous  Top  Next

    
 

 

Ниже приведён примен кода, который позволяет автоматически подогнать размер колонки в компененте TStringGrid, под размер самой длинной строки текста в колонке:

Code:

procedure AutoSizeGridColumn(Grid : TStringGrid;

                             column : integer);

var

i : integer;

temp : integer;

max : integer;

begin

max := 0;

for i := 0 to (Grid.RowCount - 1) do begin

   temp := Grid.Canvas.TextWidth(grid.cells[column, i]);

   if temp > max then max := temp;

end;

Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

AutoSizeGridColumn(StringGrid1, 1);

end;

 

 

 

©Drkb::00605

Взято из http://forum.sources.ru