dzh2000
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Medium
Цитата:| Может кто подскажет примером, как в ячейке грида часть (!) текста отрисовывать другим цветом? |
Добавляешь в DBGrid новый столбец, поле FieldName оставляешь пустым, Tag присваиваешь 1.
Добавляешь обработчик на событие OnDrawColumnCell.
Пусть в переменной s1 текст, который надо отображать красным цветом, в s2 - зеленым.
Код: var
R: TRect;
s1, s2: string;
begin
...
if Column.Tag = 1 then
with DBGrid.Canvas do begin
R := Rect;
Font.Color := clRed;
DrawText(Handle, PChar(s1), -1, R, DT_LEFT or DT_VCENTER or DT_SINGLELINE);
Inc(R.Left, TextWidth(s1));
Font.Color := clGreen;
DrawText(Handle, PChar(s2), -1, R, DT_LEFT or DT_VCENTER or DT_SINGLELINE);
end;
...
end; |
|
Всего записей: 1576 | Зарегистр. 18-01-2002 | Отправлено: 22:27 03-01-2019 | Исправлено: dzh2000, 22:35 03-01-2019 |
|
, кстати на