DBGrid цвет текста в ячейке

[spotip]

подскажите как определить цвет текста по значению в нескольких столбцах, т.е если в 1 столбце по значению у меня получается а если делаю для 2 ух столбцов то выделяет текст по 1 столбцу:

begin
if DataModule2.Turb_Query1.FieldByName('act').AsCurrency >= 301 then
begin
Form1.DBGridEH2.Canvas.Font.Color:= clRed;
end;                                                                
if DataCol = 4 then Form1.DBGridEH2.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
end;
begin
if DataModule2.Turb_Query1.FieldByName('cvd').AsCurrency >= 80 then
begin
Form1.DBGridEH2.Canvas.Font.Color:= clRed;
end;                                                                
if DataCol = 5 then Form1.DBGridEH2.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
end;
end;

[Serge_Bliznykov]

не очень понимаю ваш код (при чём здесь DataCol=4 или DatCol=5), поэтому могу со своим советом попасть пальцем в небо!

попробуйте так написать:

  if (DataModule2.Turb_Query1.FieldByName('act').AsCurrency >= 301) or
       (DataModule2.Turb_Query1.FieldByName('cvd').AsCurrency >= 80)
  then
    Form1.DBGridEH2.Canvas.Font.Color := clRed;
  if (DataCol = 4) or (DataCol = 5)  then Form1.DBGridEH2.DefaultDrawColumnCell(Rect, DataCol, Column, State);

или даже так:

  if (DataModule2.Turb_Query1.FieldByName('act').AsCurrency >= 301) or
       (DataModule2.Turb_Query1.FieldByName('cvd').AsCurrency >= 80)
  then begin
    Form1.DBGridEH2.Canvas.Font.Color := clRed;
    if (DataCol = 4) or (DataCol = 5)  then Form1.DBGridEH2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;

[spotip]

[QUOTE=Serge_Bliznykov;1373958]не очень понимаю ваш код (при чём здесь DataCol=4 или DatCol=5), поэтому могу со своим советом попасть пальцем в небо!

act и cvd - название столбца
DataCol = 4 columns act, DataCol = 5 columns cvd 4,5- номера столбцов,
когда я делаю так:

begin
if DataModule2.Turb_Query1.FieldByName('act').AsCurrency >= 301 then
begin
Form1.DBGridEH2.Canvas.Font.Color:= clRed;
end;                                                                
if DataCol = 4 then Form1.DBGridEH2.DefaultDrawColumnCell
(Rect, DataCol, Column, State);
end;

то при >= 301 данная ячейка в столбце act красится красным,
мне нужно так же но с другим значением >= 80 сделать но для второго столбца cvd. Если я делаю по вашим примерам то после значения >= 301 красится столбец act и за ним cvd хотя в cvd столбце значение не привысило >= 80.

[Serge_Bliznykov]

а если так написать, то что происходит?

  if ((DataModule2.Turb_Query1.FieldByName('act').AsCurrency >= 301) and (DataCol = 4))  or
       ((DataModule2.Turb_Query1.FieldByName('cvd').AsCurrency >= 80) and (DataCol = 5))
  then begin
    Form1.DBGridEH2.Canvas.Font.Color := clRed;
    Form1.DBGridEH2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;

[spotip]

спасибо всё получилось.

[Serge_Bliznykov]

всегда пожалуйста!

[northener]

а если делаю для 2 ух столбцов то выделяет текст по 1 столбцу:

Явно избыточное количество begin/end-ов в коде мешает тебе самому понять почему это было так.