1034_____________________________________________ 15

 Shift,  ,  , 
,        (Shift, Ctrl 
Alt)    .    Y   
    .  Sender ( ) 
 .

 OnMouseMove    ,   -
  . ,       C++Builder, 
    (        
)  , -,  .



if (Shift.Contains(ssAlt))...

  ,     Alt   
   , ,  ,   -
.

OnPaint

     Windows   -
  

 TCustomForm, TPaintBox



typedef void (_closure *TNotifyEvent)(System::TObject* Sender) ;

property Classes::TNotifyEvent OnPaint



 OnPaint ,    Windows  -
   .   
-          
.      .
    Canvas    
ClipRect.    ,    -
.



  ,   ,   
BitMap,    OnPaint     :

Canvas->Draw(,,BitMap) ;

   PaintBox

PaintBoxl->Canvas->Draw(0,0,BitMap) ;

       ClipRect
, :

Canvas->CopyRect(Canvas->ClipRect,Bitmap->Canvas, Canvas->ClipRect) ;

OnProgress

       -
      