home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / EXTCTRLS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  20KB  |  603 lines
  1. //----------------------------------------------------------------------------
  2. // ExtCtrls.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: ExtCtrls.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef ExtCtrlsHPP
  6. #define ExtCtrlsHPP
  7. //----------------------------------------------------------------------------
  8. #include <StdCtrls.hpp>
  9. #include <Graphics.hpp>
  10. #include <Menus.hpp>
  11. #include <Forms.hpp>
  12. #include <Controls.hpp>
  13. #include <Classes.hpp>
  14. #include <SysUtils.hpp>
  15. #include <Windows.hpp>
  16. #include <Messages.hpp>
  17. #include <System.hpp>
  18. #pragma warn -par
  19. #pragma warn -hid 
  20. #pragma warn -inl
  21.  
  22. namespace Extctrls
  23. {
  24. //-- type declarations -------------------------------------------------------
  25. enum TShapeType { stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle };
  26.  
  27. class __declspec(delphiclass) TShape;
  28. class __declspec(pascalimplementation) TShape : public Controls::TGraphicControl
  29. {
  30.     typedef Controls::TGraphicControl inherited;
  31.     
  32. private:
  33.     TShapeType FShape;
  34.     Byte FReserved;
  35.     Graphics::TPen* FPen;
  36.     Graphics::TBrush* FBrush;
  37.     void __fastcall SetBrush(Graphics::TBrush* Value);
  38.     void __fastcall SetPen(Graphics::TPen* Value);
  39.     void __fastcall SetShape(TShapeType Value);
  40.     
  41. protected:
  42.     virtual void __fastcall Paint(void);
  43.     
  44. public:
  45.     __fastcall virtual TShape(Classes::TComponent* AOwner);
  46.     __fastcall virtual ~TShape(void);
  47.     
  48. __published:
  49.     void __fastcall StyleChanged(System::TObject* Sender);
  50.     __property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush, nodefault};
  51.     __property DragCursor ;
  52.     __property DragMode ;
  53.     __property Enabled ;
  54.     __property ParentShowHint ;
  55.     __property Graphics::TPen* Pen = {read=FPen, write=SetPen, nodefault};
  56.     __property TShapeType Shape = {read=FShape, write=SetShape, default=0};
  57.     __property ShowHint ;
  58.     __property Visible ;
  59.     __property OnDragDrop ;
  60.     __property OnDragOver ;
  61.     __property OnEndDrag ;
  62.     __property OnMouseDown ;
  63.     __property OnMouseMove ;
  64.     __property OnMouseUp ;
  65.     __property OnStartDrag ;
  66. };
  67.  
  68. class __declspec(delphiclass) TPaintBox;
  69. class __declspec(pascalimplementation) TPaintBox : public Controls::TGraphicControl
  70. {
  71.     typedef Controls::TGraphicControl inherited;
  72.     
  73. private:
  74.     Classes::TNotifyEvent FOnPaint;
  75.     
  76. protected:
  77.     virtual void __fastcall Paint(void);
  78.     
  79. public:
  80.     __fastcall virtual TPaintBox(Classes::TComponent* AOwner);
  81.     __property Canvas ;
  82.     
  83. __published:
  84.     __property Align ;
  85.     __property Color ;
  86.     __property DragCursor ;
  87.     __property DragMode ;
  88.     __property Enabled ;
  89.     __property Font ;
  90.     __property ParentColor ;
  91.     __property ParentFont ;
  92.     __property ParentShowHint ;
  93.     __property PopupMenu ;
  94.     __property ShowHint ;
  95.     __property Visible ;
  96.     __property OnClick ;
  97.     __property OnDblClick ;
  98.     __property OnDragDrop ;
  99.     __property OnDragOver ;
  100.     __property OnEndDrag ;
  101.     __property OnMouseDown ;
  102.     __property OnMouseMove ;
  103.     __property OnMouseUp ;
  104.     __property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint};
  105.     __property OnStartDrag ;
  106. public:
  107.     /* TGraphicControl.Destroy */ __fastcall virtual ~TPaintBox(void) { }
  108.     
  109. };
  110.  
  111. class __declspec(delphiclass) TImage;
  112. class __declspec(pascalimplementation) TImage : public Controls::TGraphicControl
  113. {
  114.     typedef Controls::TGraphicControl inherited;
  115.     
  116. private:
  117.     Graphics::TPicture* FPicture;
  118.     bool FAutoSize;
  119.     bool FStretch;
  120.     bool FCenter;
  121.     Byte FReserved;
  122.     Graphics::TCanvas* __fastcall GetCanvas(void);
  123.     void __fastcall PictureChanged(System::TObject* Sender);
  124.     void __fastcall SetAutoSize(bool Value);
  125.     void __fastcall SetCenter(bool Value);
  126.     void __fastcall SetPicture(Graphics::TPicture* Value);
  127.     void __fastcall SetStretch(bool Value);
  128.     
  129. protected:
  130.     virtual HPALETTE __fastcall GetPalette(void);
  131.     virtual void __fastcall Paint(void);
  132.     
  133. public:
  134.     __fastcall virtual TImage(Classes::TComponent* AOwner);
  135.     __fastcall virtual ~TImage(void);
  136.     __property Graphics::TCanvas* Canvas = {read=GetCanvas, nodefault};
  137.     
  138. __published:
  139.     __property Align ;
  140.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
  141.     __property bool Center = {read=FCenter, write=SetCenter, default=0};
  142.     __property DragCursor ;
  143.     __property DragMode ;
  144.     __property Enabled ;
  145.     __property ParentShowHint ;
  146.     __property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture, nodefault};
  147.     __property PopupMenu ;
  148.     __property ShowHint ;
  149.     __property bool Stretch = {read=FStretch, write=SetStretch, default=0};
  150.     __property Visible ;
  151.     __property OnClick ;
  152.     __property OnDblClick ;
  153.     __property OnDragDrop ;
  154.     __property OnDragOver ;
  155.     __property OnEndDrag ;
  156.     __property OnMouseDown ;
  157.     __property OnMouseMove ;
  158.     __property OnMouseUp ;
  159.     __property OnStartDrag ;
  160. };
  161.  
  162. enum TBevelStyle { bsLowered, bsRaised };
  163.  
  164. enum TBevelShape { bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine };
  165.  
  166. class __declspec(delphiclass) TBevel;
  167. class __declspec(pascalimplementation) TBevel : public Controls::TGraphicControl
  168. {
  169.     typedef Controls::TGraphicControl inherited;
  170.     
  171. private:
  172.     TBevelStyle FStyle;
  173.     TBevelShape FShape;
  174.     void __fastcall SetStyle(TBevelStyle Value);
  175.     void __fastcall SetShape(TBevelShape Value);
  176.     
  177. protected:
  178.     virtual void __fastcall Paint(void);
  179.     
  180. public:
  181.     __fastcall virtual TBevel(Classes::TComponent* AOwner);
  182.     
  183. __published:
  184.     __property Align ;
  185.     __property ParentShowHint ;
  186.     __property TBevelShape Shape = {read=FShape, write=SetShape, default=0};
  187.     __property ShowHint ;
  188.     __property TBevelStyle Style = {read=FStyle, write=SetStyle, default=0};
  189.     __property Visible ;
  190. public:
  191.     /* TGraphicControl.Destroy */ __fastcall virtual ~TBevel(void) { }
  192.     
  193. };
  194.  
  195. class __declspec(delphiclass) TTimer;
  196. class __declspec(pascalimplementation) TTimer : public Classes::TComponent
  197. {
  198.     typedef Classes::TComponent inherited;
  199.     
  200. private:
  201.     bool FEnabled;
  202.     Byte FReserved;
  203.     Cardinal FInterval;
  204.     HWND FWindowHandle;
  205.     Classes::TNotifyEvent FOnTimer;
  206.     void __fastcall UpdateTimer(void);
  207.     void __fastcall SetEnabled(bool Value);
  208.     void __fastcall SetInterval(Cardinal Value);
  209.     void __fastcall SetOnTimer(Classes::TNotifyEvent Value);
  210.     void __fastcall WndProc(Messages::TMessage &Msg);
  211.     
  212. protected:
  213.     virtual void __fastcall Timer(void);
  214.     
  215. public:
  216.     __fastcall virtual TTimer(Classes::TComponent* AOwner);
  217.     __fastcall virtual ~TTimer(void);
  218.     
  219. __published:
  220.     __property bool Enabled = {read=FEnabled, write=SetEnabled, default=1};
  221.     __property Cardinal Interval = {read=FInterval, write=SetInterval, default=1000};
  222.     __property Classes::TNotifyEvent OnTimer = {read=FOnTimer, write=SetOnTimer};
  223. };
  224.  
  225. enum TPanelBevel { bvNone, bvLowered, bvRaised };
  226.  
  227. typedef int TBevelWidth;
  228.  
  229. typedef int TBorderWidth;
  230.  
  231. class __declspec(delphiclass) TCustomPanel;
  232. class __declspec(pascalimplementation) TCustomPanel : public Controls::TCustomControl
  233. {
  234.     typedef Controls::TCustomControl inherited;
  235.     
  236. private:
  237.     TPanelBevel FBevelInner;
  238.     TPanelBevel FBevelOuter;
  239.     TBevelWidth FBevelWidth;
  240.     TBorderWidth FBorderWidth;
  241.     TFormBorderStyle FBorderStyle;
  242.     bool FFullRepaint;
  243.     bool FLocked;
  244.     Classes::TNotifyEvent FOnResize;
  245.     TAlignment FAlignment;
  246.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  247.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  248.     MESSAGE void __fastcall CMIsToolControl(Messages::TMessage &Message);
  249.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  250.     void __fastcall SetAlignment(Classes::TAlignment Value);
  251.     void __fastcall SetBevelInner(TPanelBevel Value);
  252.     void __fastcall SetBevelOuter(TPanelBevel Value);
  253.     void __fastcall SetBevelWidth(TBevelWidth Value);
  254.     void __fastcall SetBorderWidth(TBorderWidth Value);
  255.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  256.     void __fastcall ReadData(Classes::TReader* Reader);
  257.     
  258. protected:
  259.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  260.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  261.     virtual void __fastcall Paint(void);
  262.     virtual void __fastcall Resize(void);
  263.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=2};
  264.     __property TPanelBevel BevelInner = {read=FBevelInner, write=SetBevelInner, default=0};
  265.     __property TPanelBevel BevelOuter = {read=FBevelOuter, write=SetBevelOuter, default=2};
  266.     __property TBevelWidth BevelWidth = {read=FBevelWidth, write=SetBevelWidth, default=1};
  267.     __property TBorderWidth BorderWidth = {read=FBorderWidth, write=SetBorderWidth, default=0};
  268.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=0};
  269.     __property Color ;
  270.     __property bool FullRepaint = {read=FFullRepaint, write=FFullRepaint, default=1};
  271.     __property bool Locked = {read=FLocked, write=FLocked, default=0};
  272.     __property ParentColor ;
  273.     __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
  274.     
  275. public:
  276.     __fastcall virtual TCustomPanel(Classes::TComponent* AOwner);
  277. public:
  278.     /* TCustomControl.Destroy */ __fastcall virtual ~TCustomPanel(void) { }
  279.     
  280. public:
  281.     /* TWinControl.CreateParented */ __fastcall TCustomPanel(HWND ParentWindow) : Controls::TCustomControl(
  282.         ParentWindow) { }
  283.     
  284. };
  285.  
  286. class __declspec(delphiclass) TPanel;
  287. class __declspec(pascalimplementation) TPanel : public TCustomPanel
  288. {
  289.     typedef TCustomPanel inherited;
  290.     
  291. __published:
  292.     __property Align ;
  293.     __property Alignment ;
  294.     __property BevelInner ;
  295.     __property BevelOuter ;
  296.     __property BevelWidth ;
  297.     __property BorderWidth ;
  298.     __property BorderStyle ;
  299.     __property DragCursor ;
  300.     __property DragMode ;
  301.     __property Enabled ;
  302.     __property Caption ;
  303.     __property Color ;
  304.     __property Ctl3D ;
  305.     __property Font ;
  306.     __property Locked ;
  307.     __property ParentColor ;
  308.     __property ParentCtl3D ;
  309.     __property ParentFont ;
  310.     __property ParentShowHint ;
  311.     __property PopupMenu ;
  312.     __property ShowHint ;
  313.     __property TabOrder ;
  314.     __property TabStop ;
  315.     __property Visible ;
  316.     __property OnClick ;
  317.     __property OnDblClick ;
  318.     __property OnDragDrop ;
  319.     __property OnDragOver ;
  320.     __property OnEndDrag ;
  321.     __property OnEnter ;
  322.     __property OnExit ;
  323.     __property OnMouseDown ;
  324.     __property OnMouseMove ;
  325.     __property OnMouseUp ;
  326.     __property OnResize ;
  327.     __property OnStartDrag ;
  328. public:
  329.     /* TCustomPanel.Create */ __fastcall virtual TPanel(Classes::TComponent* AOwner) : Extctrls::TCustomPanel(
  330.         AOwner) { }
  331.     
  332. public:
  333.     /* TCustomControl.Destroy */ __fastcall virtual ~TPanel(void) { }
  334.     
  335. public:
  336.     /* TWinControl.CreateParented */ __fastcall TPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow
  337.         ) { }
  338.     
  339. };
  340.  
  341. class __declspec(delphiclass) TPage;
  342. class __declspec(pascalimplementation) TPage : public Controls::TCustomControl
  343. {
  344.     typedef Controls::TCustomControl inherited;
  345.     
  346. private:
  347.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
  348.     
  349. protected:
  350.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  351.     virtual void __fastcall Paint(void);
  352.     
  353. public:
  354.     __fastcall virtual TPage(Classes::TComponent* AOwner);
  355.     
  356. __published:
  357.     __property Caption ;
  358.     __property Height  = {stored=false};
  359.     __property TabOrder  = {stored=false, default=-1};
  360.     __property Visible  = {stored=false, default=1};
  361.     __property Width  = {stored=false};
  362. public:
  363.     /* TCustomControl.Destroy */ __fastcall virtual ~TPage(void) { }
  364.     
  365. public:
  366.     /* TWinControl.CreateParented */ __fastcall TPage(HWND ParentWindow) : Controls::TCustomControl(ParentWindow
  367.         ) { }
  368.     
  369. };
  370.  
  371. class __declspec(delphiclass) TNotebook;
  372. class __declspec(pascalimplementation) TNotebook : public Controls::TCustomControl
  373. {
  374.     typedef Controls::TCustomControl inherited;
  375.     
  376. private:
  377.     Classes::TList* FPageList;
  378.     Classes::TStrings* FAccess;
  379.     int FPageIndex;
  380.     Classes::TStringList* FOldList;
  381.     Classes::TNotifyEvent FOnPageChanged;
  382.     void __fastcall SetPages(Classes::TStrings* Value);
  383.     void __fastcall SetActivePage(const System::AnsiString Value);
  384.     System::AnsiString __fastcall GetActivePage(void);
  385.     void __fastcall SetPageIndex(int Value);
  386.     
  387. protected:
  388.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  389.     virtual Classes::TComponent* __fastcall GetChildOwner(void);
  390.     virtual void __fastcall GetChildren(Classes::TGetChildProc Proc);
  391.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  392.     virtual void __fastcall ShowControl(Controls::TControl* AControl);
  393.     
  394. public:
  395.     __fastcall virtual TNotebook(Classes::TComponent* AOwner);
  396.     __fastcall virtual ~TNotebook(void);
  397.     
  398. __published:
  399.     __property System::AnsiString ActivePage = {read=GetActivePage, write=SetActivePage, stored=false, 
  400.         nodefault};
  401.     __property Align ;
  402.     __property Color ;
  403.     __property Ctl3D ;
  404.     __property DragCursor ;
  405.     __property DragMode ;
  406.     __property Font ;
  407.     __property Enabled ;
  408.     __property int PageIndex = {read=FPageIndex, write=SetPageIndex, default=0};
  409.     __property Classes::TStrings* Pages = {read=FAccess, write=SetPages, stored=false, nodefault};
  410.     __property ParentColor ;
  411.     __property ParentCtl3D ;
  412.     __property ParentFont ;
  413.     __property ParentShowHint ;
  414.     __property PopupMenu ;
  415.     __property ShowHint ;
  416.     __property TabOrder ;
  417.     __property TabStop ;
  418.     __property Visible ;
  419.     __property OnClick ;
  420.     __property OnDblClick ;
  421.     __property OnDragDrop ;
  422.     __property OnDragOver ;
  423.     __property OnEndDrag ;
  424.     __property OnEnter ;
  425.     __property OnExit ;
  426.     __property OnMouseDown ;
  427.     __property OnMouseMove ;
  428.     __property OnMouseUp ;
  429.     __property Classes::TNotifyEvent OnPageChanged = {read=FOnPageChanged, write=FOnPageChanged};
  430.     __property OnStartDrag ;
  431. public:
  432.     /* TWinControl.CreateParented */ __fastcall TNotebook(HWND ParentWindow) : Controls::TCustomControl(
  433.         ParentWindow) { }
  434.     
  435. };
  436.  
  437. typedef void __fastcall (__closure *TSectionEvent)(System::TObject* Sender, int ASection, int AWidth
  438.     );
  439.  
  440. class __declspec(delphiclass) THeader;
  441. class __declspec(pascalimplementation) THeader : public Controls::TCustomControl
  442. {
  443.     typedef Controls::TCustomControl inherited;
  444.     
  445. private:
  446.     Classes::TStrings* FSections;
  447.     int FSectionCount;
  448.     POINT FHitTest;
  449.     bool FCanResize;
  450.     bool FAllowResize;
  451.     int FResizeSection;
  452.     TFormBorderStyle FBorderStyle;
  453.     Byte FReserved;
  454.     int FMouseOffset;
  455.     TSectionEvent FOnSizing;
  456.     TSectionEvent FOnSized;
  457.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  458.     void __fastcall FreeSections(void);
  459.     void __fastcall SetSections(Classes::TStrings* Strings);
  460.     int __fastcall GetWidth(int X);
  461.     HIDESBASE void __fastcall SetWidth(int X, int Value);
  462.     HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Msg);
  463.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Msg);
  464.     virtual void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  465.         int Y);
  466.     virtual void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  467.     virtual void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  468.         Y);
  469.     
  470. protected:
  471.     virtual void __fastcall Paint(void);
  472.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  473.     virtual void __fastcall Sizing(int ASection, int AWidth);
  474.     virtual void __fastcall Sized(int ASection, int AWidth);
  475.     
  476. public:
  477.     __fastcall virtual THeader(Classes::TComponent* AOwner);
  478.     __fastcall virtual ~THeader(void);
  479.     __property int SectionWidth[int X] = {read=GetWidth, write=SetWidth};
  480.     
  481. __published:
  482.     __property Align ;
  483.     __property bool AllowResize = {read=FAllowResize, write=FAllowResize, default=1};
  484.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  485.     __property Enabled ;
  486.     __property Font ;
  487.     __property ParentFont ;
  488.     __property ParentShowHint ;
  489.     __property PopupMenu ;
  490.     __property Classes::TStrings* Sections = {read=FSections, write=SetSections, nodefault};
  491.     __property ShowHint ;
  492.     __property TabOrder ;
  493.     __property TabStop ;
  494.     __property Visible ;
  495.     __property TSectionEvent OnSizing = {read=FOnSizing, write=FOnSizing};
  496.     __property TSectionEvent OnSized = {read=FOnSized, write=FOnSized};
  497. public:
  498.     /* TWinControl.CreateParented */ __fastcall THeader(HWND ParentWindow) : Controls::TCustomControl(ParentWindow
  499.         ) { }
  500.     
  501. };
  502.  
  503. class __declspec(delphiclass) TCustomRadioGroup;
  504. class __declspec(pascalimplementation) TCustomRadioGroup : public Stdctrls::TCustomGroupBox
  505. {
  506.     typedef Stdctrls::TCustomGroupBox inherited;
  507.     
  508. private:
  509.     Classes::TList* FButtons;
  510.     Classes::TStrings* FItems;
  511.     int FItemIndex;
  512.     int FColumns;
  513.     bool FReading;
  514.     bool FUpdating;
  515.     void __fastcall ArrangeButtons(void);
  516.     void __fastcall ButtonClick(System::TObject* Sender);
  517.     void __fastcall ItemsChange(System::TObject* Sender);
  518.     void __fastcall SetButtonCount(int Value);
  519.     void __fastcall SetColumns(int Value);
  520.     void __fastcall SetItemIndex(int Value);
  521.     void __fastcall SetItems(Classes::TStrings* Value);
  522.     void __fastcall UpdateButtons(void);
  523.     HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  524.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  525.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  526.     
  527. protected:
  528.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  529.     virtual bool __fastcall CanModify(void);
  530.     virtual void __fastcall GetChildren(Classes::TGetChildProc Proc);
  531.     __property int Columns = {read=FColumns, write=SetColumns, default=1};
  532.     __property int ItemIndex = {read=FItemIndex, write=SetItemIndex, default=-1};
  533.     __property Classes::TStrings* Items = {read=FItems, write=SetItems, nodefault};
  534.     
  535. public:
  536.     __fastcall virtual TCustomRadioGroup(Classes::TComponent* AOwner);
  537.     __fastcall virtual ~TCustomRadioGroup(void);
  538. public:
  539.     /* TWinControl.CreateParented */ __fastcall TCustomRadioGroup(HWND ParentWindow) : Stdctrls::TCustomGroupBox(
  540.         ParentWindow) { }
  541.     
  542. };
  543.  
  544. class __declspec(delphiclass) TRadioGroup;
  545. class __declspec(pascalimplementation) TRadioGroup : public TCustomRadioGroup
  546. {
  547.     typedef TCustomRadioGroup inherited;
  548.     
  549. __published:
  550.     __property Align ;
  551.     __property Caption ;
  552.     __property Color ;
  553.     __property Columns ;
  554.     __property Ctl3D ;
  555.     __property DragCursor ;
  556.     __property DragMode ;
  557.     __property Enabled ;
  558.     __property Font ;
  559.     __property ItemIndex ;
  560.     __property Items ;
  561.     __property ParentColor ;
  562.     __property ParentCtl3D ;
  563.     __property ParentFont ;
  564.     __property ParentShowHint ;
  565.     __property PopupMenu ;
  566.     __property ShowHint ;
  567.     __property TabOrder ;
  568.     __property TabStop ;
  569.     __property Visible ;
  570.     __property OnClick ;
  571.     __property OnDragDrop ;
  572.     __property OnDragOver ;
  573.     __property OnEndDrag ;
  574.     __property OnEnter ;
  575.     __property OnExit ;
  576.     __property OnStartDrag ;
  577. public:
  578.     /* TCustomRadioGroup.Create */ __fastcall virtual TRadioGroup(Classes::TComponent* AOwner) : Extctrls::
  579.         TCustomRadioGroup(AOwner) { }
  580.     /* TCustomRadioGroup.Destroy */ __fastcall virtual ~TRadioGroup(void) { }
  581.     
  582. public:
  583.     /* TWinControl.CreateParented */ __fastcall TRadioGroup(HWND ParentWindow) : Extctrls::TCustomRadioGroup(
  584.         ParentWindow) { }
  585.     
  586. };
  587.  
  588. //-- var, const, procedure ---------------------------------------------------
  589. extern void __fastcall Frame3D(Graphics::TCanvas* Canvas, Windows::TRect &Rect, Graphics::TColor TopColor
  590.     , Graphics::TColor BottomColor, int Width);
  591.  
  592. }    /* namespace Extctrls */
  593.  
  594. #pragma warn .par
  595. #pragma warn .hid 
  596. #pragma warn .inl
  597.  
  598. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  599. using namespace Extctrls;
  600. #endif
  601. //-- end unit ----------------------------------------------------------------
  602. #endif    // ExtCtrls
  603.