Solved

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

Posted on 2001-07-12
1
147 Views
Last Modified: 2010-05-18
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
Comment
Question by:lopem
1 Comment
 
LVL 14

Accepted Solution

by:
DragonSlayer earned 50 total points
ID: 6279219
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

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
SIM number for APK using Delphi 10 2 362
APK file name 7 63
indy tidtcpclient threading issue 8 54
Help on project with Soap 10 43
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
This video discusses moving either the default database or any database to a new volume.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now