Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Вниз

Выделение строки DBGrid цветом 


Havez   (2002-01-13 18:45) [0]

Добрых времён!. Подскажите, как мне раскрашивать фон строки в DBGrid, в зависимости от значения некоторого поля таблицы БД?



Quest   (2002-01-14 09:52) [1]

procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
With (Sender as TDBGrid).Canvas Do Begin
IF (Not (gdFocused in State)) AND
((Sender as TDBGrid).DataSource.DataSet.FieldByName("Field_Name").AsBoolean=False)
Then Begin
Font.Color:=clWhite;
Brush.Color:=clRed;
FillRect(Rect);
TextOut(Rect.Left,Rect.Top,Column.Field.Text);
End
Else
(Sender as TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);
End;
End;



Havez   (2002-01-15 14:26) [2]

Спасибо, попробую.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.027 c
3-99905           victor                2001-12-28 08:59  2002.01.31  
Добавление поля в таблицу Interbase


4-100128          В.И.Чапаев            2001-11-30 21:18  2002.01.31  
Мужики(и дамы тоже =ъ)! Извините за ламерский вопрос, но...


1-100017          IronHawk              2002-01-15 15:00  2002.01.31  
Да помогут мне мастера ...


3-99882           dim-                  2001-12-25 11:32  2002.01.31  
Кодировка таблицы при создании


1-100009          IronHawk              2002-01-14 17:06  2002.01.31  
QReport...