text: // Nizhnyaya Navadvipa library - author Navadvipa Chandra das e-mail navadvipa.chandra.das@nizhnyaya-navadvipa.ru
  #ifndef VCL_NNDialogExecH
  #define VCL_NNDialogExecH
  //---------------------------------------------------------------------------
  #include <System.SysUtils.hpp>
  #include <Vcl.Controls.hpp>
  #include <System.Classes.hpp>
  #include <Vcl.Forms.hpp>
  #include "VCL_NNFmRes.h"
  //---------------------------------------------------------------------------
  
  typedef PACKAGE void __fastcall (__closure *TNNVOnGetDlgForm)( System::TObject* Sender, TfmvRes *&fm );
  
  class PACKAGE TNNVDialogExec : public TComponent
  {
  private:
    typedef TComponent inherited;
    TNNVOnGetDlgForm fOnGetDialogForm;
    TNotifyEvent fOnPrepare;
    TNotifyEvent fOnUnPrepare;
    TNotifyEvent fOnExecute;
  protected:
    virtual void __fastcall DoGetDialogForm( TfmvRes *&fm );
    virtual void __fastcall DoPrepare( TObject *Sender );
    virtual void __fastcall DoUnPrepare( TObject *Sender );
    virtual void __fastcall DoExecute( TObject *Sender );
    __property TNNVOnGetDlgForm OnGetDialogForm = { read = fOnGetDialogForm, write = fOnGetDialogForm };
    __property TNotifyEvent OnPrepare = { read = fOnPrepare, write = fOnPrepare };
    __property TNotifyEvent OnUnPrepare = { read = fOnUnPrepare, write = fOnUnPrepare };
    __property TNotifyEvent OnExecute = { read = fOnExecute, write = fOnExecute };
  public:
    __fastcall TNNVDialogExec(TComponent* Owner);
    void __fastcall Execute();
    void __fastcall Execute( TRect R );
    void __fastcall Execute( TControl *Control );
  __published:
  };
  //---------------------------------------------------------------------------
  #endif
   