L
lunyx_allen
Unregistered / Unconfirmed
GUEST, unregistred user!
例子如下：
界面上有个 image1.Picture.LoadFromFile('a.bmp');
现在我要在那张image上画张小bitmap,如下：
procedure TForm1.Button2Click(Sender: TObject);
var
Bitmaps : TBitMap;
begin
Bitmaps := TBitmap.Create;
try
with Bitmaps do begin
LoadFromFile('36/1.bmp');
Transparent := True;
end;
image1.Canvas.Draw(180,180,BitMaps);
finally
Bitmaps.Free;
end;
end;
请问，怎样把那张bitmap擦掉？也就是说还原回原来的image,不要告诉我重新image1.Picture.LoadFromFile('a.bmp');
界面上有个 image1.Picture.LoadFromFile('a.bmp');
现在我要在那张image上画张小bitmap,如下：
procedure TForm1.Button2Click(Sender: TObject);
var
Bitmaps : TBitMap;
begin
Bitmaps := TBitmap.Create;
try
with Bitmaps do begin
LoadFromFile('36/1.bmp');
Transparent := True;
end;
image1.Canvas.Draw(180,180,BitMaps);
finally
Bitmaps.Free;
end;
end;
请问，怎样把那张bitmap擦掉？也就是说还原回原来的image,不要告诉我重新image1.Picture.LoadFromFile('a.bmp');