发信人: delphilxh(先锋)
整理人: teleme(2001-07-07 10:31:45), 站内信件
|
var
FontName:TComboBox;
function EnumFontsProc(var LogFont: TLogFont; var TextMetric: TTextMetric;
FontType: Integer; Data: Pointer): Integer; stdcall;
begin
TStrings(Data).Add(LogFont.lfFaceName);
Result := 1;
end;
procedure TMainForm.GetFontNames;
var
DC: HDC;
begin
DC := GetDC(0);
EnumFonts(DC, nil, @EnumFontsProc, Pointer(FontName.Items));
ReleaseDC(0, DC);
FontName.Sorted := True;
end
----
高举马列主义、毛泽东思想、邓小平理论伟大红旗，紧紧团结在以江泽民同志为核心的党中央周围，奋勇前进！前进！前进！进！进！进！ |
|