992_____________________________________________ 15



 Draw  ,   ,  -
 Graphic,         -
     .     
    Y.     
,   .      TBit-
map.      ,  
 CopyMode.





Imagel->Canvas->Draw(10,10, Bitmapl) ;

    Imagel    Bitmapl  -
      (10, 10).

DrawFocusRect

    ,   
 ,  

 TCanuas



void _fastcall DrawFocusRect(const Windows::TRect &Rect);



 DrawFocusRect      Rect  -
  ,      , .. -
.     ,    -
    .



   ,   , 
   Imagi    10  10  -
         :

int XO.YO;

bool drag = false;

void   fastcall TFormI::ImagelMouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)
{
It  

Imagel->Canvas->DrawFocusRect(Rect(X-5,Y-5.X+5,Y+5)) ;

//   

 = X;

YO = Y;

//     

drag = true;

)

//

void _fastcall TFormI::ImagelMouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)
{

iff!drag) return;

//  