Hallo zusammmen,
ich benutze das TDBAdvGrid von TMS.
Ich möchte gerne in einem Grid die Farbe einfärben, folgendes habe ich bisher gemacht:
Delphi-Quellcode:
procedure TfrmMain.Grid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
If Query1.FieldByName( 'SAT' ).AsInteger > 0 then
Grid1.Canvas.Brush.Color := clMaroon;
end;
Es soll also bei einem Wert in dem Feld "SAT" von größer 0, die Zeile komplett eingefärbt werden mit
clMaroon.
Es funktioniert leider nicht... Hat jemand eine Idee, irgendwo habe ich bestimmt einen Denkfehler..
Vielen Dank.