Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
7. Jan 2004
Damit lässt sich aber nicht feststellen, ob der User die Einstellungen nicht geändert hat (jede Control behält ihre Einstellungen) oder ob der User diese Einstellungen jetzt auf alle Controls anwenden will ;-)
...:cat:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
7. Jan 2004
Leider nicht. Am einfachsten wäre es wohl den Font-Dialog nachzubasteln und dann alles selbst zu erledigen.
Falls Du es so machen willst, die Schriften könnte man auf folgende Art in eine Listbox laden:
Listbox1.Items.Clear;
Listbox1.Items.AddStrings(Screen.Fonts);
...:cat:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
7. Jan 2004
Das ist wohl etwas, was MS so nicht als Option vorgesehen hat, aber folgender Code wäre ein mögliches Workaround:
FontDialog1.Options := FontDialog1.Options + ;
// Namen auf #0 setzen
FontDialog1.Font.Name := #0;
if FontDialog1.Execute then
// wenn name nicht #0 dann
if FontDialog1.Font.Name <> #0 then
Label1.Caption := FontDialog1.Font.Name
else