Label Font soll sich an dem Text ausrichten

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

[DeddyH]

Hast Du einmal einen Haltepunkt gesetzt und die Werte verfolgt?

[p80286]

Das funktioniert:

Delphi-Quellcode:

procedure FontAnpass(var lab:tlabel;const width:integer;const text:string);
begin
  if lab.Canvas.TextWidth(text) > Width  THEN BEGIN
    While lab.Canvas.TextWidth(text) > Width DO
      lab.canvas.Font.Size:= lab.canvas.Font.size -1;
  END
  ELSE BEGIN
    While lab.Canvas.TextWidth(text) < Width DO
      lab.canvas.Font.Size:= lab.canvas.Font.size +1;
  END;
  lab.Font.Size:=lab.Canvas.Font.Size;
end;{------------------------------------------------------------------}

Es ist allerdings noch finetuning von Nöten.

Gruß
K-H

[DeddyH]

Wieso ist das Label als Var-Parameter deklariert?