DBGrid DrawColumnCell

[Kirchi]

So sollte es gehen:

Delphi-Quellcode:

procedure Tfrm_depot.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  DBGrid3.Canvas.Font.Color := clblack;
  if Column.FieldName = 'gewinn' then
  begin  
    if (trim(Column.Field.AsString) = '--') then
    begin
      DBGrid3.Canvas.Font.Color := clred;
    end
    else if (trim(Column.Field.AsString) = '') then
    begin
      DBGrid3.Canvas.Font.Color := clgreen;
    end;
  end;
  DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;