以任意角度显示文字

以任意角度显示文字 时间：2024/6/5作者：未知来源：三度网教程人气：

var
  LogFont: TLogFont;
  theFont: TFont;
begin
  with  Form1.Canvas do
  begin
    Font.Name := '宋体';
    Font.Size := 18;
    Font.Color := clYellow;
    theFont := TFont.Create;
    theFont.Assign( Font );
    GetObject( theFont.Handle, Sizeof(LogFont),  @LogFont );
    LogFont.lfEscapement := 450; // 45度
    LogFont.lfOrientation := 450;  // 45度
    theFont.Handle := CreateFontIndirect( LogFont );
    Font.Assign( theFont );
    theFont.Free;
    TextOut( X, Y, 'Hello!' );
  end;
end;

关键词： 以任意角度显示文字

免责声明：本站资源均来自互联网收集如有侵犯到您利益的地方请及时联系管理删除，敬请见谅!

QQ:1006262270 邮箱:kfyvi376850063@126.com 手机版