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

Вниз

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

← →
Su-+   (2005-01-21 14:17) [0]

Подскажите пожалуйста, как получить список всех шрифтов, установленных в системе?

---

← →
Style ©   (2005-01-21 14:30) [1]

EnumFonts?

---

← →
rrrr   (2005-01-21 14:39) [2]

> EnumFonts?

А можно хоть чуть-чуть поподробнее?

---

← →
MBo ©   (2005-01-21 14:53) [3]

см. также Screen.Fonts

---

← →
Jel ©   (2005-01-21 15:01) [4]

function EnumFontFamProc(lplf : PEnumLogFont; lptm : PNewTextMetric; dwType : integer; lParam : integer) : BOOL; stdcall;
begin
 Form1.ListBox1.Items.Add(lplf.elfFullName);
 Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Clear;
 EnumFontFamilies (Canvas.Handle, nil, @EnumFontFamProc, 0);
end;


А еще подробнее - в справке. :)

---

← →
rrrr   (2005-01-21 15:06) [5]

Большое спасибо!

---

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

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

Наверх

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