[loki33]

Схожу с ума... Пытаюсь в DBGrid-е окрасить строки в которых поле ost меньше нуля...

Код:

1 2 3 4 5 6 7

procedure TForm1.G_tovDrawDataCell(Sender: TObject; const Rect: TRect;   Field: TField; State: TGridDrawState); begin     if  d.Tovar.FieldByName('ost').AsFloat < 0 then         G_tov.Canvas.font.Color := clRed;     G_tov.DefaultDrawDataCell(Rect, Field, State); end;

Admin: Пользуемся тегами!

все просто... все соответствует exampl-ам... и НЕ РАБОТАЕТ

Кто знает что за глюк? И как с ним бороться?

[Yurk@]

примерно так:

Код:

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

procedure TeForm.GridDrawColumnCell(Sender: TObject; const Rect: TRect;   DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if ((Grid.DataSource.DataSet.FieldByName('Icrtf_vers_typ').AsString='DB') AND     (not Grid.DataSource.DataSet.FieldByName('Icrtf_id').IsNull) AND     (not Grid.DataSource.DataSet.FieldByName('Icrtf_form_series').IsNull) AND     (not Grid.DataSource.DataSet.FieldByName('Icrtf_form_num').IsNull)) then     begin       with  Grid.Canvas do       begin       Brush.Color:=$008000;       Font.Color:=$FFFFFF;              FillRect(Rect);       TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);       end;       end; end;