Назначение


Метод автоматически подбирает высоту строки, в зависимости от содержимого ячеек в данной строке.




Описание


Как правило, данный метод необходимо вызывать в событии компонента OnChange.

Также колонкам необходимо присвоить свойство WrapKind := wkWordWrap, чтобы разрешить перенос текста в ячейках.




Пример


// автоматически подбираем высоту всех строк в компоненте
procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
    begin
        Form1.TableGrid1.Columns[i].VerticalAlignment := taAlignTop; // задаем вертикальное выравнивание в ячейках колонки
        Form1.TableGrid1.Columns[i].WrapKind := wkWordWrap; // включаем возможность переноса строк в ячейках колонки
    end;


    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do Form1.TableGrid1.BestFitRow(i); // для каждой строки вызываем метод для автоподбора высоты
end;



// также обновляет высоту строк при изменении размера колонок
procedure Form1_TableGrid1_OnColumnResize (Sender: TObject; ACol: Integer);
var
    i, c: integer;
begin
    c := Form1.TableGrid1.RowCount - 1;
    for i := 0 to c do Form1.TableGrid1.BestFitRow(i); // для каждой строки вызываем метод для автоподбора высоты
end;