Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.016 c