заливка строк DBGrid'а

[antoniosm]

всем дратси.
нужно осуществить заливку строк грида, по условию, если в БД в поле "grup" существует значение "1", то строка, соержащая это значение, заливается синим цветом; если значение "2", то строка, соержащая это значение, заливается зеленым цветом; если "3", то строка, соержащая это значение, заливается красным цветом, а если есть все эти значения в столбце БД, то строки должны быть раскрашены в соответсвующие значениям цвета. нжно оформить именно заливку, а не изменение цвета шрифта текста.
как быть?

[Stilet]

Для своего DBGrid (если конечно его используеш) пропиши событие OnDrawDataCell типа такого:

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
if (Field.AsString='1') then begin
 DBGrid1.Canvas.Brush.Color:=clblue;
 DBGrid1.Canvas.FillRect(rect);
 DBGrid1.Canvas.TextOut(Rect.Left,Rect.Top,Field.AsString);
end;

И так далее по каждому цвету
end;

Смысл ясен?

[antoniosm]

заливает только ячейку с таким значением, а мне нужно полностью строку.

[Stilet]

Тогда так :

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin

if (Table1.FieldByName('grup').AsString ='0') then begin
  DBGrid1.Canvas.Brush.Color:=clblue;
  DBGrid1.Canvas.FillRect(rect);
  DBGrid1.Canvas.TextOut(Rect.Left,Rect.Top,Field.AsString);
end;
end;

[antoniosm]

if ADOQuery1.FieldValues['grup'] ='123' then
      begin
        DBGrid1.Canvas.FillRect(rect);
      with DBGrid1.Canvas do
        begin
          brush.color:=clRed;
          TextOut(rect.Left,rect.Top,Column.Field.text);
      end;
    end;

заливает строки, только посимвольно каждую ячейку, т.е. каждому символу в ячейке присваивает фон. заливает ячейку не полностью по "длине" данных. мне нужно залить полностью все ячейки в данной строке, независимо от количества символов в ней.

[_SERGEYX_]

Вообще-то, событие onDrawDataCell работает очень медленно. Я провел некоторые тесты по этому поводу...
В компоненте TDBGridEh есть событие onGetCellParams.
Пишем что-то вроде этого

procedure TfrmMain.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
   AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
   if TableNomer.Value = 100 then
   begin
      Background := clRed;
      AFont.Style := [fsBold];
   end;
end;

Работает раз в 10 быстрее. (Спасибо Андрею Большакову)

[antoniosm]

TDBGridEh - что енто за компонент и где находится?

[Nemon]

Сообщение от antoniosm

TDBGridEh - что енто за компонент и где находится?

Есть такой компонент EhLib - DBGridEh именно из ее состава.

[antoniosm]

на какой вкладке найти их можно в делфи 7?

[Pitbull]

Сообщение от antoniosm

на какой вкладке найти их можно в делфи 7?

этот компонент устанавливать нужно....