delphi 控制打印机字体TLogFont

最新推荐文章于 2023-05-19 14:08:32 发布

yuwm_1979

最新推荐文章于 2023-05-19 14:08:32 发布

阅读量2.3k

点赞数

文章标签： delphi fonts integer

本文链接：https://blog.csdn.net/yuwm_1979/article/details/5600603

版权

该段代码展示了如何在Delphi中通过设置TLogFont结构来控制打印机的字体，包括字体高度、倾斜角度、粗细等属性，并创建新的字体句柄。

摘要由CSDN通过智能技术生成

procedure SetPrintFont(Degrees:Integer);
var
LogFont : TLogFont ;
begin
with Printer.Canvas do
   begin
      With LogFont do
      begin
        lfHeight:=Font.Height; // set to Printer.Canvas.font.height
        lfWidth := 0;           // let font mapper choose Width
        lfEsCapement := Degrees;// 900;            // tenths of degrees so 900 = 90 degreeS
        lfweight := FW_Normal;   // default 400是正常值，高于这个值的是粗体，低于这个值的是细体
        lfItalic := 0;           // no italics
        lfUnderline:= 0;        // no underline
        lfStrikeOut := 0;        // no strikeout
        lfCharSet   := DEFAULT_CHARSET ;    //dafault
        lfQuality := PROOF_QUALITY;
        lfOutPrEcision := OUT_TT_ONLY_PRECIS;   // forCe TrueType fontS
        lfClipPrecision := CLIP_DEFAULT_PRECIS; // default