Quantum Grid: Wert in Abhängigkeit von TTable formatieren

[BlueStarHH]

Hallo,

ich möchte im Quantum Grid einen Wert durchstreichen, wenn der Wert in einem Datenbankfeld gleich 1 ist. Das Datenbankfeld, das abgefragt werden soll, wird jedoch nicht im Quantum Grid angezeigt.

Ich hab das wie folgt probiert. ATTable ist als Datasource vom Grid gesetzt. Das Problem dabei ist jedoch, dass der aktuelle Datensatz von ATTable wohl nicht mit der aktuellen Zeile, die gerade gezeichnet wird übereinstimmt. Es werden nämlich die Werte in Zeilen durchgestrichen, wo EinFeld gar nicht 1 ist.

Delphi-Quellcode:

procedure TMainDlg.XYZCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin

if ATTable.FieldByName('EinFeld').AsInteger = 1 then
  ACanvas.Font.Style := ACanvas.Font.Style + [fsStrikeOut];

end;

[QuickAndDirty]

Ich kenne das Quantum grid nicht aber ich habe selbst eine art AllInOne
Grid für unsere Firma von Tstringgrid abgeleitet (mehr als 2 jahre Arbeit mit unterbrechungen).
Deswegen rate ich dir keine Datei/Datenbank Zugriffe in Drawcell zu machen. Denn
wie du weiß, ist Drawcell das was bei Paint oder beim invalidieren aufgerufen wird.
Halte die Daten (Durchegstrichen oder nicht) am besten im Speicher vor.
Baue dir z.B. Eine Eigenschaft der Art QGrid.Attribtes[x,y].Font .