//旋转 45°:在paintbox用Textout输出的一般是水平的方向的,现在我想输出斜向的文字在
//VC的CFont中的create函数中可以有一个参数(nEscapement)设定输出字体标注行的旋转角
//度,但是在delphi中这个设定在哪?
procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
with Form1.Canvasdo
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;
找了段代码,希望对你有帮助。大约看了一下。没怎么太看明白。