请问如何实现将字反过来显示???? 请问如何实现将字反过来显示???? 解决方案 » 免费领取超大流量手机卡,每月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,将坐标反转 delphi与sql server中的简单小问题,本人初学,望帮忙!!! 保存文件问题 关于返回指定单元格焦点的问题 如何屏蔽窗口右上方的按钮?求救!在线等! ★★★最后一搏,提供源代码,求高手救我!! 那里有Delphi for .NET preview下载? 如何触发动态创建的按钮的事件? 求助!如何删除文件 做网管要掌握什么知识和技能? 简单小问题。。 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)总角度