TDBAdvGrid - Zeilen einfärben

[Eppos]

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.

[DeddyH]

Du setzt ja nur die Pinselfarbe, ohne zu zeichnen.

[Eppos]

Wie heisst die Funktion, das er das auch Pinselt bei dem TMS Grid?

[DeddyH]

Canvas.FillRect, denke ich mal. Danach musst Du aber neu beschriften.

[Eppos]

Danke, das habe ich mir eigentlich einfacher vorgestellt,
da bei der Farbe Schwarz, die Schriffarbe automatisch auch dann gegenteilig
sich einstellen müsste...

[DeddyH]

Du könntest die Farben ja exklusiv verodern.

[Eppos]

die farben sind unterschiedlich....
d.h. für bestimmte werte in der datenbank, kann der benutzer sich die Farben ausdenken...

[DeddyH]

Ich meinte ja auch Hintergrund- und Schriftfarbe.

[Eppos]

versteh ich nicht, was du meinst, kannst du es mir erklären?

[DeddyH]

Beispiel (das kann man natürlich noch schöner machen):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Color := Random(clWhite);
  Label1.Font.Color := Color xor clWhite;
end;