  ___________________________________349

//  
Image3->Canvas->DrawFocusRect(R) ;

RBegin = true;

       Y     YO, -
       R  TRect 
  (  )  DrawFocusRect. 
       RBegin.

  OnMouseMove  Image3,    RBe-
gin,  :

//   
Image3->Canvas->DrawFocusRect(R) ;

//   R
if ( < X) ( R.Left = ; R.Right = X; }

else { R.Left = X; R.Right = ; }
if (YO < Y) { R.Top = YO; R.Bottom = Y; }

else ( R.Top = Y; R.Bottom = YO; }

//   
Image3->Canvas->DrawFocusRect(R) ;

        (,
  DrawFocusRect      XOR).  -
     R    (, YO)  -
   (X, Y).   ,  ,   -
 DrawFocusRect,       R.Left
   R.Right,  R.Top   R.Bottom.  -
         
(, YO)  (X, Y)   ,   .

      .

, ,   .   -
    .  
        , -
 :

//   
Image3->Canvas->DrawFocusRect(R);

//   
RDrag = true;

//     

 = X;

YO = Y;

//     

RO.TopLeft = R.TopLeft;

RO.BottomRight = R.BottomRight;

//  
BitMap->Assign(Image3->Picture) ;

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

   .     -
   RDrag.      -
     RO  TRect.  -
   Assign      
 Bitmap.  ,     