procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do begin
Font.Name := 'Arial';
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, 'Rotated Text!');
end;
end;
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvas do begin
Font.Name := 'Arial';
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, 'Rotated Text!');
end;
end;
解决方案 »
- 在线求助!鼠标放到TToolButton上时,字体为什么会变大,并且出现省略号!
- 老问题---条形码 急急。。。。。。
- 如何用TDBGrid给数据库中的记录编号。
- 在用DELPHI6连接SQL2000时,为何不能连接?
- loveADEL() 你好我的邮箱在里面,请给我寄过来函数好吗?谢谢,呵呵。。。
- case....of下面的1.2.3.4是什么意思
- <<delphi深度探索>>第一章olap例子的问题
- 怎样动态创建数据库?
- 如何模拟键盘按下了ctrl+某个键(比如ctrl+A)?
- 急!帮忙看一下这个程序,关于对数据库中关键字重复的问题。谢谢.(昨天帖了,没人回答)
- 师傅,游少大侠,救我啊·!!!!//小新的徒弟。
- 用SQL语句如何连接两个表(ACCESS数据库),并且还可以编辑其内容?
//你自己试试就可以了好不好!
function CreateFont(nHeight, nWidth, nEscapement, nOrientaion, fnWeight: Integer;
fdwItalic, fdwUnderline, fdwStrikeOut, fdwCharSet, fdwOutputPrecision,
fdwClipPrecision, fdwQuality, fdwPitchAndFamily: DWORD; lpszFace: PChar): HFONT; stdcall;