Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

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

 
Ivolg ©   (2004-02-24 17:11) [0]

Как в Combobobx вывести все установленные шрифты?Спасибо!


 
olookin ©   (2004-02-24 17:13) [1]

function GetFonts(var LogFont: TLogFont; var TextMetric: TTextMetric; FontType: integer; Data: Pointer): integer; stdcall;
begin
// if LogFont.lfPitchAndFamily and $F=FIXED_PITCH then
FontList.Add(LogFont.lfFaceName); Result:=1;
end;

procedure GetFontList(var NewFontList: TStringList);
var DC: HDC;
begin
FontList:=TStringList.Create;
DC:=GetDC(0); EnumFonts(DC,nil,@GetFonts,nil);
NewFontList.Assign(FontList);
end;


 
hexone ©   (2004-02-24 17:14) [2]

ComboBox1.Items.Assign(Screen.Fonts);


 
TButton ©   (2004-02-24 17:19) [3]

2hexone
ага



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
4-12572
BaDeVlad
2003-12-29 11:39
2004.03.05
Иконка в SysTray и завершение работы Windows


3-12227
kors
2004-02-10 12:55
2004.03.05
FB 1.5 CS


1-12343
Sungod
2004-02-22 13:36
2004.03.05
ShellTreeView отбражение файлов определённого типа


8-12450
_Alex_
2003-11-04 19:42
2004.03.05
проигрывание AVI


14-12513
VEG
2004-02-06 21:01
2004.03.05
Вопрос по синтаксису С++ - конветирование