TDBAdvGrid - Zeilen einfärben

[Eppos]

Delphi-Quellcode:

procedure TfrmMain.Grid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var aCell : String;
begin
  aCell := Grid1.SelectedField.AsString;

  If ((Query1.FieldByName( 'SAT' ).AsInteger > 0) and (aCol > 0) and (aRow >0)) then begin
    Grid1.Canvas.Brush.Color := Query1.FieldByName( 'SAT' ).AsInteger;
  end else begin
    Grid1.Canvas.Brush.Color := clWhite;
  end;
  Grid1.canvas.FillRect( Rect );

  Grid1.SelectedField.Text := aCell;
end;