TFontDialog mit aktuellem Font öffnen

Rund um die LCL und andere Komponenten
Antworten
frank@schwedler.net
Beiträge: 4
Registriert: Sa 5. Jun 2021, 18:39

TFontDialog mit aktuellem Font öffnen

Beitrag von frank@schwedler.net »

Moin!
Ich rufe den FontDialog mit .Execute auf - geht prima! Allerdings würde ich gerne den aktuellen Font der Form als voreingestellten Font im FontDialog angezeigt bekommen. Das geht aber dann nicht, wenn ich die Font-Einstellungen aus einer Ini-Datei geladen habe und diese dann auf die Form anwende.
Was kann ich tun, damit der FontDialog beim Starten den aktuellen Font der Form nutzt?
Tschüß,
Frank

siro
Beiträge: 730
Registriert: Di 23. Aug 2016, 14:25
OS, Lazarus, FPC: Windows 11
CPU-Target: 64Bit
Wohnort: Berlin

Re: TFontDialog mit aktuellem Font öffnen

Beitrag von siro »

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  FontDialog1.Font:=Font;   // Das sollte ausreichen, 
  FontDialog1.execute;
end;
Grüße von Siro
Bevor ich "C" ertragen muß, nehm ich lieber Lazarus...

frank@schwedler.net
Beiträge: 4
Registriert: Sa 5. Jun 2021, 18:39

Re: TFontDialog mit aktuellem Font öffnen

Beitrag von frank@schwedler.net »

Ja, das hat funktioniert und ist natürlich auch ganz logisch - DANKE!
Tschüß und viele Grüße,
Frank

Antworten