| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MHFontDialog - initfont [Delphi, Windows]

Boris Mouradov ©   (2004-03-29 12:19:00) 

Привет!

Помогите установить начальное значение 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;

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

Борис

---

Boris Mouradov   (2004-03-30 17:06:00) [1]

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

---

Gandalf   (2004-03-29 16:58:00) [2]

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

---

Наверх