home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / STDCTRLS.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-28  |  37.8 KB  |  1,092 lines
  1. //----------------------------------------------------------------------------
  2. // StdCtrls.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: StdCtrls.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef StdCtrlsHPP
  6. #define StdCtrlsHPP
  7. //----------------------------------------------------------------------------
  8. #include <Graphics.hpp>
  9. #include <Menus.hpp>
  10. #include <Forms.hpp>
  11. #include <Controls.hpp>
  12. #include <Classes.hpp>
  13. #include <SysUtils.hpp>
  14. #include <Windows.hpp>
  15. #include <Messages.hpp>
  16. #include <System.hpp>
  17. #pragma warn -par
  18. #pragma warn -hid 
  19. #pragma warn -inl
  20.  
  21. namespace Stdctrls
  22. {
  23. //-- type declarations -------------------------------------------------------
  24. class __declspec(delphiclass) TCustomGroupBox;
  25. class __declspec(pascalimplementation) TCustomGroupBox : public Controls::TCustomControl
  26. {
  27.     typedef Controls::TCustomControl inherited;
  28.     
  29. private:
  30.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  31.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  32.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  33.     
  34. protected:
  35.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  36.     virtual void __fastcall Paint(void);
  37.     
  38. public:
  39.     __fastcall virtual TCustomGroupBox(Classes::TComponent* AOwner);
  40. public:
  41.     /* TCustomControl.Destroy */ __fastcall virtual ~TCustomGroupBox(void) { }
  42.     
  43. public:
  44.     /* TWinControl.CreateParented */ __fastcall TCustomGroupBox(HWND ParentWindow) : Controls::TCustomControl(
  45.         ParentWindow) { }
  46.     
  47. };
  48.  
  49. class __declspec(delphiclass) TGroupBox;
  50. class __declspec(pascalimplementation) TGroupBox : public TCustomGroupBox
  51. {
  52.     typedef TCustomGroupBox inherited;
  53.     
  54. __published:
  55.     __property Align ;
  56.     __property Caption ;
  57.     __property Color ;
  58.     __property Ctl3D ;
  59.     __property DragCursor ;
  60.     __property DragMode ;
  61.     __property Enabled ;
  62.     __property Font ;
  63.     __property ParentColor ;
  64.     __property ParentCtl3D ;
  65.     __property ParentFont ;
  66.     __property ParentShowHint ;
  67.     __property PopupMenu ;
  68.     __property ShowHint ;
  69.     __property TabOrder ;
  70.     __property TabStop ;
  71.     __property Visible ;
  72.     __property OnClick ;
  73.     __property OnDblClick ;
  74.     __property OnDragDrop ;
  75.     __property OnDragOver ;
  76.     __property OnEndDrag ;
  77.     __property OnEnter ;
  78.     __property OnExit ;
  79.     __property OnMouseDown ;
  80.     __property OnMouseMove ;
  81.     __property OnMouseUp ;
  82.     __property OnStartDrag ;
  83. public:
  84.     /* TCustomGroupBox.Create */ __fastcall virtual TGroupBox(Classes::TComponent* AOwner) : Stdctrls::
  85.         TCustomGroupBox(AOwner) { }
  86.     
  87. public:
  88.     /* TCustomControl.Destroy */ __fastcall virtual ~TGroupBox(void) { }
  89.     
  90. public:
  91.     /* TWinControl.CreateParented */ __fastcall TGroupBox(HWND ParentWindow) : Stdctrls::TCustomGroupBox(
  92.         ParentWindow) { }
  93.     
  94. };
  95.  
  96. class __declspec(delphiclass) TCustomLabel;
  97. class __declspec(pascalimplementation) TCustomLabel : public Controls::TGraphicControl
  98. {
  99.     typedef Controls::TGraphicControl inherited;
  100.     
  101. private:
  102.     Controls::TWinControl* FFocusControl;
  103.     TAlignment FAlignment;
  104.     bool FAutoSize;
  105.     bool FWordWrap;
  106.     bool FShowAccelChar;
  107.     void __fastcall AdjustBounds(void);
  108.     void __fastcall DoDrawText(Windows::TRect &Rect, Word Flags);
  109.     bool __fastcall GetTransparent(void);
  110.     void __fastcall SetAlignment(Classes::TAlignment Value);
  111.     void __fastcall SetFocusControl(Controls::TWinControl* Value);
  112.     void __fastcall SetShowAccelChar(bool Value);
  113.     void __fastcall SetTransparent(bool Value);
  114.     void __fastcall SetWordWrap(bool Value);
  115.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  116.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  117.     MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  118.     
  119. protected:
  120.     virtual System::AnsiString __fastcall GetLabelText(void);
  121.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  122.         );
  123.     virtual void __fastcall Paint(void);
  124.     virtual void __fastcall SetAutoSize(bool Value);
  125.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  126.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  127.     __property Controls::TWinControl* FocusControl = {read=FFocusControl, write=SetFocusControl, nodefault
  128.         };
  129.     __property bool ShowAccelChar = {read=FShowAccelChar, write=SetShowAccelChar, default=1};
  130.     __property bool Transparent = {read=GetTransparent, write=SetTransparent, default=0};
  131.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=0};
  132.     
  133. public:
  134.     __fastcall virtual TCustomLabel(Classes::TComponent* AOwner);
  135.     __property Canvas ;
  136. public:
  137.     /* TGraphicControl.Destroy */ __fastcall virtual ~TCustomLabel(void) { }
  138.     
  139. };
  140.  
  141. class __declspec(delphiclass) TLabel;
  142. class __declspec(pascalimplementation) TLabel : public TCustomLabel
  143. {
  144.     typedef TCustomLabel inherited;
  145.     
  146. __published:
  147.     __property Align ;
  148.     __property Alignment ;
  149.     __property AutoSize ;
  150.     __property Caption ;
  151.     __property Color ;
  152.     __property DragCursor ;
  153.     __property DragMode ;
  154.     __property Enabled ;
  155.     __property FocusControl ;
  156.     __property Font ;
  157.     __property ParentColor ;
  158.     __property ParentFont ;
  159.     __property ParentShowHint ;
  160.     __property PopupMenu ;
  161.     __property ShowAccelChar ;
  162.     __property ShowHint ;
  163.     __property Transparent ;
  164.     __property Visible ;
  165.     __property WordWrap ;
  166.     __property OnClick ;
  167.     __property OnDblClick ;
  168.     __property OnDragDrop ;
  169.     __property OnDragOver ;
  170.     __property OnEndDrag ;
  171.     __property OnMouseDown ;
  172.     __property OnMouseMove ;
  173.     __property OnMouseUp ;
  174.     __property OnStartDrag ;
  175. public:
  176.     /* TCustomLabel.Create */ __fastcall virtual TLabel(Classes::TComponent* AOwner) : Stdctrls::TCustomLabel(
  177.         AOwner) { }
  178.     
  179. public:
  180.     /* TGraphicControl.Destroy */ __fastcall virtual ~TLabel(void) { }
  181.     
  182. };
  183.  
  184. enum TEditCharCase { ecNormal, ecUpperCase, ecLowerCase };
  185.  
  186. class __declspec(delphiclass) TCustomEdit;
  187. class __declspec(pascalimplementation) TCustomEdit : public Controls::TWinControl
  188. {
  189.     typedef Controls::TWinControl inherited;
  190.     
  191. private:
  192.     int FMaxLength;
  193.     TFormBorderStyle FBorderStyle;
  194.     char FPasswordChar;
  195.     bool FReadOnly;
  196.     bool FAutoSize;
  197.     bool FAutoSelect;
  198.     bool FHideSelection;
  199.     bool FOEMConvert;
  200.     TEditCharCase FCharCase;
  201.     bool FCreating;
  202.     bool FModified;
  203.     Classes::TNotifyEvent FOnChange;
  204.     void __fastcall AdjustHeight(void);
  205.     virtual void __fastcall DefaultHandler(void *Message);
  206.     bool __fastcall GetModified(void);
  207.     int __fastcall GetSelLength(void);
  208.     int __fastcall GetSelStart(void);
  209.     System::AnsiString __fastcall GetSelText(void);
  210.     void __fastcall SetAutoSize(bool Value);
  211.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  212.     void __fastcall SetCharCase(TEditCharCase Value);
  213.     void __fastcall SetHideSelection(bool Value);
  214.     void __fastcall SetMaxLength(int Value);
  215.     void __fastcall SetModified(bool Value);
  216.     void __fastcall SetOEMConvert(bool Value);
  217.     void __fastcall SetPasswordChar(char Value);
  218.     void __fastcall SetReadOnly(bool Value);
  219.     void __fastcall SetSelLength(int Value);
  220.     void __fastcall SetSelStart(int Value);
  221.     void __fastcall SetSelText(const System::AnsiString Value);
  222.     void __fastcall UpdateHeight(void);
  223.     MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);
  224.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  225.     HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  226.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  227.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  228.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  229.     
  230. protected:
  231.     virtual void __fastcall Change(void);
  232.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  233.     virtual void __fastcall CreateWnd(void);
  234.     virtual void __fastcall DestroyWnd(void);
  235.     __property bool AutoSelect = {read=FAutoSelect, write=FAutoSelect, default=1};
  236.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  237.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  238.     __property TEditCharCase CharCase = {read=FCharCase, write=SetCharCase, default=0};
  239.     __property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
  240.     __property int MaxLength = {read=FMaxLength, write=SetMaxLength, default=0};
  241.     __property bool OEMConvert = {read=FOEMConvert, write=SetOEMConvert, default=0};
  242.     __property char PasswordChar = {read=FPasswordChar, write=SetPasswordChar, default=0};
  243.     __property ParentColor ;
  244.     __property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, default=0};
  245.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  246.     
  247. public:
  248.     __fastcall virtual TCustomEdit(Classes::TComponent* AOwner);
  249.     void __fastcall Clear(void);
  250.     void __fastcall ClearSelection(void);
  251.     void __fastcall CopyToClipboard(void);
  252.     void __fastcall CutToClipboard(void);
  253.     void __fastcall PasteFromClipboard(void);
  254.     int __fastcall GetSelTextBuf(char * Buffer, int BufSize);
  255.     void __fastcall SelectAll(void);
  256.     void __fastcall SetSelTextBuf(char * Buffer);
  257.     __property bool Modified = {read=GetModified, write=SetModified, nodefault};
  258.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  259.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  260.     __property System::AnsiString SelText = {read=GetSelText, write=SetSelText, nodefault};
  261.     __property Text ;
  262.     
  263. __published:
  264.     __property TabStop ;
  265. public:
  266.     /* TWinControl.CreateParented */ __fastcall TCustomEdit(HWND ParentWindow) : Controls::TWinControl(
  267.         ParentWindow) { }
  268.     /* TWinControl.Destroy */ __fastcall virtual ~TCustomEdit(void) { }
  269.     
  270. };
  271.  
  272. class __declspec(delphiclass) TEdit;
  273. class __declspec(pascalimplementation) TEdit : public TCustomEdit
  274. {
  275.     typedef TCustomEdit inherited;
  276.     
  277. __published:
  278.     __property AutoSelect ;
  279.     __property AutoSize ;
  280.     __property BorderStyle ;
  281.     __property CharCase ;
  282.     __property Color ;
  283.     __property Ctl3D ;
  284.     __property DragCursor ;
  285.     __property DragMode ;
  286.     __property Enabled ;
  287.     __property Font ;
  288.     __property HideSelection ;
  289.     __property ImeMode ;
  290.     __property ImeName ;
  291.     __property MaxLength ;
  292.     __property OEMConvert ;
  293.     __property ParentColor ;
  294.     __property ParentCtl3D ;
  295.     __property ParentFont ;
  296.     __property ParentShowHint ;
  297.     __property PasswordChar ;
  298.     __property PopupMenu ;
  299.     __property ReadOnly ;
  300.     __property ShowHint ;
  301.     __property TabOrder ;
  302.     __property TabStop ;
  303.     __property Text ;
  304.     __property Visible ;
  305.     __property OnChange ;
  306.     __property OnClick ;
  307.     __property OnDblClick ;
  308.     __property OnDragDrop ;
  309.     __property OnDragOver ;
  310.     __property OnEndDrag ;
  311.     __property OnEnter ;
  312.     __property OnExit ;
  313.     __property OnKeyDown ;
  314.     __property OnKeyPress ;
  315.     __property OnKeyUp ;
  316.     __property OnMouseDown ;
  317.     __property OnMouseMove ;
  318.     __property OnMouseUp ;
  319.     __property OnStartDrag ;
  320. public:
  321.     /* TCustomEdit.Create */ __fastcall virtual TEdit(Classes::TComponent* AOwner) : Stdctrls::TCustomEdit(
  322.         AOwner) { }
  323.     
  324. public:
  325.     /* TWinControl.CreateParented */ __fastcall TEdit(HWND ParentWindow) : Stdctrls::TCustomEdit(ParentWindow
  326.         ) { }
  327.     /* TWinControl.Destroy */ __fastcall virtual ~TEdit(void) { }
  328.     
  329. };
  330.  
  331. enum TScrollStyle { ssNone, ssHorizontal, ssVertical, ssBoth };
  332.  
  333. class __declspec(delphiclass) TCustomMemo;
  334. class __declspec(pascalimplementation) TCustomMemo : public TCustomEdit
  335. {
  336.     typedef TCustomEdit inherited;
  337.     
  338. private:
  339.     Classes::TStrings* FLines;
  340.     TAlignment FAlignment;
  341.     TScrollStyle FScrollBars;
  342.     bool FWordWrap;
  343.     bool FWantReturns;
  344.     bool FWantTabs;
  345.     Byte FReserved;
  346.     int HEditDS;
  347.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  348.     HIDESBASE MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
  349.     
  350. protected:
  351.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  352.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  353.     virtual void __fastcall KeyPress(char &Key);
  354.     virtual void __fastcall Loaded(void);
  355.     void __fastcall SetAlignment(Classes::TAlignment Value);
  356.     void __fastcall SetLines(Classes::TStrings* Value);
  357.     void __fastcall SetScrollBars(TScrollStyle Value);
  358.     void __fastcall SetWordWrap(bool Value);
  359.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  360.     __property TScrollStyle ScrollBars = {read=FScrollBars, write=SetScrollBars, default=0};
  361.     __property bool WantReturns = {read=FWantReturns, write=FWantReturns, default=1};
  362.     __property bool WantTabs = {read=FWantTabs, write=FWantTabs, default=0};
  363.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=1};
  364.     
  365. public:
  366.     __fastcall virtual TCustomMemo(Classes::TComponent* AOwner);
  367.     __fastcall virtual ~TCustomMemo(void);
  368.     __property Classes::TStrings* Lines = {read=FLines, write=SetLines, nodefault};
  369. public:
  370.     /* TWinControl.CreateParented */ __fastcall TCustomMemo(HWND ParentWindow) : Stdctrls::TCustomEdit(
  371.         ParentWindow) { }
  372.     
  373. };
  374.  
  375. class __declspec(delphiclass) TMemo;
  376. class __declspec(pascalimplementation) TMemo : public TCustomMemo
  377. {
  378.     typedef TCustomMemo inherited;
  379.     
  380. private:
  381.     void __fastcall ReadStringData(Classes::TReader* Reader);
  382.     
  383. __published:
  384.     __property Align ;
  385.     __property Alignment ;
  386.     __property BorderStyle ;
  387.     __property Color ;
  388.     __property Ctl3D ;
  389.     __property DragCursor ;
  390.     __property DragMode ;
  391.     __property Enabled ;
  392.     __property Font ;
  393.     __property HideSelection ;
  394.     __property ImeMode ;
  395.     __property ImeName ;
  396.     __property Lines ;
  397.     __property MaxLength ;
  398.     __property OEMConvert ;
  399.     __property ParentColor ;
  400.     __property ParentCtl3D ;
  401.     __property ParentFont ;
  402.     __property ParentShowHint ;
  403.     __property PopupMenu ;
  404.     __property ReadOnly ;
  405.     __property ScrollBars ;
  406.     __property ShowHint ;
  407.     __property TabOrder ;
  408.     __property TabStop ;
  409.     __property Visible ;
  410.     __property WantReturns ;
  411.     __property WantTabs ;
  412.     __property WordWrap ;
  413.     __property OnChange ;
  414.     __property OnClick ;
  415.     __property OnDblClick ;
  416.     __property OnDragDrop ;
  417.     __property OnDragOver ;
  418.     __property OnEndDrag ;
  419.     __property OnEnter ;
  420.     __property OnExit ;
  421.     __property OnKeyDown ;
  422.     __property OnKeyPress ;
  423.     __property OnKeyUp ;
  424.     __property OnMouseDown ;
  425.     __property OnMouseMove ;
  426.     __property OnMouseUp ;
  427.     __property OnStartDrag ;
  428. public:
  429.     /* TCustomMemo.Create */ __fastcall virtual TMemo(Classes::TComponent* AOwner) : Stdctrls::TCustomMemo(
  430.         AOwner) { }
  431.     /* TCustomMemo.Destroy */ __fastcall virtual ~TMemo(void) { }
  432.     
  433. public:
  434.     /* TWinControl.CreateParented */ __fastcall TMemo(HWND ParentWindow) : Stdctrls::TCustomMemo(ParentWindow
  435.         ) { }
  436.     
  437. };
  438.  
  439. enum TComboBoxStyle { csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable };
  440.     
  441. enum StdCtrls_9 { odSelected, odGrayed, odDisabled, odChecked, odFocused };
  442.  
  443. typedef Set<StdCtrls_9, odSelected, odFocused>  TOwnerDrawState;
  444.  
  445. typedef void __fastcall (__closure *TDrawItemEvent)(Controls::TWinControl* Control, int Index, const 
  446.     Windows::TRect &Rect, TOwnerDrawState State);
  447.  
  448. typedef void __fastcall (__closure *TMeasureItemEvent)(Controls::TWinControl* Control, int Index, int 
  449.     &Height);
  450.  
  451. class __declspec(delphiclass) TCustomComboBox;
  452. class __declspec(pascalimplementation) TCustomComboBox : public Controls::TWinControl
  453. {
  454.     typedef Controls::TWinControl inherited;
  455.     
  456. private:
  457.     Classes::TStrings* FItems;
  458.     Graphics::TCanvas* FCanvas;
  459.     bool FSorted;
  460.     TComboBoxStyle FStyle;
  461.     int FItemHeight;
  462.     int FMaxLength;
  463.     int FDropDownCount;
  464.     HWND FEditHandle;
  465.     HWND FListHandle;
  466.     void *FEditInstance;
  467.     void *FListInstance;
  468.     void *FDefEditProc;
  469.     void *FDefListProc;
  470.     bool FIsFocused;
  471.     bool FFocusChanged;
  472.     Classes::TStringList* FSaveItems;
  473.     Classes::TNotifyEvent FOnChange;
  474.     Classes::TNotifyEvent FOnDropDown;
  475.     TDrawItemEvent FOnDrawItem;
  476.     TMeasureItemEvent FOnMeasureItem;
  477.     void __fastcall AdjustDropDown(void);
  478.     void __fastcall EditWndProc(Messages::TMessage &Message);
  479.     bool __fastcall GetDroppedDown(void);
  480.     int __fastcall GetItemIndex(void);
  481.     int __fastcall GetSelLength(void);
  482.     int __fastcall GetSelStart(void);
  483.     System::AnsiString __fastcall GetSelText(void);
  484.     void __fastcall ListWndProc(Messages::TMessage &Message);
  485.     void __fastcall SetDroppedDown(bool Value);
  486.     void __fastcall SetItems(Classes::TStrings* Value);
  487.     void __fastcall SetItemIndex(int Value);
  488.     void __fastcall SetSelLength(int Value);
  489.     void __fastcall SetSelStart(int Value);
  490.     void __fastcall SetSelText(const System::AnsiString Value);
  491.     void __fastcall SetSorted(bool Value);
  492.     int __fastcall GetItemHeight(void);
  493.     void __fastcall SetItemHeight(int Value);
  494.     void __fastcall SetMaxLength(int Value);
  495.     MESSAGE void __fastcall WMCreate(Messages::TWMCreate &Message);
  496.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  497.     MESSAGE void __fastcall CMCancelMode(Controls::TCMCancelMode &Message);
  498.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  499.     HIDESBASE MESSAGE void __fastcall CMParentColorChanged(Messages::TMessage &Message);
  500.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  501.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  502.     MESSAGE void __fastcall CNMeasureItem(Messages::TWMMeasureItem &Message);
  503.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  504.     HIDESBASE MESSAGE void __fastcall WMDrawItem(Messages::TWMDrawItem &Message);
  505.     HIDESBASE MESSAGE void __fastcall WMMeasureItem(Messages::TWMMeasureItem &Message);
  506.     HIDESBASE MESSAGE void __fastcall WMDeleteItem(Messages::TWMDeleteItem &Message);
  507.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  508.     
  509. protected:
  510.     virtual void __fastcall ComboWndProc(Messages::TMessage &Message, HWND ComboWnd, void * ComboProc);
  511.         
  512.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  513.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  514.     virtual void __fastcall CreateWnd(void);
  515.     virtual void __fastcall DestroyWnd(void);
  516.     virtual void __fastcall DrawItem(int Index, const Windows::TRect &Rect, TOwnerDrawState State);
  517.     virtual void __fastcall MeasureItem(int Index, int &Height);
  518.     virtual void __fastcall Change(void);
  519.     virtual void __fastcall DropDown(void);
  520.     virtual void __fastcall SetStyle(TComboBoxStyle Value);
  521.     __property int DropDownCount = {read=FDropDownCount, write=FDropDownCount, default=8};
  522.     __property HWND EditHandle = {read=FEditHandle, nodefault};
  523.     __property int ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault};
  524.     __property HWND ListHandle = {read=FListHandle, nodefault};
  525.     __property int MaxLength = {read=FMaxLength, write=SetMaxLength, default=0};
  526.     __property ParentColor ;
  527.     __property bool Sorted = {read=FSorted, write=SetSorted, default=0};
  528.     __property TComboBoxStyle Style = {read=FStyle, write=SetStyle, default=0};
  529.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  530.     __property Classes::TNotifyEvent OnDropDown = {read=FOnDropDown, write=FOnDropDown};
  531.     __property TDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  532.     __property TMeasureItemEvent OnMeasureItem = {read=FOnMeasureItem, write=FOnMeasureItem};
  533.     
  534. public:
  535.     __fastcall virtual TCustomComboBox(Classes::TComponent* AOwner);
  536.     __fastcall virtual ~TCustomComboBox(void);
  537.     void __fastcall Clear(void);
  538.     void __fastcall SelectAll(void);
  539.     __property Graphics::TCanvas* Canvas = {read=FCanvas, nodefault};
  540.     __property bool DroppedDown = {read=GetDroppedDown, write=SetDroppedDown, nodefault};
  541.     __property Classes::TStrings* Items = {read=FItems, write=SetItems, nodefault};
  542.     __property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
  543.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  544.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  545.     __property System::AnsiString SelText = {read=GetSelText, write=SetSelText, nodefault};
  546.     
  547. __published:
  548.     __property TabStop ;
  549. public:
  550.     /* TWinControl.CreateParented */ __fastcall TCustomComboBox(HWND ParentWindow) : Controls::TWinControl(
  551.         ParentWindow) { }
  552.     
  553. };
  554.  
  555. class __declspec(delphiclass) TComboBox;
  556. class __declspec(pascalimplementation) TComboBox : public TCustomComboBox
  557. {
  558.     typedef TCustomComboBox inherited;
  559.     
  560. __published:
  561.     __property Style ;
  562.     __property Color ;
  563.     __property Ctl3D ;
  564.     __property DragMode ;
  565.     __property DragCursor ;
  566.     __property DropDownCount ;
  567.     __property Enabled ;
  568.     __property Font ;
  569.     __property ImeMode ;
  570.     __property ImeName ;
  571.     __property ItemHeight ;
  572.     __property Items ;
  573.     __property MaxLength ;
  574.     __property ParentColor ;
  575.     __property ParentCtl3D ;
  576.     __property ParentFont ;
  577.     __property ParentShowHint ;
  578.     __property PopupMenu ;
  579.     __property ShowHint ;
  580.     __property Sorted ;
  581.     __property TabOrder ;
  582.     __property TabStop ;
  583.     __property Text ;
  584.     __property Visible ;
  585.     __property OnChange ;
  586.     __property OnClick ;
  587.     __property OnDblClick ;
  588.     __property OnDragDrop ;
  589.     __property OnDragOver ;
  590.     __property OnDrawItem ;
  591.     __property OnDropDown ;
  592.     __property OnEndDrag ;
  593.     __property OnEnter ;
  594.     __property OnExit ;
  595.     __property OnKeyDown ;
  596.     __property OnKeyPress ;
  597.     __property OnKeyUp ;
  598.     __property OnMeasureItem ;
  599.     __property OnStartDrag ;
  600. public:
  601.     /* TCustomComboBox.Create */ __fastcall virtual TComboBox(Classes::TComponent* AOwner) : Stdctrls::
  602.         TCustomComboBox(AOwner) { }
  603.     /* TCustomComboBox.Destroy */ __fastcall virtual ~TComboBox(void) { }
  604.     
  605. public:
  606.     /* TWinControl.CreateParented */ __fastcall TComboBox(HWND ParentWindow) : Stdctrls::TCustomComboBox(
  607.         ParentWindow) { }
  608.     
  609. };
  610.  
  611. class __declspec(delphiclass) TButtonControl;
  612. class __declspec(pascalimplementation) TButtonControl : public Controls::TWinControl
  613. {
  614.     typedef Controls::TWinControl inherited;
  615.     
  616. private:
  617.     bool FClicksDisabled;
  618.     Byte FReserved;
  619.     
  620. protected:
  621.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  622. public:
  623.     /* TWinControl.Create */ __fastcall virtual TButtonControl(Classes::TComponent* AOwner) : Controls::
  624.         TWinControl(AOwner) { }
  625.     /* TWinControl.CreateParented */ __fastcall TButtonControl(HWND ParentWindow) : Controls::TWinControl(
  626.         ParentWindow) { }
  627.     /* TWinControl.Destroy */ __fastcall virtual ~TButtonControl(void) { }
  628.     
  629. };
  630.  
  631. class __declspec(delphiclass) TButton;
  632. class __declspec(pascalimplementation) TButton : public TButtonControl
  633. {
  634.     typedef TButtonControl inherited;
  635.     
  636. private:
  637.     bool FDefault;
  638.     bool FCancel;
  639.     bool FActive;
  640.     Byte FReserved;
  641.     Forms::TModalResult FModalResult;
  642.     void __fastcall SetDefault(bool Value);
  643.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  644.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  645.     HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Message);
  646.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  647.     
  648. protected:
  649.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  650.     virtual void __fastcall CreateWnd(void);
  651.     virtual void __fastcall SetButtonStyle(bool ADefault);
  652.     
  653. public:
  654.     __fastcall virtual TButton(Classes::TComponent* AOwner);
  655.     virtual void __fastcall Click(void);
  656.     
  657. __published:
  658.     __property bool Cancel = {read=FCancel, write=FCancel, default=0};
  659.     __property Caption ;
  660.     __property bool Default = {read=FDefault, write=SetDefault, default=0};
  661.     __property DragCursor ;
  662.     __property DragMode ;
  663.     __property Enabled ;
  664.     __property Font ;
  665.     __property Forms::TModalResult ModalResult = {read=FModalResult, write=FModalResult, default=0};
  666.     __property ParentFont ;
  667.     __property ParentShowHint ;
  668.     __property PopupMenu ;
  669.     __property ShowHint ;
  670.     __property TabOrder ;
  671.     __property TabStop ;
  672.     __property Visible ;
  673.     __property OnClick ;
  674.     __property OnDragDrop ;
  675.     __property OnDragOver ;
  676.     __property OnEndDrag ;
  677.     __property OnEnter ;
  678.     __property OnExit ;
  679.     __property OnKeyDown ;
  680.     __property OnKeyPress ;
  681.     __property OnKeyUp ;
  682.     __property OnMouseDown ;
  683.     __property OnMouseMove ;
  684.     __property OnMouseUp ;
  685.     __property OnStartDrag ;
  686. public:
  687.     /* TWinControl.CreateParented */ __fastcall TButton(HWND ParentWindow) : Stdctrls::TButtonControl(ParentWindow
  688.         ) { }
  689.     /* TWinControl.Destroy */ __fastcall virtual ~TButton(void) { }
  690.     
  691. };
  692.  
  693. enum TCheckBoxState { cbUnchecked, cbChecked, cbGrayed };
  694.  
  695. class __declspec(delphiclass) TCustomCheckBox;
  696. class __declspec(pascalimplementation) TCustomCheckBox : public TButtonControl
  697. {
  698.     typedef TButtonControl inherited;
  699.     
  700. private:
  701.     TAlignment FAlignment;
  702.     bool FAllowGrayed;
  703.     TCheckBoxState FState;
  704.     bool __fastcall GetChecked(void);
  705.     void __fastcall SetAlignment(Classes::TLeftRight Value);
  706.     void __fastcall SetChecked(bool Value);
  707.     void __fastcall SetState(TCheckBoxState Value);
  708.     HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  709.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  710.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  711.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  712.     
  713. protected:
  714.     virtual void __fastcall Toggle(void);
  715.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  716.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  717.     virtual void __fastcall CreateWnd(void);
  718.     __property Classes::TLeftRight Alignment = {read=FAlignment, write=SetAlignment, default=1};
  719.     __property bool AllowGrayed = {read=FAllowGrayed, write=FAllowGrayed, default=0};
  720.     __property bool Checked = {read=GetChecked, write=SetChecked, stored=false, nodefault};
  721.     __property TCheckBoxState State = {read=FState, write=SetState, default=0};
  722.     
  723. public:
  724.     __fastcall virtual TCustomCheckBox(Classes::TComponent* AOwner);
  725.     
  726. __published:
  727.     __property TabStop ;
  728. public:
  729.     /* TWinControl.CreateParented */ __fastcall TCustomCheckBox(HWND ParentWindow) : Stdctrls::TButtonControl(
  730.         ParentWindow) { }
  731.     /* TWinControl.Destroy */ __fastcall virtual ~TCustomCheckBox(void) { }
  732.     
  733. };
  734.  
  735. class __declspec(delphiclass) TCheckBox;
  736. class __declspec(pascalimplementation) TCheckBox : public TCustomCheckBox
  737. {
  738.     typedef TCustomCheckBox inherited;
  739.     
  740. __published:
  741.     __property Alignment ;
  742.     __property AllowGrayed ;
  743.     __property Caption ;
  744.     __property Checked ;
  745.     __property Color ;
  746.     __property Ctl3D ;
  747.     __property DragCursor ;
  748.     __property DragMode ;
  749.     __property Enabled ;
  750.     __property Font ;
  751.     __property ParentColor ;
  752.     __property ParentCtl3D ;
  753.     __property ParentFont ;
  754.     __property ParentShowHint ;
  755.     __property PopupMenu ;
  756.     __property ShowHint ;
  757.     __property State ;
  758.     __property TabOrder ;
  759.     __property TabStop ;
  760.     __property Visible ;
  761.     __property OnClick ;
  762.     __property OnDragDrop ;
  763.     __property OnDragOver ;
  764.     __property OnEndDrag ;
  765.     __property OnEnter ;
  766.     __property OnExit ;
  767.     __property OnKeyDown ;
  768.     __property OnKeyPress ;
  769.     __property OnKeyUp ;
  770.     __property OnMouseDown ;
  771.     __property OnMouseMove ;
  772.     __property OnMouseUp ;
  773.     __property OnStartDrag ;
  774. public:
  775.     /* TCustomCheckBox.Create */ __fastcall virtual TCheckBox(Classes::TComponent* AOwner) : Stdctrls::
  776.         TCustomCheckBox(AOwner) { }
  777.     
  778. public:
  779.     /* TWinControl.CreateParented */ __fastcall TCheckBox(HWND ParentWindow) : Stdctrls::TCustomCheckBox(
  780.         ParentWindow) { }
  781.     /* TWinControl.Destroy */ __fastcall virtual ~TCheckBox(void) { }
  782.     
  783. };
  784.  
  785. class __declspec(delphiclass) TRadioButton;
  786. class __declspec(pascalimplementation) TRadioButton : public TButtonControl
  787. {
  788.     typedef TButtonControl inherited;
  789.     
  790. private:
  791.     TAlignment FAlignment;
  792.     bool FChecked;
  793.     void __fastcall SetAlignment(Classes::TLeftRight Value);
  794.     HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  795.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  796.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  797.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  798.     
  799. protected:
  800.     void __fastcall SetChecked(bool Value);
  801.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  802.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  803.     virtual void __fastcall CreateWnd(void);
  804.     
  805. public:
  806.     __fastcall virtual TRadioButton(Classes::TComponent* AOwner);
  807.     
  808. __published:
  809.     __property Classes::TLeftRight Alignment = {read=FAlignment, write=SetAlignment, default=1};
  810.     __property Caption ;
  811.     __property bool Checked = {read=FChecked, write=SetChecked, default=0};
  812.     __property Color ;
  813.     __property Ctl3D ;
  814.     __property DragCursor ;
  815.     __property DragMode ;
  816.     __property Enabled ;
  817.     __property Font ;
  818.     __property ParentColor ;
  819.     __property ParentCtl3D ;
  820.     __property ParentFont ;
  821.     __property ParentShowHint ;
  822.     __property PopupMenu ;
  823.     __property ShowHint ;
  824.     __property TabOrder ;
  825.     __property TabStop ;
  826.     __property Visible ;
  827.     __property OnClick ;
  828.     __property OnDblClick ;
  829.     __property OnDragDrop ;
  830.     __property OnDragOver ;
  831.     __property OnEndDrag ;
  832.     __property OnEnter ;
  833.     __property OnExit ;
  834.     __property OnKeyDown ;
  835.     __property OnKeyPress ;
  836.     __property OnKeyUp ;
  837.     __property OnMouseDown ;
  838.     __property OnMouseMove ;
  839.     __property OnMouseUp ;
  840.     __property OnStartDrag ;
  841. public:
  842.     /* TWinControl.CreateParented */ __fastcall TRadioButton(HWND ParentWindow) : Stdctrls::TButtonControl(
  843.         ParentWindow) { }
  844.     /* TWinControl.Destroy */ __fastcall virtual ~TRadioButton(void) { }
  845.     
  846. };
  847.  
  848. enum TListBoxStyle { lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable };
  849.  
  850. class __declspec(delphiclass) TCustomListBox;
  851. class __declspec(pascalimplementation) TCustomListBox : public Controls::TWinControl
  852. {
  853.     typedef Controls::TWinControl inherited;
  854.     
  855. private:
  856.     Classes::TStrings* FItems;
  857.     TFormBorderStyle FBorderStyle;
  858.     Graphics::TCanvas* FCanvas;
  859.     int FColumns;
  860.     int FItemHeight;
  861.     TListBoxStyle FStyle;
  862.     bool FIntegralHeight;
  863.     bool FMultiSelect;
  864.     bool FSorted;
  865.     bool FExtendedSelect;
  866.     int FTabWidth;
  867.     Classes::TStringList* FSaveItems;
  868.     int FSaveTopIndex;
  869.     int FSaveItemIndex;
  870.     TDrawItemEvent FOnDrawItem;
  871.     TMeasureItemEvent FOnMeasureItem;
  872.     int __fastcall GetItemHeight(void);
  873.     int __fastcall GetItemIndex(void);
  874.     int __fastcall GetSelCount(void);
  875.     bool __fastcall GetSelected(int Index);
  876.     int __fastcall GetTopIndex(void);
  877.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  878.     void __fastcall SetColumnWidth(void);
  879.     void __fastcall SetColumns(int Value);
  880.     void __fastcall SetExtendedSelect(bool Value);
  881.     void __fastcall SetIntegralHeight(bool Value);
  882.     void __fastcall SetItemHeight(int Value);
  883.     void __fastcall SetItems(Classes::TStrings* Value);
  884.     void __fastcall SetItemIndex(int Value);
  885.     void __fastcall SetMultiSelect(bool Value);
  886.     void __fastcall SetSelected(int Index, bool Value);
  887.     void __fastcall SetSorted(bool Value);
  888.     void __fastcall SetStyle(TListBoxStyle Value);
  889.     void __fastcall SetTabWidth(int Value);
  890.     void __fastcall SetTopIndex(int Value);
  891.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  892.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  893.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  894.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  895.     MESSAGE void __fastcall CNMeasureItem(Messages::TWMMeasureItem &Message);
  896.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  897.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  898.     
  899. protected:
  900.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  901.     virtual void __fastcall CreateWnd(void);
  902.     virtual void __fastcall DestroyWnd(void);
  903.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  904.     virtual void __fastcall DragCanceled(void);
  905.     virtual void __fastcall DrawItem(int Index, const Windows::TRect &Rect, TOwnerDrawState State);
  906.     virtual void __fastcall MeasureItem(int Index, int &Height);
  907.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  908.     __property int Columns = {read=FColumns, write=SetColumns, default=0};
  909.     __property bool ExtendedSelect = {read=FExtendedSelect, write=SetExtendedSelect, default=1};
  910.     __property bool IntegralHeight = {read=FIntegralHeight, write=SetIntegralHeight, default=0};
  911.     __property int ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault};
  912.     __property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
  913.     __property ParentColor ;
  914.     __property bool Sorted = {read=FSorted, write=SetSorted, default=0};
  915.     __property TListBoxStyle Style = {read=FStyle, write=SetStyle, default=0};
  916.     __property int TabWidth = {read=FTabWidth, write=SetTabWidth, default=0};
  917.     __property TDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  918.     __property TMeasureItemEvent OnMeasureItem = {read=FOnMeasureItem, write=FOnMeasureItem};
  919.     
  920. public:
  921.     __fastcall virtual TCustomListBox(Classes::TComponent* AOwner);
  922.     __fastcall virtual ~TCustomListBox(void);
  923.     void __fastcall Clear(void);
  924.     int __fastcall ItemAtPos(const POINT &Pos, bool Existing);
  925.     Windows::TRect __fastcall ItemRect(int Index);
  926.     __property Graphics::TCanvas* Canvas = {read=FCanvas, nodefault};
  927.     __property Classes::TStrings* Items = {read=FItems, write=SetItems, nodefault};
  928.     __property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
  929.     __property int SelCount = {read=GetSelCount, nodefault};
  930.     __property bool Selected[int Index] = {read=GetSelected, write=SetSelected};
  931.     __property int TopIndex = {read=GetTopIndex, write=SetTopIndex, nodefault};
  932.     
  933. __published:
  934.     __property TabStop ;
  935. public:
  936.     /* TWinControl.CreateParented */ __fastcall TCustomListBox(HWND ParentWindow) : Controls::TWinControl(
  937.         ParentWindow) { }
  938.     
  939. };
  940.  
  941. class __declspec(delphiclass) TListBox;
  942. class __declspec(pascalimplementation) TListBox : public TCustomListBox
  943. {
  944.     typedef TCustomListBox inherited;
  945.     
  946. __published:
  947.     __property Align ;
  948.     __property BorderStyle ;
  949.     __property Color ;
  950.     __property Columns ;
  951.     __property Ctl3D ;
  952.     __property DragCursor ;
  953.     __property DragMode ;
  954.     __property Enabled ;
  955.     __property ExtendedSelect ;
  956.     __property Font ;
  957.     __property ImeMode ;
  958.     __property ImeName ;
  959.     __property IntegralHeight ;
  960.     __property ItemHeight ;
  961.     __property Items ;
  962.     __property MultiSelect ;
  963.     __property ParentColor ;
  964.     __property ParentCtl3D ;
  965.     __property ParentFont ;
  966.     __property ParentShowHint ;
  967.     __property PopupMenu ;
  968.     __property ShowHint ;
  969.     __property Sorted ;
  970.     __property Style ;
  971.     __property TabOrder ;
  972.     __property TabStop ;
  973.     __property TabWidth ;
  974.     __property Visible ;
  975.     __property OnClick ;
  976.     __property OnDblClick ;
  977.     __property OnDragDrop ;
  978.     __property OnDragOver ;
  979.     __property OnDrawItem ;
  980.     __property OnEndDrag ;
  981.     __property OnEnter ;
  982.     __property OnExit ;
  983.     __property OnKeyDown ;
  984.     __property OnKeyPress ;
  985.     __property OnKeyUp ;
  986.     __property OnMeasureItem ;
  987.     __property OnMouseDown ;
  988.     __property OnMouseMove ;
  989.     __property OnMouseUp ;
  990.     __property OnStartDrag ;
  991. public:
  992.     /* TCustomListBox.Create */ __fastcall virtual TListBox(Classes::TComponent* AOwner) : Stdctrls::TCustomListBox(
  993.         AOwner) { }
  994.     /* TCustomListBox.Destroy */ __fastcall virtual ~TListBox(void) { }
  995.     
  996. public:
  997.     /* TWinControl.CreateParented */ __fastcall TListBox(HWND ParentWindow) : Stdctrls::TCustomListBox(
  998.         ParentWindow) { }
  999.     
  1000. };
  1001.  
  1002. enum TScrollCode { scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, 
  1003.     scEndScroll };
  1004.  
  1005. typedef void __fastcall (__closure *TScrollEvent)(System::TObject* Sender, TScrollCode ScrollCode, int 
  1006.     &ScrollPos);
  1007.  
  1008. class __declspec(delphiclass) TScrollBar;
  1009. class __declspec(pascalimplementation) TScrollBar : public Controls::TWinControl
  1010. {
  1011.     typedef Controls::TWinControl inherited;
  1012.     
  1013. private:
  1014.     TScrollBarKind FKind;
  1015.     Byte FReserved;
  1016.     int FPosition;
  1017.     int FMin;
  1018.     int FMax;
  1019.     Forms::TScrollBarInc FSmallChange;
  1020.     Forms::TScrollBarInc FLargeChange;
  1021.     Classes::TNotifyEvent FOnChange;
  1022.     TScrollEvent FOnScroll;
  1023.     void __fastcall DoScroll(Messages::TWMScroll &Message);
  1024.     void __fastcall SetKind(Forms::TScrollBarKind Value);
  1025.     void __fastcall SetMax(int Value);
  1026.     void __fastcall SetMin(int Value);
  1027.     void __fastcall SetPosition(int Value);
  1028.     MESSAGE void __fastcall CNHScroll(Messages::TWMScroll &Message);
  1029.     MESSAGE void __fastcall CNVScroll(Messages::TWMScroll &Message);
  1030.     
  1031. protected:
  1032.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1033.     virtual void __fastcall CreateWnd(void);
  1034.     virtual void __fastcall Change(void);
  1035.     virtual void __fastcall Scroll(TScrollCode ScrollCode, int &ScrollPos);
  1036.     
  1037. public:
  1038.     __fastcall virtual TScrollBar(Classes::TComponent* AOwner);
  1039.     void __fastcall SetParams(int APosition, int AMin, int AMax);
  1040.     
  1041. __published:
  1042.     __property Ctl3D ;
  1043.     __property DragCursor ;
  1044.     __property DragMode ;
  1045.     __property Enabled ;
  1046.     __property Forms::TScrollBarKind Kind = {read=FKind, write=SetKind, default=0};
  1047.     __property Forms::TScrollBarInc LargeChange = {read=FLargeChange, write=FLargeChange, default=1};
  1048.     __property int Max = {read=FMax, write=SetMax, default=100};
  1049.     __property int Min = {read=FMin, write=SetMin, default=0};
  1050.     __property ParentCtl3D ;
  1051.     __property ParentShowHint ;
  1052.     __property PopupMenu ;
  1053.     __property int Position = {read=FPosition, write=SetPosition, default=0};
  1054.     __property ShowHint ;
  1055.     __property Forms::TScrollBarInc SmallChange = {read=FSmallChange, write=FSmallChange, default=1};
  1056.     __property TabOrder ;
  1057.     __property TabStop ;
  1058.     __property Visible ;
  1059.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  1060.     __property OnDragDrop ;
  1061.     __property OnDragOver ;
  1062.     __property OnEndDrag ;
  1063.     __property OnEnter ;
  1064.     __property OnExit ;
  1065.     __property OnKeyDown ;
  1066.     __property OnKeyPress ;
  1067.     __property OnKeyUp ;
  1068.     __property TScrollEvent OnScroll = {read=FOnScroll, write=FOnScroll};
  1069.     __property OnStartDrag ;
  1070. public:
  1071.     /* TWinControl.CreateParented */ __fastcall TScrollBar(HWND ParentWindow) : Controls::TWinControl(ParentWindow
  1072.         ) { }
  1073.     /* TWinControl.Destroy */ __fastcall virtual ~TScrollBar(void) { }
  1074.     
  1075. };
  1076.  
  1077. //-- var, const, procedure ---------------------------------------------------
  1078. //-- template instantiations -------------------------------------------------
  1079. template class TOwnerDrawState ;
  1080.  
  1081. }    /* namespace Stdctrls */
  1082.  
  1083. #pragma warn .par
  1084. #pragma warn .hid 
  1085. #pragma warn .inl
  1086.  
  1087. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1088. using namespace Stdctrls;
  1089. #endif
  1090. //-- end unit ----------------------------------------------------------------
  1091. #endif    // StdCtrls
  1092.