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

Вниз

Шрифты   Найти похожие ветки 

← →
dumka   (2007-11-02 09:27) [0]

Нужно в проекте о живописи использовать "витиеватые" шрифты в подписях на русском. Как подключить их?

---

← →
homm ©   (2007-11-02 09:30) [1]

AddFontResourceEx

---

← →
homm ©   (2007-11-02 09:38) [2]

Только учти, что «Ex» появилась в 2000, взамен в 98 нужно юзать просто AddFontResource

---

← →
dumka   (2007-11-02 09:38) [3]

Да я нашла, а как это применить?

---

← →
l_v   (2007-11-02 09:48) [4]

function LoadFont(sFontFileName: string; bLoadIt: boolean): boolean;
var
 sFont, sAppDir, sFontRes: string;
begin
 result := TRUE;

 if bLoadIt then
 begin
   {Загрузка шрифта.}
   if FileExists(sFontFileName) then
   begin
     sFontRes := sFontFileName + #0;
     if AddFontResource(@sFontRes[1]) = 0 then
       result := FALSE
     else
       SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
   end;
 end
 else
 begin
   {Выгрузка шрифта.}
   sFontRes := sFontFileName + #0;
   result := RemoveFontResource(@sFontRes[1]);
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 end;
end;
выдрано из Delphi World...

---

← →
dumka   (2007-11-02 10:56) [5]

Все получилось, всем спасибо.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.06 c