Label Font soll sich an dem Text ausrichten

[eugene222]

Also, ich schaffs nicht. Ist zu hoch für mich. Ich hatte das leider viel leichter in Erinnerung mit Ruby. Aber bei mir klappt einfach nix. Ich möchte eig. nur dass das Labelfenster konstante Werte hat, und die Schrift die da drin ist, sich dem Fenster anpasst. Aber tdem Danke für deine Hilfe

[rollstuhlfahrer]

zeig mal, was du hast

Bernhard

[rollstuhlfahrer]

Das ist fies. Und außerdem a) nicht hilfreich UND b) völlig abweichend vom Thema. Wenn du trollen willst, dann nehm wenigstens den anderen Thread um das nicht eskalieren zu lassen.

Bernhard

[p80286]

Zunächst einmal sollte Label.Autosize auf false gesetzt werden.
dann wird der auszugebene Text mit Label.Canvas.Textwidth() und Label.Width geprüft und ggf. der Font vergrößert oder Verkleinert.

Gruß
K-H

P.S.
Ich bin Autofahrer, interessiert sich jemand für meinen Führerschein?

[eugene222]

@vergessen
Ich hätte nicht gedacht, dass hier so Kiddys unterwegs sind.

@Topic
Ich hab das vorhin alles verworfen, weil es voller Fehler war.
Ich setze mich jetz nochmal dran. Vielleicht wird es diesmal etwas besser klappen.
Wenn ich Fortschritte gemacht habe, werde ich diese hier reinposten.

*edit*
Ja genauso hab ich es ja auch gemacht. Das Problem ist nur, dass man den Font nur in 1 Schritten verkleinern kann. Gib es irgentwelche Möglichkeiten den Font im Kleinen Maß zu verkleinern/vergrößern?

*edit2*
Ich hab das jetz so

einmal das On_Change Event des EditFeldes:

Code:

procedure Tabc.ed_a_Change(Sender: TObject);
 BEGIN
  TRY
   f_a := StrToFloat(ed_a.text);
   s_a := ed_a.text;
  EXCEPT
   ed_a.text := '';
   f_a := 0;
   s_a := 'a';
  END;
  la_formel.caption := s_a+'x²+'+s_b+'x+'+s_c+' = 0';
  formel;
 END;

Und die Formel Prozedur:

Code:

PROCEDURE Tabc.formel;
 BEGIN
  IF la_formel.Canvas.TextWidth(la_formel.caption) > la_formel.Width
  THEN BEGIN
        While la_formel.Canvas.TextWidth(la_formel.caption) > la_formel.Width DO
        BEGIN
         la_formel.Font.Size:= la_formel.Font.size -1;
        END;
       END
  ELSE BEGIN
        While la_formel.Canvas.TextWidth(la_formel.caption) < la_formel.Width DO
        BEGIN
         la_formel.Font.Size:= la_formel.Font.size +1;
        END;
       END;
 END;

Irgentwas ist da falsch. Aber ich weiß nicht was. Ich bin noch Anfäger in solchen Sachen

[p80286]

Zitat von eugene222:

Irgentwas ist da falsch. Aber ich weiß nicht was. Ich bin noch Anfäger in solchen Sachen

Was ist den Falsch?
Wächst die Fontgröße ins unendliche?
Wird überhaupt nichts mehr ausgegeben?

Eine nähere Beschreibung wäre schon nicht schlecht.

Gruß
K-H

[eugene222]

Wenn ich ins Edit Feld 1 Ziffer eingebe, wird die Zahl normal im Label angezeigt. Nachdem ich jedoch die Zahl erhöhe, also 2 Ziffern da stehen habe, bleibt das Programm in einer Endlosschleife stehen.