首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

以任意角度显示文字

(加入日期: 2002-09-07 )

打印文章】【字体:

分享到:
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; 

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章