Forum: Programmieren allgemein
Delphi
by p80286,
15. Jan 2017
Das "Durchreichen" wahr wohl der richtige Tip.
self.Font.Name:='Webdings';
self.Font.Size:=16;
self.L_Left.Width:=self.Canvas.TextWidth(peakline);
self.L_Right.Width:=self.L_Left.Width;
....
self.L_Left.Font.Name:='Webdings';
So funktioniert alles wie notwendig;
Forum: Programmieren allgemein
Delphi
by p80286,
13. Jan 2017
Ich wollte mich nur kurz für die vielen Anregungen bedanken. Da ich z.Zt. auffe Arbeit bin und es sich hier um eine private Bastelei handelt, kome ich z.Zt. nicht dazu, mich darum zu kümmern.
Nur soviel. 'Autosize' geht in die Hose wenn man auf D7 125% Bildschirm losläßt, darum ja auch das selberbasteln, der Größe.
das mit dem Durchreichen, scheint das richtige Stichwort zu sein, es handelt...
Forum: Programmieren allgemein
Delphi
by p80286,
12. Jan 2017
Hallo zusammen,
Um die Mindestgröße eines Labels zu definieren verwende ich Canvas.Textwidth(mytext); Nur kommt dort ein Wert zurück, der grob gesagt, gerade einmal halb so groß ist wie eigentlich nötig. Der verwendete Font ist WebDings mit Size=16.
An anderer Stelle habe ich das schon einmal verwandt, und wenn ich mich richtig erinnere gab es auch bei "normalen" Fonts, ein paar Klippen an...