Вывод текста на грид

← →
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

Вывод текста на грид Найти похожие ветки