home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Include / Vcl / FORMS.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  52.8 KB  |  1,360 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) 'Forms.pas' rev: 4.00
  6.  
  7. #ifndef FormsHPP
  8. #define FormsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <MultiMon.hpp>    // Pascal unit
  13. #include <ActnList.hpp>    // Pascal unit
  14. #include <Imm.hpp>    // Pascal unit
  15. #include <Controls.hpp>    // Pascal unit
  16. #include <Menus.hpp>    // Pascal unit
  17. #include <Graphics.hpp>    // Pascal unit
  18. #include <Classes.hpp>    // Pascal unit
  19. #include <SysUtils.hpp>    // Pascal unit
  20. #include <Windows.hpp>    // Pascal unit
  21. #include <Messages.hpp>    // Pascal unit
  22. #include <SysInit.hpp>    // Pascal unit
  23. #include <System.hpp>    // Pascal unit
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Forms
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. #pragma option push -b-
  31. enum TScrollBarKind { sbHorizontal, sbVertical };
  32. #pragma option pop
  33.  
  34. typedef Word TScrollBarInc;
  35.  
  36. #pragma option push -b-
  37. enum TScrollBarStyle { ssRegular, ssFlat, ssHotTrack };
  38. #pragma option pop
  39.  
  40. class DELPHICLASS TControlScrollBar;
  41. class DELPHICLASS TScrollingWinControl;
  42. #pragma pack(push, 4)
  43. class PASCALIMPLEMENTATION TScrollingWinControl : public Controls::TWinControl 
  44. {
  45.     typedef Controls::TWinControl inherited;
  46.     
  47. private:
  48.     TControlScrollBar* FHorzScrollBar;
  49.     TControlScrollBar* FVertScrollBar;
  50.     bool FAutoScroll;
  51.     int FAutoRangeCount;
  52.     bool FUpdatingScrollBars;
  53.     void __fastcall CalcAutoRange(void);
  54.     void __fastcall ScaleScrollBars(int M, int D);
  55.     void __fastcall SetAutoScroll(bool Value);
  56.     void __fastcall SetHorzScrollBar(TControlScrollBar* Value);
  57.     void __fastcall SetVertScrollBar(TControlScrollBar* Value);
  58.     void __fastcall UpdateScrollBars(void);
  59.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  60.     HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
  61.     HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
  62.     HIDESBASE MESSAGE void __fastcall CMBiDiModeChanged(Messages::TMessage &Message);
  63.     
  64. protected:
  65.     virtual void __fastcall AdjustClientRect(Windows::TRect &Rect);
  66.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &ARect);
  67.     virtual bool __fastcall AutoScrollEnabled(void);
  68.     void __fastcall AutoScrollInView(Controls::TControl* AControl);
  69.     DYNAMIC void __fastcall ChangeScale(int M, int D);
  70.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  71.     virtual void __fastcall CreateWnd(void);
  72.     DYNAMIC void __fastcall DoFlipChildren(void);
  73.     __property bool AutoScroll = {read=FAutoScroll, write=SetAutoScroll, default=1};
  74.     
  75. public:
  76.     __fastcall virtual TScrollingWinControl(Classes::TComponent* AOwner);
  77.     __fastcall virtual ~TScrollingWinControl(void);
  78.     void __fastcall DisableAutoRange(void);
  79.     void __fastcall EnableAutoRange(void);
  80.     void __fastcall ScrollInView(Controls::TControl* AControl);
  81.     
  82. __published:
  83.     __property TControlScrollBar* HorzScrollBar = {read=FHorzScrollBar, write=SetHorzScrollBar};
  84.     __property TControlScrollBar* VertScrollBar = {read=FVertScrollBar, write=SetVertScrollBar};
  85. public:
  86.         
  87.     #pragma option push -w-inl
  88.     /* TWinControl.CreateParented */ inline __fastcall TScrollingWinControl(HWND ParentWindow) : Controls::TWinControl(
  89.         ParentWindow) { }
  90.     #pragma option pop
  91.     
  92. };
  93.  
  94. #pragma pack(pop)
  95.  
  96. #pragma pack(push, 4)
  97. class PASCALIMPLEMENTATION TControlScrollBar : public Classes::TPersistent 
  98. {
  99.     typedef Classes::TPersistent inherited;
  100.     
  101. private:
  102.     TScrollingWinControl* FControl;
  103.     TScrollBarInc FIncrement;
  104.     TScrollBarInc FPageIncrement;
  105.     int FPosition;
  106.     int FRange;
  107.     int FCalcRange;
  108.     TScrollBarKind FKind;
  109.     Word FMargin;
  110.     bool FVisible;
  111.     bool FTracking;
  112.     bool FScaled;
  113.     bool FSmooth;
  114.     int FDelay;
  115.     int FButtonSize;
  116.     Graphics::TColor FColor;
  117.     bool FParentColor;
  118.     int FSize;
  119.     TScrollBarStyle FStyle;
  120.     int FThumbSize;
  121.     int FPageDiv;
  122.     int FLineDiv;
  123.     bool FUpdateNeeded;
  124.     __fastcall TControlScrollBar(TScrollingWinControl* AControl, TScrollBarKind AKind);
  125.     void __fastcall CalcAutoRange(void);
  126.     int __fastcall ControlSize(bool ControlSB, bool AssumeSB);
  127.     void __fastcall DoSetRange(int Value);
  128.     int __fastcall GetScrollPos(void);
  129.     bool __fastcall NeedsScrollBarVisible(void);
  130.     bool __fastcall IsIncrementStored(void);
  131.     void __fastcall ScrollMessage(Messages::TWMScroll &Msg);
  132.     void __fastcall SetButtonSize(int Value);
  133.     void __fastcall SetColor(Graphics::TColor Value);
  134.     void __fastcall SetParentColor(bool Value);
  135.     void __fastcall SetPosition(int Value);
  136.     void __fastcall SetRange(int Value);
  137.     void __fastcall SetSize(int Value);
  138.     void __fastcall SetStyle(TScrollBarStyle Value);
  139.     void __fastcall SetThumbSize(int Value);
  140.     void __fastcall SetVisible(bool Value);
  141.     bool __fastcall IsRangeStored(void);
  142.     void __fastcall Update(bool ControlSB, bool AssumeSB);
  143.     
  144. public:
  145.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  146.     void __fastcall ChangeBiDiPosition(void);
  147.     __property TScrollBarKind Kind = {read=FKind, nodefault};
  148.     bool __fastcall IsScrollBarVisible(void);
  149.     __property int ScrollPos = {read=GetScrollPos, nodefault};
  150.     
  151. __published:
  152.     __property int ButtonSize = {read=FButtonSize, write=SetButtonSize, default=0};
  153.     __property Graphics::TColor Color = {read=FColor, write=SetColor, default=-2147483628};
  154.     __property TScrollBarInc Increment = {read=FIncrement, write=FIncrement, stored=IsIncrementStored, 
  155.         default=8};
  156.     __property Word Margin = {read=FMargin, write=FMargin, default=0};
  157.     __property bool ParentColor = {read=FParentColor, write=SetParentColor, default=1};
  158.     __property int Position = {read=FPosition, write=SetPosition, default=0};
  159.     __property int Range = {read=FRange, write=SetRange, stored=IsRangeStored, default=0};
  160.     __property bool Smooth = {read=FSmooth, write=FSmooth, default=0};
  161.     __property int Size = {read=FSize, write=SetSize, default=0};
  162.     __property TScrollBarStyle Style = {read=FStyle, write=SetStyle, default=0};
  163.     __property int ThumbSize = {read=FThumbSize, write=SetThumbSize, default=0};
  164.     __property bool Tracking = {read=FTracking, write=FTracking, default=0};
  165.     __property bool Visible = {read=FVisible, write=SetVisible, default=1};
  166. public:
  167.     #pragma option push -w-inl
  168.     /* TPersistent.Destroy */ inline __fastcall virtual ~TControlScrollBar(void) { }
  169.     #pragma option pop
  170.     
  171. public:
  172.     #pragma option push -w-inl
  173.     /* TObject.Create */ inline __fastcall TControlScrollBar(void) : Classes::TPersistent() { }
  174.     #pragma option pop
  175.     
  176. };
  177.  
  178. #pragma pack(pop)
  179.  
  180. #pragma option push -b-
  181. enum TFormBorderStyle { bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin };
  182. #pragma option pop
  183.  
  184. typedef TFormBorderStyle TBorderStyle;
  185.  
  186. class DELPHICLASS TScrollBox;
  187. #pragma pack(push, 4)
  188. class PASCALIMPLEMENTATION TScrollBox : public TScrollingWinControl 
  189. {
  190.     typedef TScrollingWinControl inherited;
  191.     
  192. private:
  193.     TFormBorderStyle FBorderStyle;
  194.     void __fastcall SetBorderStyle(TBorderStyle Value);
  195.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  196.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TMessage &Message);
  197.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  198.     
  199. protected:
  200.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  201.     
  202. public:
  203.     __fastcall virtual TScrollBox(Classes::TComponent* AOwner);
  204.     
  205. __published:
  206.     __property Align ;
  207.     __property Anchors ;
  208.     __property AutoScroll ;
  209.     __property AutoSize ;
  210.     __property BiDiMode ;
  211.     __property TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  212.     __property Constraints ;
  213.     __property DockSite ;
  214.     __property DragCursor ;
  215.     __property DragKind ;
  216.     __property DragMode ;
  217.     __property Enabled ;
  218.     __property Color ;
  219.     __property Ctl3D ;
  220.     __property Font ;
  221.     __property ParentBiDiMode ;
  222.     __property ParentColor ;
  223.     __property ParentCtl3D ;
  224.     __property ParentFont ;
  225.     __property ParentShowHint ;
  226.     __property PopupMenu ;
  227.     __property ShowHint ;
  228.     __property TabOrder ;
  229.     __property TabStop ;
  230.     __property Visible ;
  231.     __property OnCanResize ;
  232.     __property OnClick ;
  233.     __property OnConstrainedResize ;
  234.     __property OnDblClick ;
  235.     __property OnDockDrop ;
  236.     __property OnDockOver ;
  237.     __property OnDragDrop ;
  238.     __property OnDragOver ;
  239.     __property OnEndDock ;
  240.     __property OnEndDrag ;
  241.     __property OnEnter ;
  242.     __property OnExit ;
  243.     __property OnGetSiteInfo ;
  244.     __property OnMouseDown ;
  245.     __property OnMouseMove ;
  246.     __property OnMouseUp ;
  247.     __property OnMouseWheel ;
  248.     __property OnMouseWheelDown ;
  249.     __property OnMouseWheelUp ;
  250.     __property OnResize ;
  251.     __property OnStartDock ;
  252.     __property OnStartDrag ;
  253.     __property OnUnDock ;
  254. public:
  255.     #pragma option push -w-inl
  256.     /* TScrollingWinControl.Destroy */ inline __fastcall virtual ~TScrollBox(void) { }
  257.     #pragma option pop
  258.     
  259. public:
  260.     #pragma option push -w-inl
  261.     /* TWinControl.CreateParented */ inline __fastcall TScrollBox(HWND ParentWindow) : TScrollingWinControl(
  262.         ParentWindow) { }
  263.     #pragma option pop
  264.     
  265. };
  266.  
  267. #pragma pack(pop)
  268.  
  269. __interface IDesigner;
  270. typedef System::DelphiInterface<IDesigner> _di_IDesigner;
  271. class DELPHICLASS TCustomForm;
  272. __interface IDesigner  : public IDesignerNotify /* __guid="{ABBE7256-5495-11D1-9FB5-0020AF3D82DA}" */
  273.     
  274. {
  275.     
  276. public:
  277.     virtual TCustomForm* __fastcall GetCustomForm(void) = 0 ;
  278.     virtual void __fastcall SetCustomForm(TCustomForm* Value) = 0 ;
  279.     virtual bool __fastcall GetIsControl(void) = 0 ;
  280.     virtual void __fastcall SetIsControl(bool Value) = 0 ;
  281.     virtual bool __fastcall IsDesignMsg(Controls::TControl* Sender, Messages::TMessage &Message) = 0 ;
  282.     virtual void __fastcall PaintGrid(void) = 0 ;
  283.     virtual void __fastcall ValidateRename(Classes::TComponent* AComponent, const AnsiString CurName, const 
  284.         AnsiString NewName) = 0 ;
  285.     __property bool IsControl = {read=GetIsControl, write=SetIsControl};
  286.     __property TCustomForm* Form = {read=GetCustomForm, write=SetCustomForm};
  287. };
  288.  
  289. __interface IOleForm;
  290. typedef System::DelphiInterface<IOleForm> _di_IOleForm;
  291. __interface IOleForm  : public IUnknown /* __guid="{CD02E1C1-52DA-11D0-9EA6-0020AF3D82DA}" */
  292. {
  293.     
  294. public:
  295.     virtual void __fastcall OnDestroy(void) = 0 ;
  296.     virtual void __fastcall OnResize(void) = 0 ;
  297. };
  298.  
  299. #pragma option push -b-
  300. enum TWindowState { wsNormal, wsMinimized, wsMaximized };
  301. #pragma option pop
  302.  
  303. #pragma option push -b-
  304. enum TFormStyle { fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop };
  305. #pragma option pop
  306.  
  307. #pragma option push -b-
  308. enum TBorderIcon { biSystemMenu, biMinimize, biMaximize, biHelp };
  309. #pragma option pop
  310.  
  311. typedef Set<TBorderIcon, biSystemMenu, biHelp>  TBorderIcons;
  312.  
  313. #pragma option push -b-
  314. enum TPosition { poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter, poDesktopCenter 
  315.     };
  316. #pragma option pop
  317.  
  318. #pragma option push -b-
  319. enum TDefaultMonitor { dmDesktop, dmPrimary, dmMainForm, dmActiveForm };
  320. #pragma option pop
  321.  
  322. #pragma option push -b-
  323. enum TPrintScale { poNone, poProportional, poPrintToFit };
  324. #pragma option pop
  325.  
  326. #pragma option push -b-
  327. enum TShowAction { saIgnore, saRestore, saMinimize, saMaximize };
  328. #pragma option pop
  329.  
  330. #pragma option push -b-
  331. enum TTileMode { tbHorizontal, tbVertical };
  332. #pragma option pop
  333.  
  334. typedef int TModalResult;
  335.  
  336. #pragma option push -b-
  337. enum TCloseAction { caNone, caHide, caFree, caMinimize };
  338. #pragma option pop
  339.  
  340. typedef void __fastcall (__closure *TCloseEvent)(System::TObject* Sender, TCloseAction &Action);
  341.  
  342. typedef void __fastcall (__closure *TCloseQueryEvent)(System::TObject* Sender, bool &CanClose);
  343.  
  344. #pragma option push -b-
  345. enum Forms__4 { fsCreating, fsVisible, fsShowing, fsModal, fsCreatedMDIChild };
  346. #pragma option pop
  347.  
  348. typedef Set<Forms__4, fsCreating, fsCreatedMDIChild>  TFormState;
  349.  
  350. typedef void __fastcall (__closure *TShortCutEvent)(Messages::TWMKey &Msg, bool &Handled);
  351.  
  352. class DELPHICLASS TForm;
  353. class DELPHICLASS TMonitor;
  354. #pragma pack(push, 4)
  355. class PASCALIMPLEMENTATION TCustomForm : public TScrollingWinControl 
  356. {
  357.     typedef TScrollingWinControl inherited;
  358.     
  359. private:
  360.     Controls::TWinControl* FActiveControl;
  361.     Controls::TWinControl* FFocusedControl;
  362.     TBorderIcons FBorderIcons;
  363.     TFormBorderStyle FBorderStyle;
  364.     bool FSizeChanging;
  365.     TWindowState FWindowState;
  366.     TShowAction FShowAction;
  367.     bool FKeyPreview;
  368.     bool FActive;
  369.     TFormStyle FFormStyle;
  370.     TPosition FPosition;
  371.     TDefaultMonitor FDefaultMonitor;
  372.     TTileMode FTileMode;
  373.     bool FDropTarget;
  374.     bool FOldCreateOrder;
  375.     TPrintScale FPrintScale;
  376.     Controls::TControlCanvas* FCanvas;
  377.     AnsiString FHelpFile;
  378.     Graphics::TIcon* FIcon;
  379.     bool FInCMParentBiDiModeChanged;
  380.     Menus::TMainMenu* FMenu;
  381.     TModalResult FModalResult;
  382.     _di_IDesigner FDesigner;
  383.     HWND FClientHandle;
  384.     Menus::TMenuItem* FWindowMenu;
  385.     int FPixelsPerInch;
  386.     Menus::TMenuItem* FObjectMenuItem;
  387.     _di_IOleForm FOleForm;
  388.     int FClientWidth;
  389.     int FClientHeight;
  390.     int FTextHeight;
  391.     void *FDefClientProc;
  392.     void *FClientInstance;
  393.     Controls::TWinControl* FActiveOleControl;
  394.     TFormBorderStyle FSavedBorderStyle;
  395.     Classes::TNotifyEvent FOnActivate;
  396.     TCloseEvent FOnClose;
  397.     TCloseQueryEvent FOnCloseQuery;
  398.     Classes::TNotifyEvent FOnDeactivate;
  399.     Classes::THelpEvent FOnHelp;
  400.     Classes::TNotifyEvent FOnHide;
  401.     Classes::TNotifyEvent FOnPaint;
  402.     TShortCutEvent FOnShortCut;
  403.     Classes::TNotifyEvent FOnShow;
  404.     Classes::TNotifyEvent FOnCreate;
  405.     Classes::TNotifyEvent FOnDestroy;
  406.     void __fastcall RefreshMDIMenu(void);
  407.     void __fastcall ClientWndProc(Messages::TMessage &Message);
  408.     void __fastcall CloseModal(void);
  409.     void __fastcall DoCreate(void);
  410.     void __fastcall DoDestroy(void);
  411.     TForm* __fastcall GetActiveMDIChild(void);
  412.     Graphics::TCanvas* __fastcall GetCanvas(void);
  413.     HICON __fastcall GetIconHandle(void);
  414.     int __fastcall GetMDIChildCount(void);
  415.     TForm* __fastcall GetMDIChildren(int I);
  416.     TMonitor* __fastcall GetMonitor(void);
  417.     int __fastcall GetPixelsPerInch(void);
  418.     bool __fastcall GetScaled(void);
  419.     int __fastcall GetTextHeight(void);
  420.     void __fastcall IconChanged(System::TObject* Sender);
  421.     bool __fastcall IsAutoScrollStored(void);
  422.     bool __fastcall IsClientSizeStored(void);
  423.     bool __fastcall IsForm(void);
  424.     bool __fastcall IsFormSizeStored(void);
  425.     bool __fastcall IsIconStored(void);
  426.     void __fastcall MergeMenu(bool MergeState);
  427.     void __fastcall ReadIgnoreFontProperty(Classes::TReader* Reader);
  428.     void __fastcall ReadTextHeight(Classes::TReader* Reader);
  429.     void __fastcall SetActive(bool Value);
  430.     void __fastcall SetActiveControl(Controls::TWinControl* Control);
  431.     void __fastcall SetBorderIcons(TBorderIcons Value);
  432.     void __fastcall SetBorderStyle(TFormBorderStyle Value);
  433.     HIDESBASE void __fastcall SetClientHeight(int Value);
  434.     HIDESBASE void __fastcall SetClientWidth(int Value);
  435.     void __fastcall SetDesigner(_di_IDesigner ADesigner);
  436.     void __fastcall SetFormStyle(TFormStyle Value);
  437.     void __fastcall SetIcon(Graphics::TIcon* Value);
  438.     void __fastcall SetMenu(Menus::TMainMenu* Value);
  439.     void __fastcall SetPixelsPerInch(int Value);
  440.     void __fastcall SetPosition(TPosition Value);
  441.     void __fastcall SetScaled(bool Value);
  442.     HIDESBASE void __fastcall SetVisible(bool Value);
  443.     void __fastcall SetWindowFocus(void);
  444.     void __fastcall SetWindowMenu(Menus::TMenuItem* Value);
  445.     void __fastcall SetObjectMenuItem(Menus::TMenuItem* Value);
  446.     void __fastcall SetWindowState(TWindowState Value);
  447.     void __fastcall SetWindowToMonitor(void);
  448.     void __fastcall WritePixelsPerInch(Classes::TWriter* Writer);
  449.     void __fastcall WriteTextHeight(Classes::TWriter* Writer);
  450.     Graphics::TColor __fastcall NormalColor(void);
  451.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  452.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  453.     MESSAGE void __fastcall WMIconEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  454.     MESSAGE void __fastcall WMQueryDragIcon(Messages::TWMNoParams &Message);
  455.     MESSAGE void __fastcall WMNCCreate(Messages::TWMNCCreate &Message);
  456.     HIDESBASE MESSAGE void __fastcall WMNCLButtonDown(Messages::TWMNCHitMessage &Message);
  457.     HIDESBASE MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
  458.     HIDESBASE MESSAGE void __fastcall WMCommand(Messages::TWMCommand &Message);
  459.     MESSAGE void __fastcall WMInitMenuPopup(Messages::TWMInitMenuPopup &Message);
  460.     MESSAGE void __fastcall WMMenuChar(Messages::TWMMenuChar &Message);
  461.     MESSAGE void __fastcall WMMenuSelect(Messages::TWMMenuSelect &Message);
  462.     MESSAGE void __fastcall WMActivate(Messages::TWMActivate &Message);
  463.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  464.     MESSAGE void __fastcall WMClose(Messages::TWMNoParams &Message);
  465.     MESSAGE void __fastcall WMQueryEndSession(Messages::TWMQueryEndSession &Message);
  466.     HIDESBASE MESSAGE void __fastcall WMSysCommand(Messages::TWMSysCommand &Message);
  467.     MESSAGE void __fastcall WMShowWindow(Messages::TWMShowWindow &Message);
  468.     MESSAGE void __fastcall WMMDIActivate(Messages::TWMMDIActivate &Message);
  469.     MESSAGE void __fastcall WMNextDlgCtl(Messages::TWMNextDlgCtl &Message);
  470.     MESSAGE void __fastcall WMEnterMenuLoop(Messages::TMessage &Message);
  471.     MESSAGE void __fastcall WMHelp(Messages::TWMHelp &Message);
  472.     MESSAGE void __fastcall WMGetMinMaxInfo(Messages::TWMGetMinMaxInfo &Message);
  473.     MESSAGE void __fastcall WMSettingChange(Messages::TMessage &Message);
  474.     HIDESBASE MESSAGE void __fastcall WMWindowPosChanging(Messages::TWMWindowPosMsg &Message);
  475.     MESSAGE void __fastcall CMActionExecute(Messages::TMessage &Message);
  476.     MESSAGE void __fastcall CMActionUpdate(Messages::TMessage &Message);
  477.     MESSAGE void __fastcall CMActivate(Messages::TWMNoParams &Message);
  478.     MESSAGE void __fastcall CMAppSysCommand(Messages::TMessage &Message);
  479.     HIDESBASE MESSAGE void __fastcall CMBiDiModeChanged(Messages::TMessage &Message);
  480.     MESSAGE void __fastcall CMDeactivate(Messages::TWMNoParams &Message);
  481.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  482.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  483.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  484.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  485.     MESSAGE void __fastcall CMMenuChanged(Messages::TMessage &Message);
  486.     HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
  487.     MESSAGE void __fastcall CMIconChanged(Messages::TMessage &Message);
  488.     MESSAGE void __fastcall CMRelease(Messages::TMessage &Message);
  489.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  490.     MESSAGE void __fastcall CMUIActivate(void *Message);
  491.     HIDESBASE MESSAGE void __fastcall CMParentBiDiModeChanged(Messages::TMessage &Message);
  492.     HIDESBASE MESSAGE void __fastcall CMParentFontChanged(Messages::TMessage &Message);
  493.     
  494. protected:
  495.     Classes::TList* FActionLists;
  496.     TFormState FFormState;
  497.     DYNAMIC void __fastcall Activate(void);
  498.     DYNAMIC void __fastcall ActiveChanged(void);
  499.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  500.     DYNAMIC void __fastcall BeginAutoDrag(void);
  501.     DYNAMIC void __fastcall ChangeScale(int M, int D);
  502.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  503.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  504.     virtual void __fastcall CreateWnd(void);
  505.     DYNAMIC void __fastcall Deactivate(void);
  506.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  507.     virtual void __fastcall DestroyWindowHandle(void);
  508.     DYNAMIC void __fastcall DoClose(TCloseAction &Action);
  509.     DYNAMIC void __fastcall DoHide(void);
  510.     DYNAMIC void __fastcall DoShow(void);
  511.     virtual Windows::TRect __fastcall GetClientRect();
  512.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  513.     virtual bool __fastcall GetFloating(void);
  514.     virtual void __fastcall Loaded(void);
  515.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  516.         );
  517.     DYNAMIC void __fastcall Paint(void);
  518.     virtual void __fastcall PaintWindow(HDC DC);
  519.     DYNAMIC bool __fastcall PaletteChanged(bool Foreground);
  520.     virtual HRESULT __stdcall QueryInterface(const GUID &IID, /* out */ void *Obj);
  521.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  522.     DYNAMIC void __fastcall RequestAlign(void);
  523.     DYNAMIC void __fastcall SetChildOrder(Classes::TComponent* Child, int Order);
  524.     virtual void __fastcall SetParentBiDiMode(bool Value);
  525.     DYNAMIC void __fastcall DoDock(Controls::TWinControl* NewDockSite, Windows::TRect &ARect);
  526.     virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  527.     virtual void __fastcall UpdateActions(void);
  528.     void __fastcall UpdateWindowState(void);
  529.     virtual void __fastcall ValidateRename(Classes::TComponent* AComponent, const AnsiString CurName, const 
  530.         AnsiString NewName);
  531.     DYNAMIC void __fastcall VisibleChanging(void);
  532.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  533.     __property TForm* ActiveMDIChild = {read=GetActiveMDIChild};
  534.     __property TBorderIcons BorderIcons = {read=FBorderIcons, write=SetBorderIcons, stored=IsForm, default=7
  535.         };
  536.     __property AutoScroll  = {stored=IsAutoScrollStored, default=1};
  537.     __property HWND ClientHandle = {read=FClientHandle, nodefault};
  538.     __property ClientHeight  = {write=SetClientHeight, stored=IsClientSizeStored};
  539.     __property ClientWidth  = {write=SetClientWidth, stored=IsClientSizeStored};
  540.     __property Ctl3D ;
  541.     __property TDefaultMonitor DefaultMonitor = {read=FDefaultMonitor, write=FDefaultMonitor, stored=IsForm
  542.         , default=3};
  543.     __property TFormStyle FormStyle = {read=FFormStyle, write=SetFormStyle, stored=IsForm, default=0};
  544.     __property Height  = {stored=IsFormSizeStored};
  545.     __property HorzScrollBar  = {stored=IsForm};
  546.     __property Graphics::TIcon* Icon = {read=FIcon, write=SetIcon, stored=IsIconStored};
  547.     __property int MDIChildCount = {read=GetMDIChildCount, nodefault};
  548.     __property TForm* MDIChildren[int I] = {read=GetMDIChildren};
  549.     __property bool OldCreateOrder = {read=FOldCreateOrder, write=FOldCreateOrder, nodefault};
  550.     __property Menus::TMenuItem* ObjectMenuItem = {read=FObjectMenuItem, write=SetObjectMenuItem, stored=
  551.         IsForm};
  552.     __property int PixelsPerInch = {read=GetPixelsPerInch, write=SetPixelsPerInch, stored=false, nodefault
  553.         };
  554.     __property ParentFont ;
  555.     __property PopupMenu  = {stored=IsForm};
  556.     __property TPosition Position = {read=FPosition, write=SetPosition, stored=IsForm, default=0};
  557.     __property TPrintScale PrintScale = {read=FPrintScale, write=FPrintScale, stored=IsForm, default=1}
  558.         ;
  559.     __property bool Scaled = {read=GetScaled, write=SetScaled, stored=IsForm, default=1};
  560.     __property TTileMode TileMode = {read=FTileMode, write=FTileMode, default=0};
  561.     __property VertScrollBar  = {stored=IsForm};
  562.     __property Visible  = {write=SetVisible, default=0};
  563.     __property Width  = {stored=IsFormSizeStored};
  564.     __property Menus::TMenuItem* WindowMenu = {read=FWindowMenu, write=SetWindowMenu, stored=IsForm};
  565.     __property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate, stored=IsForm};
  566.         
  567.     __property OnCanResize  = {stored=IsForm};
  568.     __property OnClick  = {stored=IsForm};
  569.     __property TCloseEvent OnClose = {read=FOnClose, write=FOnClose, stored=IsForm};
  570.     __property TCloseQueryEvent OnCloseQuery = {read=FOnCloseQuery, write=FOnCloseQuery, stored=IsForm}
  571.         ;
  572.     __property Classes::TNotifyEvent OnCreate = {read=FOnCreate, write=FOnCreate, stored=IsForm};
  573.     __property OnDblClick  = {stored=IsForm};
  574.     __property Classes::TNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy, stored=IsForm};
  575.     __property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate, stored=IsForm
  576.         };
  577.     __property OnDragDrop  = {stored=IsForm};
  578.     __property OnDragOver  = {stored=IsForm};
  579.     __property Classes::THelpEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  580.     __property Classes::TNotifyEvent OnHide = {read=FOnHide, write=FOnHide, stored=IsForm};
  581.     __property OnKeyDown  = {stored=IsForm};
  582.     __property OnKeyPress  = {stored=IsForm};
  583.     __property OnKeyUp  = {stored=IsForm};
  584.     __property OnMouseDown  = {stored=IsForm};
  585.     __property OnMouseMove  = {stored=IsForm};
  586.     __property OnMouseUp  = {stored=IsForm};
  587.     __property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint, stored=IsForm};
  588.     __property OnResize  = {stored=IsForm};
  589.     __property TShortCutEvent OnShortCut = {read=FOnShortCut, write=FOnShortCut};
  590.     __property Classes::TNotifyEvent OnShow = {read=FOnShow, write=FOnShow, stored=IsForm};
  591.     
  592. public:
  593.     __fastcall virtual TCustomForm(Classes::TComponent* AOwner);
  594.     __fastcall virtual TCustomForm(Classes::TComponent* AOwner, int Dummy);
  595.     __fastcall virtual ~TCustomForm(void);
  596.     virtual void __fastcall AfterConstruction(void);
  597.     virtual void __fastcall BeforeDestruction(void);
  598.     void __fastcall Close(void);
  599.     virtual bool __fastcall CloseQuery(void);
  600.     virtual void __fastcall DefaultHandler(void *Message);
  601.     void __fastcall DefocusControl(Controls::TWinControl* Control, bool Removing);
  602.     DYNAMIC void __fastcall Dock(Controls::TWinControl* NewDockSite, const Windows::TRect &ARect);
  603.     void __fastcall FocusControl(Controls::TWinControl* Control);
  604.     Graphics::TBitmap* __fastcall GetFormImage(void);
  605.     HIDESBASE void __fastcall Hide(void);
  606.     DYNAMIC bool __fastcall IsShortCut(Messages::TWMKey &Message);
  607.     DYNAMIC void __fastcall MouseWheelHandler(Messages::TMessage &Message);
  608.     void __fastcall Print(void);
  609.     void __fastcall Release(void);
  610.     HIDESBASE void __fastcall SendCancelMode(Controls::TControl* Sender);
  611.     virtual void __fastcall SetFocus(void);
  612.     virtual bool __fastcall SetFocusedControl(Controls::TWinControl* Control);
  613.     HIDESBASE void __fastcall Show(void);
  614.     virtual int __fastcall ShowModal(void);
  615.     virtual bool __fastcall WantChildKey(Controls::TControl* Child, Messages::TMessage &Message);
  616.     __property bool Active = {read=FActive, nodefault};
  617.     __property Controls::TWinControl* ActiveControl = {read=FActiveControl, write=SetActiveControl, stored=
  618.         IsForm};
  619.     __property Action ;
  620.     __property Controls::TWinControl* ActiveOleControl = {read=FActiveOleControl, write=FActiveOleControl
  621.         };
  622.     __property TFormBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, stored=IsForm, 
  623.         default=2};
  624.     __property Graphics::TCanvas* Canvas = {read=GetCanvas};
  625.     __property Caption  = {stored=IsForm};
  626.     __property Color ;
  627.     __property _di_IDesigner Designer = {read=FDesigner, write=SetDesigner};
  628.     __property bool DropTarget = {read=FDropTarget, write=FDropTarget, nodefault};
  629.     __property Font ;
  630.     __property TFormState FormState = {read=FFormState, nodefault};
  631.     __property AnsiString HelpFile = {read=FHelpFile, write=FHelpFile};
  632.     __property bool KeyPreview = {read=FKeyPreview, write=FKeyPreview, stored=IsForm, default=0};
  633.     __property Menus::TMainMenu* Menu = {read=FMenu, write=SetMenu, stored=IsForm};
  634.     __property TModalResult ModalResult = {read=FModalResult, write=FModalResult, nodefault};
  635.     __property TMonitor* Monitor = {read=GetMonitor};
  636.     __property _di_IOleForm OleFormObject = {read=FOleForm, write=FOleForm};
  637.     __property TWindowState WindowState = {read=FWindowState, write=SetWindowState, stored=IsForm, default=0
  638.         };
  639. public:
  640.     #pragma option push -w-inl
  641.     /* TWinControl.CreateParented */ inline __fastcall TCustomForm(HWND ParentWindow) : TScrollingWinControl(
  642.         ParentWindow) { }
  643.     #pragma option pop
  644.     
  645. };
  646.  
  647. #pragma pack(pop)
  648.  
  649. #pragma option push -b-
  650. enum TActiveFormBorderStyle { afbNone, afbSingle, afbSunken, afbRaised };
  651. #pragma option pop
  652.  
  653. class DELPHICLASS TCustomActiveForm;
  654. #pragma pack(push, 4)
  655. class PASCALIMPLEMENTATION TCustomActiveForm : public TCustomForm 
  656. {
  657.     typedef TCustomForm inherited;
  658.     
  659. private:
  660.     TActiveFormBorderStyle FAxBorderStyle;
  661.     void __fastcall SetAxBorderStyle(TActiveFormBorderStyle Value);
  662.     
  663. protected:
  664.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  665.     
  666. public:
  667.     __fastcall virtual TCustomActiveForm(Classes::TComponent* AOwner);
  668.     virtual bool __fastcall WantChildKey(Controls::TControl* Child, Messages::TMessage &Message);
  669.     __property Visible ;
  670.     
  671. __published:
  672.     __property ActiveControl ;
  673.     __property Anchors ;
  674.     __property AutoScroll ;
  675.     __property AutoSize ;
  676.     __property TActiveFormBorderStyle AxBorderStyle = {read=FAxBorderStyle, write=SetAxBorderStyle, default=1
  677.         };
  678.     __property BorderWidth ;
  679.     __property Caption  = {stored=true};
  680.     __property Color ;
  681.     __property Constraints ;
  682.     __property Font ;
  683.     __property Height  = {stored=true};
  684.     __property HorzScrollBar ;
  685.     __property KeyPreview ;
  686.     __property OldCreateOrder ;
  687.     __property PixelsPerInch ;
  688.     __property PopupMenu ;
  689.     __property PrintScale ;
  690.     __property Scaled ;
  691.     __property ShowHint ;
  692.     __property VertScrollBar ;
  693.     __property Width  = {stored=true};
  694.     __property OnActivate ;
  695.     __property OnClick ;
  696.     __property OnCreate ;
  697.     __property OnDblClick ;
  698.     __property OnDestroy ;
  699.     __property OnDeactivate ;
  700.     __property OnDragDrop ;
  701.     __property OnDragOver ;
  702.     __property OnKeyDown ;
  703.     __property OnKeyPress ;
  704.     __property OnKeyUp ;
  705.     __property OnMouseDown ;
  706.     __property OnMouseMove ;
  707.     __property OnMouseUp ;
  708.     __property OnPaint ;
  709. public:
  710.     #pragma option push -w-inl
  711.     /* TCustomForm.CreateNew */ inline __fastcall virtual TCustomActiveForm(Classes::TComponent* AOwner
  712.         , int Dummy) : TCustomForm(AOwner, Dummy) { }
  713.     #pragma option pop
  714.     #pragma option push -w-inl
  715.     /* TCustomForm.Destroy */ inline __fastcall virtual ~TCustomActiveForm(void) { }
  716.     #pragma option pop
  717.     
  718. public:
  719.     #pragma option push -w-inl
  720.     /* TWinControl.CreateParented */ inline __fastcall TCustomActiveForm(HWND ParentWindow) : TCustomForm(
  721.         ParentWindow) { }
  722.     #pragma option pop
  723.     
  724. };
  725.  
  726. #pragma pack(pop)
  727.  
  728. #pragma pack(push, 4)
  729. class PASCALIMPLEMENTATION TForm : public TCustomForm 
  730. {
  731.     typedef TCustomForm inherited;
  732.     
  733. public:
  734.     void __fastcall ArrangeIcons(void);
  735.     void __fastcall Cascade(void);
  736.     void __fastcall Next(void);
  737.     void __fastcall Previous(void);
  738.     void __fastcall Tile(void);
  739.     __property ActiveMDIChild ;
  740.     __property ClientHandle ;
  741.     __property DockManager ;
  742.     __property MDIChildCount ;
  743.     __property MDIChildren ;
  744.     __property TileMode ;
  745.     
  746. __published:
  747.     __property Action ;
  748.     __property ActiveControl ;
  749.     __property Align ;
  750.     __property Anchors ;
  751.     __property AutoScroll ;
  752.     __property AutoSize ;
  753.     __property BiDiMode ;
  754.     __property BorderIcons ;
  755.     __property BorderStyle ;
  756.     __property BorderWidth ;
  757.     __property Caption ;
  758.     __property ClientHeight ;
  759.     __property ClientWidth ;
  760.     __property Color ;
  761.     __property Constraints ;
  762.     __property Ctl3D ;
  763.     __property UseDockManager ;
  764.     __property DefaultMonitor ;
  765.     __property DockSite ;
  766.     __property DragKind ;
  767.     __property DragMode ;
  768.     __property Enabled ;
  769.     __property ParentFont ;
  770.     __property Font ;
  771.     __property FormStyle ;
  772.     __property Height ;
  773.     __property HelpFile ;
  774.     __property HorzScrollBar ;
  775.     __property Icon ;
  776.     __property KeyPreview ;
  777.     __property Menu ;
  778.     __property OldCreateOrder ;
  779.     __property ObjectMenuItem ;
  780.     __property ParentBiDiMode ;
  781.     __property PixelsPerInch ;
  782.     __property PopupMenu ;
  783.     __property Position ;
  784.     __property PrintScale ;
  785.     __property Scaled ;
  786.     __property ShowHint ;
  787.     __property VertScrollBar ;
  788.     __property Visible ;
  789.     __property Width ;
  790.     __property WindowState ;
  791.     __property WindowMenu ;
  792.     __property OnActivate ;
  793.     __property OnCanResize ;
  794.     __property OnClick ;
  795.     __property OnClose ;
  796.     __property OnCloseQuery ;
  797.     __property OnConstrainedResize ;
  798.     __property OnCreate ;
  799.     __property OnDblClick ;
  800.     __property OnDestroy ;
  801.     __property OnDeactivate ;
  802.     __property OnDockDrop ;
  803.     __property OnDockOver ;
  804.     __property OnDragDrop ;
  805.     __property OnDragOver ;
  806.     __property OnEndDock ;
  807.     __property OnGetSiteInfo ;
  808.     __property OnHide ;
  809.     __property OnHelp ;
  810.     __property OnKeyDown ;
  811.     __property OnKeyPress ;
  812.     __property OnKeyUp ;
  813.     __property OnMouseDown ;
  814.     __property OnMouseMove ;
  815.     __property OnMouseUp ;
  816.     __property OnMouseWheel ;
  817.     __property OnMouseWheelDown ;
  818.     __property OnMouseWheelUp ;
  819.     __property OnPaint ;
  820.     __property OnResize ;
  821.     __property OnShortCut ;
  822.     __property OnShow ;
  823.     __property OnStartDock ;
  824.     __property OnUnDock ;
  825. public:
  826.     #pragma option push -w-inl
  827.     /* TCustomForm.Create */ inline __fastcall virtual TForm(Classes::TComponent* AOwner) : TCustomForm(
  828.         AOwner) { }
  829.     #pragma option pop
  830.     #pragma option push -w-inl
  831.     /* TCustomForm.CreateNew */ inline __fastcall virtual TForm(Classes::TComponent* AOwner, int Dummy)
  832.          : TCustomForm(AOwner, Dummy) { }
  833.     #pragma option pop
  834.     #pragma option push -w-inl
  835.     /* TCustomForm.Destroy */ inline __fastcall virtual ~TForm(void) { }
  836.     #pragma option pop
  837.     
  838. public:
  839.     #pragma option push -w-inl
  840.     /* TWinControl.CreateParented */ inline __fastcall TForm(HWND ParentWindow) : TCustomForm(ParentWindow
  841.         ) { }
  842.     #pragma option pop
  843.     
  844. };
  845.  
  846. #pragma pack(pop)
  847.  
  848. typedef TMetaClass*TFormClass;
  849.  
  850. class DELPHICLASS TCustomDockForm;
  851. #pragma pack(push, 4)
  852. class PASCALIMPLEMENTATION TCustomDockForm : public TCustomForm 
  853. {
  854.     typedef TCustomForm inherited;
  855.     
  856. private:
  857.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
  858.     HIDESBASE MESSAGE void __fastcall WMNCLButtonDown(Messages::TWMNCHitMessage &Message);
  859.     HIDESBASE MESSAGE void __fastcall CMControlListChange(Messages::TMessage &Message);
  860.     MESSAGE void __fastcall CMDockNotification(Controls::TCMDockNotification &Message);
  861.     HIDESBASE MESSAGE void __fastcall CMUnDockClient(Controls::TCMUnDockClient &Message);
  862.     HIDESBASE MESSAGE void __fastcall CMVisibleChanged(Messages::TMessage &Message);
  863.     
  864. protected:
  865.     DYNAMIC void __fastcall DoAddDockClient(Controls::TControl* Client, const Windows::TRect &ARect);
  866.     DYNAMIC void __fastcall DoRemoveDockClient(Controls::TControl* Client);
  867.     DYNAMIC void __fastcall GetSiteInfo(Controls::TControl* Client, Windows::TRect &InfluenceRect, const 
  868.         Windows::TPoint &MousePos, bool &CanDock);
  869.     virtual void __fastcall Loaded(void);
  870.     
  871. public:
  872.     __fastcall virtual TCustomDockForm(Classes::TComponent* AOwner);
  873.     __property AutoScroll ;
  874.     __property BorderStyle ;
  875.     __property FormStyle ;
  876.     
  877. __published:
  878.     __property PixelsPerInch ;
  879. public:
  880.     #pragma option push -w-inl
  881.     /* TCustomForm.CreateNew */ inline __fastcall virtual TCustomDockForm(Classes::TComponent* AOwner, 
  882.         int Dummy) : TCustomForm(AOwner, Dummy) { }
  883.     #pragma option pop
  884.     #pragma option push -w-inl
  885.     /* TCustomForm.Destroy */ inline __fastcall virtual ~TCustomDockForm(void) { }
  886.     #pragma option pop
  887.     
  888. public:
  889.     #pragma option push -w-inl
  890.     /* TWinControl.CreateParented */ inline __fastcall TCustomDockForm(HWND ParentWindow) : TCustomForm(
  891.         ParentWindow) { }
  892.     #pragma option pop
  893.     
  894. };
  895.  
  896. #pragma pack(pop)
  897.  
  898. class DELPHICLASS TDataModule;
  899. #pragma pack(push, 4)
  900. class PASCALIMPLEMENTATION TDataModule : public Classes::TComponent 
  901. {
  902.     typedef Classes::TComponent inherited;
  903.     
  904. private:
  905.     Windows::TPoint FDesignSize;
  906.     Windows::TPoint FDesignOffset;
  907.     Classes::TNotifyEvent FOnCreate;
  908.     Classes::TNotifyEvent FOnDestroy;
  909.     bool FOldCreateOrder;
  910.     void __fastcall DoCreate(void);
  911.     void __fastcall DoDestroy(void);
  912.     void __fastcall ReadHeight(Classes::TReader* Reader);
  913.     void __fastcall ReadHorizontalOffset(Classes::TReader* Reader);
  914.     void __fastcall ReadVerticalOffset(Classes::TReader* Reader);
  915.     void __fastcall ReadWidth(Classes::TReader* Reader);
  916.     void __fastcall WriteWidth(Classes::TWriter* Writer);
  917.     void __fastcall WriteHorizontalOffset(Classes::TWriter* Writer);
  918.     void __fastcall WriteVerticalOffset(Classes::TWriter* Writer);
  919.     void __fastcall WriteHeight(Classes::TWriter* Writer);
  920.     
  921. protected:
  922.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  923.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  924.     HRESULT __safecall GetProviderNames(OleVariant &GetProviderNames_result);
  925.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  926.     #pragma option push -w-inl
  927.     /* virtual class method */ virtual void __fastcall UpdateRegistry(bool Register, const AnsiString ClassID
  928.         , const AnsiString ProgID) { UpdateRegistry(__classid(TDataModule), Register, ClassID, ProgID); }
  929.     #pragma option pop
  930.     /*         class method */ static void __fastcall UpdateRegistry(TMetaClass* vmt, bool Register, const 
  931.         AnsiString ClassID, const AnsiString ProgID);
  932.     
  933. public:
  934.     __fastcall virtual TDataModule(Classes::TComponent* AOwner);
  935.     __fastcall TDataModule(Classes::TComponent* AOwner, int Dummy);
  936.     __fastcall virtual ~TDataModule(void);
  937.     virtual void __fastcall AfterConstruction(void);
  938.     virtual void __fastcall BeforeDestruction(void);
  939.     __property Windows::TPoint DesignOffset = {read=FDesignOffset, write=FDesignOffset};
  940.     __property Windows::TPoint DesignSize = {read=FDesignSize, write=FDesignSize};
  941.     
  942. __published:
  943.     __property bool OldCreateOrder = {read=FOldCreateOrder, write=FOldCreateOrder, nodefault};
  944.     __property Classes::TNotifyEvent OnCreate = {read=FOnCreate, write=FOnCreate};
  945.     __property Classes::TNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy};
  946. };
  947.  
  948. #pragma pack(pop)
  949.  
  950. #pragma pack(push, 4)
  951. class PASCALIMPLEMENTATION TMonitor : public System::TObject 
  952. {
  953.     typedef System::TObject inherited;
  954.     
  955. private:
  956.     HMONITOR FHandle;
  957.     int FMonitorNum;
  958.     int __fastcall GetLeft(void);
  959.     int __fastcall GetHeight(void);
  960.     int __fastcall GetTop(void);
  961.     int __fastcall GetWidth(void);
  962.     
  963. public:
  964.     __property HMONITOR Handle = {read=FHandle, nodefault};
  965.     __property int MonitorNum = {read=FMonitorNum, nodefault};
  966.     __property int Left = {read=GetLeft, nodefault};
  967.     __property int Height = {read=GetHeight, nodefault};
  968.     __property int Top = {read=GetTop, nodefault};
  969.     __property int Width = {read=GetWidth, nodefault};
  970. public:
  971.     #pragma option push -w-inl
  972.     /* TObject.Create */ inline __fastcall TMonitor(void) : System::TObject() { }
  973.     #pragma option pop
  974.     #pragma option push -w-inl
  975.     /* TObject.Destroy */ inline __fastcall virtual ~TMonitor(void) { }
  976.     #pragma option pop
  977.     
  978. };
  979.  
  980. #pragma pack(pop)
  981.  
  982. struct TCursorRec;
  983. typedef TCursorRec *PCursorRec;
  984.  
  985. #pragma pack(push, 4)
  986. struct TCursorRec
  987. {
  988.     TCursorRec *Next;
  989.     int Index;
  990.     HICON Handle;
  991. } ;
  992. #pragma pack(pop)
  993.  
  994. class DELPHICLASS TScreen;
  995. #pragma pack(push, 4)
  996. class PASCALIMPLEMENTATION TScreen : public Classes::TComponent 
  997. {
  998.     typedef Classes::TComponent inherited;
  999.     
  1000. private:
  1001.     Classes::TStrings* FFonts;
  1002.     Classes::TStrings* FImes;
  1003.     AnsiString FDefaultIme;
  1004.     HKL FDefaultKbLayout;
  1005.     int FPixelsPerInch;
  1006.     Controls::TCursor FCursor;
  1007.     int FCursorCount;
  1008.     Classes::TList* FForms;
  1009.     Classes::TList* FCustomForms;
  1010.     Classes::TList* FDataModules;
  1011.     Classes::TList* FMonitors;
  1012.     TCursorRec *FCursorList;
  1013.     HICON FDefaultCursor;
  1014.     Controls::TWinControl* FActiveControl;
  1015.     TCustomForm* FActiveCustomForm;
  1016.     TForm* FActiveForm;
  1017.     Controls::TWinControl* FLastActiveControl;
  1018.     TCustomForm* FLastActiveCustomForm;
  1019.     TCustomForm* FFocusedForm;
  1020.     Classes::TList* FSaveFocusedList;
  1021.     Graphics::TFont* FIconFont;
  1022.     Word FAlignLevel;
  1023.     Controls::TControlState FControlState;
  1024.     Classes::TNotifyEvent FOnActiveControlChange;
  1025.     Classes::TNotifyEvent FOnActiveFormChange;
  1026.     void __fastcall AlignForm(TCustomForm* AForm);
  1027.     void __fastcall AlignForms(TCustomForm* AForm, Windows::TRect &Rect);
  1028.     void __fastcall AddDataModule(TDataModule* DataModule);
  1029.     void __fastcall AddForm(TCustomForm* AForm);
  1030.     void __fastcall CreateCursors(void);
  1031.     void __fastcall DeleteCursor(int Index);
  1032.     void __fastcall DestroyCursors(void);
  1033.     void __fastcall IconFontChanged(System::TObject* Sender);
  1034.     void __fastcall InitImes(void);
  1035.     int __fastcall GetCustomFormCount(void);
  1036.     TCustomForm* __fastcall GetCustomForms(int Index);
  1037.     HICON __fastcall GetCursors(int Index);
  1038.     TDataModule* __fastcall GetDataModule(int Index);
  1039.     int __fastcall GetDataModuleCount(void);
  1040.     int __fastcall GetHeight(void);
  1041.     int __fastcall GetWidth(void);
  1042.     int __fastcall GetDesktopTop(void);
  1043.     int __fastcall GetDesktopLeft(void);
  1044.     int __fastcall GetDesktopHeight(void);
  1045.     int __fastcall GetDesktopWidth(void);
  1046.     TMonitor* __fastcall GetMonitor(int Index);
  1047.     int __fastcall GetMonitorCount(void);
  1048.     TForm* __fastcall GetForm(int Index);
  1049.     int __fastcall GetFormCount(void);
  1050.     void __fastcall GetMetricSettings(void);
  1051.     void __fastcall InsertCursor(int Index, HICON Handle);
  1052.     void __fastcall RemoveDataModule(TDataModule* DataModule);
  1053.     void __fastcall RemoveForm(TCustomForm* AForm);
  1054.     void __fastcall SetCursors(int Index, HICON Handle);
  1055.     void __fastcall SetCursor(Controls::TCursor Value);
  1056.     void __fastcall UpdateLastActive(void);
  1057.     
  1058. public:
  1059.     __fastcall virtual TScreen(Classes::TComponent* AOwner);
  1060.     __fastcall virtual ~TScreen(void);
  1061.     void __fastcall DisableAlign(void);
  1062.     void __fastcall EnableAlign(void);
  1063.     void __fastcall Realign(void);
  1064.     __property Controls::TWinControl* ActiveControl = {read=FActiveControl};
  1065.     __property TCustomForm* ActiveCustomForm = {read=FActiveCustomForm};
  1066.     __property TForm* ActiveForm = {read=FActiveForm};
  1067.     __property int CustomFormCount = {read=GetCustomFormCount, nodefault};
  1068.     __property TCustomForm* CustomForms[int Index] = {read=GetCustomForms};
  1069.     __property Controls::TCursor Cursor = {read=FCursor, write=SetCursor, nodefault};
  1070.     __property HICON Cursors[int Index] = {read=GetCursors, write=SetCursors};
  1071.     __property TDataModule* DataModules[int Index] = {read=GetDataModule};
  1072.     __property int DataModuleCount = {read=GetDataModuleCount, nodefault};
  1073.     __property int MonitorCount = {read=GetMonitorCount, nodefault};
  1074.     __property TMonitor* Monitors[int Index] = {read=GetMonitor};
  1075.     __property int DesktopHeight = {read=GetDesktopHeight, nodefault};
  1076.     __property int DesktopLeft = {read=GetDesktopLeft, nodefault};
  1077.     __property int DesktopTop = {read=GetDesktopTop, nodefault};
  1078.     __property int DesktopWidth = {read=GetDesktopWidth, nodefault};
  1079.     __property Graphics::TFont* IconFont = {read=FIconFont, write=FIconFont};
  1080.     __property Classes::TStrings* Fonts = {read=FFonts};
  1081.     __property int FormCount = {read=GetFormCount, nodefault};
  1082.     __property TForm* Forms[int Index] = {read=GetForm};
  1083.     __property Classes::TStrings* Imes = {read=FImes};
  1084.     __property AnsiString DefaultIme = {read=FDefaultIme};
  1085.     __property HKL DefaultKbLayout = {read=FDefaultKbLayout, nodefault};
  1086.     __property int Height = {read=GetHeight, nodefault};
  1087.     __property int PixelsPerInch = {read=FPixelsPerInch, nodefault};
  1088.     __property int Width = {read=GetWidth, nodefault};
  1089.     __property Classes::TNotifyEvent OnActiveControlChange = {read=FOnActiveControlChange, write=FOnActiveControlChange
  1090.         };
  1091.     __property Classes::TNotifyEvent OnActiveFormChange = {read=FOnActiveFormChange, write=FOnActiveFormChange
  1092.         };
  1093. };
  1094.  
  1095. #pragma pack(pop)
  1096.  
  1097. #pragma option push -b-
  1098. enum TTimerMode { tmShow, tmHide };
  1099. #pragma option pop
  1100.  
  1101. struct THintInfo;
  1102. typedef THintInfo *PHintInfo;
  1103.  
  1104. #pragma pack(push, 4)
  1105. struct THintInfo
  1106. {
  1107.     Controls::TControl* HintControl;
  1108.     TMetaClass*HintWindowClass;
  1109.     Windows::TPoint HintPos;
  1110.     int HintMaxWidth;
  1111.     Graphics::TColor HintColor;
  1112.     Windows::TRect CursorRect;
  1113.     Windows::TPoint CursorPos;
  1114.     int ReshowTimeout;
  1115.     int HideTimeout;
  1116.     AnsiString HintStr;
  1117.     void *HintData;
  1118. } ;
  1119. #pragma pack(pop)
  1120.  
  1121. #pragma pack(push, 4)
  1122. struct TCMHintShow
  1123. {
  1124.     unsigned Msg;
  1125.     int Reserved;
  1126.     THintInfo *HintInfo;
  1127.     int Result;
  1128. } ;
  1129. #pragma pack(pop)
  1130.  
  1131. #pragma pack(push, 4)
  1132. struct TCMHintShowPause
  1133. {
  1134.     unsigned Msg;
  1135.     int WasActive;
  1136.     int *Pause;
  1137.     int Result;
  1138. } ;
  1139. #pragma pack(pop)
  1140.  
  1141. typedef void __fastcall (__closure *TMessageEvent)(tagMSG &Msg, bool &Handled);
  1142.  
  1143. typedef void __fastcall (__closure *TExceptionEvent)(System::TObject* Sender, Sysutils::Exception* E
  1144.     );
  1145.  
  1146. typedef void __fastcall (__closure *TIdleEvent)(System::TObject* Sender, bool &Done);
  1147.  
  1148. typedef void __fastcall (__closure *TShowHintEvent)(AnsiString &HintStr, bool &CanShow, THintInfo &HintInfo
  1149.     );
  1150.  
  1151. typedef bool __fastcall (__closure *TWindowHook)(Messages::TMessage &Message);
  1152.  
  1153. class DELPHICLASS TApplication;
  1154. #pragma pack(push, 4)
  1155. class PASCALIMPLEMENTATION TApplication : public Classes::TComponent 
  1156. {
  1157.     typedef Classes::TComponent inherited;
  1158.     
  1159. private:
  1160.     HWND FHandle;
  1161.     Classes::TBiDiMode FBiDiMode;
  1162.     void *FObjectInstance;
  1163.     TForm* FMainForm;
  1164.     Controls::TControl* FMouseControl;
  1165.     AnsiString FHelpFile;
  1166.     AnsiString FHint;
  1167.     bool FHintActive;
  1168.     bool FUpdateFormatSettings;
  1169.     bool FUpdateMetricSettings;
  1170.     bool FShowMainForm;
  1171.     Graphics::TColor FHintColor;
  1172.     Controls::TControl* FHintControl;
  1173.     Windows::TRect FHintCursorRect;
  1174.     int FHintHidePause;
  1175.     int FHintPause;
  1176.     bool FHintShortCuts;
  1177.     int FHintShortPause;
  1178.     Controls::THintWindow* FHintWindow;
  1179.     bool FShowHint;
  1180.     TTimerMode FTimerMode;
  1181.     Word FTimerHandle;
  1182.     AnsiString FTitle;
  1183.     Classes::TList* FTopMostList;
  1184.     int FTopMostLevel;
  1185.     Graphics::TIcon* FIcon;
  1186.     bool FTerminate;
  1187.     bool FActive;
  1188.     bool FAllowTesting;
  1189.     unsigned FTestLib;
  1190.     bool FHandleCreated;
  1191.     bool FRunning;
  1192.     Classes::TList* FWindowHooks;
  1193.     void *FWindowList;
  1194.     HWND FDialogHandle;
  1195.     tagMSG FLastMsg;
  1196.     Actnlist::TActionEvent FOnActionExecute;
  1197.     Actnlist::TActionEvent FOnActionUpdate;
  1198.     TExceptionEvent FOnException;
  1199.     TMessageEvent FOnMessage;
  1200.     Classes::THelpEvent FOnHelp;
  1201.     Classes::TNotifyEvent FOnHint;
  1202.     TIdleEvent FOnIdle;
  1203.     Classes::TNotifyEvent FOnDeactivate;
  1204.     Classes::TNotifyEvent FOnActivate;
  1205.     Classes::TNotifyEvent FOnMinimize;
  1206.     Classes::TNotifyEvent FOnRestore;
  1207.     TShortCutEvent FOnShortCut;
  1208.     TShowHintEvent FOnShowHint;
  1209.     void __fastcall ActivateHint(const Windows::TPoint &CursorPos);
  1210.     bool __fastcall CheckIniChange(Messages::TMessage &Message);
  1211.     bool __fastcall DispatchAction(int Msg, Classes::TBasicAction* Action);
  1212.     void __fastcall DoActionIdle(void);
  1213.     Controls::TControl* __fastcall DoMouseIdle(void);
  1214.     void __fastcall DoNormalizeTopMosts(bool IncludeMain);
  1215.     AnsiString __fastcall GetCurrentHelpFile();
  1216.     HWND __fastcall GetDialogHandle(void);
  1217.     AnsiString __fastcall GetExeName();
  1218.     HICON __fastcall GetIconHandle(void);
  1219.     AnsiString __fastcall GetTitle();
  1220.     void __fastcall HintTimerExpired(void);
  1221.     void __fastcall IconChanged(System::TObject* Sender);
  1222.     void __fastcall Idle(const tagMSG &Msg);
  1223.     bool __fastcall InvokeHelp(Word Command, int Data);
  1224.     bool __fastcall IsDlgMsg(tagMSG &Msg);
  1225.     bool __fastcall IsHintMsg(tagMSG &Msg);
  1226.     bool __fastcall IsIdleMessage(const tagMSG &Msg);
  1227.     bool __fastcall IsKeyMsg(tagMSG &Msg);
  1228.     bool __fastcall IsMDIMsg(tagMSG &Msg);
  1229.     bool __fastcall IsShortCut(Messages::TWMKey &Message);
  1230.     void __fastcall NotifyForms(Word Msg);
  1231.     bool __fastcall ProcessMessage(tagMSG &Msg);
  1232.     void __fastcall SetBiDiMode(Classes::TBiDiMode Value);
  1233.     void __fastcall SetDialogHandle(HWND Value);
  1234.     void __fastcall SetHandle(HWND Value);
  1235.     void __fastcall SetHint(const AnsiString Value);
  1236.     void __fastcall SetHintColor(Graphics::TColor Value);
  1237.     void __fastcall SetIcon(Graphics::TIcon* Value);
  1238.     void __fastcall SetShowHint(bool Value);
  1239.     void __fastcall SetTitle(const AnsiString Value);
  1240.     void __fastcall StartHintTimer(int Value, TTimerMode TimerMode);
  1241.     void __fastcall StopHintTimer(void);
  1242.     void __fastcall WndProc(Messages::TMessage &Message);
  1243.     void __fastcall UpdateVisible(void);
  1244.     
  1245. public:
  1246.     __fastcall virtual TApplication(Classes::TComponent* AOwner);
  1247.     __fastcall virtual ~TApplication(void);
  1248.     void __fastcall BringToFront(void);
  1249.     void __fastcall ControlDestroyed(Controls::TControl* Control);
  1250.     void __fastcall CancelHint(void);
  1251.     void __fastcall CreateForm(TMetaClass* InstanceClass, void *Reference);
  1252.     void __fastcall CreateHandle(void);
  1253.     HIDESBASE bool __fastcall ExecuteAction(Classes::TBasicAction* Action);
  1254.     void __fastcall HandleException(System::TObject* Sender);
  1255.     void __fastcall HandleMessage(void);
  1256.     bool __fastcall HelpCommand(int Command, int Data);
  1257.     bool __fastcall HelpContext(Classes::THelpContext Context);
  1258.     bool __fastcall HelpJump(const AnsiString JumpID);
  1259.     void __fastcall HideHint(void);
  1260.     void __fastcall HintMouseMessage(Controls::TControl* Control, Messages::TMessage &Message);
  1261.     void __fastcall HookMainWindow(TWindowHook Hook);
  1262.     void __fastcall Initialize(void);
  1263.     bool __fastcall IsRightToLeft(void);
  1264.     int __fastcall MessageBox(char * Text, char * Caption, int Flags);
  1265.     void __fastcall Minimize(void);
  1266.     void __fastcall NormalizeAllTopMosts(void);
  1267.     void __fastcall NormalizeTopMosts(void);
  1268.     void __fastcall ProcessMessages(void);
  1269.     void __fastcall Restore(void);
  1270.     void __fastcall RestoreTopMosts(void);
  1271.     void __fastcall Run(void);
  1272.     void __fastcall ShowException(Sysutils::Exception* E);
  1273.     void __fastcall Terminate(void);
  1274.     void __fastcall UnhookMainWindow(TWindowHook Hook);
  1275.     HIDESBASE bool __fastcall UpdateAction(Classes::TBasicAction* Action);
  1276.     bool __fastcall UseRightToLeftAlignment(void);
  1277.     bool __fastcall UseRightToLeftReading(void);
  1278.     bool __fastcall UseRightToLeftScrollBar(void);
  1279.     __property bool Active = {read=FActive, nodefault};
  1280.     __property bool AllowTesting = {read=FAllowTesting, write=FAllowTesting, nodefault};
  1281.     __property AnsiString CurrentHelpFile = {read=GetCurrentHelpFile};
  1282.     __property HWND DialogHandle = {read=GetDialogHandle, write=SetDialogHandle, nodefault};
  1283.     __property AnsiString ExeName = {read=GetExeName};
  1284.     __property HWND Handle = {read=FHandle, write=SetHandle, nodefault};
  1285.     __property AnsiString HelpFile = {read=FHelpFile, write=FHelpFile};
  1286.     __property AnsiString Hint = {read=FHint, write=SetHint};
  1287.     __property Graphics::TColor HintColor = {read=FHintColor, write=SetHintColor, nodefault};
  1288.     __property int HintHidePause = {read=FHintHidePause, write=FHintHidePause, nodefault};
  1289.     __property int HintPause = {read=FHintPause, write=FHintPause, nodefault};
  1290.     __property bool HintShortCuts = {read=FHintShortCuts, write=FHintShortCuts, nodefault};
  1291.     __property int HintShortPause = {read=FHintShortPause, write=FHintShortPause, nodefault};
  1292.     __property Graphics::TIcon* Icon = {read=FIcon, write=SetIcon};
  1293.     __property TForm* MainForm = {read=FMainForm};
  1294.     __property Classes::TBiDiMode BiDiMode = {read=FBiDiMode, write=SetBiDiMode, default=0};
  1295.     __property bool ShowHint = {read=FShowHint, write=SetShowHint, nodefault};
  1296.     __property bool ShowMainForm = {read=FShowMainForm, write=FShowMainForm, nodefault};
  1297.     __property bool Terminated = {read=FTerminate, nodefault};
  1298.     __property AnsiString Title = {read=GetTitle, write=SetTitle};
  1299.     __property bool UpdateFormatSettings = {read=FUpdateFormatSettings, write=FUpdateFormatSettings, nodefault
  1300.         };
  1301.     __property bool UpdateMetricSettings = {read=FUpdateMetricSettings, write=FUpdateMetricSettings, nodefault
  1302.         };
  1303.     __property Actnlist::TActionEvent OnActionExecute = {read=FOnActionExecute, write=FOnActionExecute}
  1304.         ;
  1305.     __property Actnlist::TActionEvent OnActionUpdate = {read=FOnActionUpdate, write=FOnActionUpdate};
  1306.     __property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate};
  1307.     __property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate};
  1308.     __property TExceptionEvent OnException = {read=FOnException, write=FOnException};
  1309.     __property TIdleEvent OnIdle = {read=FOnIdle, write=FOnIdle};
  1310.     __property Classes::THelpEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  1311.     __property Classes::TNotifyEvent OnHint = {read=FOnHint, write=FOnHint};
  1312.     __property TMessageEvent OnMessage = {read=FOnMessage, write=FOnMessage};
  1313.     __property Classes::TNotifyEvent OnMinimize = {read=FOnMinimize, write=FOnMinimize};
  1314.     __property Classes::TNotifyEvent OnRestore = {read=FOnRestore, write=FOnRestore};
  1315.     __property TShowHintEvent OnShowHint = {read=FOnShowHint, write=FOnShowHint};
  1316.     __property TShortCutEvent OnShortCut = {read=FOnShortCut, write=FOnShortCut};
  1317. };
  1318.  
  1319. #pragma pack(pop)
  1320.  
  1321. //-- var, const, procedure ---------------------------------------------------
  1322. extern PACKAGE TApplication* Application;
  1323. extern PACKAGE TScreen* Screen;
  1324. extern PACKAGE void *Ctl3DBtnWndProc;
  1325. extern PACKAGE int __stdcall (*Ctl3DDlgFramePaint)(HWND Window, int Msg, int wParam, int lParam);
  1326. extern PACKAGE int __stdcall (*Ctl3DCtlColorEx)(HWND Window, int Msg, int wParam, int lParam);
  1327. extern PACKAGE TMetaClass*HintWindowClass;
  1328. extern PACKAGE Variant __fastcall (*GetDataModuleProviderNames)(Classes::TComponent* Component);
  1329. extern PACKAGE void __fastcall (*UpdateDataModuleRegistry)(bool Register, const AnsiString ClassID, 
  1330.     const AnsiString ProgID);
  1331. extern PACKAGE void * __fastcall DisableTaskWindows(HWND ActiveWindow);
  1332. extern PACKAGE void __fastcall EnableTaskWindows(void * WindowList);
  1333. extern PACKAGE bool __fastcall ForegroundTask(void);
  1334. extern PACKAGE void __fastcall InitCtl3D(void);
  1335. extern PACKAGE void __fastcall DoneCtl3D(void);
  1336. extern PACKAGE bool __fastcall Subclass3DWnd(HWND Wnd);
  1337. extern PACKAGE void __fastcall Subclass3DDlg(HWND Wnd, Word Flags);
  1338. extern PACKAGE void __fastcall SetAutoSubClass(bool Enable);
  1339. extern PACKAGE void * __fastcall MakeObjectInstance(Controls::TWndMethod Method);
  1340. extern PACKAGE void __fastcall FreeObjectInstance(void * ObjectInstance);
  1341. extern PACKAGE HWND __fastcall AllocateHWnd(Controls::TWndMethod Method);
  1342. extern PACKAGE void __fastcall DeallocateHWnd(HWND Wnd);
  1343. extern PACKAGE Classes::TShiftState __fastcall KeysToShiftState(Word Keys);
  1344. extern PACKAGE Classes::TShiftState __fastcall KeyDataToShiftState(int KeyData);
  1345. extern PACKAGE Classes::TShiftState __fastcall KeyboardStateToShiftState(const Byte * KeyboardState)
  1346.     ;
  1347. extern PACKAGE bool __fastcall IsAccel(Word VK, const AnsiString Str);
  1348. extern PACKAGE TCustomForm* __fastcall GetParentForm(Controls::TControl* Control);
  1349. extern PACKAGE TCustomForm* __fastcall ValidParentForm(Controls::TControl* Control);
  1350.  
  1351. }    /* namespace Forms */
  1352. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1353. using namespace Forms;
  1354. #endif
  1355. #pragma option pop    // -w-
  1356.  
  1357. #pragma delphiheader end.
  1358. //-- end unit ----------------------------------------------------------------
  1359. #endif    // Forms
  1360.