TStringGrid

[Gromsky]

Хочу при двойном клике по ячейке выравнивать столбик по ширине текста. Как? Использую опцию выбора всей строки.

[Stilet]

В цикле пройтись по всем ячейкам столбца, и найти максимум примерно так:

if max<TextWidth(StringGrid.Cell[...]) then max<TextWidth(StringGrid.Cell[...])

Ну и задать ширину для этой колонки по этому max.

[Gromsky]

проблема, на функцию textwidth ругается и выводит сообщение, что эта неизвестная функция. (какую библиотеку нужно подключить?)

[Alter]

Определение длины и высоты, это свойства Canvas:

if max<Canvas.TextWidth(StringGrid.Cell[...]) then max<Canvas.TextWidth(StringGrid.Cell[...])

[BOBAH13]

Ну собсно уважаемые имели ввиду TStringGrid.TCanvas.TextWidth() ( если таковое свой-во имеется, вроде было ) и все-таки после

if max < TStringGrid.Canvas.TextWidth(TStrin gGrid.Cell[i, j]) then max := {равно} ... Как нистранно ну в соответствии в двойном цикле перебор столбца и строки i, j.