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

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

Как поменять цвет определенной строки в DBGrid? [D7, dBase, FoxPro]


Slavik_v ©   (2004-04-16 06:10:00) 

Здравствуйте Уважаемые.
Как можно осуществить сабж. Например анализирую значение поля [1]в Table1, и если оно = 0 то в DBGrid вся строка отображается красным цветом.

Заранее благодарю.


_sulent   (2004-04-16 06:52:00) [1]


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if Table1.FieldByName('pole').asInteger = 0 then begin
   DBGrid1.Canvas.Brush.Color := clRed;
 end;
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Попробуй что-то вроде этого...


Наверх

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