Zahlen mit verschiedenen Nachkommastellen

[Chris211183]

Hallo, ich bin seit langem mal wieder an Delphi.

Ich möchte bei meiner Komponente am Rand, Zahlen (von 0,0 bis 100,0) stehen haben.
Diese Zahlen sollen aber auch variable Nachkommastellen haben können wie z.B. von 0,000 bis 100,000.
Das soll im OI einstellbar sein über LabellingDecimals (1 für eine Nachkommastelle etc.)

Danke für eure Hilfe !


:stupid:

[DeddyH]

Siehe Format oder FormatFloat, da kann man die Anzahl der dargestellten Nachkommastellen festlegen.

[Chris211183]

hatte schon an floatToStrF gedacht, will die ja aber im Objektinspektor variieren können...

[Sir Rufo]

Und wo ist das Problem?

Wie die Eigenschaft in den OI kommt oder was?

BTW mit TWinControl.Invalidate wird ein Neuzeichnen veranlasst ;)

[DeddyH]

Ja und? Eine published-Property mit Setter genügt dafür. Kleine Beispielklasse:

Delphi-Quellcode:

type
  TDings = class
  private
    FNachkommastellen: integer;
    FFormatStr: string;
    procedure SetNachkommastellen(const Value: integer);
    function GetTestValue: string;
  public
    constructor Create;
  published
    property Nachkommastellen: integer read FNachkommastellen write SetNachkommastellen;
    property TestValue: string read GetTestValue;
  end;

constructor TDings.Create;
begin
  inherited Create;
  Nachkommastellen := 2;
end;

procedure TDings.SetNachkommastellen(const Value: integer);
begin
  FNachkommastellen := Value;
  FFormatStr := Format('%%.%df', [FNachkommastellen]);
end;

function TDings.GetTestValue: string;
begin
  Result := Format(FFormatStr, [Pi]);
end;

Anwendung:

Delphi-Quellcode:

procedure TFormTest.Button1Click(Sender: TObject);
var
  Dings: TDings;
begin
  Dings := TDings.Create;
  try
    Dings.Nachkommastellen := 3;
    ShowMessage(Dings.TestValue);
    Dings.Nachkommastellen := 1;
    ShowMessage(Dings.TestValue);
    Dings.Nachkommastellen := 2;
    ShowMessage(Dings.TestValue);
    Dings.Nachkommastellen := 5;
    ShowMessage(Dings.TestValue);
  finally
    Dings.Free;
  end;
end;

[Sir Rufo]

@Deddy

Er hat ja eine visuelle Komponente, und da muss lediglich nach dem Setzen

Delphi-Quellcode:

Invalidate

aufgerufen werden.

Aber ich sehe, dir ist das eigentliche Problem - wie mir - auch nicht klar ;)

[DeddyH]

Invalidate allein genügt nicht, es muss ja auch das geänderte Format berücksichtigt werden ;) Ich war nur zu faul, jetzt auch noch eine visuelle Komponente zu schreiben, daher muss das Beispiel genügen :mrgeen:

[Chris211183]

Danke DeddyH,

das war nicht das Problem, das Problem ist, dass ich nicht weiß, wie ich in der Paint Methode, die Zahlen an die Komponente bekomme...
Die Striche etc. malt er mir,so wie ich das will, nur wie bekomme ich die Zahlen visuell angezeigt über Canvas, kenne nur Canvas.TextOut..., das ja aber nicht der Sinn oder ?

[DeddyH]

Und was soll an Canvas.Texout falsch sein? Du kannst natürlich auch DrawText oder TextRect oder was weiß ich nehmen, aber das ändert an der generellen Vorgehensweise ja nichts.

[Sir Rufo]

Beantworte doch mal folgende Fragen:

• Kannst du bei der Komponente eine Eigenschaft einbauen, die im OI auftaucht?
• Kannst du beim Setzen des Eigenschaftswerts einen weiteren Befehl aufrufen?
• Kannst du beim Zeichnen auf diese Eigenschaft zugreifen?
• Kannst du eine Fließkommazahl in einen String mit Angabe der Nachkommastellen umwandeln?
• Kannst du einen String auf dem Canvas ausgeben?

Alle Fragen mit "Yes, we can" beantwortet, dann weiß hier wohl niemand, wo jetzt das Problem liegt.

Eigentlich sind alle Punkte hier schon mehr oder weniger angesprochen worden

[Chris211183]

Zitat:

Zitat von Sir Rufo (Beitrag 1237901)

Beantworte doch mal folgende Fragen:

• Kannst du bei der Komponente eine Eigenschaft einbauen, die im OI auftaucht?
• Kannst du beim Setzen des Eigenschaftswerts einen weiteren Befehl aufrufen?
• Kannst du beim Zeichnen auf diese Eigenschaft zugreifen?
• Kannst du eine Fließkommazahl in einen String mit Angabe der Nachkommastellen umwandeln?
• Kannst du einen String auf dem Canvas ausgeben?

Alle Fragen mit "Yes, we can" beantwortet, dann weiß hier wohl niemand, wo jetzt das Problem liegt.

Eigentlich sind alle Punkte hier schon mehr oder weniger angesprochen worden

Hallo SirRufo,

zu 1. ja, das ist kein Problem
2. ebenfalls ja
3. auch das
4. ich glaube ja, wobei ich dies noch nie getan habe...
5. daran hapert es bei mir !!!

zu Punkt 5 find ich auch im Borland Buch nichts, da diese Bücher wenig auf visuelle Komponentenentwicklung ausgerichtet sind...
Im Netzt steht zwar viel, aber dafür auch viel Müll...

Ich werde mich heute Abend mal ransetzen und Zeit investieren, da ich auch mal damit fertig werden möchte :?, ist zwar nicht dringend, aber die letzten Prüfungen stehen an und in der Zeit muss das alles liegen bleiben, dann nach 3 Monaten wieder reinzufinden wird dann auch wieder nen Krampf...:gruebel:

[bcvs]

Zitat:

Zitat von Chris211183 (Beitrag 1237981)

5. daran hapert es bei mir !!!

zu Punkt 5 find ich auch im Borland Buch nichts, da diese Bücher wenig auf visuelle Komponentenentwicklung ausgerichtet sind...

Dann schau dir nochmal Beitrag #9 an. Da werden sogar mehrere Möglichkeiten genannt.

[Chris211183]

Zitat:

Zitat von bcvs (Beitrag 1237985)

Zitat:

Zitat von Chris211183 (Beitrag 1237981)

5. daran hapert es bei mir !!!

zu Punkt 5 find ich auch im Borland Buch nichts, da diese Bücher wenig auf visuelle Komponentenentwicklung ausgerichtet sind...

Dann schau dir nochmal Beitrag #9 an. Da werden sogar mehrere Möglichkeiten genannt.

klar, wenn mans weiß..., wenn man noch nie ne Rakete auf den Mond geschickt hat, diese Projekt aber angeht, andere, welche das schon mal in der Art hatten fragt und zur Antwort bekommt, schau dir doch mal Text xy an, da stehen Dinge die Du nicht kannst aber gehen, bringt mich das auf jeden Fall vorwärts :x

[Furtbichler]

Zitat:

Zitat von Chris211183 (Beitrag 1237889)

... nur wie bekomme ich die Zahlen visuell angezeigt über Canvas, kenne nur Canvas.TextOut..., das ja aber nicht der Sinn oder ?

Zitat:

Zitat von DeddyH (Beitrag 1237892)

Und was soll an Canvas.Texout falsch sein? Du kannst natürlich auch DrawText oder TextRect oder was weiß ich nehmen, aber das ändert an der generellen Vorgehensweise ja nichts.

Zitat:

Zitat von Chris211183 (Beitrag 1237999)

klar, wenn mans weiß..., wenn man noch nie ne Rakete auf den Mond geschickt hat...

Na ja... Die Rakete haste schon gebaut. Wo's zum Mond geht, weíßt Du auch. Und Du kennst sogar den Anlasser ('TextOut').... Merkste wat?

[Chris211183]

habs aber bis jetzt nicht hinbekommen, das der textOut, mir meine zahlen in der Reihenfolge drauf schreibt. Habs mit floatTostrF und DeddyH´s methode probiert, mit Setter, seh den wald vor lauter Bäumen nicht mehr...

sollen doch nur in einer Reihe, mit meinen Abstand dann, 0,0. 10.0 20.0 etc stehen, denk ich zu krumm ???

Ich hau glei den Bildschirm ausm Fenster

[Furtbichler]

Kurz bevor Du den Bildschirm aus dem Fenster schmeißt, überlege kurz, ob wir dir ganz ohne deinen Code helfen können. Was ich damit sagen will:

Pack die Paint-Methode hier rein. Markiere deinen Code und drücke dann oben auf das Delphi-Symbol. Dann wird der Code anständig formatiert und man kann ihn hier lesen. Und helfen.

PS: Das mit dem Gefühl (Bildschirm aus dem Fenster) ist hier bekannt, insofern fühlen wir mit.

[Chris211183]

:-D, Bildschirm ist nch heile

Delphi-Quellcode:

procedure THixBarGraph.Paint;

var
   R                : TRect;                                                    // Bargraphrechteck vom Typ TRect
   i                : Integer;
   Pos              : Integer;
   Zahl             : Extended;
begin
  inherited;
  if (Parent = NIL) or not visible
  then Exit;
  Canvas.Brush.Color := FColor;
  Canvas.FillRect(Rect(0, 0, Width, Height));                                   // Hintergrund des Objektes als Rechteck Zeichnen

   case FKind of

      sbHorizontal : begin                                                      // horizontale Ausrichtung der Komponente
                        R := Rect(OffsetLower,                                  // Definition des Bereiches des Bargraphrechteckes über P1=(x1;y1) und P2=(x2; y2)
                                 (Height - Barwidth) div 2,
                                  Width - OffsetUpper,
                                 (Height + Barwidth) div 2);
                                                                                // Skalen zeichnen
                        case FLabelingStyle of

                         lbsLines :       begin
                                             Canvas.Pen.Color := clBlack;
                                             for i := 0 to round(ValueMax) do
                                                begin
                                                Canvas.MoveTo(round((OffsetLower) + i * LabelingGap), ((Height - Barwidth) div 2 + Barwidth));
                                                Canvas.LineTo(round((OffsetLower) + i * LabelingGap), Height);
                                                Canvas.LineTo(round((OffsetLower) + i * LabelingGap), 0);
                                                end;
                                          end;

                         lbsLabels :      begin
                                                begin
                                                Canvas.TextOut(round(OffsetLower),0, '0,0');
                                                end;
                                          end;

                      lbsSymmetric :      begin

                                          end;

                           lbsBoth :      begin


                                          end;
                         else
                           end;


                     end;

      sbVertical :   begin                                                      // vertikale Ausrichtung der Komponente
                        R := Rect((Width - BARWIDTH) div 2,
                                   Height - (Height - OffsetUpper),
                                  (Width + BARWIDTH) div 2,
                                   Height - OffsetLower);

                        case FLabelingStyle of

                         lbsLines :       begin
                                             Canvas.Pen.Color := clBlack;
                                             for i := 0 to round(ValueMax) do
                                                begin
                                                Canvas.MoveTo(Width, round((Height - OffsetLower - 1) - i * LabelingGap));
                                                Canvas.LineTo(0, round((Height - OffsetLower - 1) - i * LabelingGap));
                                                end;
                                          end;

                         lbsLabels :      begin

                                          end;

                         lbsSymmetric :   begin

                                          end;

                         lbsBoth :        begin

                                          end;
                         else;
                           end;
                     end;
  end;
                 Canvas.Brush.Color := FBarColor;
                 Canvas.FillRect(R);
                 Frame3D(Canvas, R, clBtnShadow, clBtnHighlight, 1);
end;

ssr Ausschnitt aus dem Grundgerüst...(ja die Formatierung ist grauenhaft)
Bei FLabelingStyle---Labels, will ich nur, dass er an die Komponente meine Zahlen dran schreibt.
Folgendes habe ich bisher probiert:

1. prozedure mit Setter, wie DeddyH es breits vorschlug
2. floatToStrF(), wobei ich damit garnicht zurecht kam mit den Zuweisungen und diese dann Canvas so zu übergeben, dass es vernünftig erzeugt wird...

[DeddyH]

Mach doch mal folgendes Testprojekt: ein Edit und ein TUpDown auf das Formular, Associate vom TUpDown wird das Edit. OnPaint des Forms und OnChangingEx des UpDown werden mit Methoden belegt, das Formular bekommt eine Property mit Setter spendiert, so dass das Ganze so aussieht:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    UpDown1: TUpDown;
    procedure FormPaint(Sender: TObject);
    procedure UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
  private
    { Private-Deklarationen }
    (* für die Property *)
    FAnzahlStellen: integer;
    procedure SetAnzahlStellen(const Value: integer);
  public
    { Public-Deklarationen }
    property AnzahlStellen: integer read FAnzahlStellen write SetAnzahlStellen;
  end;

...

(* Form1.OnPaint *)
procedure TForm1.FormPaint(Sender: TObject);
const
  PREFORMAT = '%%.%df';
var
  FormatStr: string;
begin
  FormatStr := Format(PREFORMAT, [FAnzahlStellen]);
  Canvas.TextOut(10, 10, Format(FormatStr, [Pi]));
end;

procedure TForm1.SetAnzahlStellen(const Value: integer);
begin
  FAnzahlStellen := Value;
  invalidate;
end;

(* UpDown1.OnChangingEx *)
procedure TForm1.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  AnzahlStellen := NewValue;
end;

Nun schau Dir an, was passiert, wenn man mittels des UpDown die Anzahl der Stellen ändert.

[Sir Rufo]

Wobei SysUtils.Format auch die Stellenanzahl als Parameter bekommen kann

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.TextOut(10, 10, Format( '%.*f', [FAnzahlStellen, Pi]));
end;

[TiGü]

Zitat:

Zitat von Chris211183 (Beitrag 1238097)

Bei FLabelingStyle---Labels, will ich nur, dass er an die Komponente meine Zahlen dran schreibt.

Und wie soll das funktionieren, wenn du für diesem Fall (FLabelingStyle = lbsLabels) in deiner Case-Of-Anweisung nichts ausführst?

[Sir Rufo]

Zitat:

Zitat von TiGü (Beitrag 1238148)

Zitat:

Zitat von Chris211183 (Beitrag 1238097)

Bei FLabelingStyle---Labels, will ich nur, dass er an die Komponente meine Zahlen dran schreibt.

Und wie soll das funktionieren, wenn du für diesem Fall (FLabelingStyle = lbsLabels) in deiner Case-Of-Anweisung nichts ausführst?

Darum geht es doch, er weiß nicht, was er da hinschreiben soll ;)

[TiGü]

Zitat:

Zitat von Sir Rufo (Beitrag 1238173)

Zitat:

Zitat von TiGü (Beitrag 1238148)

Zitat:

Zitat von Chris211183 (Beitrag 1238097)

Bei FLabelingStyle---Labels, will ich nur, dass er an die Komponente meine Zahlen dran schreibt.

Und wie soll das funktionieren, wenn du für diesem Fall (FLabelingStyle = lbsLabels) in deiner Case-Of-Anweisung nichts ausführst?

Darum geht es doch, er weiß nicht, was er da hinschreiben soll ;)

Dann tut es mir leid...von einen angehenden Physiker und Materialwissenschafter hätte ich erwartet, dass er schon Erlerntes auf andere Fälle übertragen kann.

Vor allen erwarte ich ein grundlegendes Verständnis für Koordinatensysteme, was ja Zeichnen auf einen Canvas irgendwo ist.

Wenn er es nicht schafft, den Klammerinhalt von Canvas.MoveTo wenige Zeilen höher in die Canvas.TextOut-Funktion zu übertragen, dann ist das Ziel einer eignen Graphenkomponente vielleicht doch etwas zu hoch gesteckt.

[Chris211183]

Zitat:

Zitat von TiGü (Beitrag 1238190)

Zitat:

Zitat von Sir Rufo (Beitrag 1238173)

Zitat:

Zitat von TiGü (Beitrag 1238148)

Zitat:

Zitat von Chris211183 (Beitrag 1238097)

Bei FLabelingStyle---Labels, will ich nur, dass er an die Komponente meine Zahlen dran schreibt.

Und wie soll das funktionieren, wenn du für diesem Fall (FLabelingStyle = lbsLabels) in deiner Case-Of-Anweisung nichts ausführst?

Darum geht es doch, er weiß nicht, was er da hinschreiben soll ;)

Dann tut es mir leid...von einen angehenden Physiker und Materialwissenschafter hätte ich erwartet, dass er schon Erlerntes auf andere Fälle übertragen kann.

Vor allen erwarte ich ein grundlegendes Verständnis für Koordinatensysteme, was ja Zeichnen auf einen Canvas irgendwo ist.

Wenn er es nicht schafft, den Klammerinhalt von Canvas.MoveTo wenige Zeilen höher in die Canvas.TextOut-Funktion zu übertragen, dann ist das Ziel einer eignen Graphenkomponente vielleicht doch etwas zu hoch gesteckt.

:stupid::stupid:n:stupid: oh man, um die Koordinatenberechnung geht :stupid:es nicht und ging es auch nie, es ging um :stupid:aderes, wie Sir Rufo bereits erwähnte !!! egal, danke an euch, es funzt alles (mit meinen berechneten Koordinaten :twisted:) Den Rest hab ich auch fast fertig jetzt !!!

Lieben Dank an die fleißigen Helfer und auch an die lustigen Anderen :wink:

[TiGü]

Zitat:

Zitat von Chris211183 (Beitrag 1238262)

:stupid::stupid:n:stupid: oh man, um die Koordinatenberechnung geht :stupid:es nicht und ging es auch nie, es ging um :stupid:aderes, wie Sir Rufo bereits erwähnte !!! egal, danke an euch, es funzt alles (mit meinen berechneten Koordinaten :twisted:) Den Rest hab ich auch fast fertig jetzt !!!

Lieben Dank an die fleißigen Helfer und auch an die lustigen Anderen :wink:

Das du es halbwegs hinkriegst, die Koordinaten zu berechnen, hat dir auch keiner in Abrede gestellt.
Du hast/hattest halt nur nicht verstanden, dass du genauso wie im Fall FLabelingStyle = lbsLines mit MoveTo die Anfangskoordinaten der TextOut-Funktion im Fall FLabelingStyle = lbsLabels behandeln musst.

Anstatt das Board mit Smileys zu verschandeln, könntest du deine "funzt alles"-Lösung ja mal posten!