Quantum Grid: Wie Floats formatieren?

[Union]

Die Einfärbung kriegst Du hin, indem Du die Farbe der Felder im OnCustomDrawCell Event des TableView änderst:

Delphi-Quellcode:

procedure TForm1.cxGridBuchungDBTableViewBuchungBETRAGCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
   if VarIsFloat(AViewInfo.Value) and (AViewInfo.Value < 0) then
      ACanvas.Brush.Color := clRed
   else
      ACanvas.Brush.Color := clGreen;
end;

Das VarIsFloat() dient der weiteren Absicherung, falls in der Datenbank NULL-Werte gespeichert sind. Dann führt nämlich evtl. die Abfrage auf < 0 zum Absturz.

Um die Felder zu formatieren, weist Du der Eigenschaft Properties CurrencyEdit zu. Wenn Dir das Format nicht gefällt (es wird aus den Windows-Einstellungen übernommen), kannst Du es auch noch ändern. Dazu dient dann die Eigenschaft Properties.Displayformat.

Beispiel: ,0.00 €;-,0.00 €

http://www.softwareunion.lu/images/GridViewColor.png