| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Шрифты

dumka ©   (2007-11-02 09:27:00) 

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

---

dumka   (2007-11-02 10:56:00) [1]

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

---

l_v   (2007-11-02 09:48:00) [2]

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...

---

homm   (2007-11-02 09:38:00) [3]

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

---

dumka   (2007-11-02 09:38:00) [4]

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

---

homm   (2007-11-02 09:30:00) [5]

AddFontResourceEx

---

Наверх