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.

[LOMBI]

Meinst Du DefaultDrawing?

[mkinzler]

Ja

[LOMBI]

DefaultDrawing: True/False
Da tut sich leider nichts!

[LOMBI]

Hallo,

am onDrawCell hängt es vermutlich auch nicht.
Strings werden im Grid schon mit Nullen dargestellt.

Ist vielleicht die folgende Zuweisung nicht korrekt?

Delphi-Quellcode:

QueryArt.FieldByName('VKNetto').AsFloat :=  StrToFloat(EdVKNet.Text);

Warum werden dabei im Grid die Nullen nach dem Komma nicht gezeigt?

Wer hilft bitte weiter?

Gruß
Lombi

[marabu]

Hallo Lombi,

wenn du beim Ereignis OnDrawCell() den Feldwert des DataSet für die Ausgabe bereit stellst, dann solltest du nicht Field.AsString verwenden. Versuche es mal mit Field.DisplayText.

Freundliche Grüße

[LOMBI]

Hallo marabu,

super 100 Punkte für dich!
Zum Abschluß noch eine Frage:
Statt "Currency" in der Tabelle kann ich doch solche Werte auch als Float deklarieren oder?

Viele Grüße
Lombi

[marabu]

Du meinst wegen deiner vier Nachkommastellen? Niemand kann dich davon abhalten.

Schönes Wochenende

[LOMBI]

... muß doch noch eine Frage nachschieben:

Wie erreiche ich, dass die Beträge im Grid alle rechtsbündig angezeigt werden?
Bei unterschiedlich langen Werten sieht das optisch nicht besonders gut aus.

Auch dir ein schönes Wochenende!

Gruß Lombi

[mkinzler]

Zitat:

Zitat von LOMBI per PN

Vielleicht sollte ich VKBrutto und VKNetto in der ABSTabelle als String deklarieren

Davon würde ich stark abraten.
Ich würde den Wert formatiert anzeigen lassen

[LOMBI]

marabu hatte in der Zwischenzeit die Lösung.
Hast du einen Tipp, wie ich im Grid die Beträge rechtsbündig darstellen kann?

[mkinzler]

Setzte das Alignment dementsprechend.

[LOMBI]

Meinst du so etwas?

Delphi-Quellcode:

EdVKnet.SetAlignment(taRightJustify);

Bei StringGrid gibt es kein Alignment.

[DeddyH]

Dann hilft Selberzeichnen. DefaultDrawing auf false und OnDrawCell z.B. so etwas:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s: string;
    R: TRect;
begin
  if (ACol >= StringGrid1.FixedCols) and (ARow >= StringGrid1.FixedRows) then
    begin
      R := Types.Rect(Rect.Left, Rect.Top,Rect.Right - 2,Rect.Bottom - 2);
      s := StringGrid1.Cells[ACol,ARow];
      DrawText(StringGrid1.Canvas.Handle,PChar(s),-1, R,DT_RIGHT or DT_BOTTOM or DT_SINGLELINE);
    end;
end;