[Red_Garry]

Здравствуйте!
Ввёл тему поста в поисковую строку и то, что получил в ответ, меня не удовлетворило... Блин, не могу разобраться. Добрые люди! Задача такая: Поля базы, на которую завязан DBGrid, имеют числовой формат. Если определённое поле получает определённое значение, то ячейка (НЕ строка) окрашивается в определённый цвет. Желательно уметь красить не только фон ячейки, но и цвет шрифта. Помогите с примером кода!

Спасибо!
Низкий поклон отклинувшимся

[ApxaHGe1]

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;   const Rect: TRect; DataCol: Integer; Column: TColumnEh;   State: TGridDrawState); if Column.Field.DataSet.FieldByName(STATUS_F).AsString='Выполнено' then begin with  DBGrid.Canvas do begin Brush.Color:=$00FF77; Font.Color:=clBlack; FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text); DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

[Red_Garry]

Спасибо за ответ! Только указанный код красит всю строку

[Alegun]

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

...Если определённое поле получает определённое значение, то ячейка (НЕ строка) окрашивается в определённый цвет. Желательно уметь красить не только фон ячейки, но и цвет шрифта...

Без конкретного примера кода может быть только общий ответ, всё это безобразие делается в процедуре DrawCell, причём несколькими способами, через сравнение или подсчёт, можно ещё внедрением свойств ячеи etc... Вот ещё немного такого для обычной сетки

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69

procedure TForm1.DBS.DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); var     fcl, bcl: TColor;     fcs: TFontStyles; begin   with DBS.Canvas do    begin     fcl := Font.Color;     fcs := Font.Style;     bcl := Brush.Color;     if gdSelected in State then     { clBlack = TColor($000000);   clMaroon = TColor($000080);   clGreen = TColor($008000);   clOlive = TColor($008080);   clNavy = TColor($800000);   clPurple = TColor($800080);   clTeal = TColor($808000);   clGray = TColor($808080);   clSilver = TColor($C0C0C0);   clRed = TColor($0000FF);   clLime = TColor($00FF00);   clYellow = TColor($00FFFF);   clBlue = TColor($FF0000);   clFuchsia = TColor($FF00FF);   clAqua = TColor($FFFF00);   clLtGray = TColor($C0C0C0);   clDkGray = TColor($808080);   clWhite = TColor($FFFFFF);  }          begin       Font.Color :=TColor($FFFFFF);       Font.Style := Font.Style + [fsBold];       Brush.Color := clGreen;      end else       if ARow < FixedRows then        begin         Font.Color := TColor($000000);         Font.Style := Font.Style + [fsBold];         Brush.Color := TColor($00FFFF);        end else         if ACol < FixedCols then          begin           Font.Color := RGB(255, 255, 255);           Font.Style := Font.Style + [fsBold];           Brush.Color := RGB($66, $99, $CC);          end else           if ARow mod 2 = 0 then            begin             Font.Color := RGB(0, 0, 0);             Brush.Color := RGB($FF, $FF, $CC);            end else             begin              Font.Color := RGB(0, 0, 0);              Brush.Color := RGB($CC, $FF, $FF);             end;       FillRect(Rect);     TextOut(Rect.Left + 4, Rect.Top + 4, Cells[ACol, ARow]);     Font.Color := fcl;     Font.Style := fcs;     Brush.Color := bcl;   end; end;

[Red_Garry]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm6.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if Column.Field.DataSet.FieldByName('1').AsInteger=777.00 then begin with  DBGrid1.Canvas do begin Brush.Color:=$00FF77; Font.Color:=$00FF77; FillRect(Rect); TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; end;

Т.е. хотелось бы, чтобы в поле с именем 1 при получении им значения 777.00 красилась только отображающая его ячейка DBGrid

[Alegun]

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

...Т.е. хотелось бы, чтобы в поле с именем 1 при получении им значения 777.00 красилась только отображающая его ячейка DBGrid

Просто ещё добавьте в сравнении if (...) and (Column.FieldName = '1') then ...

[Aristarh Dark]

Гарри, дружище, есть много людей кто хочет покрасить ячейки сетки, и есть мало людей из тех кто понимает как это сделать. Именно поэтому у программистов такие зарплаты.
В сетке базы у тебя есть: колонка (поле) и его значение. Вот и танцуй от него. Однако нельзя забывать о тех кто не попал в твой окрас, их тоже нарисуй, будь так добр.

[Red_Garry]

Спасибо! Работает!....