Den Schriftartendialog aufrufen


Nachdem wir nun das TChooseFont-Record gefüllt haben, können wir den Dialog aufrufen, dem wir das Record als Parameter übergeben:

Result          := ChooseFont(cf);

Das Ergebnis ist true, wenn der Anwender den Dialog mit OK bestätigt hat. In diesem Fall wird die von uns zuvor zugewiesene TLogFont-Variable entsprechend der Auswahl angepasst. Dann erzeugen wir den neuen Font und weisen ihn dem Textfeld zu:

if(Result) then
begin
  mf            := CreateFontIndirect(lf);
  if(mf <> 0) then
    SendMessage(hwndEdit,WM_SETFONT,WPARAM(mf),LPARAM(false));
end;