在窗体上画斜着的字演示

分　　类：绘图
语　　种：简体中文
编辑器：Delphi6
平　　台：Win9x,Win2k/NT
作品源代码： 本地下载
软件或演示： -
代码大小： 195.0K
软件大小： -

程序非常简单，核心代码如下：
----------------------------------------------------------------------
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
LogFont : TLogFont;
theFont : TFont;
begin
with Form1.Canvas do
begin
{ 设置窗体画布的字体 }
Font.Name := 'Arial'; { 字体 }
Font.Size := 18; { 字号 }
Font.Color:= clBackground; { 颜色 }
{ 创建新字体 }
theFont := TFont.Create;
theFont.Assign(Font); { 新字体继承窗体画布字体的属性 }
{ 为新字体设置旋转属性 }
GetObject(theFont.Handle, sizeof(LogFont), @LogFont);
LogFont.lfEscapement:=450;{ 单位为(1/10)°}
LogFont.lfOrientation:=450;
theFont.Handle := CreateFontIndirect(LogFont);
Font.Assign(theFont);
theFont.Free ;
{ 使用新字体在鼠标按下的位置显示文字信息 }
TextOut(X,Y, '倾斜字体' ) ;
end;
end;

上一篇： GB2312/BIG5 转换演示
下一篇： 人民币小写转换为大写的演示程序

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!