列出Delphi 2009 win32中可用的GDI +字体

Question

在使用win32的Delphi 2009中，我如何获得系统上可用的GDI +字体列表？

补充问题：是否有可用的字体对话框可以向用户显示这种字体？如果可以在Lazerous中使用相同的方法，则可以获得奖励积分。

Answer 1

您应该枚举系统中的所有字体：

procedure TPDFFontMapper.EnumFonts;
var
  LF: TLogFont;
begin
  System.FillChar(LF, sizeof(LF), 0);
  LF.lfCharSet := DEFAULT_CHARSET;
  FDC := CreateCompatibleDC(0);
  try
    Windows.EnumFontFamiliesEx(FDC, LF, @EnumFFProc, Integer(Self), 0);
  finally
    Windows.DeleteDC(FDC);
  end;
end;

你应该为每种字体调用一个函数，并测试它是否为矢量字体（TrueType和OpenType字体都被认为是truetype字体）：

function EnumFFProc(const LogFont: TEnumLogFontEx; const TextMetric: TNewTextMetric; FontType: DWORD; LParam: DWORD): Integer; stdcall;
begin
  if FontType and TRUETYPE_FONTTYPE = TRUETYPE_FONTTYPE then
    // do sometghing useful with the logfont...
  Result := 1;
end;