Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Диалог выбора шрифта TFontDialog


Автор: maripossa 16.8.2018, 22:53
Собственно это сам стандартный диалог:
https://fastpic.ru/view/100/2018/0816/_77a81ccdf697048697cf2d6fb06ddbb8.png.html

Код
FontDialog1.Font := Form1.Font;
if FontDialog1.Execute() then
Form1.Font := FontDialog1.Font;

Если начертание шрифта не стандартное (как на рис. выше) то вот эта штука FontDialog1.Font:=Form1.Font не позиционирует список (при FontDialog1.Execute) на имени шрифта. Вопрос собственно как победить это?

Видел в сторонних программах вот такие диалоги, но на дельфях не знаю как сделать:
http://fastpic.ru/view/103/2018/0816/_b48a4e36d2c906e6e9effa93db2ab316.png.html

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)