请问如何实现将字反过来显示???? 请问如何实现将字反过来显示???? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不知道你要地是那种效果?如果是将字符倒过来用logfont procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);Var LogFont:TLogFont; theFont:TFont;begin with Form1.Canvas do begin Font.Name:='宋体'; Font.Size:=27; Font.Color:=clblack; theFont:=TFont.Create; theFont.Assign(Font); GetObject(theFont.Handle,sizeof(LogFont),@LogFont); LogFont.lfEscapement:=400; LogFont.lfOrientation:=0; theFont.Handle:=CreateFontIndirect(LogFont); Font.Assign(theFont); theFont.Free; TextOut(X,Y,'小汽车管理系统'); end;end;将 LogFont.lfEscapement:=400;改成你要的角度就可以了(3600)总角度 调用API-----textout,将坐标反转 OpenPictureDialog1 为何找不到.jpg类型 控件问题 大家开发ERP系统都用什么数据库做后台呀?(附搜索) installshield安装程序怎么自动配置bde? dbgrid列锁定 如何在OpenDialog结束后的“文件名”而不是“路径加文件名”? CreateProcess的函数 怎么判断一个程序在一天内运行了多久啊? 请问都有哪些知名的程序是用delphi开发的? 字段问题请教高手 100分求教怎样统计英文单词数? Delphi中怎样才能使窗口能够接受资源管理器拖放的文件?
如果是将字符倒过来用logfont
Shift: TShiftState; X, Y: Integer);
Var
LogFont:TLogFont;
theFont:TFont;
begin
with Form1.Canvas do
begin
Font.Name:='宋体';
Font.Size:=27;
Font.Color:=clblack;
theFont:=TFont.Create;
theFont.Assign(Font);
GetObject(theFont.Handle,sizeof(LogFont),@LogFont);
LogFont.lfEscapement:=400; LogFont.lfOrientation:=0;
theFont.Handle:=CreateFontIndirect(LogFont); Font.Assign(theFont);
theFont.Free; TextOut(X,Y,'小汽车管理系统'); end;
end;将 LogFont.lfEscapement:=400;改成你要的角度就可以了(3600)总角度