这是我以前写的程序,也是用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,'旋转文字');