DBGrid Zeileneinfärben?

[TT73GP7]

Hallo zusammen,

ich habe ein DBGrid und ich würde gerne wenn ein Gewisser Wert in einer Spalte übersteigt das die ganze Zeile Grün wird.

Wie muss ich das denn machen?
eine Schleife durchlaufen lassen und schauen ob bei irgendwas das und das drin steht und dann mit der RowNumber arbeiten?

hab mich da irgendwie etwas festgebissen

Viele Grüße

[Michl]

Du kannst einfach im OnPrepareCanvas vom DBGrid die Hintergrundfarbe setzen. Z.B. wird so in einem Grid, bei fortlaufender ID, jede vierte Zeile rot angezeigt:

Code: Alles auswählen

procedure TForm1.DBGrid1PrepareCanvas(sender: TObject;
  DataCol: Integer; Column: TColumn; AState: TGridDrawState);
begin
  if gdSelected in AState then Exit; // bei selektierten Zeilen Hintergrundfarbe nicht ändern
  if SQLQuery1.FieldByName('ID').AsInteger mod 4 = 0 then
    DBGrid1.Canvas.Brush.Color := clRed
  else
    DBGrid1.Canvas.Brush.Color := clDefault;
end;