Delphi-Help

Главная Статьи Таблица строк (StringGrid) TStringGrid автоматически изменяет ширину колонок

TStringGrid автоматически изменяет ширину колонок

Оцените материал
(0 голосов)


TStringGrid автоматически изменяет ширину колонок

Можно ли сделать так чтобы 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;
Другие материалы в этой категории: « Загрузка матрицы из StringGrid

Авторизация



Счетчики