Пользуюсь Компонентом TMStringGrid
Сформировал таблицу, чтобы потом скопировать в Word,
заполняю ячейку многострочным текстом. Всё ок.
Но только выхожу с ячейки и текст выстраивается в одну строчку.
Высоту ячейки формирую так:
Код:
type
TFormZatrat = class(TForm)
MSGz: TMStringGrid;
procedure TFormZatrat.MSGzKeyPress(Sender: TObject; var Key: Char);
var
S : string;
hh :byte;
begin
S := MSGZ.Cells[GridRect.Left, GridRect.Top];
with MSGZ do
begin
hh := Font.Size;
if (Canvas.TextWidth(Cells[GridRect.Left, GridRect.Top]) +8)
div ColWidths[GridRect.Left] <>S_Len then
begin
S_Len :=(Canvas.TextWidth(Cells[GridRect.Left, GridRect.Top]) +9)
div ColWidths[GridRect.Left];
RowHeights[GridRect.Top] :=
RowHeights[GridRect.Top] +Font.Size+6; // высота строки
end;
end;
end;