Скачать: CL | DM;

MHFontDialog - initfont   Найти похожие ветки 

← →
Boris Mouradov   (2004-03-29 12:19) [0]

Привет!

Помогите установить начальное значение MHFontDialog. Пробую так:

 FontDialog := NewMHFontDialog(Form);
 try
   FontDialog.InitFont.FontName := FontName;
   FontDialog.InitFont.FontHeight := FontHeight;
   FontDialog.InitFont.FontStyle := FontStyle;
   if FontDialog.Execute then begin
     FontName := FontDialog.Font.FontName;
     FontHeight := FontDialog.Font.FontHeight;
     FontStyle := FontDialog.Font.FontStyle;
   end;
 finally
   FontDialog.Free;
 end;

Все присваивается нормально, но диалог всегда высвечивается пустой - т.е. тот шрифт, что я присвоил, не подсвечивается.

Борис

---

← →
Gandalf ©   (2004-03-29 16:58) [1]

Выстави опцию fdInitFont.

---

← →
Boris Mouradov   (2004-03-30 17:06) [2]

Спасибо! Работает.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c