home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / olectrls.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  18KB  |  431 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'OleCtrls.pas' rev: 5.00
  6.  
  7. #ifndef OleCtrlsHPP
  8. #define OleCtrlsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <AxCtrls.hpp>    // Pascal unit
  14. #include <ComObj.hpp>    // Pascal unit
  15. #include <Graphics.hpp>    // Pascal unit
  16. #include <Menus.hpp>    // Pascal unit
  17. #include <Forms.hpp>    // Pascal unit
  18. #include <Controls.hpp>    // Pascal unit
  19. #include <Classes.hpp>    // Pascal unit
  20. #include <SysUtils.hpp>    // Pascal unit
  21. #include <ActiveX.hpp>    // Pascal unit
  22. #include <Messages.hpp>    // Pascal unit
  23. #include <Windows.hpp>    // Pascal unit
  24. #include <SysInit.hpp>    // Pascal unit
  25. #include <System.hpp>    // Pascal unit
  26.  
  27. //-- user supplied -----------------------------------------------------------
  28.  
  29. namespace Olectrls
  30. {
  31. //-- type declarations -------------------------------------------------------
  32. class DELPHICLASS TEventDispatch;
  33. class DELPHICLASS TOleControl;
  34. struct TControlData;
  35. typedef TControlData *PControlData;
  36.  
  37. class DELPHICLASS TEnumPropDesc;
  38. class PASCALIMPLEMENTATION TOleControl : public Controls::TWinControl 
  39. {
  40.     typedef Controls::TWinControl inherited;
  41.     
  42. private:
  43.     TControlData *FControlData;
  44.     int FRefCount;
  45.     TEventDispatch* FEventDispatch;
  46.     unsigned FObjectData;
  47.     _di_IOleObject FOleObject;
  48.     _di_IPersistStreamInit FPersistStream;
  49.     _di_IOleControl FOleControl;
  50.     _di_IDispatch FControlDispatch;
  51.     _di_IPerPropertyBrowsing FPropBrowsing;
  52.     _di_IOleInPlaceObject FOleInPlaceObject;
  53.     _di_IOleInPlaceActiveObject FOleInPlaceActiveObject;
  54.     int FPropConnection;
  55.     int FEventsConnection;
  56.     int FMiscStatus;
  57.     Classes::TList* FFonts;
  58.     Classes::TList* FPictures;
  59.     bool FUpdatingPictures;
  60.     bool FUpdatingColor;
  61.     bool FUpdatingFont;
  62.     bool FUpdatingEnabled;
  63.     void __fastcall CreateControl(void);
  64.     void __fastcall CreateEnumPropDescs(void);
  65.     void __fastcall CreateInstance(void);
  66.     void __fastcall CreateStorage(void);
  67.     void __fastcall DesignModified(void);
  68.     void __fastcall DestroyControl(void);
  69.     void __fastcall DestroyEnumPropDescs(void);
  70.     void __fastcall DestroyStorage(void);
  71.     void __fastcall GetEventMethod(int DispID, Sysutils::TMethod &Method);
  72.     Menus::TMainMenu* __fastcall GetMainMenu(void);
  73.     Variant __fastcall GetOleObject();
  74.     _di_IDispatch __fastcall GetDefaultDispatch();
  75.     void __fastcall HookControlWndProc(void);
  76.     void __fastcall InvokeEvent(int DispID, tagDISPPARAMS &Params);
  77.     void __fastcall ReadData(Classes::TStream* Stream);
  78.     void __fastcall SetUIActive(bool Active);
  79.     void __fastcall StandardEvent(int DispID, tagDISPPARAMS &Params);
  80.     void __fastcall WriteData(Classes::TStream* Stream);
  81.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  82.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  83.     MESSAGE void __fastcall CMDocWindowActivate(Messages::TMessage &Message);
  84.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  85.     HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  86.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  87.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TMessage &Message);
  88.     MESSAGE void __fastcall CMUIActivate(Messages::TMessage &Message);
  89.     MESSAGE void __fastcall CMUIDeactivate(Messages::TMessage &Message);
  90.     void __fastcall D2InvokeEvent(int DispID, tagDISPPARAMS &Params);
  91.     
  92. protected:
  93.     int FEvents;
  94.     virtual HRESULT __stdcall QueryInterface(const GUID &IID, /* out */ void *Obj);
  95.     HIDESBASE int __stdcall _AddRef(void);
  96.     HIDESBASE int __stdcall _Release(void);
  97.     HRESULT __stdcall SaveObject(void);
  98.     HRESULT __stdcall GetMoniker(int dwAssign, int dwWhichMoniker, /* out */ _di_IMoniker &mk);
  99.     HRESULT __stdcall GetContainer(/* out */ _di_IOleContainer &container);
  100.     HRESULT __stdcall ShowObject(void);
  101.     HRESULT __stdcall OnShowWindow(BOOL fShow);
  102.     HRESULT __stdcall RequestNewObjectLayout(void);
  103.     HRESULT __stdcall OnControlInfoChanged(void);
  104.     HRESULT __stdcall LockInPlaceActive(BOOL fLock);
  105.     HRESULT __stdcall GetExtendedControl(/* out */ _di_IDispatch &disp);
  106.     HRESULT __stdcall TransformCoords(Windows::TPoint &ptlHimetric, tagPOINTF &ptfContainer, int flags)
  107.         ;
  108.     HRESULT __stdcall OleControlSite_TranslateAccelerator(Windows::PMsg msg, int grfModifiers);
  109.     HRESULT __stdcall OnFocus(BOOL fGotFocus);
  110.     HRESULT __stdcall ShowPropertyFrame(void);
  111.     HRESULT __stdcall ContextSensitiveHelp(BOOL fEnterMode);
  112.     HRESULT __stdcall OleInPlaceSite_GetWindow(/* out */ HWND &wnd);
  113.     HRESULT __stdcall CanInPlaceActivate(void);
  114.     HRESULT __stdcall OnInPlaceActivate(void);
  115.     HRESULT __stdcall OnUIActivate(void);
  116.     HRESULT __stdcall GetWindowContext(/* out */ _di_IOleInPlaceFrame &frame, /* out */ _di_IOleInPlaceUIWindow 
  117.         &doc, /* out */ Windows::TRect &rcPosRect, /* out */ Windows::TRect &rcClipRect, /* out */ tagOIFI 
  118.         &frameInfo);
  119.     HRESULT __stdcall Scroll(const Windows::TPoint scrollExtent);
  120.     HRESULT __stdcall OnUIDeactivate(BOOL fUndoable);
  121.     HRESULT __stdcall OnInPlaceDeactivate(void);
  122.     HRESULT __stdcall DiscardUndoState(void);
  123.     HRESULT __stdcall DeactivateAndUndo(void);
  124.     HRESULT __stdcall OnPosRectChange(const Windows::TRect &rcPosRect);
  125.     HRESULT __stdcall GetBorder(/* out */ Windows::TRect &rectBorder);
  126.     HRESULT __stdcall RequestBorderSpace(const Windows::TRect &borderwidths);
  127.     HRESULT __stdcall SetBorderSpace(Windows::PRect pborderwidths);
  128.     HRESULT __stdcall SetActiveObject(const _di_IOleInPlaceActiveObject activeObject, wchar_t * pszObjName
  129.         );
  130.     HRESULT __stdcall OleInPlaceFrame_GetWindow(/* out */ HWND &wnd);
  131.     HRESULT __stdcall InsertMenus(HMENU hmenuShared, tagOleMenuGroupWidths &menuWidths);
  132.     HRESULT __stdcall SetMenu(HMENU hmenuShared, HMENU holemenu, HWND hwndActiveObject);
  133.     HRESULT __stdcall RemoveMenus(HMENU hmenuShared);
  134.     HRESULT __stdcall SetStatusText(wchar_t * pszStatusText);
  135.     HRESULT __stdcall EnableModeless(BOOL fEnable);
  136.     HRESULT __stdcall OleInPlaceFrame_TranslateAccelerator(tagMSG &msg, Word wID);
  137.     HIDESBASE HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count);
  138.     HIDESBASE HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo);
  139.     HIDESBASE HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID
  140.         , void * DispIDs);
  141.     HIDESBASE HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params
  142.         , void * VarResult, void * ExcepInfo, void * ArgErr);
  143.     HRESULT __stdcall PreMessageFilter(HWND wnd, int msg, int wp, int lp, /* out */ int &res, /* out */ 
  144.         int &Cookie);
  145.     HRESULT __stdcall PostMessageFilter(HWND wnd, int msg, int wp, int lp, /* out */ int &res, int Cookie
  146.         );
  147.     virtual void __fastcall CreateWnd(void);
  148.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  149.     virtual void __fastcall DestroyWindowHandle(void);
  150.     Byte __fastcall GetByteProp(int Index);
  151.     Graphics::TColor __fastcall GetColorProp(int Index);
  152.     Graphics::TColor __fastcall GetTColorProp(int Index);
  153.     System::Comp __fastcall GetCompProp(int Index);
  154.     System::Currency __fastcall GetCurrencyProp(int Index);
  155.     double __fastcall GetDoubleProp(int Index);
  156.     _di_IDispatch __fastcall GetIDispatchProp(int Index);
  157.     int __fastcall GetIntegerProp(int Index);
  158.     _di_IUnknown __fastcall GetIUnknownProp(int Index);
  159.     Word __fastcall GetWordBoolProp(int Index);
  160.     System::TDateTime __fastcall GetTDateTimeProp(int Index);
  161.     Graphics::TFont* __fastcall GetTFontProp(int Index);
  162.     Word __fastcall GetOleBoolProp(int Index);
  163.     double __fastcall GetOleDateProp(int Index);
  164.     Activex::TOleEnum __fastcall GetOleEnumProp(int Index);
  165.     Activex::TOleEnum __fastcall GetTOleEnumProp(int Index);
  166.     OleVariant __fastcall GetOleVariantProp(int Index);
  167.     Graphics::TPicture* __fastcall GetTPictureProp(int Index);
  168.     void __fastcall GetProperty(int Index, System::TVarData &Value);
  169.     Shortint __fastcall GetShortIntProp(int Index);
  170.     float __fastcall GetSingleProp(int Index);
  171.     short __fastcall GetSmallintProp(int Index);
  172.     AnsiString __fastcall GetStringProp(int Index);
  173.     Variant __fastcall GetVariantProp(int Index);
  174.     WideString __fastcall GetWideStringProp(int Index);
  175.     Word __fastcall GetWordProp(int Index);
  176.     virtual void __fastcall InitControlData(void) = 0 ;
  177.     virtual void __fastcall InitControlInterface(const _di_IUnknown Obj);
  178.     void __fastcall InvokeMethod(const void *DispInfo, void * Result);
  179.     DYNAMIC bool __fastcall PaletteChanged(bool Foreground);
  180.     void __fastcall PictureChanged(System::TObject* Sender);
  181.     void __fastcall SetByteProp(int Index, Byte Value);
  182.     void __fastcall SetColorProp(int Index, Graphics::TColor Value);
  183.     void __fastcall SetTColorProp(int Index, Graphics::TColor Value);
  184.     void __fastcall SetCompProp(int Index, const System::Comp Value);
  185.     void __fastcall SetCurrencyProp(int Index, const System::Currency Value);
  186.     void __fastcall SetDoubleProp(int Index, const double Value);
  187.     void __fastcall SetIDispatchProp(int Index, const _di_IDispatch Value);
  188.     void __fastcall SetIntegerProp(int Index, int Value);
  189.     void __fastcall SetIUnknownProp(int Index, const _di_IUnknown Value);
  190.     virtual void __fastcall SetName(const AnsiString Value);
  191.     void __fastcall SetWordBoolProp(int Index, Word Value);
  192.     void __fastcall SetTDateTimeProp(int Index, const System::TDateTime Value);
  193.     void __fastcall SetTFontProp(int Index, Graphics::TFont* Value);
  194.     void __fastcall SetOleBoolProp(int Index, Word Value);
  195.     void __fastcall SetOleDateProp(int Index, const double Value);
  196.     void __fastcall SetOleEnumProp(int Index, Activex::TOleEnum Value);
  197.     void __fastcall SetTOleEnumProp(int Index, Activex::TOleEnum Value);
  198.     void __fastcall SetOleVariantProp(int Index, const OleVariant &Value);
  199.     virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  200.     void __fastcall SetTPictureProp(int Index, Graphics::TPicture* Value);
  201.     void __fastcall SetProperty(int Index, const System::TVarData &Value);
  202.     void __fastcall SetShortIntProp(int Index, Shortint Value);
  203.     void __fastcall SetSingleProp(int Index, const float Value);
  204.     void __fastcall SetSmallintProp(int Index, short Value);
  205.     void __fastcall SetStringProp(int Index, const AnsiString Value);
  206.     void __fastcall SetVariantProp(int Index, const Variant &Value);
  207.     void __fastcall SetWideStringProp(int Index, const WideString Value);
  208.     void __fastcall SetWordProp(int Index, Word Value);
  209.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  210.     __property PControlData ControlData = {read=FControlData, write=FControlData};
  211.     virtual HRESULT __stdcall OnChanged(int dispid);
  212.     virtual HRESULT __stdcall OnRequestEdit(int dispid);
  213.     
  214. public:
  215.     __fastcall virtual TOleControl(Classes::TComponent* AOwner);
  216.     __fastcall virtual ~TOleControl(void);
  217.     void __fastcall BrowseProperties(void);
  218.     virtual void __fastcall DefaultHandler(void *Message);
  219.     void __fastcall DoObjectVerb(int Verb);
  220.     TEnumPropDesc* __fastcall GetEnumPropDesc(int DispID);
  221.     bool __fastcall GetHelpContext(AnsiString Member, int &HelpCtx, AnsiString &HelpFile);
  222.     void __fastcall GetObjectVerbs(Classes::TStrings* List);
  223.     AnsiString __fastcall GetPropDisplayString(int DispID);
  224.     void __fastcall GetPropDisplayStrings(int DispID, Classes::TStrings* List);
  225.     bool __fastcall IsCustomProperty(int DispID);
  226.     bool __fastcall IsPropPageProperty(int DispID);
  227.     virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
  228.     void __fastcall SetPropDisplayString(int DispID, const AnsiString Value);
  229.     void __fastcall ShowAboutBox(void);
  230.     __property Variant OleObject = {read=GetOleObject};
  231.     __property _di_IPerPropertyBrowsing PerPropBrowsing = {read=FPropBrowsing};
  232.     __property _di_IDispatch DefaultDispatch = {read=GetDefaultDispatch};
  233.     __property TabStop ;
  234. public:
  235.     #pragma option push -w-inl
  236.     /* TWinControl.CreateParented */ inline __fastcall TOleControl(HWND ParentWindow) : Controls::TWinControl(
  237.         ParentWindow) { }
  238.     #pragma option pop
  239.     
  240. private:
  241.     void *__IOleClientSite;    /* IOleClientSite */
  242.     void *__IOleControlSite;    /* IOleControlSite [TranslateAccelerator=OleControlSite_TranslateAccelerator
  243.         ] */
  244.     void *__IOleInPlaceSite;    /* IOleInPlaceSite [GetWindow=OleInPlaceSite_GetWindow] */
  245.     void *__IOleInPlaceFrame;    /* IOleInPlaceFrame [TranslateAccelerator=OleInPlaceFrame_TranslateAccelerator, 
  246.         GetWindow=OleInPlaceFrame_GetWindow] */
  247.     void *__IDispatch;    /* IDispatch */
  248.     void *__IPropertyNotifySink;    /* IPropertyNotifySink */
  249.     void *__ISimpleFrameSite;    /* ISimpleFrameSite */
  250.     
  251. public:
  252.     operator ISimpleFrameSite*(void) { return (ISimpleFrameSite*)&__ISimpleFrameSite; }
  253.     operator IPropertyNotifySink*(void) { return (IPropertyNotifySink*)&__IPropertyNotifySink; }
  254.     operator IDispatch*(void) { return (IDispatch*)&__IDispatch; }
  255.     operator IOleInPlaceFrame*(void) { return (IOleInPlaceFrame*)&__IOleInPlaceFrame; }
  256.     operator IOleInPlaceSite*(void) { return (IOleInPlaceSite*)&__IOleInPlaceSite; }
  257.     operator IOleControlSite*(void) { return (IOleControlSite*)&__IOleControlSite; }
  258.     operator IOleClientSite*(void) { return (IOleClientSite*)&__IOleClientSite; }
  259.     operator IUnknown*(void) { return (IUnknown*)&__ISimpleFrameSite; }
  260.     
  261. };
  262.  
  263.  
  264. class PASCALIMPLEMENTATION TEventDispatch : public System::TObject 
  265. {
  266.     typedef System::TObject inherited;
  267.     
  268. private:
  269.     TOleControl* FControl;
  270.     
  271. protected:
  272.     HRESULT __stdcall QueryInterface(const GUID &IID, /* out */ void *Obj);
  273.     int __stdcall _AddRef(void);
  274.     int __stdcall _Release(void);
  275.     HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count);
  276.     HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo);
  277.     HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID, void * 
  278.         DispIDs);
  279.     HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params, void * 
  280.         VarResult, void * ExcepInfo, void * ArgErr);
  281.     __property TOleControl* Control = {read=FControl};
  282.     
  283. public:
  284.     __fastcall TEventDispatch(TOleControl* Control);
  285. public:
  286.     #pragma option push -w-inl
  287.     /* TObject.Destroy */ inline __fastcall virtual ~TEventDispatch(void) { }
  288.     #pragma option pop
  289.     
  290. private:
  291.     void *__IDispatch;    /* IDispatch */
  292.     
  293. public:
  294.     operator IDispatch*(void) { return (IDispatch*)&__IDispatch; }
  295.     operator IUnknown*(void) { return (IUnknown*)&__IDispatch; }
  296.     
  297. };
  298.  
  299.  
  300. struct TEnumValue
  301. {
  302.     int Value;
  303.     AnsiString Ident;
  304. } ;
  305.  
  306. typedef TEnumValue TEnumValueList[32768];
  307.  
  308. typedef TEnumValue *PEnumValueList;
  309.  
  310. class PASCALIMPLEMENTATION TEnumPropDesc : public System::TObject 
  311. {
  312.     typedef System::TObject inherited;
  313.     
  314. private:
  315.     int FDispID;
  316.     int FValueCount;
  317.     TEnumValue *FValues;
  318.     
  319. public:
  320.     __fastcall TEnumPropDesc(int DispID, int ValueCount, const _di_ITypeInfo TypeInfo);
  321.     __fastcall virtual ~TEnumPropDesc(void);
  322.     void __fastcall GetStrings(Classes::TGetStrProc Proc);
  323.     int __fastcall StringToValue(const AnsiString S);
  324.     AnsiString __fastcall ValueToString(int V);
  325. };
  326.  
  327.  
  328. struct TControlData
  329. {
  330.     GUID ClassID;
  331.     GUID EventIID;
  332.     int EventCount;
  333.     void *EventDispIDs;
  334.     void *LicenseKey;
  335.     unsigned Flags;
  336.     int Version;
  337.     int FontCount;
  338.     int *FontIDs;
  339.     int PictureCount;
  340.     int *PictureIDs;
  341.     int Reserved;
  342.     int InstanceCount;
  343.     Classes::TList* EnumPropDescs;
  344. } ;
  345.  
  346. struct TControlData2;
  347. typedef TControlData2 *PControlData2;
  348.  
  349. struct TControlData2
  350. {
  351.     GUID ClassID;
  352.     GUID EventIID;
  353.     int EventCount;
  354.     void *EventDispIDs;
  355.     void *LicenseKey;
  356.     unsigned Flags;
  357.     int Version;
  358.     int FontCount;
  359.     int *FontIDs;
  360.     int PictureCount;
  361.     int *PictureIDs;
  362.     int Reserved;
  363.     int InstanceCount;
  364.     Classes::TList* EnumPropDescs;
  365.     unsigned FirstEventOfs;
  366. } ;
  367.  
  368. class DELPHICLASS EOleCtrlError;
  369. class PASCALIMPLEMENTATION EOleCtrlError : public Sysutils::Exception 
  370. {
  371.     typedef Sysutils::Exception inherited;
  372.     
  373. public:
  374.     #pragma option push -w-inl
  375.     /* Exception.Create */ inline __fastcall EOleCtrlError(const AnsiString Msg) : Sysutils::Exception(
  376.         Msg) { }
  377.     #pragma option pop
  378.     #pragma option push -w-inl
  379.     /* Exception.CreateFmt */ inline __fastcall EOleCtrlError(const AnsiString Msg, const System::TVarRec 
  380.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  381.     #pragma option pop
  382.     #pragma option push -w-inl
  383.     /* Exception.CreateRes */ inline __fastcall EOleCtrlError(int Ident)/* overload */ : Sysutils::Exception(
  384.         Ident) { }
  385.     #pragma option pop
  386.     #pragma option push -w-inl
  387.     /* Exception.CreateResFmt */ inline __fastcall EOleCtrlError(int Ident, const System::TVarRec * Args
  388.         , const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  389.     #pragma option pop
  390.     #pragma option push -w-inl
  391.     /* Exception.CreateHelp */ inline __fastcall EOleCtrlError(const AnsiString Msg, int AHelpContext) : 
  392.         Sysutils::Exception(Msg, AHelpContext) { }
  393.     #pragma option pop
  394.     #pragma option push -w-inl
  395.     /* Exception.CreateFmtHelp */ inline __fastcall EOleCtrlError(const AnsiString Msg, const System::TVarRec 
  396.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  397.         ) { }
  398.     #pragma option pop
  399.     #pragma option push -w-inl
  400.     /* Exception.CreateResHelp */ inline __fastcall EOleCtrlError(int Ident, int AHelpContext)/* overload */
  401.          : Sysutils::Exception(Ident, AHelpContext) { }
  402.     #pragma option pop
  403.     #pragma option push -w-inl
  404.     /* Exception.CreateResFmtHelp */ inline __fastcall EOleCtrlError(System::PResStringRec ResStringRec
  405.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
  406.         ResStringRec, Args, Args_Size, AHelpContext) { }
  407.     #pragma option pop
  408.     
  409. public:
  410.     #pragma option push -w-inl
  411.     /* TObject.Destroy */ inline __fastcall virtual ~EOleCtrlError(void) { }
  412.     #pragma option pop
  413.     
  414. };
  415.  
  416.  
  417. //-- var, const, procedure ---------------------------------------------------
  418. extern PACKAGE Variant __fastcall FontToOleFont(Graphics::TFont* Font);
  419. extern PACKAGE void __fastcall OleFontToFont(const Variant &OleFont, Graphics::TFont* Font);
  420.  
  421. }    /* namespace Olectrls */
  422. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  423. using namespace Olectrls;
  424. #endif
  425. #pragma option pop    // -w-
  426. #pragma option pop    // -Vx
  427.  
  428. #pragma delphiheader end.
  429. //-- end unit ----------------------------------------------------------------
  430. #endif    // OleCtrls
  431.