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]

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

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