Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 159
  • Last Modified:

copying one part of an image to another image...

Hi guys,

I need a procedure to copy a rectangular region of an image (a TImage) to another one. Any ideas?

best regards,
Manuel Lopez (lopem)
0
lopem
Asked:
lopem
1 Solution
 
DragonSlayerCommented:
Here, I copy a 100x100 region from Image1 to Image2 when the user clicks on Image1

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image2.Canvas.CopyRect(Rect(0, 0, 100, 100),
    Image1.Canvas,
    Rect(X, Y, X + 100, Y + 100));
end;
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now