Главная страница
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.019 c
3-33520
undersun
2003-08-19 15:38
2003.09.11
Установка Firebird под Linux


1-33598
AlexPul
2003-09-01 13:30
2003.09.11
Консольные приложения


3-33448
clickmaker
2003-08-21 15:42
2003.09.11
TTable.FindKey находит то, что не находит Locate


14-33816
МАКСИК
2003-08-21 08:00
2003.09.11
Форма - это круто! и очень много...


9-33423
PEOPLE
2003-03-08 13:01
2003.09.11
СКАЖИТЕ КАК СДЕЛАТЬ КАРТИНКУ С 256 ЦВЕТАМИ ?