350______________________________________________ 5

         
       . -
       , 
   Image2.

  OnMouseMove  Image3,    RDrag.
 :

//     
Image3->Canvas->CopyRect(R,BitMap->Canvas,R) ;

//     Ctrl     RO
if (! Shift.Contains(ssCtrl))
Image3->Canvas->FillRect(RO) ;

//    
R.Left = R.Left + X - XO;

R.Right = R.Right + X - XO;

R.Top = R.Top + Y - YO;

R.Bottom = R.Bottom + Y - YO;

//    
XO = X;

YO = Y;

//     

Image3->Canvas->CopyRect(R,BitMap->Canvas,RO) ;

//  

Image3->Canvas->DrawFocusRect(R);

      
     (..  ),  
   CopyRect   BitMap. ,    -;

 Ctrl,       (':

 )  FillRect.      
   .       '
 ,          

.

     ,       :

       .

       
     OnMouseDown     ':

OnMouseMove        
.    ,     ::

 , ..   OnMouseUp,     
 .    ;

:

Image3->Canvas->Brush->Color = Image2->Canvas->Brush->Color;

Image3->Canvas->Pen->Color = Imagel->Canvas->Brush->Color;

Image3->Canvas->Rectangle(R.Left,R.Top,R.Right,R.Bottom) ;

          Rectangle.
     :

Image3->Canvas->Brush->Color = Imagel->Canvas->Brush->Color;

Image3->Canvas->FrameRect(R) ;

 ,       ,  
,   FrameRect   .