delphi xe 在图片上写字


procedure TForm1.Button1Click(Sender: TObject);
var
LRect: TRectF;
begin
LRect.Create(0, 0, 500, 200);
myimage.Bitmap.Canvas.Font.Family:='宋体';
myimage.Bitmap.Canvas.Font.Size:=25;
myimage.Bitmap.Canvas.Fill.Color:=claBlack;
myimage.Bitmap.Canvas.FillText(LRect, 'Delphi XE2 by 小新排骨', True, 255, [],TTextAlign.taLeading,TTextAlign.taCenter);
myimage.Bitmap.BitmapChanged;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//读取图片
myimage.Bitmap.LoadFromFile('C:\skype.bmp');
end;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678