Solved

copying one timage region to another one

Posted on 2001-07-12
2
250 Views
Last Modified: 2010-04-06
Hi guys!

I want a procedure to copy a rectangular region of a timage to another timage in my form. Any ideas?

best regards
Manuel Lopez (lopem)
0
Comment
Question by:lopem
  • 2
2 Comments
 
LVL 6

Expert Comment

by:MannSoft
ID: 6279198
I would use the COPYRECT method.  An example:

DestRect.Left := 0;
DestRect.Top := 0;
DestRect.Right := 50;
DestRect.Bottom := 50;
SourceRect.Left := 0;
SourceRect.Top := 0;
SourceRect.Right := 50;
SourceRect.Bottom := 50;
Image1.Canvas.CopyRect(DestRect, Image2.Canvas, SourceRect);

This would copy a 50x50 square from the top left corner of Image2 into Image1.
0
 
LVL 6

Accepted Solution

by:
MannSoft earned 50 total points
ID: 6279200
Hmm after looking in the help file it looks like it would be easier doing:

DestRect := Rect(0, 0, 50, 50);
SourceRect := Rect(0, 0, 50, 50);

(They are both of type TRect BTW)
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
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…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

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

16 Experts available now in Live!

Get 1:1 Help Now