Label Font soll sich an dem Text ausrichten

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

[p80286]

Ich wollte vermeiden, daß nur ein Wert herüber kommt.

Gruß
K-H

[DeddyH]

Verstehe ich gerade nicht. Also was ich meinte, ist, dass man Objektinstanzen nicht als Var-Parameter übergibt, sondern allenfalls als const. Man will ja innerhalb der Routine nicht die Instanz an sich ändern, sondern nur deren Werte.

[p80286]

Wenn das so klappt, warum nicht?
Meine Kenntnisse über die Objektinterna sind wohl eher marginal.

Gruß
K-H

[DeddyH]

Dann lass das "var" einmal weg, es wird immer noch klappen

[p80286]

OK, wer lesen kann ist klar im Vorteil:

Zitat:

Konstantenparameter
Ein Konstantenparameter (const) entspricht einer lokalen bzw. schreibgeschützten Variablen.....
Übergeben Sie eine Objektreferenz als Konstantenparameter, können Sie weiterhin auf die Objekteigenschaften zugreifen und diese ändern.

Gruß
K-H