Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.035 c
8-33698
Vin_Ghost
2003-05-13 23:10
2003.09.11
DELPHIX


14-33753
Пробегал
2003-08-21 22:22
2003.09.11
Зачем вы баните прокси?


1-33671
Sfagnum
2003-08-29 10:54
2003.09.11
Объявление массива...


14-33722
sasami737
2003-08-21 17:57
2003.09.11
Как сделать критический процесс ?


11-33532
microlab
2003-01-04 08:23
2003.09.11
TKOLTreeView c переклучателями