DisplayFormat+TStringGridanzeige

[LOMBI]

Hallo,

im AfterOpen der Query habe ich den Code:

Delphi-Quellcode:

 with DataSet.FieldByName('VKnetto') as TNumericField do
  DisplayFormat := '#.###.##0.00';

Dieser bewirkt leider nicht die gewünschte Anzeige des Betrages mit Nachkommastellen.
Wer hilft bitte?

Gruß
Lombi

[marabu]

Hallo Lombi,

nur der erste Punkt wird als Dezimaltrennzeichen erkannt:

Delphi-Quellcode:

with DataSet.FieldByName('VKnetto') as TNumericField do
  DisplayFormat := '#,###,##0.00';

Freundliche Grüße

[LOMBI]

Danke marabu,

aber im Grid steht immer noch 1 statt 1,00
Wie bitte löse ich das?

[marabu]

Wenn das Eingabefeld den Fokus hat, dann wird EditFormat statt DisplayFormat nicht verwendet.

Hast du den Cursor mal in ein anderes Feld gesetzt?

[LOMBI]

Ja, das habe ich.
Bei mir findet keine direkte Eingabe im Grid statt.
Vielleicht hängt das mit onDrawCell des Grids zusammen?

[mkinzler]

Zitat:

Vielleicht hängt das mit onDrawCell des Grids zusammen?

Wenn du die Zellen selber zeichnest musst du dich auch selber ums Format kümmern. was machst du im OwnerDraw?

[LOMBI]

In der ABSTabelle ist alles richtg dargestellt, im Grid werden die Nullen unterschlagen!
Also muß im OnDrawCell des Grid noch irgendetwas für DisplayFormat hinzugefügt werden.

[mkinzler]

Wie zeichnest du die Zellen?

[LOMBI]

Delphi-Quellcode:

...
  // Zelle einfärben
    if (ARow < FixedRows) or (ACol < FixedCols)
      then Canvas.Brush.Color := clBlue
      else
      if (ARow = Row) and (ACol >= FixedCols)
      then Canvas.Brush.Color := clYellow
      else Canvas.Brush.Color := clWhite;
      Canvas.FillRect(Rect);

[mkinzler]

Ruf mal die default Drawmethode auf.