Пользуюсь Компонентом TMStringGrid
Сформировал таблицу, чтобы потом скопировать в Word,
заполняю ячейку многострочным текстом. Всё ок.
Но только выхожу с ячейки и текст выстраивается в одну строчку.
Высоту ячейки формирую так:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | 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 ;
|