如何通过TFontDialog在Delphi中精确设置中等粗细度的字体样式？
- 内容介绍
- 文章标签
- 相关推荐
本文共计284个文字，预计阅读时间需要2分钟。
有些字体只有中文字符和粗体。考虑到下面的代码，我必须一起避免TFontDialog吗？从Dialog中选择样式媒体时，它返回权重500的粗体。如果保存这个样式并打开TFontDialog备份，它现在设置为粗体.+FW。
从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; 不幸的是,VCL提供的TFontDialog对此没有任何了解,也没有Delphi中的TFont. VCL仅承认粗体或非粗体,没有中间字体粗细.您必须完全绕过这些并实现自己的对话框和字体对象来完成此类功能.
本文共计284个文字，预计阅读时间需要2分钟。
有些字体只有中文字符和粗体。考虑到下面的代码，我必须一起避免TFontDialog吗？从Dialog中选择样式媒体时，它返回权重500的粗体。如果保存这个样式并打开TFontDialog备份，它现在设置为粗体.+FW。
从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; 不幸的是,VCL提供的TFontDialog对此没有任何了解,也没有Delphi中的TFont. VCL仅承认粗体或非粗体,没有中间字体粗细.您必须完全绕过这些并实现自己的对话框和字体对象来完成此类功能.