Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

Открытие документов со шрифтами не установленными в системе   Найти похожие ветки 

 
Unknown user ©   (2004-09-27 10:10) [0]

Как внедрить в файл документа шрифт и устанавливать его при открытии документа, если таковой отсутствует?


 
Vit@ly ©   (2004-09-27 10:31) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
 AddFontResource(PChar(ExtractFilePath(ParamStr(0) + "YourFont.TTF")));
 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 RemoveFontResource(PChar(ExtractFilePath(ParamStr(0) + "YourFont.TTF")));
 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

Не тестировал



Страницы: 1 вся ветка

Текущий архив: 2004.10.31;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.035 c
6-1092998683
kitekat
2004-08-20 14:44
2004.10.31
Проверка наличия приложения на открытом порте


1-1097759680
Oleg_
2004-10-14 17:14
2004.10.31
как из дельфи запретить закрытие документа в word


14-1097236306
Alone
2004-10-08 15:51
2004.10.31
Компьютер-розетка :)


14-1097344110
maxz
2004-10-09 21:48
2004.10.31
глюки Delphi 8


10-1054029776
serg_
2003-05-27 14:02
2004.10.31
Проблема "лишних" GDI-объектов в corba-сервере