Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mirage228,
25. Aug 2009
Pseudo-Code -- aber eigentlich ist das genau das, was ich oben schon mit Worten erklärt habe -- wie Du auf Deinen Ansatz kommst, ist mir tatsächlich ein Rätsel:
MaxBreite := ...; // Von Dir zu ermitteln bzw. zu belegen
while (Label1.Canvas.TextWidth(DeinText) > MaxBreite) and (Label1.Font.Size > 2) do
Label1.Font.Size := Label1.Font.Size - 1;
Viele Grüße
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mirage228,
25. Aug 2009
Benutze Canvas.TextWidth und fahre die Font-Size solange herunter bis die Länge kleiner als die Bildschirmbreite ist, wobei Du bei einer Font-Größe schluss machen solltest :)