var
Bitmap: TBitmap;
Bitmap2: TBitmap;
MyRect, MyOther: TRect;
begin
MyRect := Rect(10,10,100,100);
MyOther := Rect(10,111,100, 201);
Bitmap := TBitmap.Create;
Bitmap2 := TBitmap.Create;
Bitmap.LoadFromFile('c:\windows\tartan.bmp'
;
Bitmap2.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
Bitmap2.SaveFromFile('myimage.bmp'
;
Bitmap.Free;
Bitmap2.Free;
end;
G codé dans le message alors....
---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love: