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

Вниз

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

← →
a_legayda@mtu-net.ru   (2004-05-09 19:40) [0]

Как получить список всех установленных в системе шрифтов?

---

← →
Dimaxx ©   (2004-05-09 21:24) [1]

enumfontresources

---

← →
Yustas   (2004-05-10 06:51) [2]

"enumfontresources" - нет такой функции!

---

← →
MBo ©   (2004-05-10 07:44) [3]

зато есть EnumFonts. См. также Screen.Fonts

---

← →
Gandalf ©   (2004-05-12 13:22) [4]


function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
 FontType: Integer; Data: Pointer): Integer; stdcall;
var
 S: PStrList;
 Temp: string;
begin
 S := PStrList(Data);
 Temp := LogFont.lfFaceName;
 if (S.Count = 0) or (AnsiCompareText(S.Items[S.Count-1], Temp) <> 0) then
   S.Add(Temp);
 Result := 1;
end;

 DC: HDC;
 LFont: TLogFont;
 FFonts:PStrList;
 i:Integer;
begin
 if FFonts = nil then
 begin
   FFonts := NewStrList;
   DC := GetDC(0);
   try
     FFonts.Add("Default");
     FillChar(LFont, sizeof(LFont), 0);
     LFont.lfCharset := DEFAULT_CHARSET;
     EnumFontFamiliesEx(DC, LFont, @EnumFontsProc, LongInt(FFonts), 0);
     PStrList(FFonts).Sort(False);// := TRUE;
   finally
     ReleaseDC(0, DC);
   end;
 end;

 for i:=0 to FFonts.Count-1 do
   LisBox1.Add(FFonts.Items[i]);


---

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

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

Наверх

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