Question

有些字体只有中等粗体。鉴于下面的代码，我必须一起避免TFontDialog吗？从Dialog中选择样式媒体时，它返回权重500集样式BOLD。如果我保存这个样式并打开TFontDialog备份它现在设置为BOLD。

  FW_THIN = 100;
  {$EXTERNALSYM FW_EXTRALIGHT}
  FW_EXTRALIGHT = 200;
  {$EXTERNALSYM FW_LIGHT}
  FW_LIGHT = 300;
  {$EXTERNALSYM FW_NORMAL}
  FW_NORMAL = 400;
  {$EXTERNALSYM FW_MEDIUM}
  FW_MEDIUM = 500;
  {$EXTERNALSYM FW_SEMIBOLD}
  FW_SEMIBOLD = 600;
  {$EXTERNALSYM FW_BOLD}
  FW_BOLD = 700;
  {$EXTERNALSYM FW_EXTRABOLD}
  FW_EXTRABOLD = 800;
  {$EXTERNALSYM FW_HEAVY}
  FW_HEAVY = 900;

  {$EXTERNALSYM FW_REGULAR}
  FW_REGULAR = FW_NORMAL;

    procedure TFontDialog.UpdateFromLogFont(const LogFont: TLogFont);
     var
      Style: TFontStyles;
    begin
      with LogFont do
      begin
        Font.Name := LogFont.lfFaceName;
        Font.Height := LogFont.lfHeight;
        if FFontCharsetModified then
          Font.Charset := TFontCharset(LogFont.lfCharSet);
        Style := [];
        with LogFont do
        begin
          if lfWeight > FW_REGULAR then Include(Style, fsBold);
          if lfItalic <> 0 then Include(Style, fsItalic);
          if lfUnderline <> 0 then Include(Style, fsUnderline);
          if lfStrikeOut <> 0 then Include(Style, fsStrikeOut);
        end;
        Font.Style := Style;
      end;
    end;

Answer 1

不幸的是，VCL提供的TFontDialog对此没有任何了解，Delphi中的TFont也不知道。 VCL仅承认粗体或非粗体，没有中间字体粗细。您必须完全绕过这些并实现自己的对话框和字体对象来完成此类功能。

Answer 2

您可以在OnClose事件中使用以下代码来检索TLogFont字体信息：

var
 LogFont: TLogFont;
begin
 if Sender is TFontDialog then
  with Sender as TFontDialog do
   SendGetStructMessage(Handle, WM_CHOOSEFONT_GETLOGFONT, 0, LogFont);
end;

需要以下单元：Windows，消息和CommDlg。我仍在寻找如何设置TLogFont数据以在显示对话框上显示对话框以及如何将其与TCanvas一起使用。

如何使用TFontDialog设置中等重量字体？

2 个答案: