Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

@Gandalf : TMHFontDialog

blackalex © (2002-10-29 15:28:00)
Я применяю твой 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;

blackalex (2002-11-01 16:13:00) [1]
Базару нет! С новой версией все работает. Спасибо. Вопрос снят

blackalex (2002-11-01 10:53:00) [2]
Точно, у меня старая версия. :) Щас скачаю новую и посмотрю

Gandalf (2002-11-01 10:46:00) [3]
>У меня, кстати, такая же фигня была, когда сохранял в реестр.
>Помнишь. Видно не только у меня такая проблема.
Все работает если использовать MHFontDialog V1.1, скачать с этого сайта. Собственно к blackalexэто тоже относится, или не работает у тебя ( blackalex) с MHFontDialog V1.1?

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

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

Kirill (2002-10-31 10:24:00) [5]
У меня, кстати, такая же фигня была, когда сохранял в реестр. Помнишь. Видно не только у меня такая проблема.

Gandalf (2002-10-30 21:45:00) [6]
Смотрел, у меня все ОК. Есть мнение что проблемма в том как ты отображаешь информацию. Что такое EditAttr? Попробуй просто MySuperLabel.Caption:=FontDlg.Font.FontName; И посмотри будет ли мусор.

Gandalf (2002-10-29 16:31:00) [7]
ОК. Посмотрю.

Наверх

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