Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

StringGrid   Найти похожие ветки 

← →
DJ DIZzY ©   (2004-06-05 21:50) [0]

Как програмно раздвинуть колонки StringGrida???

---

← →
GanibalLector ©   (2004-06-05 21:52) [1]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.024 c