如何把一行文字旋转90度后打印出来?(50分)

  • 主题发起人 主题发起人 pcw
  • 开始时间 开始时间
P

pcw

Unregistered / Unconfirmed
GUEST, unregistred user!
同QUICKREPORT的poLandscape属性。
 
1. 用 LOGFONT
2. 写到位图的画布上,再把位图旋转

 
这是我以前写的程序,也是用LOGFONT字体:
FillChar(FLogFont,Sizeof(TLogFont),0);
With FlogFontdo

begin

lfHeight:=Font.Height;
lfWidth:=0;
lfEscapement:=2700;
//想旋转多少度,修改这里的参数就可以了啊
lforientation:=lfEscapement;
lfWeight:=Fw_Normal;
lfItalic:=0;
lfUnderline:=0;
lfStrikeOut:=0;
lfCharSet:=Ansi_CHARSET;
StrPCopy(lfFaceName,Font.Name);
lfQuality:=PROOF_QUALITY;
lfOutPrecision:=OUT_TT_ONLY_PRECIS;
lfClipPrecision:=CLIP_DEFAULT_PRECIS;
lfPitchAndFamily:=Variable_Pitch;
end;

Font.Handle:=CreateFontIndirect(FLogFont);

Textout(x,y,'旋转文字');
 

Similar threads

回复
0
查看
1K
不得闲
D
回复
0
查看
825
DelphiTeacher的专栏
D
D
回复
0
查看
831
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部