Главная страница
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.036 c
3-1173524269
@dimon
2007-03-10 13:57
2007.05.27
Копирование Базы SQL SERVER 2000


2-1178633296
Regent
2007-05-08 18:08
2007.05.27
Вопрос по диалогу.


2-1178529896
Officeman
2007-05-07 13:24
2007.05.27
Делаю скриншот экрана, КАК вывести текст на изображение


15-1177503414
Pazitron_Brain
2007-04-25 16:16
2007.05.27
FreeDOS


15-1178100684
ыукмшсу
2007-05-02 14:11
2007.05.27
Регистрация службы в MS Vista