Category: Graphic
Title: Copy part of one image to another
Date added: 15.03.2006
Hits: 6614


procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  Image2.Canvas.CopyRect(
    Rect(0,0,Image2.Width,Image2.Height),
    Image1.Canvas,
    Rect(
      0,
      0,
      Image1.Picture.Width-50,
      Image1.Picture.Height-50));
end;

1. How to draw directly to the Desktop? (5602 Hits)

2. How to invert a 32 bit Bitmap? (3114 Hits)

3. How to empty a Timage? (2716 Hits)

4. How to get Bitmaps from Resource Files? (2908 Hits)

5. How to convert BMP to WMF? (3419 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.