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