Einzelnen Beitrag anzeigen

BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
848 Beiträge
 
Delphi 11 Alexandria
 
#1

Quantum Grid: Wert in Abhängigkeit von TTable formatieren

  Alt 6. Okt 2006, 14:26
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;
  Mit Zitat antworten Zitat