| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MHFontDialog [Delphi 5, Windows]
Kirill © (2002-08-18 10:18:00)Здраствуй, Gandalf!
Использую твой компонент в чистом KOL (без MCK). Столкнулся с проблемой правильного использования.
Подскажи пример правильного использования.
Мой пример:
FntDlg:=NewMHFontDialog;
FntDlg.InitFont.Assign(FntMain);
if FntDlg.Execute then begin
FntMain.Assign(FntDlg.Font);
end;
Free_And_Nil(FntDlg);
Так шрифт меняется только со второго раза (с запаздыванием на 1 выбор).
Kirill (2002-09-03 10:31:00) [1]2Gandalf:
Завтра пришлю. Прошу прощения, что так долго отвечал. Возвращался из отпуска (с юга).
Поясню, что настройки шрифта храню в реестре. И напротив Name получаются такие кракозяблы.
Gandalf (2002-08-28 19:14:00) [2]Неверю :)
1.42, D5, WinXP.
Шли пример.
Kirill (2002-08-28 02:30:00) [3]Разобрался с InitFont, но значения FontName после MHFontDialog.Execute становится очень странным. Как объяснить это "Courierљ\x7Fw>пх Пљ\x7FІ>Hп".
Kirill (2002-08-18 18:35:00) [4]Кстати, InitFont это тот шрифт который будет по умолчанию выбран в FontDialog"е? Он почему-то у меня не работает.
FontDialog.InitFont.FontName:="Courier New";
А он пишет пустую строку при Execute. 8-/
Kirill (2002-08-18 11:25:00) [5]Спасибо. Заработало.
Gandalf (2002-08-18 10:53:00) [6]Кажется нарыл - если не боитесь неофициальных версий KOL. И торопитесь - добавте строку:
function TGraphicTool.Assign(Value: PGraphicTool): PGraphicTool;
...
Assert( Value.fType = _Self.fType, "Attempt to assign to different GDI tool type" );
Move( Value.fData, _Self.fData, Sizeof( fData ) );
_Self.Changed; // <------- вот эту
end;
Gandalf (2002-08-18 10:30:00) [7]Я сам уже это заметил. И это не только в Font. Тут либо я либо Assign - сейчас разбираюсь.
| |
