MHFontDialog

← →
Kirill © (2002-08-18 10:18) [0]

Здраствуй, Gandalf!
Использую твой компонент в чистом KOL (без MCK). Столкнулся с проблемой правильного использования.
Подскажи пример правильного использования.
Мой пример:
FntDlg:=NewMHFontDialog; FntDlg.InitFont.Assign(FntMain); if FntDlg.Execute then begin FntMain.Assign(FntDlg.Font); end; Free_And_Nil(FntDlg);
Так шрифт меняется только со второго раза (с запаздыванием на 1 выбор).

← →
Gandalf (2002-08-18 10:30) [1]

Я сам уже это заметил. И это не только в Font. Тут либо я либо Assign - сейчас разбираюсь.

← →
Gandalf (2002-08-18 10:53) [2]

Кажется нарыл - если не боитесь неофициальных версий 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;

← →
Kirill © (2002-08-18 11:25) [3]

Спасибо. Заработало.

← →
Kirill © (2002-08-18 18:35) [4]

Кстати, InitFont это тот шрифт который будет по умолчанию выбран в FontDialog"е? Он почему-то у меня не работает.
FontDialog.InitFont.FontName:="Courier New";
А он пишет пустую строку при Execute. 8-/

← →
Kirill © (2002-08-28 02:30) [5]

Разобрался с InitFont, но значения FontName после MHFontDialog.Execute становится очень странным. Как объяснить это "Courierљw>пх ПљІ>Hп".

← →
Gandalf (2002-08-28 19:14) [6]

Неверю :)

1.42, D5, WinXP.

Шли пример.

2Gandalf:
Завтра пришлю. Прошу прощения, что так долго отвечал. Возвращался из отпуска (с юга).
Поясню, что настройки шрифта храню в реестре. И напротив Name получаются такие кракозяблы.

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