Delphi旋转文字
2015-09-08 13:43
405 查看
procedure TForm1.Button2Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do
begin
Font.Name := '宋体';
Font.Size := 24;
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
tf.Free;
TextOut(20, Height div 2, '旋转文字');
end;
end;
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do
begin
Font.Name := '宋体';
Font.Size := 24;
tf := TFont.Create;
tf.Assign(Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement := 450;
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Font.Assign(tf);
tf.Free;
TextOut(20, Height div 2, '旋转文字');
end;
end;
相关文章推荐
- delphi2007控件安装多版本可以用多用户方法来解决
- Delphi 内嵌WebBrowser报错的问题
- delphi用mdb
- Delphi 读写其他进程内存
- Delphi的Randomize
- Delphi 类似实现多窗口显示任务栏上
- Delphi共用体
- DELPHI - How to use opendialog1 for choosing a folder? TOpenDialog, TFileOpenDialog
- Delphi中的匿名方法和闭包
- 咏南多层开发框架支持最新的DELPHI 10 SEATTLE
- How to add Leading Zeroes to a Number (Delphi Format)
- DELPHI安装第三方组件
- Delphi 10 Seattle,C++ Builder 10 Seattle,RAD Studio 10 Seattle 官方下载激活
- Delphi的字节对齐和简单string结构
- Delphi类里面的方法和类型定义不影响创建实例的大小
- C#的string有null的概念,但是Delphi却没有
- C#和Delphi跟踪的问题,和实际数据不一样
- delphi 获取网卡信息(支持多网卡)
- Delphi10 安装Graphics32
- DELPHI短信接口开发经验及具体开发实现