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

Вниз

Подключить шрифт из ресурса   Найти похожие ветки 

 
Салат   (2007-03-31 15:58) [0]

Доброго, уважаемые! Подскажите пожалуйста, как можно засунуть шрифт в файл ресурсов и использовать его во время исполнения? Заранее спасибо.


 
Салат   (2007-03-31 19:50) [1]

Ну если проще... Подскажите как использовать шрифт из внешнего файла не регистрируя его в системе. В королевстве дельфи этот вопрос обсуждался, но я потерял ссылочку и найти его не могу.


 
Eraser ©   (2007-03-31 22:35) [2]

> [1] Салат   (31.03.07 19:50)

function TfmMain.InstallFont: Boolean;
begin
 Result := False;

 // Проверяем, установлен ли шрифт.
 if Screen.Fonts.IndexOf("MyFont") <> -1 then
 begin
   Result := True;
   Exit;
 end;
 // Пробуем установить шрифт.
 if FileExists(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) +
   "MyFont.ttf") then
 begin
   // Устанавливаем шрифт для данного приложения.
   AddFontResource(PChar(IncludeTrailingPathDelimiter(ExtractFilePath(Application.E xeName)) +
     "MyFont.ttf")) ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
   Result := True;
 end;
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.033 c
15-1177698597
koha
2007-04-27 22:29
2007.05.27
Можно ли к форуму подключать какой нибудь другой программой?


2-1178557712
Антон Шестаков
2007-05-07 21:08
2007.05.27
Чтение из базы


2-1178833029
programmist87
2007-05-11 01:37
2007.05.27
Запуск служб и InstallShield


3-1173464588
databaser
2007-03-09 21:23
2007.05.27
Многокритериальный поиск


15-1177679014
SergeyLTD
2007-04-27 17:03
2007.05.27
Помогите, пожалуйста, с лабораторными работами