16.01.2012, 02:46
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Дополнительно по шрифтам: если уж так хочется использовать выбранные шрифты, их нужно распространять вместе с программой и использовать такой код:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
isFont := AddFontResource('MyFont.ttf')) <> 0;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if isFont then
begin
RemoveFontResource('MyFont.ttf'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|