Actually it is common dialog:
[IMG] https://i100.fastpic.ru/thumb/2018/0816 ddbb8.jpeg [/IMG]
FontDialog1.Font: = Form1.Font; if FontDialog1.Execute () then Form1.Font: = FontDialog1.Font;
If a type face not standard (as on fig. above) that here this piece FontDialog1.Font: = Form1.Font does not position the list (at FontDialog1.Execute) on font name. A question actually how to win it?
Saw in indirect programs here such dialogues, but on I do not know as to make:
[IMG] http://i103.fastpic.ru/thumb/2018/0816/ ab316.jpeg [/IMG]