|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Многострочный текст в Компоненте TMStringGrid у меня не фиксируется
Пользуюсь Компонентом 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; Последний раз редактировалось Admin, 06.04.2022 в 20:01. |
#2
|
|||
|
|||
Есть подозрение, что надо еще отрисовку перекрыть ибо компонент понятия не имеет, что там должке быть многострочниый текст. Особенно, если многострочность ожидается за счет автопереноса, а не разделения строк черех CRLF
|