以任意角度显示文字

My FAQ,最新最全的IT技术FAQ

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置： > 程序开发 > 编程语言 > Delphi > 综合文章

以任意角度显示文字

作者:未知时间:2005-08-07 21:01 出处:编程爱好者网站责编:My FAQ

摘要：以任意角度显示文字

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;