发信人: yueqs()
整理人: (2000-12-05 19:50:39), 站内信件
|
先转45度吧 ：-）
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;
--
1982年宪法赋予中国公民有自由信仰的权利。
法轮功是修炼，不是宗教，更不是什么“邪教”。
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.10.11.3]
|
|