Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Quantum Grid: Wie Floats formatieren?

  Alt 20. Sep 2006, 17:46
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
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat