Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
Delphi XE5 Professional
|
Fontname und Fontsize eines TPRLabel ermitteln
14. Sep 2007, 10:47
Hallo Wissende,
ich grübel derzeit, wie ich die Schriftgrösse und Schriftartname eines TPRLabel in meiner Toolbar schreiben lassen kann, um dies anschliessen modifizieren zu können.
Dies geht nicht, weil der Fontname kein String ist, sondern vom Typ TPRFontname. Wie kann ich das wandel, dass es passt?
cmb_fonts.Text := (Form1.FormDesigner1.Control as TPRLabel).FontName);
Die geht leider nicht, weil die Fontsize der Komponente vom Typ Singel ist...
btn_fontsize.Caption := inttostr((Form1.FormDesigner1.Control as TPRLabel).fontsize);
Ich frage mich derzeit, warum die Entwickler das so gelöst haben und nicht den Fontnamen als String und die Schriftgrösse als integer deklariert haben...Hat das einen Grund?
Danke
Tom
|