TDBAdvGrid - Zeilen einfärben

[Eppos]

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?

[DeddyH]

Kannst Du mal die ganze Methode im Zusammenhang posten? Das scheint ein Kontext-Problem zu sein.

[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;

[DeddyH]

Ich kann beim besten Willen nicht erkennen, wo Du das Dataset editieren willst, da werden doch nur Werte abgefragt

[Eppos]

hier mal die genaue Medlung:

Query1: Dataset not in edit or insert mode.

[DeddyH]

Versuchst Du irgendwo anders, Daten zu ändern? Hast Du mal einen Breakpoint gesetzt? Wo tritt der Fehler auf?

[Eppos]

nein ich editiewre die daten nicht,
der Fehler tritt hier auf:

SelectedField.Text := aCell;

[DeddyH]

Ah, das wird die interne Datenanbindung sein. Mach doch mal ein Canvas.Textout daraus.

[Eppos]

wunderbar, das hat geklappt.
Das Problem ist jetzt nur, dass überall der gleich Wert drin steht.
Da aber das Grid in FormShow gefüllt wird, und der Fokus im Grid natürlich immer auf dem 1. Feld.
Wie ermittel ich die Zelle durch row und col?

[DeddyH]

Da ich die TMS-Komponenten nicht habe, rate ich mal ins Blaue:alterInhalt := Cells[ACol,ARow];