, , , , ______________________1035

 TGraphic, TImage, TPicture



enum TProgressStage {psStarting, psRunning, psEndingb-

typedef void ( closure *TProgressEvent)(System::TObject* Sender,

TProgressStage Stage, Byte PercentDone, bool RedrawNow,
const Windows::TRect &R, const AnsiString Msg);

property TProgressEvent OnProgress



 OnProgress       -
  ,  , , .  -
       , -
    .     -
  OnProgress,    Progress.

 Stage   : , , -
.      psStarting, psRunning  psEn-
ding.     ,   
  Stage == psStarting,   ,  Stage = psRun-
ning    Stage = psEnding.  PercentDone , 
   .      -
 .

 RedrawNow ,      
    .  R   ,
     .

 Msg      . -
, Loading, Storing  Reducing colors.  Msg    .

OnStartDrag_______________________________________

 ,     


 TControl



typedef void ( closure *TStartDragEvent)(System::TObject* Sender,
TDragObject* SDragObject) ;

_property TStartDragEvent OnStartDrag



 OnStartDrag ,     
   ,   ,    , ..  -
.

  OnStartDrag   - 
,    .  Sender 
 ,       
 .

 DragObject    NULL.  ,  -
      .    -
   TDragControlObject,   C+4-Builder   -
 .        -
,    -     ..