home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / FORMS.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  36.3 KB  |  834 lines
  1. //----------------------------------------------------------------------------
  2. // Forms.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: Forms.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef FormsHPP
  6. #define FormsHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef ControlsHPP
  9. #include <Controls.hpp>
  10. #endif
  11.  
  12. #ifndef MenusHPP
  13. #include <Menus.hpp>
  14. #endif
  15.  
  16. #ifndef GraphicsHPP
  17. #include <Graphics.hpp>
  18. #endif
  19.  
  20. #ifndef ClassesHPP
  21. #include <Classes.hpp>
  22. #endif
  23.  
  24. #ifndef SysUtilsHPP
  25. #include <SysUtils.hpp>
  26. #endif
  27.  
  28. #ifndef WindowsHPP
  29. #include <Windows.hpp>
  30. #endif
  31.  
  32. #ifndef MessagesHPP
  33. #include <Messages.hpp>
  34. #endif
  35.  
  36. #ifndef SystemHPP
  37. #include <System.hpp>
  38. #endif
  39.  
  40. namespace Forms
  41. {
  42. //-- type declarations -------------------------------------------------------
  43. enum TScrollBarKind { sbHorizontal, sbVertical };
  44.  
  45. typedef System::Smallint TScrollBarInc;
  46.  
  47. class __declspec(delphiclass) TControlScrollBar;
  48. class __declspec(delphiclass) TScrollingWinControl;
  49. class __declspec(pascalimplementation) TScrollingWinControl : public Controls::TWinControl
  50. {
  51.     typedef TScrollingWinControl ThisClass;
  52.     typedef Controls::TWinControl inherited;
  53.     
  54. private:
  55.     TControlScrollBar *FHorzScrollBar;
  56.     TControlScrollBar *FVertScrollBar;
  57.     System::Boolean FAutoScroll;
  58.     System::Boolean FSizing;
  59.     System::Boolean FUpdatingScrollBars;
  60.     System::Byte FReserved;
  61.     void __fastcall CalcAutoRange(void);
  62.     void __fastcall ScaleScrollBars(System::Integer M, System::Integer D);
  63.     void __fastcall SetAutoScroll(System::Boolean Value);
  64.     void __fastcall SetHorzScrollBar(TControlScrollBar *Value);
  65.     void __fastcall SetVertScrollBar(TControlScrollBar *Value);
  66.     void __fastcall UpdateScrollBars(void);
  67.     MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  68.     MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
  69.     MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
  70.     
  71. protected:
  72.     void __fastcall AutoScrollInView(Controls::TControl *AControl);
  73.     virtual void __fastcall ChangeScale(System::Integer M, System::Integer D);
  74.     virtual void __fastcall CreateWnd(void);
  75.     virtual void __fastcall AlignControls(Controls::TControl *AControl, Windows::TRect &ARect);
  76.     __property System::Boolean AutoScroll = {read=FAutoScroll, write=SetAutoScroll, default=1};
  77.     
  78. public:
  79.     __fastcall virtual TScrollingWinControl(Classes::TComponent *AOwner);
  80.     __fastcall virtual ~TScrollingWinControl(void);
  81.     void __fastcall ScrollInView(Controls::TControl *AControl);
  82.     
  83. __published:
  84.     __property TControlScrollBar * HorzScrollBar = {read=FHorzScrollBar, write=SetHorzScrollBar, nodefault
  85.         };
  86.     __property TControlScrollBar * VertScrollBar = {read=FVertScrollBar, write=SetVertScrollBar, nodefault
  87.         };
  88. };
  89.  
  90. class __declspec(pascalimplementation) TControlScrollBar : public Classes::TPersistent
  91. {
  92.     typedef TControlScrollBar ThisClass;
  93.     typedef Classes::TPersistent inherited;
  94.     
  95. private:
  96.     TScrollingWinControl *FControl;
  97.     TScrollBarInc FIncrement;
  98.     System::Integer FPosition;
  99.     System::Integer FRange;
  100.     System::Integer FCalcRange;
  101.     TScrollBarKind FKind;
  102.     System::Word FMargin;
  103.     System::Boolean FVisible;
  104.     System::Boolean FTracking;
  105.     System::Boolean FScaled;
  106.     __fastcall TControlScrollBar(TScrollingWinControl *AControl, TScrollBarKind AKind);
  107.     void __fastcall CalcAutoRange(void);
  108.     System::Integer __fastcall ControlSize(System::Boolean ControlSB, System::Boolean AssumeSB);
  109.     void __fastcall DoSetRange(System::Integer Value);
  110.     System::Integer __fastcall GetScrollPos(void);
  111.     System::Boolean __fastcall NeedsScrollBarVisible(void);
  112.     void __fastcall ScrollMessage(Messages::TWMScroll &Msg);
  113.     void __fastcall SetPosition(System::Integer Value);
  114.     void __fastcall SetRange(System::Integer Value);
  115.     void __fastcall SetVisible(System::Boolean Value);
  116.     System::Boolean __fastcall IsRangeStored(void);
  117.     void __fastcall Update(System::Boolean ControlSB, System::Boolean AssumeSB);
  118.     
  119. public:
  120.     virtual void __fastcall Assign(Classes::TPersistent *Source);
  121.     __property TScrollBarKind Kind = {read=FKind, nodefault};
  122.     __property System::Integer ScrollPos = {read=GetScrollPos, nodefault};
  123.     
  124. __published:
  125.     __property System::Word Margin = {read=FMargin, write=FMargin, default=0};
  126.     __property TScrollBarInc Increment = {read=FIncrement, write=FIncrement, default=8};
  127.     __property System::Integer Range = {read=FRange, write=SetRange, stored=IsRangeStored, default=0};
  128.     __property System::Integer Position = {read=FPosition, write=SetPosition, default=0};
  129.     __property System::Boolean Tracking = {read=FTracking, write=FTracking, default=0};
  130.     __property System::Boolean Visible = {read=FVisible, write=SetVisible, default=1};
  131. public:
  132.     /* !! TObject.Create */ __fastcall TControlScrollBar(void) : Classes::TPersistent() { }
  133.     /* !! TObject.Destroy */ __fastcall virtual ~TControlScrollBar(void) { }
  134.     
  135. };
  136.  
  137. enum TFormBorderStyle { bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin };
  138.  
  139. typedef TFormBorderStyle TBorderStyle;
  140.  
  141. class __declspec(delphiclass) TScrollBox;
  142. class __declspec(pascalimplementation) TScrollBox : public TScrollingWinControl
  143. {
  144.     typedef TScrollBox ThisClass;
  145.     typedef TScrollingWinControl inherited;
  146.     
  147. private:
  148.     TFormBorderStyle FBorderStyle;
  149.     System::Byte FReserved;
  150.     Classes::TNotifyEvent FOnResize;
  151.     void __fastcall SetBorderStyle(TBorderStyle Value);
  152.     MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  153.     MESSAGE void __fastcall WMNCHitTest(Messages::TMessage &Message);
  154.     MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  155.     
  156. protected:
  157.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  158.     virtual void __fastcall Resize(void);
  159.     
  160. public:
  161.     __fastcall virtual TScrollBox(Classes::TComponent *AOwner);
  162.     
  163. __published:
  164.     __property Align ;
  165.     __property AutoScroll ;
  166.     __property TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  167.     __property DragCursor ;
  168.     __property DragMode ;
  169.     __property Enabled ;
  170.     __property Color ;
  171.     __property Ctl3D ;
  172.     __property Font ;
  173.     __property ParentColor ;
  174.     __property ParentCtl3D ;
  175.     __property ParentFont ;
  176.     __property ParentShowHint ;
  177.     __property PopupMenu ;
  178.     __property ShowHint ;
  179.     __property TabOrder ;
  180.     __property TabStop ;
  181.     __property Visible ;
  182.     __property OnClick ;
  183.     __property OnDblClick ;
  184.     __property OnDragDrop ;
  185.     __property OnDragOver ;
  186.     __property OnEndDrag ;
  187.     __property OnEnter ;
  188.     __property OnExit ;
  189.     __property OnMouseDown ;
  190.     __property OnMouseMove ;
  191.     __property OnMouseUp ;
  192.     __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
  193. public:
  194.     /* !! TScrollingWinControl.Destroy */ __fastcall virtual ~TScrollBox(void) { }
  195.     
  196. };
  197.  
  198. class __declspec(delphiclass) TDesigner;
  199. class __declspec(delphiclass) TForm;
  200. enum TBorderIcon { biSystemMenu, biMinimize, biMaximize, biHelp };
  201.  
  202. typedef Set<TBorderIcon, biSystemMenu, biHelp>  TBorderIcons;
  203.  
  204. enum TWindowState { wsNormal, wsMinimized, wsMaximized };
  205.  
  206. enum TShowAction { saIgnore, saRestore, saMinimize, saMaximize };
  207.  
  208. enum TFormStyle { fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop };
  209.  
  210. enum TPosition { poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter };
  211.  
  212. enum TTileMode { tbHorizontal, tbVertical };
  213.  
  214. enum Forms_6 { fsCreating, fsVisible, fsShowing, fsModal, fsCreatedMDIChild };
  215.  
  216. typedef Set<Forms_6, fsCreating, fsCreatedMDIChild>  TFormState;
  217.  
  218. enum TPrintScale { poNone, poProportional, poPrintToFit };
  219.  
  220. typedef System::Integer TModalResult;
  221.  
  222. class __declspec(delphiclass) TOleFormObject;
  223. class __declspec(pascalimplementation) TOleFormObject : public System::TObject
  224. {
  225.     typedef TOleFormObject ThisClass;
  226.     typedef System::TObject inherited;
  227.     
  228. protected:
  229.     virtual void __fastcall OnDestroy(void) = 0;
  230.     virtual void __fastcall OnResize(void) = 0;
  231. public:
  232.     /* !! TObject.Create */ __fastcall TOleFormObject(void) : System::TObject() { }
  233.     /* !! TObject.Destroy */ __fastcall virtual ~TOleFormObject(void) { }
  234.     
  235. };
  236.  
  237. enum TCloseAction { caNone, caHide, caFree, caMinimize };
  238.  
  239. typedef void __fastcall (__closure *TCloseEvent)(System::TObject *Sender, TCloseAction &Action);
  240.  
  241. typedef void __fastcall (__closure *TCloseQueryEvent)(System::TObject *Sender, System::Boolean &CanClose
  242.     );
  243.  
  244. class __declspec(pascalimplementation) TForm : public TScrollingWinControl
  245. {
  246.     typedef TForm ThisClass;
  247.     typedef TScrollingWinControl inherited;
  248.     
  249. private:
  250.     Controls::TWinControl *FActiveControl;
  251.     Controls::TWinControl *FFocusedControl;
  252.     TBorderIcons FBorderIcons;
  253.     TFormBorderStyle FBorderStyle;
  254.     TWindowState FWindowState;
  255.     TShowAction FShowAction;
  256.     System::Boolean FKeyPreview;
  257.     System::Boolean FActive;
  258.     System::Boolean FIgnoreFontProperty;
  259.     TFormStyle FFormStyle;
  260.     TPosition FPosition;
  261.     TTileMode FTileMode;
  262.     TFormState FFormState;
  263.     System::Boolean FDropTarget;
  264.     TPrintScale FPrintScale;
  265.     Controls::TControlCanvas *FCanvas;
  266.     Graphics::TIcon *FIcon;
  267.     Menus::TMainMenu *FMenu;
  268.     TModalResult FModalResult;
  269.     TDesigner *FDesigner;
  270.     System::Integer FClientHandle;
  271.     Menus::TMenuItem *FWindowMenu;
  272.     System::Integer FPixelsPerInch;
  273.     Menus::TMenuItem *FObjectMenuItem;
  274.     TOleFormObject *FOleFormObject;
  275.     System::Integer FClientWidth;
  276.     System::Integer FClientHeight;
  277.     System::Integer FTextHeight;
  278.     void *FDefClientProc;
  279.     void *FClientInstance;
  280.     Controls::TWinControl *FActiveOleControl;
  281.     Classes::TNotifyEvent FOnActivate;
  282.     TCloseEvent FOnClose;
  283.     TCloseQueryEvent FOnCloseQuery;
  284.     Classes::TNotifyEvent FOnDeactivate;
  285.     Classes::TNotifyEvent FOnHide;
  286.     Classes::TNotifyEvent FOnPaint;
  287.     Classes::TNotifyEvent FOnResize;
  288.     Classes::TNotifyEvent FOnShow;
  289.     Classes::TNotifyEvent FOnCreate;
  290.     Classes::TNotifyEvent FOnDestroy;
  291.     virtual void __fastcall AlignControls(Controls::TControl *AControl, Windows::TRect &Rect);
  292.     void __fastcall RefreshMDIMenu(void);
  293.     void __fastcall ClientWndProc(Messages::TMessage &Message);
  294.     void __fastcall CloseModal(void);
  295.     TForm *__fastcall GetActiveMDIChild(void);
  296.     Graphics::TCanvas *__fastcall GetCanvas(void);
  297.     System::Integer __fastcall GetIconHandle(void);
  298.     System::Integer __fastcall GetMDIChildCount(void);
  299.     TForm *__fastcall GetMDIChildren(System::Integer I);
  300.     System::Integer __fastcall GetPixelsPerInch(void);
  301.     System::Boolean __fastcall GetScaled(void);
  302.     System::Integer __fastcall GetTextHeight(void);
  303.     void __fastcall IconChanged(System::TObject *Sender);
  304.     System::Boolean __fastcall IsAutoScrollStored(void);
  305.     System::Boolean __fastcall IsClientSizeStored(void);
  306.     System::Boolean __fastcall IsColorStored(void);
  307.     System::Boolean __fastcall IsForm(void);
  308.     System::Boolean __fastcall IsFormSizeStored(void);
  309.     System::Boolean __fastcall IsIconStored(void);
  310.     void __fastcall MergeMenu(System::Boolean MergeState);
  311.     void __fastcall ReadTextHeight(Classes::TReader *Reader);
  312.     void __fastcall SetActive(System::Boolean Value);
  313.     void __fastcall SetActiveControl(Controls::TWinControl *Control);
  314.     void __fastcall SetBorderIcons( TBorderIcons Value);
  315.     void __fastcall SetBorderStyle(TFormBorderStyle Value);
  316.     void __fastcall SetClientHeight(System::Integer Value);
  317.     void __fastcall SetClientWidth(System::Integer Value);
  318.     void __fastcall SetDesigner(TDesigner *ADesigner);
  319.     void __fastcall SetFormStyle(TFormStyle Value);
  320.     void __fastcall SetIcon(Graphics::TIcon *Value);
  321.     void __fastcall SetMenu(Menus::TMainMenu *Value);
  322.     void __fastcall SetPixelsPerInch(System::Integer Value);
  323.     void __fastcall SetPosition(TPosition Value);
  324.     void __fastcall SetScaled(System::Boolean Value);
  325.     void __fastcall SetVisible(System::Boolean Value);
  326.     void __fastcall SetWindowFocus(void);
  327.     void __fastcall SetWindowMenu(Menus::TMenuItem *Value);
  328.     void __fastcall SetObjectMenuItem(Menus::TMenuItem *Value);
  329.     void __fastcall SetWindowState(TWindowState Value);
  330.     void __fastcall WritePixelsPerInch(Classes::TWriter *Writer);
  331.     void __fastcall WriteTextHeight(Classes::TWriter *Writer);
  332.     Graphics::TColor __fastcall NormalColor(void);
  333.     MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  334.     MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  335.     MESSAGE void __fastcall WMIconEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  336.     MESSAGE void __fastcall WMQueryDragIcon(Messages::TWMNoParams &Message);
  337.     MESSAGE void __fastcall WMNCCreate(Messages::TWMNCCreate &Message);
  338.     MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
  339.     MESSAGE void __fastcall WMCommand(Messages::TWMCommand &Message);
  340.     MESSAGE void __fastcall WMInitMenuPopup(Messages::TWMInitMenuPopup &Message);
  341.     MESSAGE void __fastcall WMMenuSelect(Messages::TWMMenuSelect &Message);
  342.     MESSAGE void __fastcall WMActivate(Messages::TWMActivate &Message);
  343.     MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  344.     MESSAGE void __fastcall WMClose(Messages::TWMNoParams &Message);
  345.     MESSAGE void __fastcall WMQueryEndSession(Messages::TWMQueryEndSession &Message);
  346.     MESSAGE void __fastcall WMSysCommand(Messages::TWMSysCommand &Message);
  347.     MESSAGE void __fastcall WMShowWindow(Messages::TWMShowWindow &Message);
  348.     MESSAGE void __fastcall WMMDIActivate(Messages::TWMMDIActivate &Message);
  349.     MESSAGE void __fastcall WMNextDlgCtl(Messages::TWMNextDlgCtl &Message);
  350.     MESSAGE void __fastcall WMEnterMenuLoop(Messages::TMessage &Message);
  351.     MESSAGE void __fastcall WMHelp(Messages::TWMHelp &Message);
  352.     MESSAGE void __fastcall CMActivate(Messages::TWMNoParams &Message);
  353.     MESSAGE void __fastcall CMAppSysCommand(Messages::TMessage &Message);
  354.     MESSAGE void __fastcall CMDeactivate(Messages::TWMNoParams &Message);
  355.     MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  356.     MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  357.     MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  358.     MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  359.     MESSAGE void __fastcall CMMenuChanged(Messages::TMessage &Message);
  360.     MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
  361.     MESSAGE void __fastcall CMIconChanged(Messages::TMessage &Message);
  362.     MESSAGE void __fastcall CMRelease(Messages::TMessage &Message);
  363.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  364.     MESSAGE void __fastcall CMUIActivate(void *Message);
  365.     
  366. protected:
  367.     virtual void __fastcall Activate(void);
  368.     virtual void __fastcall ActiveChanged(void);
  369.     virtual void __fastcall ChangeScale(System::Integer M, System::Integer D);
  370.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  371.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  372.     virtual void __fastcall CreateWnd(void);
  373.     virtual void __fastcall Deactivate(void);
  374.     virtual void __fastcall DefaultHandler(void *Message);
  375.     virtual void __fastcall DefineProperties(Classes::TFiler *Filer);
  376.     virtual void __fastcall DestroyWindowHandle(void);
  377.     virtual void __fastcall DoHide(void);
  378.     virtual void __fastcall DoShow(void);
  379.     virtual Windows::TRect __fastcall GetClientRect(void);
  380.     virtual void __fastcall GetChildren(Classes::TGetChildProc Proc);
  381.     virtual void __fastcall Notification(Classes::TComponent *AComponent, Classes::TOperation Operation
  382.         );
  383.     virtual void __fastcall Paint(void);
  384.     virtual void __fastcall PaintWindow(System::Integer DC);
  385.     virtual System::Boolean __fastcall PaletteChanged(System::Boolean Foreground);
  386.     virtual void __fastcall SetChildOrder(Classes::TComponent *Child, System::Integer Order);
  387.     virtual void __fastcall ReadState(Classes::TReader *Reader);
  388.     virtual void __fastcall Resize(void);
  389.     virtual void __fastcall SetParent(Controls::TWinControl *AParent);
  390.     virtual void __fastcall ValidateRename(Classes::TComponent *AComponent, const System::AnsiString CurName
  391.         , const System::AnsiString NewName);
  392.     virtual void __fastcall VisibleChanging(void);
  393.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  394.     
  395. public:
  396.     __fastcall virtual TForm(Classes::TComponent *AOwner);
  397.     __fastcall TForm(Classes::TComponent *AOwner, System::Integer Dummy);
  398.     __fastcall virtual ~TForm(void);
  399.     void __fastcall ArrangeIcons(void);
  400.     void __fastcall Cascade(void);
  401.     void __fastcall Close(void);
  402.     System::Boolean __fastcall CloseQuery(void);
  403.     void __fastcall DefocusControl(Controls::TWinControl *Control, System::Boolean Removing);
  404.     void __fastcall FocusControl(Controls::TWinControl *Control);
  405.     Graphics::TBitmap *__fastcall GetFormImage(void);
  406.     void __fastcall Hide(void);
  407.     void __fastcall Next(void);
  408.     void __fastcall Previous(void);
  409.     void __fastcall Print(void);
  410.     void __fastcall Release(void);
  411.     void __fastcall SendCancelMode(Controls::TControl *Sender);
  412.     virtual void __fastcall SetFocus(void);
  413.     System::Boolean __fastcall SetFocusedControl(Controls::TWinControl *Control);
  414.     void __fastcall Show(void);
  415.     System::Integer __fastcall ShowModal(void);
  416.     void __fastcall Tile(void);
  417.     __property System::Boolean Active = {read=FActive, nodefault};
  418.     __property TForm * ActiveMDIChild = {read=GetActiveMDIChild, nodefault};
  419.     __property Controls::TWinControl * ActiveOleControl = {read=FActiveOleControl, write=FActiveOleControl
  420.         , nodefault};
  421.     __property Graphics::TCanvas * Canvas = {read=GetCanvas, nodefault};
  422.     __property System::Integer ClientHandle = {read=FClientHandle, nodefault};
  423.     __property TDesigner * Designer = {read=FDesigner, write=SetDesigner, nodefault};
  424.     __property System::Boolean DropTarget = {read=FDropTarget, write=FDropTarget, nodefault};
  425.     __property System::Boolean IgnoreFontProperty = {read=FIgnoreFontProperty, write=FIgnoreFontProperty
  426.         , nodefault};
  427.     __property TModalResult ModalResult = {read=FModalResult, write=FModalResult, nodefault};
  428.     __property System::Integer MDIChildCount = {read=GetMDIChildCount, nodefault};
  429.     __property TForm * MDIChildren[System::Integer I] = {read=GetMDIChildren};
  430.     __property TOleFormObject * OleFormObject = {read=FOleFormObject, write=FOleFormObject, nodefault};
  431.         
  432.     __property TTileMode TileMode = {read=FTileMode, write=FTileMode, default=0};
  433.     
  434. __published:
  435.     __property Controls::TWinControl * ActiveControl = {read=FActiveControl, write=SetActiveControl, stored=
  436.         IsForm, nodefault};
  437.     __property TBorderIcons BorderIcons = {read=FBorderIcons, write=SetBorderIcons, stored=IsForm, default=7
  438.         };
  439.     __property TFormBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, stored=IsForm, 
  440.         default=2};
  441.     __property AutoScroll  = {stored=IsAutoScrollStored, default=1};
  442.     __property Caption  = {stored=IsForm};
  443.     __property ClientHeight  = {write=SetClientHeight, stored=IsClientSizeStored};
  444.     __property ClientWidth  = {write=SetClientWidth, stored=IsClientSizeStored};
  445.     __property Ctl3D ;
  446.     __property Color  = {stored=IsColorStored, default=-2147483643};
  447.     __property Enabled ;
  448.     __property Font ;
  449.     __property TFormStyle FormStyle = {read=FFormStyle, write=SetFormStyle, stored=IsForm, default=0};
  450.     __property Height  = {stored=IsFormSizeStored};
  451.     __property HorzScrollBar  = {stored=IsForm};
  452.     __property Graphics::TIcon * Icon = {read=FIcon, write=SetIcon, stored=IsIconStored, nodefault};
  453.     __property ImeMode ;
  454.     __property System::Boolean KeyPreview = {read=FKeyPreview, write=FKeyPreview, stored=IsForm, default=0
  455.         };
  456.     __property Menus::TMainMenu * Menu = {read=FMenu, write=SetMenu, stored=IsForm, nodefault};
  457.     __property Menus::TMenuItem * ObjectMenuItem = {read=FObjectMenuItem, write=SetObjectMenuItem, stored=
  458.         IsForm, nodefault};
  459.     __property System::Integer PixelsPerInch = {read=GetPixelsPerInch, write=SetPixelsPerInch, stored=false
  460.         , nodefault};
  461.     __property PopupMenu  = {stored=IsForm};
  462.     __property TPosition Position = {read=FPosition, write=SetPosition, stored=IsForm, default=0};
  463.     __property TPrintScale PrintScale = {read=FPrintScale, write=FPrintScale, stored=IsForm, default=1}
  464.         ;
  465.     __property System::Boolean Scaled = {read=GetScaled, write=SetScaled, stored=IsForm, default=1};
  466.     __property ShowHint ;
  467.     __property VertScrollBar  = {stored=IsForm};
  468.     __property Visible  = {write=SetVisible, default=0};
  469.     __property Width  = {stored=IsFormSizeStored};
  470.     __property TWindowState WindowState = {read=FWindowState, write=SetWindowState, stored=IsForm, default=0
  471.         };
  472.     __property Menus::TMenuItem * WindowMenu = {read=FWindowMenu, write=SetWindowMenu, stored=IsForm, nodefault
  473.         };
  474.     __property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate, stored=IsForm};
  475.         
  476.     __property OnClick  = {stored=IsForm};
  477.     __property TCloseEvent OnClose = {read=FOnClose, write=FOnClose, stored=IsForm};
  478.     __property TCloseQueryEvent OnCloseQuery = {read=FOnCloseQuery, write=FOnCloseQuery, stored=IsForm}
  479.         ;
  480.     __property Classes::TNotifyEvent OnCreate = {read=FOnCreate, write=FOnCreate, stored=IsForm};
  481.     __property OnDblClick  = {stored=IsForm};
  482.     __property Classes::TNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy, stored=IsForm};
  483.     __property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate, stored=IsForm
  484.         };
  485.     __property OnDragDrop  = {stored=IsForm};
  486.     __property OnDragOver  = {stored=IsForm};
  487.     __property Classes::TNotifyEvent OnHide = {read=FOnHide, write=FOnHide, stored=IsForm};
  488.     __property OnKeyDown  = {stored=IsForm};
  489.     __property OnKeyPress  = {stored=IsForm};
  490.     __property OnKeyUp  = {stored=IsForm};
  491.     __property OnMouseDown  = {stored=IsForm};
  492.     __property OnMouseMove  = {stored=IsForm};
  493.     __property OnMouseUp  = {stored=IsForm};
  494.     __property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint, stored=IsForm};
  495.     __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize, stored=IsForm};
  496.     __property Classes::TNotifyEvent OnShow = {read=FOnShow, write=FOnShow, stored=IsForm};
  497. };
  498.  
  499. class __declspec(pascalimplementation) TDesigner : public System::TObject
  500. {
  501.     typedef TDesigner ThisClass;
  502.     typedef System::TObject inherited;
  503.     
  504. private:
  505.     TForm *FForm;
  506.     System::Boolean __fastcall GetIsControl(void);
  507.     void __fastcall SetIsControl(System::Boolean Value);
  508.     
  509. public:
  510.     virtual System::Boolean __fastcall IsDesignMsg(Controls::TControl *Sender, Messages::TMessage &Message
  511.         ) = 0;
  512.     virtual void __fastcall Modified(void) = 0;
  513.     virtual void __fastcall Notification(Classes::TComponent *AComponent, Classes::TOperation Operation
  514.         ) = 0;
  515.     virtual void __fastcall PaintGrid(void) = 0;
  516.     virtual void __fastcall ValidateRename(Classes::TComponent *AComponent, const System::AnsiString CurName
  517.         , const System::AnsiString NewName) = 0;
  518.     __property System::Boolean IsControl = {read=GetIsControl, write=SetIsControl, nodefault};
  519.     __property TForm * Form = {read=FForm, write=FForm, nodefault};
  520. public:
  521.     /* !! TObject.Create */ __fastcall TDesigner(void) : System::TObject() { }
  522.     /* !! TObject.Destroy */ __fastcall virtual ~TDesigner(void) { }
  523.     
  524. };
  525.  
  526. typedef System::TMetaClass *TFormClass;
  527.  
  528. class __declspec(delphiclass) TDataModule;
  529. class __declspec(pascalimplementation) TDataModule : public Classes::TComponent
  530. {
  531.     typedef TDataModule ThisClass;
  532.     typedef Classes::TComponent inherited;
  533.     
  534. private:
  535.     Windows::TPoint FDesignSize;
  536.     Windows::TPoint FDesignOffset;
  537.     Classes::TNotifyEvent FOnCreate;
  538.     Classes::TNotifyEvent FOnDestroy;
  539.     void __fastcall ReadHeight(Classes::TReader *Reader);
  540.     void __fastcall ReadHorizontalOffset(Classes::TReader *Reader);
  541.     void __fastcall ReadVerticalOffset(Classes::TReader *Reader);
  542.     void __fastcall ReadWidth(Classes::TReader *Reader);
  543.     void __fastcall WriteWidth(Classes::TWriter *Writer);
  544.     void __fastcall WriteHorizontalOffset(Classes::TWriter *Writer);
  545.     void __fastcall WriteVerticalOffset(Classes::TWriter *Writer);
  546.     void __fastcall WriteHeight(Classes::TWriter *Writer);
  547.     
  548. protected:
  549.     virtual void __fastcall DefineProperties(Classes::TFiler *Filer);
  550.     virtual void __fastcall GetChildren(Classes::TGetChildProc Proc);
  551.     
  552. public:
  553.     __fastcall virtual TDataModule(Classes::TComponent *AOwner);
  554.     __fastcall TDataModule(Classes::TComponent *AOwner, System::Integer Dummy);
  555.     __fastcall virtual ~TDataModule(void);
  556.     __property Windows::TPoint DesignOffset = {read=FDesignOffset, write=FDesignOffset};
  557.     __property Windows::TPoint DesignSize = {read=FDesignSize, write=FDesignSize};
  558.     
  559. __published:
  560.     __property Classes::TNotifyEvent OnCreate = {read=FOnCreate, write=FOnCreate};
  561.     __property Classes::TNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy};
  562. };
  563.  
  564. struct TCursorRec;
  565. typedef TCursorRec *PCursorRec;
  566.  
  567. struct TCursorRec
  568. {
  569.     TCursorRec *Next;
  570.     System::Integer Index;
  571.     System::Integer Handle;
  572. } ;
  573.  
  574. class __declspec(delphiclass) TScreen;
  575. class __declspec(pascalimplementation) TScreen : public Classes::TComponent
  576. {
  577.     typedef TScreen ThisClass;
  578.     typedef Classes::TComponent inherited;
  579.     
  580. private:
  581.     Classes::TStrings *FFonts;
  582.     System::Integer FPixelsPerInch;
  583.     Controls::TCursor FCursor;
  584.     Classes::TList *FForms;
  585.     Classes::TList *FDataModules;
  586.     TCursorRec *FCursorList;
  587.     System::Integer FDefaultCursor;
  588.     Controls::TWinControl *FActiveControl;
  589.     TForm *FActiveForm;
  590.     Controls::TWinControl *FLastActiveControl;
  591.     TForm *FLastActiveForm;
  592.     TForm *FFocusedForm;
  593.     Classes::TNotifyEvent FOnActiveControlChange;
  594.     Classes::TNotifyEvent FOnActiveFormChange;
  595.     void __fastcall AddDataModule(TDataModule *DataModule);
  596.     void __fastcall AddForm(TForm *AForm);
  597.     void __fastcall CreateCursors(void);
  598.     void __fastcall DeleteCursor(System::Integer Index);
  599.     void __fastcall DestroyCursors(void);
  600.     System::Integer __fastcall GetCursors(System::Integer Index);
  601.     TDataModule *__fastcall GetDataModule(System::Integer Index);
  602.     System::Integer __fastcall GetDataModuleCount(void);
  603.     System::Integer __fastcall GetHeight(void);
  604.     System::Integer __fastcall GetWidth(void);
  605.     TForm *__fastcall GetForm(System::Integer Index);
  606.     System::Integer __fastcall GetFormCount(void);
  607.     void __fastcall InsertCursor(System::Integer Index, System::Integer Handle);
  608.     void __fastcall RemoveDataModule(TDataModule *DataModule);
  609.     void __fastcall RemoveForm(TForm *AForm);
  610.     void __fastcall SetCursors(System::Integer Index, System::Integer Handle);
  611.     void __fastcall SetCursor(Controls::TCursor Value);
  612.     void __fastcall UpdateLastActive(void);
  613.     
  614. public:
  615.     __fastcall virtual TScreen(Classes::TComponent *AOwner);
  616.     __fastcall virtual ~TScreen(void);
  617.     __property Controls::TWinControl * ActiveControl = {read=FActiveControl, nodefault};
  618.     __property TForm * ActiveForm = {read=FActiveForm, nodefault};
  619.     __property Controls::TCursor Cursor = {read=FCursor, write=SetCursor, nodefault};
  620.     __property System::Integer Cursors[System::Integer Index] = {read=GetCursors, write=SetCursors};
  621.     __property TDataModule * DataModules[System::Integer Index] = {read=GetDataModule};
  622.     __property System::Integer DataModuleCount = {read=GetDataModuleCount, nodefault};
  623.     __property Classes::TStrings * Fonts = {read=FFonts, nodefault};
  624.     __property System::Integer Height = {read=GetHeight, nodefault};
  625.     __property System::Integer PixelsPerInch = {read=FPixelsPerInch, nodefault};
  626.     __property System::Integer Width = {read=GetWidth, nodefault};
  627.     __property TForm * Forms[System::Integer Index] = {read=GetForm};
  628.     __property System::Integer FormCount = {read=GetFormCount, nodefault};
  629.     __property Classes::TNotifyEvent OnActiveControlChange = {read=FOnActiveControlChange, write=FOnActiveControlChange
  630.         };
  631.     __property Classes::TNotifyEvent OnActiveFormChange = {read=FOnActiveFormChange, write=FOnActiveFormChange
  632.         };
  633. };
  634.  
  635. enum TTimerMode { tmShow, tmHide };
  636.  
  637. struct THintInfo
  638. {
  639.     Controls::TControl *HintControl;
  640.     Windows::TPoint HintPos;
  641.     System::Integer HintMaxWidth;
  642.     Graphics::TColor HintColor;
  643.     Windows::TRect CursorRect;
  644.     Windows::TPoint CursorPos;
  645. } ;
  646.  
  647. typedef void __fastcall (__closure *TMessageEvent)(Windows::TMsg &Msg, System::Boolean &Handled);
  648.  
  649. typedef void __fastcall (__closure *TExceptionEvent)(System::TObject *Sender, Sysutils::Exception *E
  650.     );
  651.  
  652. typedef void __fastcall (__closure *TIdleEvent)(System::TObject *Sender, System::Boolean &Done);
  653.  
  654. typedef void __fastcall (__closure *TShowHintEvent)( System::AnsiString &HintStr, System::Boolean &CanShow
  655.     , THintInfo &HintInfo);
  656.  
  657. typedef System::Boolean __fastcall (__closure *TWindowHook)(Messages::TMessage &Message);
  658.  
  659. class __declspec(delphiclass) TApplication;
  660. class __declspec(pascalimplementation) TApplication : public Classes::TComponent
  661. {
  662.     typedef TApplication ThisClass;
  663.     typedef Classes::TComponent inherited;
  664.     
  665. private:
  666.     System::Integer FHandle;
  667.     void *FObjectInstance;
  668.     TForm *FMainForm;
  669.     Controls::TControl *FMouseControl;
  670.     System::AnsiString FHelpFile;
  671.     System::AnsiString FHint;
  672.     System::Boolean FHintActive;
  673.     System::Boolean FUpdateFormatSettings;
  674.     System::Boolean FShowMainForm;
  675.     Graphics::TColor FHintColor;
  676.     Controls::TControl *FHintControl;
  677.     Windows::TRect FHintCursorRect;
  678.     System::Integer FHintPause;
  679.     System::Integer FHintShortPause;
  680.     System::Integer FHintHidePause;
  681.     Controls::THintWindow *FHintWindow;
  682.     System::Boolean FShowHint;
  683.     System::Boolean FTimerActive;
  684.     TTimerMode FTimerMode;
  685.     System::Word FTimerHandle;
  686.     System::AnsiString FTitle;
  687.     Classes::TList *FTopMostList;
  688.     System::Integer FTopMostLevel;
  689.     Graphics::TIcon *FIcon;
  690.     System::Boolean FTerminate;
  691.     System::Boolean FActive;
  692.     System::Boolean FIgnoreFontProperty;
  693.     System::Boolean FHandleCreated;
  694.     System::Boolean FRunning;
  695.     Classes::TList *FWindowHooks;
  696.     void *FWindowList;
  697.     System::Integer FDialogHandle;
  698.     TExceptionEvent FOnException;
  699.     TMessageEvent FOnMessage;
  700.     Classes::THelpEvent FOnHelp;
  701.     Classes::TNotifyEvent FOnHint;
  702.     TIdleEvent FOnIdle;
  703.     Classes::TNotifyEvent FOnDeactivate;
  704.     Classes::TNotifyEvent FOnActivate;
  705.     TShowHintEvent FOnShowHint;
  706.     Classes::TNotifyEvent FOnMinimize;
  707.     Classes::TNotifyEvent FOnRestore;
  708.     void __fastcall ActivateHint(const Windows::TPoint &CursorPos);
  709.     System::Boolean __fastcall CheckIniChange(Messages::TMessage &Message);
  710.     System::Integer __fastcall GetDialogHandle(void);
  711.     System::AnsiString __fastcall GetExeName(void);
  712.     System::Integer __fastcall GetIconHandle(void);
  713.     System::AnsiString __fastcall GetTitle(void);
  714.     void __fastcall HintTimerExpired(void);
  715.     void __fastcall IconChanged(System::TObject *Sender);
  716.     void __fastcall Idle(void);
  717.     System::Boolean __fastcall InvokeHelp(System::Word Command, System::Longint Data);
  718.     System::Boolean __fastcall IsDlgMsg(Windows::TMsg &Msg);
  719.     System::Boolean __fastcall IsHintMsg(Windows::TMsg &Msg);
  720.     System::Boolean __fastcall IsKeyMsg(Windows::TMsg &Msg);
  721.     System::Boolean __fastcall IsMDIMsg(Windows::TMsg &Msg);
  722.     void __fastcall NotifyForms(System::Word Msg);
  723.     System::Boolean __fastcall ProcessMessage(void);
  724.     void __fastcall SetDialogHandle(System::Integer Value);
  725.     void __fastcall SetHandle(System::Integer Value);
  726.     void __fastcall SetHint(const System::AnsiString Value);
  727.     void __fastcall SetHintColor(Graphics::TColor Value);
  728.     void __fastcall SetIcon(Graphics::TIcon *Value);
  729.     void __fastcall SetShowHint(System::Boolean Value);
  730.     void __fastcall SetTitle(const System::AnsiString Value);
  731.     void __fastcall StartHintTimer(System::Integer Value, TTimerMode TimerMode);
  732.     void __fastcall StopHintTimer(void);
  733.     void __fastcall WndProc(Messages::TMessage &Message);
  734.     
  735. public:
  736.     __fastcall virtual TApplication(Classes::TComponent *AOwner);
  737.     __fastcall virtual ~TApplication(void);
  738.     void __fastcall BringToFront(void);
  739.     void __fastcall ControlDestroyed(Controls::TControl *Control);
  740.     void __fastcall CancelHint(void);
  741.     void __fastcall CreateForm(System::TMetaClass * InstanceClass, void *Reference);
  742.     void __fastcall CreateHandle(void);
  743.     void __fastcall HandleException(System::TObject *Sender);
  744.     void __fastcall HandleMessage(void);
  745.     System::Boolean __fastcall HelpCommand(System::Integer Command, System::Longint Data);
  746.     System::Boolean __fastcall HelpContext(Classes::THelpContext Context);
  747.     System::Boolean __fastcall HelpJump(const System::AnsiString JumpID);
  748.     void __fastcall HideHint(void);
  749.     void __fastcall HintMouseMessage(Controls::TControl *Control, Messages::TMessage &Message);
  750.     void __fastcall HookMainWindow(TWindowHook Hook);
  751.     void __fastcall Initialize(void);
  752.     System::Integer __fastcall MessageBox(System::PChar Text, System::PChar Caption, System::Word Flags
  753.         );
  754.     void __fastcall Minimize(void);
  755.     void __fastcall NormalizeTopMosts(void);
  756.     void __fastcall ProcessMessages(void);
  757.     void __fastcall Restore(void);
  758.     void __fastcall RestoreTopMosts(void);
  759.     void __fastcall Run(void);
  760.     void __fastcall ShowException(Sysutils::Exception *E);
  761.     void __fastcall Terminate(void);
  762.     void __fastcall UnhookMainWindow(TWindowHook Hook);
  763.     __property System::Boolean Active = {read=FActive, nodefault};
  764.     __property System::Integer DialogHandle = {read=GetDialogHandle, write=SetDialogHandle, nodefault};
  765.         
  766.     __property System::AnsiString ExeName = {read=GetExeName, nodefault};
  767.     __property System::Integer Handle = {read=FHandle, write=SetHandle, nodefault};
  768.     __property System::AnsiString HelpFile = {read=FHelpFile, write=FHelpFile, nodefault};
  769.     __property System::AnsiString Hint = {read=FHint, write=SetHint, nodefault};
  770.     __property Graphics::TColor HintColor = {read=FHintColor, write=SetHintColor, nodefault};
  771.     __property System::Integer HintPause = {read=FHintPause, write=FHintPause, nodefault};
  772.     __property System::Integer HintShortPause = {read=FHintShortPause, write=FHintShortPause, nodefault
  773.         };
  774.     __property System::Integer HintHidePause = {read=FHintHidePause, write=FHintHidePause, nodefault};
  775.     __property Graphics::TIcon * Icon = {read=FIcon, write=SetIcon, nodefault};
  776.     __property System::Boolean IgnoreFontProperty = {read=FIgnoreFontProperty, write=FIgnoreFontProperty
  777.         , nodefault};
  778.     __property TForm * MainForm = {read=FMainForm, nodefault};
  779.     __property System::Boolean ShowHint = {read=FShowHint, write=SetShowHint, nodefault};
  780.     __property System::Boolean ShowMainForm = {read=FShowMainForm, write=FShowMainForm, nodefault};
  781.     __property System::Boolean Terminated = {read=FTerminate, nodefault};
  782.     __property System::AnsiString Title = {read=GetTitle, write=SetTitle, nodefault};
  783.     __property System::Boolean UpdateFormatSettings = {read=FUpdateFormatSettings, write=FUpdateFormatSettings
  784.         , nodefault};
  785.     __property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate};
  786.     __property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate};
  787.     __property TExceptionEvent OnException = {read=FOnException, write=FOnException};
  788.     __property TIdleEvent OnIdle = {read=FOnIdle, write=FOnIdle};
  789.     __property Classes::THelpEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  790.     __property Classes::TNotifyEvent OnHint = {read=FOnHint, write=FOnHint};
  791.     __property TMessageEvent OnMessage = {read=FOnMessage, write=FOnMessage};
  792.     __property Classes::TNotifyEvent OnMinimize = {read=FOnMinimize, write=FOnMinimize};
  793.     __property Classes::TNotifyEvent OnRestore = {read=FOnRestore, write=FOnRestore};
  794.     __property TShowHintEvent OnShowHint = {read=FOnShowHint, write=FOnShowHint};
  795. };
  796.  
  797. typedef void __fastcall (__closure *TWndMethod)(Messages::TMessage &Message);
  798.  
  799. //-- var, const, procedure ---------------------------------------------------
  800. extern TApplication *Application;
  801. extern TScreen *Screen;
  802. extern void *Ctl3DBtnWndProc;
  803. extern System::Longint __stdcall (*Ctl3DDlgFramePaint)(System::Integer Window, System::Longint Msg, 
  804.     System::Longint wParam, System::Longint lParam);
  805. extern System::Longint __stdcall (*Ctl3DCtlColorEx)(System::Integer Window, System::Longint Msg, System::Longint 
  806.     wParam, System::Longint lParam);
  807. extern System::TMetaClass *HintWindowClass;
  808. extern System::Pointer __fastcall DisableTaskWindows(System::Integer ActiveWindow);
  809. extern void __fastcall EnableTaskWindows(System::Pointer WindowList);
  810. extern void __fastcall InitCtl3D(void);
  811. extern void __fastcall DoneCtl3D(void);
  812. extern System::Boolean __fastcall Subclass3DWnd(System::Integer Wnd);
  813. extern void __fastcall Subclass3DDlg(System::Integer Wnd, System::Word Flags);
  814. extern void __fastcall SetAutoSubClass(System::Boolean Enable);
  815. extern System::Pointer __fastcall MakeObjectInstance(TWndMethod Method);
  816. extern void __fastcall FreeObjectInstance(System::Pointer ObjectInstance);
  817. extern System::Integer __fastcall AllocateHWnd(TWndMethod Method);
  818. extern void __fastcall DeallocateHWnd(System::Integer Wnd);
  819. extern Classes::TShiftState __fastcall KeysToShiftState(System::Word Keys);
  820. extern Classes::TShiftState __fastcall KeyDataToShiftState(System::Longint KeyData);
  821. extern System::Boolean __fastcall IsAccel(System::Word VK, const System::AnsiString Str);
  822. extern TForm *__fastcall GetParentForm(Controls::TControl *Control);
  823. extern TForm *__fastcall ValidParentForm(Controls::TControl *Control);
  824. //-- template instantiations -------------------------------------------------
  825. template class TFormState ;
  826. template class TBorderIcons ;
  827.  
  828. }    /* namespace Forms */
  829. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  830. using namespace Forms;
  831. #endif
  832. //-- end unit ----------------------------------------------------------------
  833. #endif    // Forms
  834.