home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / OLECTL.HPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  16KB  |  475 lines
  1. //----------------------------------------------------------------------------
  2. // OleCtl.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: OleCtl.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef OleCtlHPP
  6. #define OleCtlHPP
  7. //----------------------------------------------------------------------------
  8. #include <OLE2.hpp>
  9. #include <Messages.hpp>
  10. #include <Windows.hpp>
  11. #include <System.hpp>
  12. #pragma warn -par
  13. #pragma warn -hid 
  14. #pragma warn -inl
  15.  
  16. namespace Olectl
  17. {
  18. //-- type declarations -------------------------------------------------------
  19. typedef tagTEXTMETRICW *PTextMetricOle;
  20.  
  21. typedef tagTEXTMETRICW  TTextMetricOle;
  22.  
  23. typedef long TOleColor;
  24.  
  25. enum OLE_TRISTATE { triUnchecked, triChecked, triGray };
  26.  
  27. typedef long __stdcall (*TDLLRegisterServer)(void);
  28.  
  29. typedef long __stdcall (*TDLLUnregisterServer)(void);
  30.  
  31. typedef tagPOINTF *PPointF;
  32.  
  33. typedef tagPOINTF  TPointF;
  34.  
  35. typedef tagCONTROLINFO *PControlInfo;
  36.  
  37. typedef tagCONTROLINFO  TControlInfo;
  38.  
  39. class __declspec(delphiclass) IOleControl;
  40. class __declspec(pascalimplementation) IOleControl : public Ole2::IUnknown
  41. {
  42.     typedef Ole2::IUnknown inherited;
  43.     
  44. public:
  45.     virtual long __stdcall GetControlInfo(CONTROLINFO &ci) = 0;
  46.     virtual long __stdcall OnMnemonic(Windows::PMsg msg) = 0;
  47.     virtual long __stdcall OnAmbientPropertyChange(long dispid) = 0;
  48.     virtual long __stdcall FreezeEvents(DWord bFreeze) = 0;
  49. public:
  50.     /* TObject.Create */ __fastcall IOleControl(void) : Ole2::IUnknown() { }
  51.     /* TObject.Destroy */ __fastcall virtual ~IOleControl(void) { }
  52.     
  53. };
  54.  
  55. class __declspec(delphiclass) IOleControlSite;
  56. class __declspec(pascalimplementation) IOleControlSite : public Ole2::IUnknown
  57. {
  58.     typedef Ole2::IUnknown inherited;
  59.     
  60. public:
  61.     virtual long __stdcall OnControlInfoChanged(void) = 0;
  62.     virtual long __stdcall LockInPlaceActive(DWord fLock) = 0;
  63.     virtual long __stdcall GetExtendedControl(Ole2::IDispatch* &disp) = 0;
  64.     virtual long __stdcall TransformCoords(POINT &ptlHimetric, POINTF &ptfContainer, long flags) = 0
  65.         ;
  66.     virtual long __stdcall TranslateAccelerator(Windows::PMsg msg, long grfModifiers) = 0;
  67.     virtual long __stdcall OnFocus(DWord fGotFocus) = 0;
  68.     virtual long __stdcall ShowPropertyFrame(void) = 0;
  69. public:
  70.     /* TObject.Create */ __fastcall IOleControlSite(void) : Ole2::IUnknown() { }
  71.     /* TObject.Destroy */ __fastcall virtual ~IOleControlSite(void) { }
  72.     
  73. };
  74.  
  75. class __declspec(delphiclass) ISimpleFrameSite;
  76. class __declspec(pascalimplementation) ISimpleFrameSite : public Ole2::IUnknown
  77. {
  78.     typedef Ole2::IUnknown inherited;
  79.     
  80. public:
  81.     virtual long __stdcall PreMessageFilter(HWND wnd, int msg, int wp, int lp, int &res, long &Cookie) = 0
  82.         ;
  83.     virtual long __stdcall PostMessageFilter(HWND wnd, int msg, int wp, int lp, int &res, long Cookie) = 0
  84.         ;
  85. public:
  86.     /* TObject.Create */ __fastcall ISimpleFrameSite(void) : Ole2::IUnknown() { }
  87.     /* TObject.Destroy */ __fastcall virtual ~ISimpleFrameSite(void) { }
  88.     
  89. };
  90.  
  91. class __declspec(delphiclass) IPersistStreamInit;
  92. class __declspec(pascalimplementation) IPersistStreamInit : public Ole2::IPersistStream
  93. {
  94.     typedef Ole2::IPersistStream inherited;
  95.     
  96. public:
  97.     virtual long __stdcall InitNew(void) = 0;
  98. public:
  99.     /* TObject.Create */ __fastcall IPersistStreamInit(void) : Ole2::IPersistStream() { }
  100.     /* TObject.Destroy */ __fastcall virtual ~IPersistStreamInit(void) { }
  101.     
  102. };
  103.  
  104. class __declspec(delphiclass) IPropertyNotifySink;
  105. class __declspec(pascalimplementation) IPropertyNotifySink : public Ole2::IUnknown
  106. {
  107.     typedef Ole2::IUnknown inherited;
  108.     
  109. public:
  110.     virtual long __stdcall OnChanged(long dispid) = 0;
  111.     virtual long __stdcall OnRequestEdit(long dispid) = 0;
  112. public:
  113.     /* TObject.Create */ __fastcall IPropertyNotifySink(void) : Ole2::IUnknown() { }
  114.     /* TObject.Destroy */ __fastcall virtual ~IPropertyNotifySink(void) { }
  115.     
  116. };
  117.  
  118. class __declspec(delphiclass) IProvideClassInfo;
  119. class __declspec(pascalimplementation) IProvideClassInfo : public Ole2::IUnknown
  120. {
  121.     typedef Ole2::IUnknown inherited;
  122.     
  123. public:
  124.     virtual long __stdcall GetClassInfo(Ole2::ITypeInfo* &ti) = 0;
  125. public:
  126.     /* TObject.Create */ __fastcall IProvideClassInfo(void) : Ole2::IUnknown() { }
  127.     /* TObject.Destroy */ __fastcall virtual ~IProvideClassInfo(void) { }
  128.     
  129. };
  130.  
  131. class __declspec(delphiclass) IConnectionPointContainer;
  132. class __declspec(delphiclass) IEnumConnectionPoints;
  133. class __declspec(delphiclass) IConnectionPoint;
  134. class __declspec(pascalimplementation) IConnectionPointContainer : public Ole2::IUnknown
  135. {
  136.     typedef Ole2::IUnknown inherited;
  137.     
  138. public:
  139.     virtual long __stdcall EnumConnectionPoints(IEnumConnectionPoints* &Enum) = 0;
  140.     virtual long __stdcall FindConnectionPoint(const GUID &iid, IConnectionPoint* &cp) = 0;
  141. public:
  142.     /* TObject.Create */ __fastcall IConnectionPointContainer(void) : Ole2::IUnknown() { }
  143.     /* TObject.Destroy */ __fastcall virtual ~IConnectionPointContainer(void) { }
  144.     
  145. };
  146.  
  147. class __declspec(pascalimplementation) IEnumConnectionPoints : public Ole2::IUnknown
  148. {
  149.     typedef Ole2::IUnknown inherited;
  150.     
  151. public:
  152.     virtual long __stdcall Next(long celt, void *elt, Windows::PLongint pceltFetched) = 0;
  153.     virtual long __stdcall Skip(long celt) = 0;
  154.     virtual long __stdcall Reset(void) = 0;
  155.     virtual long __stdcall Clone(IEnumConnectionPoints* &Enum) = 0;
  156. public:
  157.     /* TObject.Create */ __fastcall IEnumConnectionPoints(void) : Ole2::IUnknown() { }
  158.     /* TObject.Destroy */ __fastcall virtual ~IEnumConnectionPoints(void) { }
  159.     
  160. };
  161.  
  162. class __declspec(delphiclass) IEnumConnections;
  163. class __declspec(pascalimplementation) IConnectionPoint : public Ole2::IUnknown
  164. {
  165.     typedef Ole2::IUnknown inherited;
  166.     
  167. public:
  168.     virtual long __stdcall GetConnectionInterface(GUID &iid) = 0;
  169.     virtual long __stdcall GetConnectionPointContainer(IConnectionPointContainer* &cpc) = 0;
  170.     virtual long __stdcall Advise(Ole2::IUnknown* unkSink, long &dwCookie) = 0;
  171.     virtual long __stdcall Unadvise(long dwCookie) = 0;
  172.     virtual long __stdcall EnumConnections(IEnumConnections* &Enum) = 0;
  173. public:
  174.     /* TObject.Create */ __fastcall IConnectionPoint(void) : Ole2::IUnknown() { }
  175.     /* TObject.Destroy */ __fastcall virtual ~IConnectionPoint(void) { }
  176.     
  177. };
  178.  
  179. typedef tagCONNECTDATA *PConnectData;
  180.  
  181. typedef tagCONNECTDATA  TConnectData;
  182.  
  183. class __declspec(pascalimplementation) IEnumConnections : public Ole2::IUnknown
  184. {
  185.     typedef Ole2::IUnknown inherited;
  186.     
  187. public:
  188.     virtual long __stdcall Next(long celt, void *elt, Windows::PLongint pceltFetched) = 0;
  189.     virtual long __stdcall Skip(long celt) = 0;
  190.     virtual long __stdcall Reset(void) = 0;
  191.     virtual long __stdcall Clone(IEnumConnections* &Enum) = 0;
  192. public:
  193.     /* TObject.Create */ __fastcall IEnumConnections(void) : Ole2::IUnknown() { }
  194.     /* TObject.Destroy */ __fastcall virtual ~IEnumConnections(void) { }
  195.     
  196. };
  197.  
  198. typedef tagLICINFO *PLicInfo;
  199.  
  200. typedef tagLICINFO  TLicInfo;
  201.  
  202. class __declspec(delphiclass) IClassFactory2;
  203. class __declspec(pascalimplementation) IClassFactory2 : public Ole2::IClassFactory
  204. {
  205.     typedef Ole2::IClassFactory inherited;
  206.     
  207. public:
  208.     virtual long __stdcall GetLicInfo(LICINFO &licInfo) = 0;
  209.     virtual long __stdcall RequestLicKey(long dwResrved, wchar_t * &bstrKey) = 0;
  210.     virtual long __stdcall CreateInstanceLic(Ole2::IUnknown* unkOuter, Ole2::IUnknown* unkReserved, const 
  211.         GUID &iid, wchar_t * bstrKey, void *vObject) = 0;
  212. public:
  213.     /* TObject.Create */ __fastcall IClassFactory2(void) : Ole2::IClassFactory() { }
  214.     /* TObject.Destroy */ __fastcall virtual ~IClassFactory2(void) { }
  215.     
  216. };
  217.  
  218. typedef _GUID TGUIDList[65536];
  219.  
  220. typedef TGUIDList *PGUIDList;
  221.  
  222. struct TCAGUID
  223. {
  224.     long cElems;
  225.     TGUIDList *pElems;
  226. } ;
  227.  
  228. typedef TCAGUID *PCAGUID;
  229.  
  230. struct TCAPOleStr;
  231. typedef TCAPOleStr *PCAPOleStr;
  232.  
  233. struct TCAPOleStr
  234. {
  235.     long cElems;
  236.     Ole2::TOleStrList *pElems;
  237. } ;
  238.  
  239. typedef long TLongintList[65536];
  240.  
  241. typedef TLongintList *PLongintList;
  242.  
  243. struct TCALongint
  244. {
  245.     long cElems;
  246.     TLongintList *pElems;
  247. } ;
  248.  
  249. typedef TCALongint *PCALongint;
  250.  
  251. typedef tagOCPFIPARAMS *POCPFIParams;
  252.  
  253. typedef tagOCPFIPARAMS  TOCPFIParams;
  254.  
  255. typedef tagPROPPAGEINFO *PPropPageInfo;
  256.  
  257. typedef tagPROPPAGEINFO  TPropPageInfo;
  258.  
  259. class __declspec(delphiclass) ISpecifyPropertyPages;
  260. class __declspec(pascalimplementation) ISpecifyPropertyPages : public Ole2::IUnknown
  261. {
  262.     typedef Ole2::IUnknown inherited;
  263.     
  264. public:
  265.     virtual long __stdcall GetPages(TCAGUID &pages) = 0;
  266. public:
  267.     /* TObject.Create */ __fastcall ISpecifyPropertyPages(void) : Ole2::IUnknown() { }
  268.     /* TObject.Destroy */ __fastcall virtual ~ISpecifyPropertyPages(void) { }
  269.     
  270. };
  271.  
  272. class __declspec(delphiclass) IPerPropertyBrowsing;
  273. class __declspec(pascalimplementation) IPerPropertyBrowsing : public Ole2::IUnknown
  274. {
  275.     typedef Ole2::IUnknown inherited;
  276.     
  277. public:
  278.     virtual long __stdcall GetDisplayString(long dispid, wchar_t * &bstr) = 0;
  279.     virtual long __stdcall MapPropertyToPage(long dispid, GUID &clsid) = 0;
  280.     virtual long __stdcall GetPredefinedStrings(long dispid, TCAPOleStr &caStringsOut, TCALongint &caCookiesOut
  281.         ) = 0;
  282.     virtual long __stdcall GetPredefinedValue(long dispid, long dwCookie, System::Variant &varOut) = 0;
  283.         
  284. public:
  285.     /* TObject.Create */ __fastcall IPerPropertyBrowsing(void) : Ole2::IUnknown() { }
  286.     /* TObject.Destroy */ __fastcall virtual ~IPerPropertyBrowsing(void) { }
  287.     
  288. };
  289.  
  290. class __declspec(delphiclass) IPropertyPageSite;
  291. class __declspec(pascalimplementation) IPropertyPageSite : public Ole2::IUnknown
  292. {
  293.     typedef Ole2::IUnknown inherited;
  294.     
  295. public:
  296.     virtual long __stdcall OnStatusChange(long flags) = 0;
  297.     virtual long __stdcall GetLocaleID(long &localeID) = 0;
  298.     virtual long __stdcall GetPageContainer(Ole2::IUnknown* &unk) = 0;
  299.     virtual long __stdcall TranslateAccelerator(Windows::PMsg msg) = 0;
  300. public:
  301.     /* TObject.Create */ __fastcall IPropertyPageSite(void) : Ole2::IUnknown() { }
  302.     /* TObject.Destroy */ __fastcall virtual ~IPropertyPageSite(void) { }
  303.     
  304. };
  305.  
  306. class __declspec(delphiclass) IPropertyPage;
  307. class __declspec(pascalimplementation) IPropertyPage : public Ole2::IUnknown
  308. {
  309.     typedef Ole2::IUnknown inherited;
  310.     
  311. public:
  312.     virtual long __stdcall SetPageSite(IPropertyPageSite* pageSite) = 0;
  313.     virtual long __stdcall Activate(HWND hwndParent, const Windows::TRect &rc, DWord bModal) = 0;
  314.     virtual long __stdcall Deactivate(void) = 0;
  315.     virtual long __stdcall GetPageInfo(PROPPAGEINFO &pageInfo) = 0;
  316.     virtual long __stdcall SetObjects(long cObjects, Ole2::IUnknown* unk) = 0;
  317.     virtual long __stdcall Show(int nCmdShow) = 0;
  318.     virtual long __stdcall Move(const Windows::TRect &rect) = 0;
  319.     virtual long __stdcall IsPageDirty(void) = 0;
  320.     virtual long __stdcall Apply(void) = 0;
  321.     virtual long __stdcall Help(wchar_t * pszHelpDir) = 0;
  322.     virtual long __stdcall TranslateAccelerator(Windows::PMsg msg) = 0;
  323. public:
  324.     /* TObject.Create */ __fastcall IPropertyPage(void) : Ole2::IUnknown() { }
  325.     /* TObject.Destroy */ __fastcall virtual ~IPropertyPage(void) { }
  326.     
  327. };
  328.  
  329. class __declspec(delphiclass) IPropertyPage2;
  330. class __declspec(pascalimplementation) IPropertyPage2 : public IPropertyPage
  331. {
  332.     typedef IPropertyPage inherited;
  333.     
  334. public:
  335.     virtual long __stdcall EditProperty(long dispid) = 0;
  336. public:
  337.     /* TObject.Create */ __fastcall IPropertyPage2(void) : Olectl::IPropertyPage() { }
  338.     /* TObject.Destroy */ __fastcall virtual ~IPropertyPage2(void) { }
  339.     
  340. };
  341.  
  342. class __declspec(delphiclass) IFont;
  343. class __declspec(pascalimplementation) IFont : public Ole2::IUnknown
  344. {
  345.     typedef Ole2::IUnknown inherited;
  346.     
  347. public:
  348.     virtual long __stdcall get_Name(wchar_t * &name) = 0;
  349.     virtual long __stdcall put_Name(wchar_t * name) = 0;
  350.     virtual long __stdcall get_Size(System::Comp &size) = 0;
  351.     virtual long __stdcall put_Size(System::Comp size) = 0;
  352.     virtual long __stdcall get_Bold(DWord &bold) = 0;
  353.     virtual long __stdcall put_Bold(DWord bold) = 0;
  354.     virtual long __stdcall get_Italic(DWord &italic) = 0;
  355.     virtual long __stdcall put_Italic(DWord italic) = 0;
  356.     virtual long __stdcall get_Underline(DWord &underline) = 0;
  357.     virtual long __stdcall put_Underline(DWord underline) = 0;
  358.     virtual long __stdcall get_Strikethrough(DWord &strikethrough) = 0;
  359.     virtual long __stdcall put_Strikethrough(DWord strikethrough) = 0;
  360.     virtual long __stdcall get_Weight(short &weight) = 0;
  361.     virtual long __stdcall put_Weight(short weight) = 0;
  362.     virtual long __stdcall get_Charset(short &charset) = 0;
  363.     virtual long __stdcall put_Charset(short charset) = 0;
  364.     virtual long __stdcall get_hFont(HFONT &font) = 0;
  365.     virtual long __stdcall Clone(IFont* &font) = 0;
  366.     virtual long __stdcall IsEqual(IFont* fontOther) = 0;
  367.     virtual long __stdcall SetRatio(long cyLogical, long cyHimetric) = 0;
  368.     virtual long __stdcall QueryTextMetrics(TEXTMETRICW &tm) = 0;
  369.     virtual long __stdcall AddRefHfont(HFONT font) = 0;
  370.     virtual long __stdcall ReleaseHfont(HFONT font) = 0;
  371. public:
  372.     /* TObject.Create */ __fastcall IFont(void) : Ole2::IUnknown() { }
  373.     /* TObject.Destroy */ __fastcall virtual ~IFont(void) { }
  374.     
  375. };
  376.  
  377. class __declspec(delphiclass) IFontDisp;
  378. class __declspec(pascalimplementation) IFontDisp : public Ole2::IDispatch
  379. {
  380.     typedef Ole2::IDispatch inherited;
  381.     
  382. public:
  383.     /* TObject.Create */ __fastcall IFontDisp(void) : Ole2::IDispatch() { }
  384.     /* TObject.Destroy */ __fastcall virtual ~IFontDisp(void) { }
  385.     
  386. };
  387.  
  388. typedef tagFONTDESC *PFontDesc;
  389.  
  390. typedef tagFONTDESC  TFontDesc;
  391.  
  392. class __declspec(delphiclass) IPicture;
  393. class __declspec(pascalimplementation) IPicture : public Ole2::IUnknown
  394. {
  395.     typedef Ole2::IUnknown inherited;
  396.     
  397. public:
  398.     virtual long __stdcall get_Handle(long &handle) = 0;
  399.     virtual long __stdcall get_hPal(long &handle) = 0;
  400.     virtual long __stdcall get_Type(short &typ) = 0;
  401.     virtual long __stdcall get_Width(long &width) = 0;
  402.     virtual long __stdcall get_Height(long &height) = 0;
  403.     virtual long __stdcall Render(HDC dc, long x, long y, long cx, long cy, long xSrc, long ySrc, long 
  404.         cxSrc, long cySrc, const Windows::TRect &rcWBounds) = 0;
  405.     virtual long __stdcall set_hPal(long hpal) = 0;
  406.     virtual long __stdcall get_CurDC(HDC &dcOut) = 0;
  407.     virtual long __stdcall SelectPicture(HDC dcIn, HDC &hdcOut, long &bmpOut) = 0;
  408.     virtual long __stdcall get_KeepOriginalFormat(DWord &fkeep) = 0;
  409.     virtual long __stdcall put_KeepOriginalFormat(DWord fkeep) = 0;
  410.     virtual long __stdcall PictureChanged(void) = 0;
  411.     virtual long __stdcall SaveAsFile(Ole2::IStream* stream, DWord fSaveMemCopy, long &cbSize) = 0;
  412.     virtual long __stdcall get_Attributes(long dwAttr) = 0;
  413. public:
  414.     /* TObject.Create */ __fastcall IPicture(void) : Ole2::IUnknown() { }
  415.     /* TObject.Destroy */ __fastcall virtual ~IPicture(void) { }
  416.     
  417. };
  418.  
  419. class __declspec(delphiclass) IPictureDisp;
  420. class __declspec(pascalimplementation) IPictureDisp : public Ole2::IDispatch
  421. {
  422.     typedef Ole2::IDispatch inherited;
  423.     
  424. public:
  425.     /* TObject.Create */ __fastcall IPictureDisp(void) : Ole2::IDispatch() { }
  426.     /* TObject.Destroy */ __fastcall virtual ~IPictureDisp(void) { }
  427.     
  428. };
  429.  
  430. typedef tagPICTDESC *PPictDesc;
  431.  
  432. typedef tagPICTDESC  TPictDesc;
  433.  
  434. //-- var, const, procedure ---------------------------------------------------
  435. extern GUID IID_IPropertyNotifySink;
  436. extern GUID IID_IClassFactory2;
  437. extern GUID IID_IProvideClassInfo;
  438. extern GUID IID_IConnectionPointContainer;
  439. extern GUID IID_IEnumConnectionPoints;
  440. extern GUID IID_IConnectionPoint;
  441. extern GUID IID_IEnumConnections;
  442. extern GUID IID_IOleControl;
  443. extern GUID IID_IOleControlSite;
  444. extern GUID IID_ISimpleFrameSite;
  445. extern GUID IID_IPersistStreamInit;
  446. extern GUID IID_IPropertyFrame;
  447. extern GUID IID_ISpecifyPropertyPages;
  448. extern GUID IID_IPerPropertyBrowsing;
  449. extern GUID IID_IPropertyPageSite;
  450. extern GUID IID_IPropertyPage;
  451. extern GUID IID_IPropertyPage2;
  452. extern GUID IID_IFont;
  453. extern GUID IID_IFontDisp;
  454. extern GUID IID_IPicture;
  455. extern GUID IID_IPictureDisp;
  456. extern GUID CLSID_CFontPropPage;
  457. extern GUID CLSID_CColorPropPage;
  458. extern GUID CLSID_CPicturePropPage;
  459. extern GUID CLSID_PersistPropset;
  460. extern GUID CLSID_ConvertVBX;
  461. extern GUID CLSID_StdFont;
  462. extern GUID CLSID_StdPicture;
  463.  
  464. }    /* namespace Olectl */
  465.  
  466. #pragma warn .par
  467. #pragma warn .hid 
  468. #pragma warn .inl
  469.  
  470. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  471. using namespace Olectl;
  472. #endif
  473. //-- end unit ----------------------------------------------------------------
  474. #endif    // OleCtl
  475.