本文整理自网络,侵删。
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Bmp:Tbitmap;
Rect:Trect;
begin
Bmp:=Tbitmap.Create;
bmp.LoadFromFile('c:\1.bmp');
SetRect(Rect,0,0,self.Image1.Width,self.Image1.Height);
self.Image1.Canvas.StretchDraw(Rect,bmp);
self.Image1.Canvas.Font.Size:=80;
self.Image1.Canvas.Font.Name:='宋体';
SetRect(Rect,0,0,self.Image1.Width,self.Image1.Height);
self.Image1.Canvas.Brush.Style:=bsclear; //使输出的文字没有背景影响
self.Image1.Canvas.TextRect(Rect,0,0,'思');
self.Image1.AutoSize:=false;
self.Image1.Stretch:=true;
self.Image1.Width:=550; //这里可以任意修改图片的大小,可以起到变形的作用。
self.Image1.Height:=550;
self.Label1.Caption:=inttostr(self.Image1.Width);
self.Label2.Caption:=inttostr(self.Image1.Height);
end;
相关阅读 >>
Delphi 关于选择文件路径 selectdirectory 弹出窗口居中的问题
Delphi runtime error 216 程序退出后弹出错误
Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理
Delphi xe vcl - tlinklabel(链接标签)
Delphi application.processmessages的作用
更多相关阅读请进入《Delphi》频道 >>