AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi DisplayFormat+TStringGridanzeige

DisplayFormat+TStringGridanzeige

Ein Thema von LOMBI · begonnen am 10. Jul 2007 · letzter Beitrag vom 14. Jul 2007
Antwort Antwort
Seite 1 von 3  1 23   
LOMBI
(Gast)

n/a Beiträge
 
#1

DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 20:28
Datenbank: ABS-db • Version: 5.12 • Zugriff über: ABSQuery
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
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:05
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
  Mit Zitat antworten Zitat
LOMBI
(Gast)

n/a Beiträge
 
#3

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:20
Danke marabu,

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

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#4

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:22
Wenn das Eingabefeld den Fokus hat, dann wird EditFormat statt DisplayFormat nicht verwendet.

Hast du den Cursor mal in ein anderes Feld gesetzt?
  Mit Zitat antworten Zitat
LOMBI
(Gast)

n/a Beiträge
 
#5

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:26
Ja, das habe ich.
Bei mir findet keine direkte Eingabe im Grid statt.
Vielleicht hängt das mit onDrawCell des Grids zusammen?
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:29
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?
Markus Kinzler
  Mit Zitat antworten Zitat
LOMBI
(Gast)

n/a Beiträge
 
#7

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:35
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.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#8

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:40
Wie zeichnest du die Zellen?
Markus Kinzler
  Mit Zitat antworten Zitat
LOMBI
(Gast)

n/a Beiträge
 
#9

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 21:41
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);
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#10

Re: DisplayFormat+TStringGridanzeige

  Alt 10. Jul 2007, 22:05
Ruf mal die default Drawmethode auf.
Markus Kinzler
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf