Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gfjs,
24. Aug 2008
@ DeddyH
??? Schlecht!
Ich will ja nicht die unsichtbare Zeile auslesen, sondern möchte, dass die Zeile angezeigt wird. Das könnte ich jetzt ja durch Memo1.Text := 'TEST' erreichen. Aber das Problem ist doch, dass ich zur Laufzeit feststellen möchte, wie groß ein Memo sein muss, um einen mehrzeiligen Text in vorgegebener Schriftgröße unterzubringen bzw. wie groß die Schriftgröße sein muss,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gfjs,
24. Aug 2008
Zur Vermeidung von Frust bei Leuten meines Alters sollte es Minderjährigen untersagt werden, im Forum Ihr Alter preiszugeben! :zwinker:
Erst mal vielen Dank, aber das Ganze wird mir immer unheimlicher:
Memo1.Font.Size := 10;
Memo1.Height := 20;
Memo1.Clear;
Memo1.Text := 'TEST';funktioniert!
Memo1.Font.Size := 10;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gfjs,
24. Aug 2008
@ r29d43
Guten Morgen ...
und vielen Dank für Dein frühes Engagement.
Das mit Offsets := 8 klappt nur bei Font.Size < 11 (bei Arial). Je größer die Schrift ist, desto größer wird dieser Wert. Ich habe das mal für Schriftgrößen bis 72 angeschaut:
Wenn Du magst, kannst Du mir vielleicht noch ein Beispiel zu EM_GETRECT bzw. EM_SETRECT schicken - habe damit bisher noch...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by gfjs,
24. Aug 2008
Guten Morgen, Allerseits.
Ich probiere schon seit zwei Stunden, die Breite eines Memo zur Laufzeit so einzustellen, dass ein vorgegebener Text reinpasst.
begin
Label1.Font.Size := 18;
Memo1.Font.Size := 18;
w := Label1.Canvas.TextWidth('TESTTEXT');
Memo1.Width := w;
d := w - Memo1.ClientWidth;