Danke funktioniert perfekt...
habe jetzt nur das Problem, die daten in das grid zu schreiben...
Folgendes habe ich versucht:
Delphi-Quellcode:
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;
aber das funktioniert nicht, er bringt einen Fehler, das das Dataset nicht editierbar ist...
Gibts es einen anderen weg?