在canvas中画角的代码是什么?

最新推荐文章于 2022-08-29 14:51:55 发布

weixin_34273046

最新推荐文章于 2022-08-29 14:51:55 发布

阅读量109

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/myamanda/articles/1542803.html

本文介绍了一个使用 Delphi 实现的倾斜文本输出函数 TextOutAngled。该函数通过修改字体属性来实现文本的旋转显示，包括设置字体高度、倾斜角度、字体质量等参数，并通过 CreateFontIndirect 创建新的字体对象来完成文本的倾斜输出。

procedure TextOutAngled ( iCoordX, iCoordY: integer; const sString: string; iAngle, iSize: integer );
var
   oLogFont: TLogFont;
   SaveFont: TFont;
begin
     SaveFont := TFont.Create;
     SaveFont.Assign( GlobalCanvas.Font);

     GetObject(SaveFont.Handle, sizeof(TLogFont), @oLogFont);

     with oLogFont do
     begin
          lfHeight := iSize * 2;
          lfEscapement := iAngle * 10;
          lfQuality := PROOF_QUALITY;
          lfPitchAndFamily := DEFAULT_PITCH or FF_DONTCARE;
     end;

     with GlobalCanvas do
     begin
          Font.Handle := CreateFontIndirect ( oLogFont );
          SetBkMode ( Handle, TRANSPARENT );
          TextOut(iCoordX, iCoordY, sString );
          Font.Assign ( SaveFont );
     end;

     SaveFont.Free;
end;

转载于:https://www.cnblogs.com/myamanda/articles/1542803.html