在窗体上画斜着的字演示

分　　类：绘图
语　　种：简体中文
编辑器：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 转换演示
下一篇： 人民币小写转换为大写的演示程序

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有