Zahlen mit verschiedenen Nachkommastellen

[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]

, 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 von Chris211183:

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 von TiGü:

Zitat von Chris211183:

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 von Sir Rufo:

Zitat von TiGü:

Zitat von Chris211183:

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 von TiGü:

Zitat von Sir Rufo:

Zitat von TiGü:

Zitat von Chris211183:

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.

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

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

[TiGü]

Zitat von Chris211183:

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

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

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!