Текущий архив: 2003.09.11;
Скачать: CL | DM;
Вниз
Вывод текста на грид Найти похожие ветки
← →
pasha_golub © (2003-09-01 15:20) [0]Многострочный вывод на стринггрид осуществляю таким образом.
var
Grid : TStringGrid;
Texto : String;
begin
Grid := TStringGrid(Sender);
if (ARow < Grid.FixedRows) or (ACol < Grid.FixedCols)
then
Grid.Canvas.Brush.Color := clBtnFace
else
Grid.Canvas.Brush.Color := clWhite;
Grid.Canvas.FillRect(Rect);
Texto := Grid.Cells[ACol,ARow];
DrawText( Grid.Canvas.Handle,
PChar(Texto),
StrLen(PChar(Texto)),
Rect,
DT_WORDBREAK);
end;
Однако кроме этого необходимо под некотрыми словами выводить извилистую красную линию (спеллчекер). Как это красивей реализовать. Потому как у меня, мысль останавливается на TextOut.
← →
pasha_golub © (2003-09-01 15:21) [1]как вы наверное догадались это обработчик OnDrawCell
Страницы: 1 вся ветка
Текущий архив: 2003.09.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
