home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / extctrls.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  33KB  |  996 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) 'ExtCtrls.pas' rev: 5.00
  6.  
  7. #ifndef ExtCtrlsHPP
  8. #define ExtCtrlsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <StdCtrls.hpp>    // Pascal unit
  14. #include <Graphics.hpp>    // Pascal unit
  15. #include <Menus.hpp>    // Pascal unit
  16. #include <Forms.hpp>    // Pascal unit
  17. #include <Controls.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 Extctrls
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. #pragma option push -b-
  31. enum TShapeType { stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle };
  32. #pragma option pop
  33.  
  34. class DELPHICLASS TShape;
  35. class PASCALIMPLEMENTATION TShape : public Controls::TGraphicControl 
  36. {
  37.     typedef Controls::TGraphicControl inherited;
  38.     
  39. private:
  40.     Graphics::TPen* FPen;
  41.     Graphics::TBrush* FBrush;
  42.     TShapeType FShape;
  43.     void __fastcall SetBrush(Graphics::TBrush* Value);
  44.     void __fastcall SetPen(Graphics::TPen* Value);
  45.     void __fastcall SetShape(TShapeType Value);
  46.     
  47. protected:
  48.     virtual void __fastcall Paint(void);
  49.     
  50. public:
  51.     __fastcall virtual TShape(Classes::TComponent* AOwner);
  52.     __fastcall virtual ~TShape(void);
  53.     
  54. __published:
  55.     void __fastcall StyleChanged(System::TObject* Sender);
  56.     __property Align ;
  57.     __property Anchors ;
  58.     __property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush};
  59.     __property DragCursor ;
  60.     __property DragKind ;
  61.     __property DragMode ;
  62.     __property Enabled ;
  63.     __property Constraints ;
  64.     __property ParentShowHint ;
  65.     __property Graphics::TPen* Pen = {read=FPen, write=SetPen};
  66.     __property TShapeType Shape = {read=FShape, write=SetShape, default=0};
  67.     __property ShowHint ;
  68.     __property Visible ;
  69.     __property OnContextPopup ;
  70.     __property OnDragDrop ;
  71.     __property OnDragOver ;
  72.     __property OnEndDock ;
  73.     __property OnEndDrag ;
  74.     __property OnMouseDown ;
  75.     __property OnMouseMove ;
  76.     __property OnMouseUp ;
  77.     __property OnStartDock ;
  78.     __property OnStartDrag ;
  79. };
  80.  
  81.  
  82. class DELPHICLASS TPaintBox;
  83. class PASCALIMPLEMENTATION TPaintBox : public Controls::TGraphicControl 
  84. {
  85.     typedef Controls::TGraphicControl inherited;
  86.     
  87. private:
  88.     Classes::TNotifyEvent FOnPaint;
  89.     
  90. protected:
  91.     virtual void __fastcall Paint(void);
  92.     
  93. public:
  94.     __fastcall virtual TPaintBox(Classes::TComponent* AOwner);
  95.     __property Canvas ;
  96.     
  97. __published:
  98.     __property Align ;
  99.     __property Anchors ;
  100.     __property Color ;
  101.     __property Constraints ;
  102.     __property DragCursor ;
  103.     __property DragKind ;
  104.     __property DragMode ;
  105.     __property Enabled ;
  106.     __property Font ;
  107.     __property ParentColor ;
  108.     __property ParentFont ;
  109.     __property ParentShowHint ;
  110.     __property PopupMenu ;
  111.     __property ShowHint ;
  112.     __property Visible ;
  113.     __property OnClick ;
  114.     __property OnContextPopup ;
  115.     __property OnDblClick ;
  116.     __property OnDragDrop ;
  117.     __property OnDragOver ;
  118.     __property OnEndDock ;
  119.     __property OnEndDrag ;
  120.     __property OnMouseDown ;
  121.     __property OnMouseMove ;
  122.     __property OnMouseUp ;
  123.     __property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint};
  124.     __property OnStartDock ;
  125.     __property OnStartDrag ;
  126. public:
  127.     #pragma option push -w-inl
  128.     /* TGraphicControl.Destroy */ inline __fastcall virtual ~TPaintBox(void) { }
  129.     #pragma option pop
  130.     
  131. };
  132.  
  133.  
  134. class DELPHICLASS TImage;
  135. class PASCALIMPLEMENTATION TImage : public Controls::TGraphicControl 
  136. {
  137.     typedef Controls::TGraphicControl inherited;
  138.     
  139. private:
  140.     Graphics::TPicture* FPicture;
  141.     Graphics::TProgressEvent FOnProgress;
  142.     bool FStretch;
  143.     bool FCenter;
  144.     bool FIncrementalDisplay;
  145.     bool FTransparent;
  146.     bool FDrawing;
  147.     Graphics::TCanvas* __fastcall GetCanvas(void);
  148.     void __fastcall PictureChanged(System::TObject* Sender);
  149.     void __fastcall SetCenter(bool Value);
  150.     void __fastcall SetPicture(Graphics::TPicture* Value);
  151.     void __fastcall SetStretch(bool Value);
  152.     void __fastcall SetTransparent(bool Value);
  153.     
  154. protected:
  155.     virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
  156.     Windows::TRect __fastcall DestRect();
  157.     bool __fastcall DoPaletteChange(void);
  158.     DYNAMIC HPALETTE __fastcall GetPalette(void);
  159.     virtual void __fastcall Paint(void);
  160.     DYNAMIC void __fastcall Progress(System::TObject* Sender, Graphics::TProgressStage Stage, Byte PercentDone
  161.         , bool RedrawNow, const Windows::TRect &R, const AnsiString Msg);
  162.     
  163. public:
  164.     __fastcall virtual TImage(Classes::TComponent* AOwner);
  165.     __fastcall virtual ~TImage(void);
  166.     __property Graphics::TCanvas* Canvas = {read=GetCanvas};
  167.     
  168. __published:
  169.     __property Align ;
  170.     __property Anchors ;
  171.     __property AutoSize ;
  172.     __property bool Center = {read=FCenter, write=SetCenter, default=0};
  173.     __property Constraints ;
  174.     __property DragCursor ;
  175.     __property DragKind ;
  176.     __property DragMode ;
  177.     __property Enabled ;
  178.     __property bool IncrementalDisplay = {read=FIncrementalDisplay, write=FIncrementalDisplay, default=0
  179.         };
  180.     __property ParentShowHint ;
  181.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
  182.     __property PopupMenu ;
  183.     __property ShowHint ;
  184.     __property bool Stretch = {read=FStretch, write=SetStretch, default=0};
  185.     __property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
  186.     __property Visible ;
  187.     __property OnClick ;
  188.     __property OnContextPopup ;
  189.     __property OnDblClick ;
  190.     __property OnDragDrop ;
  191.     __property OnDragOver ;
  192.     __property OnEndDock ;
  193.     __property OnEndDrag ;
  194.     __property OnMouseDown ;
  195.     __property OnMouseMove ;
  196.     __property OnMouseUp ;
  197.     __property Graphics::TProgressEvent OnProgress = {read=FOnProgress, write=FOnProgress};
  198.     __property OnStartDock ;
  199.     __property OnStartDrag ;
  200. };
  201.  
  202.  
  203. #pragma option push -b-
  204. enum TBevelStyle { bsLowered, bsRaised };
  205. #pragma option pop
  206.  
  207. #pragma option push -b-
  208. enum TBevelShape { bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine, bsSpacer };
  209. #pragma option pop
  210.  
  211. class DELPHICLASS TBevel;
  212. class PASCALIMPLEMENTATION TBevel : public Controls::TGraphicControl 
  213. {
  214.     typedef Controls::TGraphicControl inherited;
  215.     
  216. private:
  217.     TBevelStyle FStyle;
  218.     TBevelShape FShape;
  219.     void __fastcall SetStyle(TBevelStyle Value);
  220.     void __fastcall SetShape(TBevelShape Value);
  221.     
  222. protected:
  223.     virtual void __fastcall Paint(void);
  224.     
  225. public:
  226.     __fastcall virtual TBevel(Classes::TComponent* AOwner);
  227.     
  228. __published:
  229.     __property Align ;
  230.     __property Anchors ;
  231.     __property Constraints ;
  232.     __property ParentShowHint ;
  233.     __property TBevelShape Shape = {read=FShape, write=SetShape, default=0};
  234.     __property ShowHint ;
  235.     __property TBevelStyle Style = {read=FStyle, write=SetStyle, default=0};
  236.     __property Visible ;
  237. public:
  238.     #pragma option push -w-inl
  239.     /* TGraphicControl.Destroy */ inline __fastcall virtual ~TBevel(void) { }
  240.     #pragma option pop
  241.     
  242. };
  243.  
  244.  
  245. class DELPHICLASS TTimer;
  246. class PASCALIMPLEMENTATION TTimer : public Classes::TComponent 
  247. {
  248.     typedef Classes::TComponent inherited;
  249.     
  250. private:
  251.     unsigned FInterval;
  252.     HWND FWindowHandle;
  253.     Classes::TNotifyEvent FOnTimer;
  254.     bool FEnabled;
  255.     void __fastcall UpdateTimer(void);
  256.     void __fastcall SetEnabled(bool Value);
  257.     void __fastcall SetInterval(unsigned Value);
  258.     void __fastcall SetOnTimer(Classes::TNotifyEvent Value);
  259.     void __fastcall WndProc(Messages::TMessage &Msg);
  260.     
  261. protected:
  262.     DYNAMIC void __fastcall Timer(void);
  263.     
  264. public:
  265.     __fastcall virtual TTimer(Classes::TComponent* AOwner);
  266.     __fastcall virtual ~TTimer(void);
  267.     
  268. __published:
  269.     __property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
  270.     __property unsigned Interval = {read=FInterval, write=SetInterval, default=1000};
  271.     __property Classes::TNotifyEvent OnTimer = {read=FOnTimer, write=SetOnTimer};
  272. };
  273.  
  274.  
  275. typedef Controls::TBevelCut TPanelBevel;
  276.  
  277. class DELPHICLASS TCustomPanel;
  278. class PASCALIMPLEMENTATION TCustomPanel : public Controls::TCustomControl 
  279. {
  280.     typedef Controls::TCustomControl inherited;
  281.     
  282. private:
  283.     bool FAutoSizeDocking;
  284.     Controls::TBevelCut FBevelInner;
  285.     Controls::TBevelCut FBevelOuter;
  286.     Controls::TBevelWidth FBevelWidth;
  287.     Controls::TBorderWidth FBorderWidth;
  288.     Forms::TFormBorderStyle FBorderStyle;
  289.     bool FFullRepaint;
  290.     bool FLocked;
  291.     Classes::TAlignment FAlignment;
  292.     HIDESBASE MESSAGE void __fastcall CMBorderChanged(Messages::TMessage &Message);
  293.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  294.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  295.     MESSAGE void __fastcall CMIsToolControl(Messages::TMessage &Message);
  296.     HIDESBASE MESSAGE void __fastcall WMWindowPosChanged(Messages::TWMWindowPosMsg &Message);
  297.     void __fastcall SetAlignment(Classes::TAlignment Value);
  298.     void __fastcall SetBevelInner(Controls::TBevelCut Value);
  299.     void __fastcall SetBevelOuter(Controls::TBevelCut Value);
  300.     HIDESBASE void __fastcall SetBevelWidth(Controls::TBevelWidth Value);
  301.     HIDESBASE void __fastcall SetBorderWidth(Controls::TBorderWidth Value);
  302.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  303.     HIDESBASE MESSAGE void __fastcall CMDockClient(Controls::TCMDockClient &Message);
  304.     
  305. protected:
  306.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  307.     virtual void __fastcall AdjustClientRect(Windows::TRect &Rect);
  308.     virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
  309.     virtual void __fastcall Paint(void);
  310.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=2};
  311.     __property Controls::TBevelCut BevelInner = {read=FBevelInner, write=SetBevelInner, default=0};
  312.     __property Controls::TBevelCut BevelOuter = {read=FBevelOuter, write=SetBevelOuter, default=2};
  313.     __property Controls::TBevelWidth BevelWidth = {read=FBevelWidth, write=SetBevelWidth, default=1};
  314.     __property Controls::TBorderWidth BorderWidth = {read=FBorderWidth, write=SetBorderWidth, default=0
  315.         };
  316.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=0};
  317.     __property Color ;
  318.     __property bool FullRepaint = {read=FFullRepaint, write=FFullRepaint, default=1};
  319.     __property bool Locked = {read=FLocked, write=FLocked, default=0};
  320.     __property ParentColor ;
  321.     
  322. public:
  323.     __fastcall virtual TCustomPanel(Classes::TComponent* AOwner);
  324.     DYNAMIC Classes::TAlignment __fastcall GetControlsAlignment(void);
  325. public:
  326.     #pragma option push -w-inl
  327.     /* TCustomControl.Destroy */ inline __fastcall virtual ~TCustomPanel(void) { }
  328.     #pragma option pop
  329.     
  330. public:
  331.     #pragma option push -w-inl
  332.     /* TWinControl.CreateParented */ inline __fastcall TCustomPanel(HWND ParentWindow) : Controls::TCustomControl(
  333.         ParentWindow) { }
  334.     #pragma option pop
  335.     
  336. };
  337.  
  338.  
  339. class DELPHICLASS TPanel;
  340. class PASCALIMPLEMENTATION TPanel : public TCustomPanel 
  341. {
  342.     typedef TCustomPanel inherited;
  343.     
  344. public:
  345.     __property DockManager ;
  346.     
  347. __published:
  348.     __property Align ;
  349.     __property Alignment ;
  350.     __property Anchors ;
  351.     __property AutoSize ;
  352.     __property BevelInner ;
  353.     __property BevelOuter ;
  354.     __property BevelWidth ;
  355.     __property BiDiMode ;
  356.     __property BorderWidth ;
  357.     __property BorderStyle ;
  358.     __property Caption ;
  359.     __property Color ;
  360.     __property Constraints ;
  361.     __property Ctl3D ;
  362.     __property UseDockManager ;
  363.     __property DockSite ;
  364.     __property DragCursor ;
  365.     __property DragKind ;
  366.     __property DragMode ;
  367.     __property Enabled ;
  368.     __property FullRepaint ;
  369.     __property Font ;
  370.     __property Locked ;
  371.     __property ParentBiDiMode ;
  372.     __property ParentColor ;
  373.     __property ParentCtl3D ;
  374.     __property ParentFont ;
  375.     __property ParentShowHint ;
  376.     __property PopupMenu ;
  377.     __property ShowHint ;
  378.     __property TabOrder ;
  379.     __property TabStop ;
  380.     __property Visible ;
  381.     __property OnCanResize ;
  382.     __property OnClick ;
  383.     __property OnConstrainedResize ;
  384.     __property OnContextPopup ;
  385.     __property OnDockDrop ;
  386.     __property OnDockOver ;
  387.     __property OnDblClick ;
  388.     __property OnDragDrop ;
  389.     __property OnDragOver ;
  390.     __property OnEndDock ;
  391.     __property OnEndDrag ;
  392.     __property OnEnter ;
  393.     __property OnExit ;
  394.     __property OnGetSiteInfo ;
  395.     __property OnMouseDown ;
  396.     __property OnMouseMove ;
  397.     __property OnMouseUp ;
  398.     __property OnResize ;
  399.     __property OnStartDock ;
  400.     __property OnStartDrag ;
  401.     __property OnUnDock ;
  402. public:
  403.     #pragma option push -w-inl
  404.     /* TCustomPanel.Create */ inline __fastcall virtual TPanel(Classes::TComponent* AOwner) : TCustomPanel(
  405.         AOwner) { }
  406.     #pragma option pop
  407.     
  408. public:
  409.     #pragma option push -w-inl
  410.     /* TCustomControl.Destroy */ inline __fastcall virtual ~TPanel(void) { }
  411.     #pragma option pop
  412.     
  413. public:
  414.     #pragma option push -w-inl
  415.     /* TWinControl.CreateParented */ inline __fastcall TPanel(HWND ParentWindow) : TCustomPanel(ParentWindow
  416.         ) { }
  417.     #pragma option pop
  418.     
  419. };
  420.  
  421.  
  422. class DELPHICLASS TPage;
  423. class PASCALIMPLEMENTATION TPage : public Controls::TCustomControl 
  424. {
  425.     typedef Controls::TCustomControl inherited;
  426.     
  427. private:
  428.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
  429.     
  430. protected:
  431.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  432.     virtual void __fastcall Paint(void);
  433.     
  434. public:
  435.     __fastcall virtual TPage(Classes::TComponent* AOwner);
  436.     
  437. __published:
  438.     __property Caption ;
  439.     __property Height  = {stored=false};
  440.     __property TabOrder  = {stored=false, default=-1};
  441.     __property Visible  = {stored=false, default=1};
  442.     __property Width  = {stored=false};
  443. public:
  444.     #pragma option push -w-inl
  445.     /* TCustomControl.Destroy */ inline __fastcall virtual ~TPage(void) { }
  446.     #pragma option pop
  447.     
  448. public:
  449.     #pragma option push -w-inl
  450.     /* TWinControl.CreateParented */ inline __fastcall TPage(HWND ParentWindow) : Controls::TCustomControl(
  451.         ParentWindow) { }
  452.     #pragma option pop
  453.     
  454. };
  455.  
  456.  
  457. class DELPHICLASS TNotebook;
  458. class PASCALIMPLEMENTATION TNotebook : public Controls::TCustomControl 
  459. {
  460.     typedef Controls::TCustomControl inherited;
  461.     
  462. private:
  463.     Classes::TList* FPageList;
  464.     Classes::TStrings* FAccess;
  465.     int FPageIndex;
  466.     Classes::TNotifyEvent FOnPageChanged;
  467.     void __fastcall SetPages(Classes::TStrings* Value);
  468.     void __fastcall SetActivePage(const AnsiString Value);
  469.     AnsiString __fastcall GetActivePage();
  470.     void __fastcall SetPageIndex(int Value);
  471.     
  472. protected:
  473.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  474.     DYNAMIC Classes::TComponent* __fastcall GetChildOwner(void);
  475.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  476.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  477.     virtual void __fastcall ShowControl(Controls::TControl* AControl);
  478.     
  479. public:
  480.     __fastcall virtual TNotebook(Classes::TComponent* AOwner);
  481.     __fastcall virtual ~TNotebook(void);
  482.     
  483. __published:
  484.     __property AnsiString ActivePage = {read=GetActivePage, write=SetActivePage, stored=false};
  485.     __property Align ;
  486.     __property Anchors ;
  487.     __property Color ;
  488.     __property Ctl3D ;
  489.     __property DragCursor ;
  490.     __property DragKind ;
  491.     __property DragMode ;
  492.     __property Font ;
  493.     __property Enabled ;
  494.     __property Constraints ;
  495.     __property int PageIndex = {read=FPageIndex, write=SetPageIndex, default=0};
  496.     __property Classes::TStrings* Pages = {read=FAccess, write=SetPages, stored=false};
  497.     __property ParentColor ;
  498.     __property ParentCtl3D ;
  499.     __property ParentFont ;
  500.     __property ParentShowHint ;
  501.     __property PopupMenu ;
  502.     __property ShowHint ;
  503.     __property TabOrder ;
  504.     __property TabStop ;
  505.     __property Visible ;
  506.     __property OnClick ;
  507.     __property OnContextPopup ;
  508.     __property OnDblClick ;
  509.     __property OnDragDrop ;
  510.     __property OnDragOver ;
  511.     __property OnEndDock ;
  512.     __property OnEndDrag ;
  513.     __property OnEnter ;
  514.     __property OnExit ;
  515.     __property OnMouseDown ;
  516.     __property OnMouseMove ;
  517.     __property OnMouseUp ;
  518.     __property Classes::TNotifyEvent OnPageChanged = {read=FOnPageChanged, write=FOnPageChanged};
  519.     __property OnStartDock ;
  520.     __property OnStartDrag ;
  521. public:
  522.     #pragma option push -w-inl
  523.     /* TWinControl.CreateParented */ inline __fastcall TNotebook(HWND ParentWindow) : Controls::TCustomControl(
  524.         ParentWindow) { }
  525.     #pragma option pop
  526.     
  527. };
  528.  
  529.  
  530. typedef void __fastcall (__closure *TSectionEvent)(System::TObject* Sender, int ASection, int AWidth
  531.     );
  532.  
  533. class DELPHICLASS THeader;
  534. class PASCALIMPLEMENTATION THeader : public Controls::TCustomControl 
  535. {
  536.     typedef Controls::TCustomControl inherited;
  537.     
  538. private:
  539.     Classes::TStrings* FSections;
  540.     Windows::TPoint FHitTest;
  541.     bool FCanResize;
  542.     bool FAllowResize;
  543.     Forms::TFormBorderStyle FBorderStyle;
  544.     int FResizeSection;
  545.     int FMouseOffset;
  546.     TSectionEvent FOnSizing;
  547.     TSectionEvent FOnSized;
  548.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  549.     void __fastcall FreeSections(void);
  550.     void __fastcall SetSections(Classes::TStrings* Strings);
  551.     int __fastcall GetWidth(int X);
  552.     HIDESBASE void __fastcall SetWidth(int X, int Value);
  553.     HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Msg);
  554.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Msg);
  555.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Msg);
  556.     
  557. protected:
  558.     virtual void __fastcall Paint(void);
  559.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  560.     DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  561.         int Y);
  562.     DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  563.     DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  564.         Y);
  565.     DYNAMIC void __fastcall Sizing(int ASection, int AWidth);
  566.     DYNAMIC void __fastcall Sized(int ASection, int AWidth);
  567.     
  568. public:
  569.     __fastcall virtual THeader(Classes::TComponent* AOwner);
  570.     __fastcall virtual ~THeader(void);
  571.     __property int SectionWidth[int X] = {read=GetWidth, write=SetWidth};
  572.     
  573. __published:
  574.     __property Align ;
  575.     __property bool AllowResize = {read=FAllowResize, write=FAllowResize, default=1};
  576.     __property Anchors ;
  577.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  578.     __property Constraints ;
  579.     __property Enabled ;
  580.     __property Font ;
  581.     __property ParentFont ;
  582.     __property ParentShowHint ;
  583.     __property PopupMenu ;
  584.     __property Classes::TStrings* Sections = {read=FSections, write=SetSections};
  585.     __property ShowHint ;
  586.     __property TabOrder ;
  587.     __property TabStop ;
  588.     __property Visible ;
  589.     __property OnContextPopup ;
  590.     __property TSectionEvent OnSizing = {read=FOnSizing, write=FOnSizing};
  591.     __property TSectionEvent OnSized = {read=FOnSized, write=FOnSized};
  592. public:
  593.     #pragma option push -w-inl
  594.     /* TWinControl.CreateParented */ inline __fastcall THeader(HWND ParentWindow) : Controls::TCustomControl(
  595.         ParentWindow) { }
  596.     #pragma option pop
  597.     
  598. };
  599.  
  600.  
  601. class DELPHICLASS TCustomRadioGroup;
  602. class PASCALIMPLEMENTATION TCustomRadioGroup : public Stdctrls::TCustomGroupBox 
  603. {
  604.     typedef Stdctrls::TCustomGroupBox inherited;
  605.     
  606. private:
  607.     Classes::TList* FButtons;
  608.     Classes::TStrings* FItems;
  609.     int FItemIndex;
  610.     int FColumns;
  611.     bool FReading;
  612.     bool FUpdating;
  613.     void __fastcall ArrangeButtons(void);
  614.     void __fastcall ButtonClick(System::TObject* Sender);
  615.     void __fastcall ItemsChange(System::TObject* Sender);
  616.     void __fastcall SetButtonCount(int Value);
  617.     void __fastcall SetColumns(int Value);
  618.     void __fastcall SetItemIndex(int Value);
  619.     void __fastcall SetItems(Classes::TStrings* Value);
  620.     void __fastcall UpdateButtons(void);
  621.     HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  622.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  623.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  624.     
  625. protected:
  626.     virtual void __fastcall Loaded(void);
  627.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  628.     virtual bool __fastcall CanModify(void);
  629.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  630.     __property int Columns = {read=FColumns, write=SetColumns, default=1};
  631.     __property int ItemIndex = {read=FItemIndex, write=SetItemIndex, default=-1};
  632.     __property Classes::TStrings* Items = {read=FItems, write=SetItems};
  633.     
  634. public:
  635.     __fastcall virtual TCustomRadioGroup(Classes::TComponent* AOwner);
  636.     __fastcall virtual ~TCustomRadioGroup(void);
  637.     DYNAMIC void __fastcall FlipChildren(bool AllLevels);
  638. public:
  639.     #pragma option push -w-inl
  640.     /* TWinControl.CreateParented */ inline __fastcall TCustomRadioGroup(HWND ParentWindow) : Stdctrls::TCustomGroupBox(
  641.         ParentWindow) { }
  642.     #pragma option pop
  643.     
  644. };
  645.  
  646.  
  647. class DELPHICLASS TRadioGroup;
  648. class PASCALIMPLEMENTATION TRadioGroup : public TCustomRadioGroup 
  649. {
  650.     typedef TCustomRadioGroup inherited;
  651.     
  652. __published:
  653.     __property Align ;
  654.     __property Anchors ;
  655.     __property BiDiMode ;
  656.     __property Caption ;
  657.     __property Color ;
  658.     __property Columns ;
  659.     __property Ctl3D ;
  660.     __property DragCursor ;
  661.     __property DragKind ;
  662.     __property DragMode ;
  663.     __property Enabled ;
  664.     __property Font ;
  665.     __property ItemIndex ;
  666.     __property Items ;
  667.     __property Constraints ;
  668.     __property ParentBiDiMode ;
  669.     __property ParentColor ;
  670.     __property ParentCtl3D ;
  671.     __property ParentFont ;
  672.     __property ParentShowHint ;
  673.     __property PopupMenu ;
  674.     __property ShowHint ;
  675.     __property TabOrder ;
  676.     __property TabStop ;
  677.     __property Visible ;
  678.     __property OnClick ;
  679.     __property OnContextPopup ;
  680.     __property OnDragDrop ;
  681.     __property OnDragOver ;
  682.     __property OnEndDock ;
  683.     __property OnEndDrag ;
  684.     __property OnEnter ;
  685.     __property OnExit ;
  686.     __property OnStartDock ;
  687.     __property OnStartDrag ;
  688. public:
  689.     #pragma option push -w-inl
  690.     /* TCustomRadioGroup.Create */ inline __fastcall virtual TRadioGroup(Classes::TComponent* AOwner) : 
  691.         TCustomRadioGroup(AOwner) { }
  692.     #pragma option pop
  693.     #pragma option push -w-inl
  694.     /* TCustomRadioGroup.Destroy */ inline __fastcall virtual ~TRadioGroup(void) { }
  695.     #pragma option pop
  696.     
  697. public:
  698.     #pragma option push -w-inl
  699.     /* TWinControl.CreateParented */ inline __fastcall TRadioGroup(HWND ParentWindow) : TCustomRadioGroup(
  700.         ParentWindow) { }
  701.     #pragma option pop
  702.     
  703. };
  704.  
  705.  
  706. typedef int NaturalNumber;
  707.  
  708. typedef void __fastcall (__closure *TCanResizeEvent)(System::TObject* Sender, int &NewSize, bool &Accept
  709.     );
  710.  
  711. #pragma option push -b-
  712. enum TResizeStyle { rsNone, rsLine, rsUpdate, rsPattern };
  713. #pragma option pop
  714.  
  715. class DELPHICLASS TSplitter;
  716. class PASCALIMPLEMENTATION TSplitter : public Controls::TGraphicControl 
  717. {
  718.     typedef Controls::TGraphicControl inherited;
  719.     
  720. private:
  721.     Controls::TWinControl* FActiveControl;
  722.     bool FAutoSnap;
  723.     bool FBeveled;
  724.     Graphics::TBrush* FBrush;
  725.     Controls::TControl* FControl;
  726.     Windows::TPoint FDownPos;
  727.     HDC FLineDC;
  728.     bool FLineVisible;
  729.     NaturalNumber FMinSize;
  730.     int FMaxSize;
  731.     int FNewSize;
  732.     Controls::TKeyEvent FOldKeyDown;
  733.     int FOldSize;
  734.     HBRUSH FPrevBrush;
  735.     TResizeStyle FResizeStyle;
  736.     int FSplit;
  737.     TCanResizeEvent FOnCanResize;
  738.     Classes::TNotifyEvent FOnMoved;
  739.     Classes::TNotifyEvent FOnPaint;
  740.     void __fastcall AllocateLineDC(void);
  741.     void __fastcall CalcSplitSize(int X, int Y, int &NewSize, int &Split);
  742.     void __fastcall DrawLine(void);
  743.     Controls::TControl* __fastcall FindControl(void);
  744.     void __fastcall FocusKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
  745.     void __fastcall ReleaseLineDC(void);
  746.     void __fastcall SetBeveled(bool Value);
  747.     void __fastcall UpdateControlSize(void);
  748.     void __fastcall UpdateSize(int X, int Y);
  749.     
  750. protected:
  751.     HIDESBASE virtual bool __fastcall CanResize(int &NewSize);
  752.     HIDESBASE virtual bool __fastcall DoCanResize(int &NewSize);
  753.     DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  754.         int Y);
  755.     DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  756.     DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  757.         Y);
  758.     virtual void __fastcall Paint(void);
  759.     DYNAMIC void __fastcall RequestAlign(void);
  760.     DYNAMIC void __fastcall StopSizing(void);
  761.     
  762. public:
  763.     __fastcall virtual TSplitter(Classes::TComponent* AOwner);
  764.     __fastcall virtual ~TSplitter(void);
  765.     __property Canvas ;
  766.     
  767. __published:
  768.     __property Align ;
  769.     __property bool AutoSnap = {read=FAutoSnap, write=FAutoSnap, default=1};
  770.     __property bool Beveled = {read=FBeveled, write=SetBeveled, default=0};
  771.     __property Color ;
  772.     __property Constraints ;
  773.     __property NaturalNumber MinSize = {read=FMinSize, write=FMinSize, default=30};
  774.     __property ParentColor ;
  775.     __property TResizeStyle ResizeStyle = {read=FResizeStyle, write=FResizeStyle, default=3};
  776.     __property Visible ;
  777.     __property TCanResizeEvent OnCanResize = {read=FOnCanResize, write=FOnCanResize};
  778.     __property Classes::TNotifyEvent OnMoved = {read=FOnMoved, write=FOnMoved};
  779.     __property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint};
  780. };
  781.  
  782.  
  783. #pragma option push -b-
  784. enum TBandPaintOption { bpoGrabber, bpoFrame };
  785. #pragma option pop
  786.  
  787. typedef Set<TBandPaintOption, bpoGrabber, bpoFrame>  TBandPaintOptions;
  788.  
  789. typedef void __fastcall (__closure *TBandDragEvent)(System::TObject* Sender, Controls::TControl* Control
  790.     , bool &Drag);
  791.  
  792. typedef void __fastcall (__closure *TBandInfoEvent)(System::TObject* Sender, Controls::TControl* Control
  793.     , Windows::TRect &Insets, int &PreferredSize, int &RowCount);
  794.  
  795. typedef void __fastcall (__closure *TBandMoveEvent)(System::TObject* Sender, Controls::TControl* Control
  796.     , Windows::TRect &ARect);
  797.  
  798. typedef void __fastcall (__closure *TBandPaintEvent)(System::TObject* Sender, Controls::TControl* Control
  799.     , Graphics::TCanvas* Canvas, Windows::TRect &ARect, TBandPaintOptions &Options);
  800.  
  801. typedef int TRowSize;
  802.  
  803. class DELPHICLASS TCustomControlBar;
  804. class PASCALIMPLEMENTATION TCustomControlBar : public Controls::TCustomControl 
  805. {
  806.     typedef Controls::TCustomControl inherited;
  807.     
  808. private:
  809.     bool FAligning;
  810.     bool FAutoDrag;
  811.     bool FAutoDock;
  812.     Controls::TControl* FDockingControl;
  813.     Controls::TControl* FDragControl;
  814.     Windows::TPoint FDragOffset;
  815.     bool FDrawing;
  816.     bool FFloating;
  817.     Classes::TList* FItems;
  818.     Graphics::TPicture* FPicture;
  819.     TRowSize FRowSize;
  820.     bool FRowSnap;
  821.     TBandDragEvent FOnBandDrag;
  822.     TBandInfoEvent FOnBandInfo;
  823.     TBandMoveEvent FOnBandMove;
  824.     TBandPaintEvent FOnBandPaint;
  825.     Classes::TNotifyEvent FOnPaint;
  826.     void __fastcall DoAlignControl(Controls::TControl* AControl);
  827.     void * __fastcall FindPos(Controls::TControl* AControl);
  828.     void * __fastcall HitTest2(int X, int Y);
  829.     void __fastcall DockControl(Controls::TControl* AControl, const Windows::TRect &ARect, Classes::TList* 
  830.         BreakList, Classes::TList* IndexList, Classes::TList* SizeList, void * Parent, bool ChangedPriorBreak
  831.         , const Windows::TRect &Insets, int PreferredSize, int RowCount, bool Existing);
  832.     void __fastcall PictureChanged(System::TObject* Sender);
  833.     void __fastcall SetPicture(const Graphics::TPicture* Value);
  834.     void __fastcall SetRowSize(TRowSize Value);
  835.     void __fastcall SetRowSnap(bool Value);
  836.     void __fastcall UnDockControl(Controls::TControl* AControl);
  837.     bool __fastcall UpdateItems(Controls::TControl* AControl);
  838.     HIDESBASE MESSAGE void __fastcall CMControlListChange(Controls::TCMControlListChange &Message);
  839.     HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
  840.     HIDESBASE MESSAGE void __fastcall CNKeyDown(Messages::TWMKey &Message);
  841.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  842.     
  843. protected:
  844.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &ARect);
  845.     virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
  846.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  847.     virtual void __fastcall DoBandMove(Controls::TControl* Control, Windows::TRect &ARect);
  848.     virtual void __fastcall DoBandPaint(Controls::TControl* Control, Graphics::TCanvas* Canvas, Windows::TRect 
  849.         &ARect, TBandPaintOptions &Options);
  850.     DYNAMIC void __fastcall DockOver(Controls::TDragDockObject* Source, int X, int Y, Controls::TDragState 
  851.         State, bool &Accept);
  852.     bool __fastcall DoPaletteChange(void);
  853.     virtual bool __fastcall DragControl(Controls::TControl* AControl, int X, int Y, bool KeepCapture);
  854.     virtual void __fastcall GetControlInfo(Controls::TControl* AControl, Windows::TRect &Insets, int &PreferredSize
  855.         , int &RowCount);
  856.     DYNAMIC HPALETTE __fastcall GetPalette(void);
  857.     DYNAMIC void __fastcall GetSiteInfo(Controls::TControl* Client, Windows::TRect &InfluenceRect, const 
  858.         Windows::TPoint &MousePos, bool &CanDock);
  859.     Controls::TControl* __fastcall HitTest(int X, int Y);
  860.     DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  861.         int Y);
  862.     DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  863.     DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  864.         Y);
  865.     virtual void __fastcall Paint(void);
  866.     virtual void __fastcall PaintControlFrame(Graphics::TCanvas* Canvas, Controls::TControl* AControl, 
  867.         Windows::TRect &ARect);
  868.     
  869. public:
  870.     __fastcall virtual TCustomControlBar(Classes::TComponent* AOwner);
  871.     __fastcall virtual ~TCustomControlBar(void);
  872.     DYNAMIC void __fastcall FlipChildren(bool AllLevels);
  873.     virtual void __fastcall StickControls(void);
  874.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
  875.     
  876. protected:
  877.     __property bool AutoDock = {read=FAutoDock, write=FAutoDock, default=1};
  878.     __property bool AutoDrag = {read=FAutoDrag, write=FAutoDrag, default=1};
  879.     __property AutoSize ;
  880.     __property BevelKind ;
  881.     __property DockSite ;
  882.     __property TRowSize RowSize = {read=FRowSize, write=SetRowSize, default=26};
  883.     __property bool RowSnap = {read=FRowSnap, write=SetRowSnap, default=1};
  884.     __property TBandDragEvent OnBandDrag = {read=FOnBandDrag, write=FOnBandDrag};
  885.     __property TBandInfoEvent OnBandInfo = {read=FOnBandInfo, write=FOnBandInfo};
  886.     __property TBandMoveEvent OnBandMove = {read=FOnBandMove, write=FOnBandMove};
  887.     __property TBandPaintEvent OnBandPaint = {read=FOnBandPaint, write=FOnBandPaint};
  888.     __property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint};
  889. public:
  890.     #pragma option push -w-inl
  891.     /* TWinControl.CreateParented */ inline __fastcall TCustomControlBar(HWND ParentWindow) : Controls::TCustomControl(
  892.         ParentWindow) { }
  893.     #pragma option pop
  894.     
  895. };
  896.  
  897.  
  898. class DELPHICLASS TControlBar;
  899. class PASCALIMPLEMENTATION TControlBar : public TCustomControlBar 
  900. {
  901.     typedef TCustomControlBar inherited;
  902.     
  903. public:
  904.     __property Canvas ;
  905.     
  906. __published:
  907.     __property Align ;
  908.     __property Anchors ;
  909.     __property AutoDock ;
  910.     __property AutoDrag ;
  911.     __property AutoSize ;
  912.     __property BevelEdges ;
  913.     __property BevelInner ;
  914.     __property BevelOuter ;
  915.     __property BevelKind ;
  916.     __property BevelWidth ;
  917.     __property BorderWidth ;
  918.     __property Color ;
  919.     __property Constraints ;
  920.     __property DockSite ;
  921.     __property DragCursor ;
  922.     __property DragKind ;
  923.     __property DragMode ;
  924.     __property Enabled ;
  925.     __property ParentColor ;
  926.     __property ParentCtl3D ;
  927.     __property ParentFont ;
  928.     __property ParentShowHint ;
  929.     __property Picture ;
  930.     __property PopupMenu ;
  931.     __property RowSize ;
  932.     __property RowSnap ;
  933.     __property ShowHint ;
  934.     __property TabOrder ;
  935.     __property TabStop ;
  936.     __property Visible ;
  937.     __property OnBandDrag ;
  938.     __property OnBandInfo ;
  939.     __property OnBandMove ;
  940.     __property OnBandPaint ;
  941.     __property OnCanResize ;
  942.     __property OnClick ;
  943.     __property OnConstrainedResize ;
  944.     __property OnContextPopup ;
  945.     __property OnDockDrop ;
  946.     __property OnDockOver ;
  947.     __property OnDblClick ;
  948.     __property OnDragDrop ;
  949.     __property OnDragOver ;
  950.     __property OnEndDock ;
  951.     __property OnEndDrag ;
  952.     __property OnEnter ;
  953.     __property OnExit ;
  954.     __property OnGetSiteInfo ;
  955.     __property OnMouseDown ;
  956.     __property OnMouseMove ;
  957.     __property OnMouseUp ;
  958.     __property OnPaint ;
  959.     __property OnResize ;
  960.     __property OnStartDock ;
  961.     __property OnStartDrag ;
  962.     __property OnUnDock ;
  963. public:
  964.     #pragma option push -w-inl
  965.     /* TCustomControlBar.Create */ inline __fastcall virtual TControlBar(Classes::TComponent* AOwner) : 
  966.         TCustomControlBar(AOwner) { }
  967.     #pragma option pop
  968.     #pragma option push -w-inl
  969.     /* TCustomControlBar.Destroy */ inline __fastcall virtual ~TControlBar(void) { }
  970.     #pragma option pop
  971.     
  972. public:
  973.     #pragma option push -w-inl
  974.     /* TWinControl.CreateParented */ inline __fastcall TControlBar(HWND ParentWindow) : TCustomControlBar(
  975.         ParentWindow) { }
  976.     #pragma option pop
  977.     
  978. };
  979.  
  980.  
  981. //-- var, const, procedure ---------------------------------------------------
  982. extern PACKAGE void __fastcall Frame3D(Graphics::TCanvas* Canvas, Windows::TRect &Rect, Graphics::TColor 
  983.     TopColor, Graphics::TColor BottomColor, int Width);
  984. extern PACKAGE void __fastcall NotebookHandlesNeeded(TNotebook* Notebook);
  985.  
  986. }    /* namespace Extctrls */
  987. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  988. using namespace Extctrls;
  989. #endif
  990. #pragma option pop    // -w-
  991. #pragma option pop    // -Vx
  992.  
  993. #pragma delphiheader end.
  994. //-- end unit ----------------------------------------------------------------
  995. #endif    // ExtCtrls
  996.