@Gandalf : TMHFontDialog

← →
blackalex (2002-10-29 15:28) [0]

Я применяю твой Font Dialog. Вот кусок кода. После закрытия диалога FontDlg.Font.FontName содержит имя фонта с мусором. Так это выглядит http://www.luftsoft.de/bilder/sss.gif Но это только под Win98 . В Win2000 все работает нормально. Посмотри пожалуйста.

------------------------------------------------------------------------
procedure TfrmSettings.btnFontClick(Sender: PObj);
var
FontDlg : PMHFontDialog;
Idx : Integer;
begin
FontDlg := NewMHFontDialog(Form);
FontDlg.Device := fddBoth;
FontDlg.InitFont.FontName := EditAttr.FontName ;
FontDlg.InitFont.FontCharset := EditAttr.FontCharset ;
FontDlg.InitFont.FontHeight := EditAttr.FontHeight ;
FontDlg.MinSize := MINFONTSIZE;
FontDlg.MaxSize := MAXFONTSIZE;
FontDlg.UseMinMaxSize := True;
FontDlg.UseInitFont := True;
FontDlg.ShowEffects := False;

if FontDlg.Execute then begin
EditAttr.FontName := FontDlg.Font.FontName ;
EditAttr.FontCharset := FontDlg.Font.FontCharset ;
EditAttr.FontHeight := FontDlg.Font.FontHeight ;
end;

FontDlg.Free ;
end;

← →
Gandalf (2002-10-29 16:31) [1]

ОК. Посмотрю.

← →
Gandalf (2002-10-30 21:45) [2]

Смотрел, у меня все ОК. Есть мнение что проблемма в том как ты отображаешь информацию. Что такое EditAttr? Попробуй просто MySuperLabel.Caption:=FontDlg.Font.FontName; И посмотри будет ли мусор.

← →
Kirill (2002-10-31 10:24) [3]

У меня, кстати, такая же фигня была, когда сохранял в реестр. Помнишь. Видно не только у меня такая проблема.

← →
Gandalf (2002-10-31 18:17) [4]

>У меня, кстати, такая же фигня была, когда сохранял в реестр. >Помнишь. Видно не только у меня такая проблема.
Но насколько помню, это вылечилось в новой версии MHFontDialog, или нет? Пришлете мне кто-нибуть "заведомо нерабочий код", чтобы я баг поизучал. Т.е. код blackalex у меня работает без мусора, но я вывожу в обычный Label: label.Caption:=FontDlg.Font.FontName;

blackalex ответь при использования Label все работает или нет? Если можешь пришли нерабочий пример.

← →
Gandalf (2002-11-01 10:46) [5]

>У меня, кстати, такая же фигня была, когда сохранял в реестр.
>Помнишь. Видно не только у меня такая проблема.
Все работает если использовать MHFontDialog V1.1, скачать с этого сайта. Собственно к blackalex это тоже относится, или не работает у тебя ( blackalex) с MHFontDialog V1.1?

← →
blackalex (2002-11-01 10:53) [6]

Точно, у меня старая версия. :) Щас скачаю новую и посмотрю

← →
blackalex (2002-11-01 16:13) [7]

Базару нет! С новой версией все работает. Спасибо. Вопрос снят

@Gandalf : TMHFontDialog Найти похожие ветки