home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / OLECTRLS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  18KB  |  440 lines
  1. //----------------------------------------------------------------------------
  2. // OleCtrls.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: OleCtrls.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef OleCtrlsHPP
  6. #define OleCtrlsHPP
  7. //----------------------------------------------------------------------------
  8. #include <OleAuto.hpp>
  9. #include <Graphics.hpp>
  10. #include <Menus.hpp>
  11. #include <Forms.hpp>
  12. #include <Controls.hpp>
  13. #include <Classes.hpp>
  14. #include <SysUtils.hpp>
  15. #include <OleCtl.hpp>
  16. #include <OLE2.hpp>
  17. #include <Messages.hpp>
  18. #include <Windows.hpp>
  19. #include <System.hpp>
  20. #pragma warn -par
  21. #pragma warn -hid 
  22. #pragma warn -inl
  23.  
  24. namespace Olectrls
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. class __declspec(delphiclass) TOleClientSite;
  28. class __declspec(delphiclass) TOleControl;
  29. struct TControlData;
  30. typedef TControlData *PControlData;
  31.  
  32. class __declspec(delphiclass) TOleControlSite;
  33. class __declspec(pascalimplementation) TOleControlSite : public Olectl::IOleControlSite
  34. {
  35.     typedef Olectl::IOleControlSite inherited;
  36.     
  37. private:
  38.     TOleControl* FControl;
  39.     
  40. public:
  41.     __fastcall TOleControlSite(TOleControl* Control);
  42.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  43.     virtual long __stdcall AddRef(void);
  44.     virtual long __stdcall Release(void);
  45.     virtual long __stdcall OnControlInfoChanged(void);
  46.     virtual long __stdcall LockInPlaceActive(DWord fLock);
  47.     virtual long __stdcall GetExtendedControl(Ole2::IDispatch* &disp);
  48.     virtual long __stdcall TransformCoords(POINT &ptlHimetric, POINTF &ptfContainer, long flags);
  49.         
  50.     virtual long __stdcall TranslateAccelerator(Windows::PMsg msg, long grfModifiers);
  51.     virtual long __stdcall OnFocus(DWord fGotFocus);
  52.     virtual long __stdcall ShowPropertyFrame(void);
  53. public:
  54.     /* TObject.Destroy */ __fastcall virtual ~TOleControlSite(void) { }
  55.     
  56. };
  57.  
  58. class __declspec(delphiclass) TOleInPlaceSite;
  59. class __declspec(pascalimplementation) TOleInPlaceSite : public Ole2::IOleInPlaceSite
  60. {
  61.     typedef Ole2::IOleInPlaceSite inherited;
  62.     
  63. private:
  64.     TOleControl* FControl;
  65.     
  66. public:
  67.     __fastcall TOleInPlaceSite(TOleControl* Control);
  68.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  69.     virtual long __stdcall AddRef(void);
  70.     virtual long __stdcall Release(void);
  71.     virtual long __stdcall GetWindow(HWND &wnd);
  72.     virtual long __stdcall ContextSensitiveHelp(DWord fEnterMode);
  73.     virtual long __stdcall CanInPlaceActivate(void);
  74.     virtual long __stdcall OnInPlaceActivate(void);
  75.     virtual long __stdcall OnUIActivate(void);
  76.     virtual long __stdcall GetWindowContext(Ole2::IOleInPlaceFrame* &frame, Ole2::IOleInPlaceUIWindow* 
  77.         &doc, Windows::TRect &rcPosRect, Windows::TRect &rcClipRect, OLEINPLACEFRAMEINFO &frameInfo);
  78.     virtual long __stdcall Scroll(const POINT &scrollExtent);
  79.     virtual long __stdcall OnUIDeactivate(DWord fUndoable);
  80.     virtual long __stdcall OnInPlaceDeactivate(void);
  81.     virtual long __stdcall DiscardUndoState(void);
  82.     virtual long __stdcall DeactivateAndUndo(void);
  83.     virtual long __stdcall OnPosRectChange(const Windows::TRect &rcPosRect);
  84. public:
  85.     /* TObject.Destroy */ __fastcall virtual ~TOleInPlaceSite(void) { }
  86.     
  87. };
  88.  
  89. class __declspec(delphiclass) TOleInPlaceFrame;
  90. class __declspec(pascalimplementation) TOleInPlaceFrame : public Ole2::IOleInPlaceFrame
  91. {
  92.     typedef Ole2::IOleInPlaceFrame inherited;
  93.     
  94. private:
  95.     TOleControl* FControl;
  96.     
  97. public:
  98.     __fastcall TOleInPlaceFrame(TOleControl* Control);
  99.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  100.     virtual long __stdcall AddRef(void);
  101.     virtual long __stdcall Release(void);
  102.     virtual long __stdcall GetWindow(HWND &wnd);
  103.     virtual long __stdcall ContextSensitiveHelp(DWord fEnterMode);
  104.     virtual long __stdcall GetBorder(Windows::TRect &rectBorder);
  105.     virtual long __stdcall RequestBorderSpace(const Windows::TRect &borderwidths);
  106.     virtual long __stdcall SetBorderSpace(Windows::PRect pborderwidths);
  107.     virtual long __stdcall SetActiveObject(Ole2::IOleInPlaceActiveObject* activeObject, wchar_t * pszObjName
  108.         );
  109.     virtual long __stdcall InsertMenus(HMENU hmenuShared, OLEMENUGROUPWIDTHS &menuWidths);
  110.     virtual long __stdcall SetMenu(HMENU hmenuShared, HMENU holemenu, HWND hwndActiveObject);
  111.     virtual long __stdcall RemoveMenus(HMENU hmenuShared);
  112.     virtual long __stdcall SetStatusText(wchar_t * pszStatusText);
  113.     virtual long __stdcall EnableModeless(DWord fEnable);
  114.     virtual long __stdcall TranslateAccelerator(MSG &msg, Word wID);
  115. public:
  116.     /* TObject.Destroy */ __fastcall virtual ~TOleInPlaceFrame(void) { }
  117.     
  118. };
  119.  
  120. class __declspec(delphiclass) TAmbientDispatch;
  121. class __declspec(pascalimplementation) TAmbientDispatch : public Ole2::IDispatch
  122. {
  123.     typedef Ole2::IDispatch inherited;
  124.     
  125. private:
  126.     TOleControl* FControl;
  127.     
  128. public:
  129.     __fastcall TAmbientDispatch(TOleControl* Control);
  130.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  131.     virtual long __stdcall AddRef(void);
  132.     virtual long __stdcall Release(void);
  133.     virtual long __stdcall GetTypeInfoCount(int &ctinfo);
  134.     virtual long __stdcall GetTypeInfo(int itinfo, long lcid, Ole2::ITypeInfo* &tinfo);
  135.     virtual long __stdcall GetIDsOfNames(const GUID &iid, Ole2::POleStrList rgszNames, int cNames, long 
  136.         lcid, Ole2::PDispIDList rgdispid);
  137.     virtual long __stdcall Invoke(long dispIDMember, const GUID &iid, long lcid, Word flags, DISPPARAMS 
  138.         &dispParams, System::PVariant varResult, Ole2::PExcepInfo excepInfo, Windows::PInteger argErr);
  139. public:
  140.         
  141.     /* TObject.Destroy */ __fastcall virtual ~TAmbientDispatch(void) { }
  142.     
  143. };
  144.  
  145. class __declspec(delphiclass) TEventDispatch;
  146. class __declspec(pascalimplementation) TEventDispatch : public Ole2::IDispatch
  147. {
  148.     typedef Ole2::IDispatch inherited;
  149.     
  150. private:
  151.     TOleControl* FControl;
  152.     
  153. public:
  154.     __fastcall TEventDispatch(TOleControl* Control);
  155.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  156.     virtual long __stdcall AddRef(void);
  157.     virtual long __stdcall Release(void);
  158.     virtual long __stdcall GetTypeInfoCount(int &ctinfo);
  159.     virtual long __stdcall GetTypeInfo(int itinfo, long lcid, Ole2::ITypeInfo* &tinfo);
  160.     virtual long __stdcall GetIDsOfNames(const GUID &iid, Ole2::POleStrList rgszNames, int cNames, long 
  161.         lcid, Ole2::PDispIDList rgdispid);
  162.     virtual long __stdcall Invoke(long dispIDMember, const GUID &iid, long lcid, Word flags, DISPPARAMS 
  163.         &dispParams, System::PVariant varResult, Ole2::PExcepInfo excepInfo, Windows::PInteger argErr);
  164. public:
  165.         
  166.     /* TObject.Destroy */ __fastcall virtual ~TEventDispatch(void) { }
  167.     
  168. };
  169.  
  170. class __declspec(delphiclass) TPropertyNotifySink;
  171. class __declspec(pascalimplementation) TPropertyNotifySink : public Olectl::IPropertyNotifySink
  172. {
  173.     typedef Olectl::IPropertyNotifySink inherited;
  174.     
  175. private:
  176.     TOleControl* FControl;
  177.     
  178. public:
  179.     __fastcall TPropertyNotifySink(TOleControl* Control);
  180.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  181.     virtual long __stdcall AddRef(void);
  182.     virtual long __stdcall Release(void);
  183.     virtual long __stdcall OnChanged(long dispid);
  184.     virtual long __stdcall OnRequestEdit(long dispid);
  185. public:
  186.     /* TObject.Destroy */ __fastcall virtual ~TPropertyNotifySink(void) { }
  187.     
  188. };
  189.  
  190. class __declspec(delphiclass) TSimpleFrameSite;
  191. class __declspec(pascalimplementation) TSimpleFrameSite : public Olectl::ISimpleFrameSite
  192. {
  193.     typedef Olectl::ISimpleFrameSite inherited;
  194.     
  195. private:
  196.     TOleControl* FControl;
  197.     
  198. public:
  199.     __fastcall TSimpleFrameSite(TOleControl* Control);
  200.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  201.     virtual long __stdcall AddRef(void);
  202.     virtual long __stdcall Release(void);
  203.     virtual long __stdcall PreMessageFilter(HWND wnd, int msg, int wp, int lp, int &res, long &Cookie);
  204.         
  205.     virtual long __stdcall PostMessageFilter(HWND wnd, int msg, int wp, int lp, int &res, long Cookie);
  206.         
  207. public:
  208.     /* TObject.Destroy */ __fastcall virtual ~TSimpleFrameSite(void) { }
  209.     
  210. };
  211.  
  212. typedef short TOleEnum;
  213.  
  214. class __declspec(delphiclass) TEnumPropDesc;
  215. class __declspec(pascalimplementation) TOleControl : public Controls::TWinControl
  216. {
  217.     typedef Controls::TWinControl inherited;
  218.     
  219. private:
  220.     TControlData *FControlData;
  221.     long FRefCount;
  222.     TOleClientSite* FOleClientSite;
  223.     TOleControlSite* FOleControlSite;
  224.     TOleInPlaceSite* FOleInPlaceSite;
  225.     TOleInPlaceFrame* FOleInPlaceFrame;
  226.     TAmbientDispatch* FAmbientDispatch;
  227.     TEventDispatch* FEventDispatch;
  228.     TPropertyNotifySink* FPropertyNotifySink;
  229.     TSimpleFrameSite* FSimpleFrameSite;
  230.     int FObjectData;
  231.     Ole2::IOleObject* FOleObject;
  232.     Olectl::IPersistStreamInit* FPersistStream;
  233.     Olectl::IOleControl* FOleControl;
  234.     Ole2::IDispatch* FControlDispatch;
  235.     Olectl::IPerPropertyBrowsing* FPropBrowsing;
  236.     Ole2::IOleInPlaceObject* FOleInPlaceObject;
  237.     Ole2::IOleInPlaceActiveObject* FOleInPlaceActiveObject;
  238.     long FPropConnection;
  239.     long FEventsConnection;
  240.     long FMiscStatus;
  241.     bool FUpdatingColor;
  242.     bool FUpdatingFont;
  243.     bool FUpdatingEnabled;
  244.     long __fastcall AddRef(void);
  245.     void __fastcall CreateControl(void);
  246.     void __fastcall CreateEnumPropDescs(void);
  247.     void __fastcall CreateInstance(void);
  248.     void __fastcall CreateStorage(void);
  249.     void __fastcall DesignModified(void);
  250.     void __fastcall DestroyControl(void);
  251.     void __fastcall DestroyEnumPropDescs(void);
  252.     void __fastcall DestroyStorage(void);
  253.     void __fastcall GetEventMethod(long DispID, Sysutils::TMethod &Method);
  254.     Menus::TMainMenu* __fastcall GetMainMenu(void);
  255.     System::Variant __fastcall GetOleObject(void);
  256.     void __fastcall HookControlWndProc(void);
  257.     void __fastcall InvokeEvent(long DispID, DISPPARAMS &Params);
  258.     long __fastcall QueryInterface(const GUID &iid, void *obj);
  259.     void __fastcall ReadData(Classes::TStream* Stream);
  260.     long __fastcall Release(void);
  261.     void __fastcall SetUIActive(bool Active);
  262.     void __fastcall StandardEvent(long DispID, DISPPARAMS &Params);
  263.     void __fastcall WriteData(Classes::TStream* Stream);
  264.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  265.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  266.     MESSAGE void __fastcall CMDocWindowActivate(Messages::TMessage &Message);
  267.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  268.     HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  269.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  270.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TMessage &Message);
  271.     MESSAGE void __fastcall CMUIActivate(Messages::TMessage &Message);
  272.     MESSAGE void __fastcall CMUIDeactivate(Messages::TMessage &Message);
  273.     
  274. protected:
  275.     int FEvents;
  276.     virtual void __fastcall CreateWnd(void);
  277.     virtual void __fastcall DefaultHandler(void *Message);
  278.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  279.     virtual void __fastcall DestroyWindowHandle(void);
  280.     Graphics::TColor __fastcall GetColorProp(int Index);
  281.     System::Comp __fastcall GetCurrencyProp(int Index);
  282.     double __fastcall GetDoubleProp(int Index);
  283.     int __fastcall GetIntegerProp(int Index);
  284.     Word __fastcall GetOleBoolProp(int Index);
  285.     double __fastcall GetOleDateProp(int Index);
  286.     TOleEnum __fastcall GetOleEnumProp(int Index);
  287.     void __fastcall GetProperty(int Index, System::TVarData &Value);
  288.     float __fastcall GetSingleProp(int Index);
  289.     short __fastcall GetSmallintProp(int Index);
  290.     System::AnsiString __fastcall GetStringProp(int Index);
  291.     System::Variant __fastcall GetVariantProp(int Index);
  292.     virtual void __fastcall InitControlData(void) = 0;
  293.     void __fastcall InvokeMethod(void *DispInfo, void * Result);
  294.     virtual bool __fastcall PaletteChanged(bool Foreground);
  295.     void __fastcall SetColorProp(int Index, Graphics::TColor Value);
  296.     void __fastcall SetCurrencyProp(int Index, System::Comp Value);
  297.     void __fastcall SetDoubleProp(int Index, double Value);
  298.     void __fastcall SetIntegerProp(int Index, int Value);
  299.     virtual void __fastcall SetName(const System::AnsiString Value);
  300.     void __fastcall SetOleBoolProp(int Index, Word Value);
  301.     void __fastcall SetOleDateProp(int Index, double Value);
  302.     void __fastcall SetOleEnumProp(int Index, TOleEnum Value);
  303.     void __fastcall SetProperty(int Index, const System::TVarData &Value);
  304.     void __fastcall SetSingleProp(int Index, float Value);
  305.     void __fastcall SetSmallintProp(int Index, short Value);
  306.     void __fastcall SetStringProp(int Index, const System::AnsiString Value);
  307.     void __fastcall SetVariantProp(int Index, const System::Variant &Value);
  308.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  309.     __property PControlData ControlData = {read=FControlData, write=FControlData, nodefault};
  310.     
  311. public:
  312.     __fastcall virtual TOleControl(Classes::TComponent* AOwner);
  313.     __fastcall virtual ~TOleControl(void);
  314.     void __fastcall BrowseProperties(void);
  315.     void __fastcall DoObjectVerb(int Verb);
  316.     TEnumPropDesc* __fastcall GetEnumPropDesc(int DispID);
  317.     bool __fastcall GetHelpContext( System::AnsiString Member, int &HelpCtx,  System::AnsiString &HelpFile
  318.         );
  319.     void __fastcall GetObjectVerbs(Classes::TStrings* List);
  320.     System::AnsiString __fastcall GetPropDisplayString(int DispID);
  321.     void __fastcall GetPropDisplayStrings(int DispID, Classes::TStrings* List);
  322.     bool __fastcall IsCustomProperty(int DispID);
  323.     virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
  324.     void __fastcall SetPropDisplayString(int DispID, const System::AnsiString Value);
  325.     void __fastcall ShowAboutBox(void);
  326.     __property System::Variant OleObject = {read=GetOleObject};
  327.     __property TabStop ;
  328. public:
  329.     /* TWinControl.CreateParented */ __fastcall TOleControl(HWND ParentWindow) : Controls::TWinControl(
  330.         ParentWindow) { }
  331.     
  332. };
  333.  
  334. class __declspec(pascalimplementation) TOleClientSite : public Ole2::IOleClientSite
  335. {
  336.     typedef Ole2::IOleClientSite inherited;
  337.     
  338. private:
  339.     TOleControl* FControl;
  340.     
  341. public:
  342.     __fastcall TOleClientSite(TOleControl* Control);
  343.     virtual long __stdcall QueryInterface(const GUID &iid, void *obj);
  344.     virtual long __stdcall AddRef(void);
  345.     virtual long __stdcall Release(void);
  346.     virtual long __stdcall SaveObject(void);
  347.     virtual long __stdcall GetMoniker(long dwAssign, long dwWhichMoniker, Ole2::IMoniker* &mk);
  348.     virtual long __stdcall GetContainer(Ole2::IOleContainer* &container);
  349.     virtual long __stdcall ShowObject(void);
  350.     virtual long __stdcall OnShowWindow(DWord fShow);
  351.     virtual long __stdcall RequestNewObjectLayout(void);
  352. public:
  353.     /* TObject.Destroy */ __fastcall virtual ~TOleClientSite(void) { }
  354.     
  355. };
  356.  
  357. struct TEnumValue
  358. {
  359.     long Value;
  360.     System::AnsiString Ident;
  361. } ;
  362.  
  363. typedef TEnumValue TEnumValueList[32768];
  364.  
  365. typedef TEnumValueList *PEnumValueList;
  366.  
  367. class __declspec(pascalimplementation) TEnumPropDesc : public System::TObject
  368. {
  369.     typedef System::TObject inherited;
  370.     
  371. private:
  372.     int FDispID;
  373.     int FValueCount;
  374.     TEnumValueList *FValues;
  375.     
  376. public:
  377.     __fastcall TEnumPropDesc(int DispID, int ValueCount, Ole2::ITypeInfo* TypeInfo);
  378.     __fastcall virtual ~TEnumPropDesc(void);
  379.     void __fastcall GetStrings(Classes::TGetStrProc Proc);
  380.     int __fastcall StringToValue(const System::AnsiString S);
  381.     System::AnsiString __fastcall ValueToString(int V);
  382. };
  383.  
  384. struct TControlData
  385. {
  386.     GUID ClassID;
  387.     GUID EventIID;
  388.     long EventCount;
  389.     void *EventDispIDs;
  390.     void *LicenseKey;
  391.     int Flags;
  392.     int InstanceCount;
  393.     Classes::TList* EnumPropDescs;
  394. } ;
  395.  
  396. class __declspec(delphiclass) EOleCtrlError;
  397. class __declspec(pascalimplementation) EOleCtrlError : public Sysutils::Exception
  398. {
  399.     typedef Sysutils::Exception inherited;
  400.     
  401. public:
  402.     /* Exception.Create */ __fastcall EOleCtrlError(const System::AnsiString Msg) : Sysutils::Exception(
  403.         Msg) { }
  404.     /* Exception.CreateFmt */ __fastcall EOleCtrlError(const System::AnsiString Msg, const System::TVarRec 
  405.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  406.     /* Exception.CreateRes */ __fastcall EOleCtrlError(int Ident) : Sysutils::Exception(Ident) { }
  407.     /* Exception.CreateResFmt */ __fastcall EOleCtrlError(int Ident, const System::TVarRec * Args, const 
  408.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  409.     /* Exception.CreateHelp */ __fastcall EOleCtrlError(const System::AnsiString Msg, int AHelpContext)
  410.          : Sysutils::Exception(Msg, AHelpContext) { }
  411.     /* Exception.CreateFmtHelp */ __fastcall EOleCtrlError(const System::AnsiString Msg, const System::TVarRec 
  412.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  413.         ) { }
  414.     /* Exception.CreateResHelp */ __fastcall EOleCtrlError(int Ident, int AHelpContext) : Sysutils::Exception(
  415.         Ident, AHelpContext) { }
  416.     /* Exception.CreateResFmtHelp */ __fastcall EOleCtrlError(int Ident, const System::TVarRec * Args, 
  417.         const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
  418.          { }
  419.     
  420. public:
  421.     /* TObject.Destroy */ __fastcall virtual ~EOleCtrlError(void) { }
  422.     
  423. };
  424.  
  425. //-- var, const, procedure ---------------------------------------------------
  426. extern System::Variant __fastcall FontToOleFont(Graphics::TFont* Font);
  427. extern void __fastcall OleFontToFont(const System::Variant &OleFont, Graphics::TFont* Font);
  428.  
  429. }    /* namespace Olectrls */
  430.  
  431. #pragma warn .par
  432. #pragma warn .hid 
  433. #pragma warn .inl
  434.  
  435. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  436. using namespace Olectrls;
  437. #endif
  438. //-- end unit ----------------------------------------------------------------
  439. #endif    // OleCtrls
  440.