Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизШрифты Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c