Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как изменить цвет текста в DBGrid? [D5, IB6.x]


viper ©   (2002-12-23 17:27:00) 

Есть заполненая таблица, и мне нужно некоторые строки выделить другим цветом, т.е. если тип(такое поле) этой записи 1 то скажем строка красным цветом! Если можно, то кинте кусочек кода!


Леший   (2002-12-23 17:39:00) [1]

with DBGrid1.Canvas do
begin
if (Column.Field.FieldName = "CLOSE") and
not (gdSelected in State) then
if strtofloat(Column.Field.Text)<0 then
begin
Brush.Color:=clRED;
Font.Color:=clWHite;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,FormatFloat("### ### ###.##",StrToFloat(Column.Field.Text)));
exit;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;


Delirium^.Tremens   (2002-12-23 17:28:00) [2]

OnDrawColumnCell + FAQ


Наверх

Титульная страница Поиск, карта сайта Написать письмо