|
| 盒子资源分类 |
![]() |
|
|
|
|
| 在窗体上画斜着的字演示 |
![]() |
| 关键字：窗体 斜着的字 旋转的字 font |
| 来 自：转载,未知 |
| 平 台：Win9x,Win2k/NT |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2001/1/19 |
| 发布者：mantousoft |
发布时间：2003/9/11 |
| 编辑器：DELPHI6 |
语 种：简体中文 |
| 分 类：绘图 |
下载浏览：687/9751 |
|
|
|
|
|
程序非常简单，核心代码如下：
----------------------------------------------------------------------
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; |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
