Скачать: CL | DM;

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

← →
Yustas   (2004-05-10 06:52) [0]

Пожалуйста, напишите подробно, как занести список всех установленных шрифтов в TKOLCOmboBox?

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

---

← →
X9 ©   (2004-05-10 17:03) [1]

Посмотри http://delphimaster.net/view/4-1084117252/ и немного переделай.

---

← →
Игорь Шевченко ©   (2004-05-10 17:47) [2]

Yustas   (10.05.04 06:52)

RTFS: Forms.pas TScreen.Fonts

---

← →
X9 ©   (2004-05-10 19:43) [3]

2Игорь Шевченко
Forms.pas и KOL - IMHO вещи немного разные.

---

← →
VMcL ©   (2004-05-10 21:15) [4]

>>X9 ©  (10.05.04 19:43) [3]

А посмотреть, как написали разработчики Borland, и переписать под себя религия не позволит?

---

← →
Dimaxx ©   (2004-05-11 00:49) [5]

Но зато есть EnumFontFamilies

---

← →
SPeller ©   (2004-05-11 11:12) [6]

Если найти список шрифтов средствами WinApi вы поняли как, то неужели непонятно как это добавить строковые итемы в ComboBox, хоть он и KOLComboBox?

---

← →
Gandalf ©   (2004-05-12 13:28) [7]


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;

var
 DC: HDC;
 LFont: TLogFont;
 FFonts :PStrList;
 i:Integer;
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);
   finally
     ReleaseDC(0, DC);
   end;

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



---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c