home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / stdctrls.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  50KB  |  1,466 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) 'StdCtrls.pas' rev: 5.00
  6.  
  7. #ifndef StdCtrlsHPP
  8. #define StdCtrlsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ActnList.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 Stdctrls
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. class DELPHICLASS TCustomGroupBox;
  31. class PASCALIMPLEMENTATION TCustomGroupBox : public Controls::TCustomControl 
  32. {
  33.     typedef Controls::TCustomControl inherited;
  34.     
  35. private:
  36.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  37.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  38.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  39.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Message);
  40.     
  41. protected:
  42.     virtual void __fastcall AdjustClientRect(Windows::TRect &Rect);
  43.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  44.     virtual void __fastcall Paint(void);
  45.     
  46. public:
  47.     __fastcall virtual TCustomGroupBox(Classes::TComponent* AOwner);
  48. public:
  49.     #pragma option push -w-inl
  50.     /* TCustomControl.Destroy */ inline __fastcall virtual ~TCustomGroupBox(void) { }
  51.     #pragma option pop
  52.     
  53. public:
  54.     #pragma option push -w-inl
  55.     /* TWinControl.CreateParented */ inline __fastcall TCustomGroupBox(HWND ParentWindow) : Controls::TCustomControl(
  56.         ParentWindow) { }
  57.     #pragma option pop
  58.     
  59. };
  60.  
  61.  
  62. class DELPHICLASS TGroupBox;
  63. class PASCALIMPLEMENTATION TGroupBox : public TCustomGroupBox 
  64. {
  65.     typedef TCustomGroupBox inherited;
  66.     
  67. __published:
  68.     __property Align ;
  69.     __property Anchors ;
  70.     __property BiDiMode ;
  71.     __property Caption ;
  72.     __property Color ;
  73.     __property Constraints ;
  74.     __property Ctl3D ;
  75.     __property DockSite ;
  76.     __property DragCursor ;
  77.     __property DragKind ;
  78.     __property DragMode ;
  79.     __property Enabled ;
  80.     __property Font ;
  81.     __property ParentBiDiMode ;
  82.     __property ParentColor ;
  83.     __property ParentCtl3D ;
  84.     __property ParentFont ;
  85.     __property ParentShowHint ;
  86.     __property PopupMenu ;
  87.     __property ShowHint ;
  88.     __property TabOrder ;
  89.     __property TabStop ;
  90.     __property Visible ;
  91.     __property OnClick ;
  92.     __property OnContextPopup ;
  93.     __property OnDblClick ;
  94.     __property OnDragDrop ;
  95.     __property OnDockDrop ;
  96.     __property OnDockOver ;
  97.     __property OnDragOver ;
  98.     __property OnEndDock ;
  99.     __property OnEndDrag ;
  100.     __property OnEnter ;
  101.     __property OnExit ;
  102.     __property OnGetSiteInfo ;
  103.     __property OnMouseDown ;
  104.     __property OnMouseMove ;
  105.     __property OnMouseUp ;
  106.     __property OnStartDock ;
  107.     __property OnStartDrag ;
  108.     __property OnUnDock ;
  109. public:
  110.     #pragma option push -w-inl
  111.     /* TCustomGroupBox.Create */ inline __fastcall virtual TGroupBox(Classes::TComponent* AOwner) : TCustomGroupBox(
  112.         AOwner) { }
  113.     #pragma option pop
  114.     
  115. public:
  116.     #pragma option push -w-inl
  117.     /* TCustomControl.Destroy */ inline __fastcall virtual ~TGroupBox(void) { }
  118.     #pragma option pop
  119.     
  120. public:
  121.     #pragma option push -w-inl
  122.     /* TWinControl.CreateParented */ inline __fastcall TGroupBox(HWND ParentWindow) : TCustomGroupBox(ParentWindow
  123.         ) { }
  124.     #pragma option pop
  125.     
  126. };
  127.  
  128.  
  129. #pragma option push -b-
  130. enum TTextLayout { tlTop, tlCenter, tlBottom };
  131. #pragma option pop
  132.  
  133. class DELPHICLASS TCustomLabel;
  134. class PASCALIMPLEMENTATION TCustomLabel : public Controls::TGraphicControl 
  135. {
  136.     typedef Controls::TGraphicControl inherited;
  137.     
  138. private:
  139.     Controls::TWinControl* FFocusControl;
  140.     Classes::TAlignment FAlignment;
  141.     bool FAutoSize;
  142.     TTextLayout FLayout;
  143.     bool FWordWrap;
  144.     bool FShowAccelChar;
  145.     bool __fastcall GetTransparent(void);
  146.     void __fastcall SetAlignment(Classes::TAlignment Value);
  147.     void __fastcall SetFocusControl(Controls::TWinControl* Value);
  148.     void __fastcall SetShowAccelChar(bool Value);
  149.     void __fastcall SetTransparent(bool Value);
  150.     void __fastcall SetLayout(TTextLayout Value);
  151.     void __fastcall SetWordWrap(bool Value);
  152.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  153.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  154.     MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  155.     
  156. protected:
  157.     DYNAMIC void __fastcall AdjustBounds(void);
  158.     DYNAMIC void __fastcall DoDrawText(Windows::TRect &Rect, int Flags);
  159.     virtual AnsiString __fastcall GetLabelText();
  160.     virtual void __fastcall Loaded(void);
  161.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  162.         );
  163.     virtual void __fastcall Paint(void);
  164.     HIDESBASE virtual void __fastcall SetAutoSize(bool Value);
  165.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  166.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  167.     __property Controls::TWinControl* FocusControl = {read=FFocusControl, write=SetFocusControl};
  168.     __property bool ShowAccelChar = {read=FShowAccelChar, write=SetShowAccelChar, default=1};
  169.     __property bool Transparent = {read=GetTransparent, write=SetTransparent, default=0};
  170.     __property TTextLayout Layout = {read=FLayout, write=SetLayout, default=0};
  171.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=0};
  172.     
  173. public:
  174.     __fastcall virtual TCustomLabel(Classes::TComponent* AOwner);
  175.     __property Canvas ;
  176. public:
  177.     #pragma option push -w-inl
  178.     /* TGraphicControl.Destroy */ inline __fastcall virtual ~TCustomLabel(void) { }
  179.     #pragma option pop
  180.     
  181. };
  182.  
  183.  
  184. class DELPHICLASS TLabel;
  185. class PASCALIMPLEMENTATION TLabel : public TCustomLabel 
  186. {
  187.     typedef TCustomLabel inherited;
  188.     
  189. __published:
  190.     __property Align ;
  191.     __property Alignment ;
  192.     __property Anchors ;
  193.     __property AutoSize ;
  194.     __property BiDiMode ;
  195.     __property Caption ;
  196.     __property Color ;
  197.     __property Constraints ;
  198.     __property DragCursor ;
  199.     __property DragKind ;
  200.     __property DragMode ;
  201.     __property Enabled ;
  202.     __property FocusControl ;
  203.     __property Font ;
  204.     __property ParentBiDiMode ;
  205.     __property ParentColor ;
  206.     __property ParentFont ;
  207.     __property ParentShowHint ;
  208.     __property PopupMenu ;
  209.     __property ShowAccelChar ;
  210.     __property ShowHint ;
  211.     __property Transparent ;
  212.     __property Layout ;
  213.     __property Visible ;
  214.     __property WordWrap ;
  215.     __property OnClick ;
  216.     __property OnContextPopup ;
  217.     __property OnDblClick ;
  218.     __property OnDragDrop ;
  219.     __property OnDragOver ;
  220.     __property OnEndDock ;
  221.     __property OnEndDrag ;
  222.     __property OnMouseDown ;
  223.     __property OnMouseMove ;
  224.     __property OnMouseUp ;
  225.     __property OnStartDock ;
  226.     __property OnStartDrag ;
  227. public:
  228.     #pragma option push -w-inl
  229.     /* TCustomLabel.Create */ inline __fastcall virtual TLabel(Classes::TComponent* AOwner) : TCustomLabel(
  230.         AOwner) { }
  231.     #pragma option pop
  232.     
  233. public:
  234.     #pragma option push -w-inl
  235.     /* TGraphicControl.Destroy */ inline __fastcall virtual ~TLabel(void) { }
  236.     #pragma option pop
  237.     
  238. };
  239.  
  240.  
  241. #pragma option push -b-
  242. enum TEditCharCase { ecNormal, ecUpperCase, ecLowerCase };
  243. #pragma option pop
  244.  
  245. class DELPHICLASS TCustomEdit;
  246. class PASCALIMPLEMENTATION TCustomEdit : public Controls::TWinControl 
  247. {
  248.     typedef Controls::TWinControl inherited;
  249.     
  250. private:
  251.     int FMaxLength;
  252.     Forms::TFormBorderStyle FBorderStyle;
  253.     char FPasswordChar;
  254.     bool FReadOnly;
  255.     bool FAutoSize;
  256.     bool FAutoSelect;
  257.     bool FHideSelection;
  258.     bool FOEMConvert;
  259.     TEditCharCase FCharCase;
  260.     bool FCreating;
  261.     bool FModified;
  262.     Classes::TNotifyEvent FOnChange;
  263.     void __fastcall AdjustHeight(void);
  264.     bool __fastcall GetModified(void);
  265.     bool __fastcall GetCanUndo(void);
  266.     HIDESBASE void __fastcall SetAutoSize(bool Value);
  267.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  268.     void __fastcall SetCharCase(TEditCharCase Value);
  269.     void __fastcall SetHideSelection(bool Value);
  270.     void __fastcall SetMaxLength(int Value);
  271.     void __fastcall SetModified(bool Value);
  272.     void __fastcall SetOEMConvert(bool Value);
  273.     void __fastcall SetPasswordChar(char Value);
  274.     void __fastcall SetReadOnly(bool Value);
  275.     void __fastcall SetSelText(const AnsiString Value);
  276.     void __fastcall UpdateHeight(void);
  277.     MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);
  278.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  279.     HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  280.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  281.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  282.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  283.     
  284. protected:
  285.     DYNAMIC void __fastcall Change(void);
  286.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  287.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  288.     virtual void __fastcall CreateWnd(void);
  289.     virtual void __fastcall DestroyWnd(void);
  290.     virtual void __fastcall DoSetMaxLength(int Value);
  291.     virtual int __fastcall GetSelLength(void);
  292.     virtual int __fastcall GetSelStart(void);
  293.     virtual AnsiString __fastcall GetSelText();
  294.     virtual void __fastcall SetSelLength(int Value);
  295.     virtual void __fastcall SetSelStart(int Value);
  296.     __property bool AutoSelect = {read=FAutoSelect, write=FAutoSelect, default=1};
  297.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  298.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  299.     __property TEditCharCase CharCase = {read=FCharCase, write=SetCharCase, default=0};
  300.     __property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
  301.     __property int MaxLength = {read=FMaxLength, write=SetMaxLength, default=0};
  302.     __property bool OEMConvert = {read=FOEMConvert, write=SetOEMConvert, default=0};
  303.     __property char PasswordChar = {read=FPasswordChar, write=SetPasswordChar, default=0};
  304.     __property ParentColor ;
  305.     __property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, default=0};
  306.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  307.     
  308. public:
  309.     __fastcall virtual TCustomEdit(Classes::TComponent* AOwner);
  310.     virtual void __fastcall Clear(void);
  311.     void __fastcall ClearSelection(void);
  312.     void __fastcall CopyToClipboard(void);
  313.     void __fastcall CutToClipboard(void);
  314.     virtual void __fastcall DefaultHandler(void *Message);
  315.     void __fastcall PasteFromClipboard(void);
  316.     void __fastcall Undo(void);
  317.     void __fastcall ClearUndo(void);
  318.     virtual int __fastcall GetSelTextBuf(char * Buffer, int BufSize);
  319.     void __fastcall SelectAll(void);
  320.     void __fastcall SetSelTextBuf(char * Buffer);
  321.     __property bool CanUndo = {read=GetCanUndo, nodefault};
  322.     __property bool Modified = {read=GetModified, write=SetModified, nodefault};
  323.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  324.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  325.     __property AnsiString SelText = {read=GetSelText, write=SetSelText};
  326.     __property Text ;
  327.     
  328. __published:
  329.     __property TabStop ;
  330. public:
  331.     #pragma option push -w-inl
  332.     /* TWinControl.CreateParented */ inline __fastcall TCustomEdit(HWND ParentWindow) : Controls::TWinControl(
  333.         ParentWindow) { }
  334.     #pragma option pop
  335.     #pragma option push -w-inl
  336.     /* TWinControl.Destroy */ inline __fastcall virtual ~TCustomEdit(void) { }
  337.     #pragma option pop
  338.     
  339. };
  340.  
  341.  
  342. class DELPHICLASS TEdit;
  343. class PASCALIMPLEMENTATION TEdit : public TCustomEdit 
  344. {
  345.     typedef TCustomEdit inherited;
  346.     
  347. __published:
  348.     __property Anchors ;
  349.     __property AutoSelect ;
  350.     __property AutoSize ;
  351.     __property BiDiMode ;
  352.     __property BorderStyle ;
  353.     __property CharCase ;
  354.     __property Color ;
  355.     __property Constraints ;
  356.     __property Ctl3D ;
  357.     __property DragCursor ;
  358.     __property DragKind ;
  359.     __property DragMode ;
  360.     __property Enabled ;
  361.     __property Font ;
  362.     __property HideSelection ;
  363.     __property ImeMode ;
  364.     __property ImeName ;
  365.     __property MaxLength ;
  366.     __property OEMConvert ;
  367.     __property ParentBiDiMode ;
  368.     __property ParentColor ;
  369.     __property ParentCtl3D ;
  370.     __property ParentFont ;
  371.     __property ParentShowHint ;
  372.     __property PasswordChar ;
  373.     __property PopupMenu ;
  374.     __property ReadOnly ;
  375.     __property ShowHint ;
  376.     __property TabOrder ;
  377.     __property TabStop ;
  378.     __property Text ;
  379.     __property Visible ;
  380.     __property OnChange ;
  381.     __property OnClick ;
  382.     __property OnContextPopup ;
  383.     __property OnDblClick ;
  384.     __property OnDragDrop ;
  385.     __property OnDragOver ;
  386.     __property OnEndDock ;
  387.     __property OnEndDrag ;
  388.     __property OnEnter ;
  389.     __property OnExit ;
  390.     __property OnKeyDown ;
  391.     __property OnKeyPress ;
  392.     __property OnKeyUp ;
  393.     __property OnMouseDown ;
  394.     __property OnMouseMove ;
  395.     __property OnMouseUp ;
  396.     __property OnStartDock ;
  397.     __property OnStartDrag ;
  398. public:
  399.     #pragma option push -w-inl
  400.     /* TCustomEdit.Create */ inline __fastcall virtual TEdit(Classes::TComponent* AOwner) : TCustomEdit(
  401.         AOwner) { }
  402.     #pragma option pop
  403.     
  404. public:
  405.     #pragma option push -w-inl
  406.     /* TWinControl.CreateParented */ inline __fastcall TEdit(HWND ParentWindow) : TCustomEdit(ParentWindow
  407.         ) { }
  408.     #pragma option pop
  409.     #pragma option push -w-inl
  410.     /* TWinControl.Destroy */ inline __fastcall virtual ~TEdit(void) { }
  411.     #pragma option pop
  412.     
  413. };
  414.  
  415.  
  416. #pragma option push -b-
  417. enum TScrollStyle { ssNone, ssHorizontal, ssVertical, ssBoth };
  418. #pragma option pop
  419.  
  420. class DELPHICLASS TCustomMemo;
  421. class PASCALIMPLEMENTATION TCustomMemo : public TCustomEdit 
  422. {
  423.     typedef TCustomEdit inherited;
  424.     
  425. private:
  426.     Classes::TStrings* FLines;
  427.     Classes::TAlignment FAlignment;
  428.     TScrollStyle FScrollBars;
  429.     bool FWordWrap;
  430.     bool FWantReturns;
  431.     bool FWantTabs;
  432.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  433.     HIDESBASE MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
  434.     
  435. protected:
  436.     virtual Windows::TPoint __fastcall GetCaretPos();
  437.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  438.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  439.     DYNAMIC void __fastcall KeyPress(char &Key);
  440.     virtual void __fastcall Loaded(void);
  441.     void __fastcall SetAlignment(Classes::TAlignment Value);
  442.     void __fastcall SetLines(Classes::TStrings* Value);
  443.     void __fastcall SetScrollBars(TScrollStyle Value);
  444.     void __fastcall SetWordWrap(bool Value);
  445.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  446.     __property TScrollStyle ScrollBars = {read=FScrollBars, write=SetScrollBars, default=0};
  447.     __property bool WantReturns = {read=FWantReturns, write=FWantReturns, default=1};
  448.     __property bool WantTabs = {read=FWantTabs, write=FWantTabs, default=0};
  449.     __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=1};
  450.     
  451. public:
  452.     __fastcall virtual TCustomMemo(Classes::TComponent* AOwner);
  453.     __fastcall virtual ~TCustomMemo(void);
  454.     DYNAMIC Classes::TAlignment __fastcall GetControlsAlignment(void);
  455.     __property Windows::TPoint CaretPos = {read=GetCaretPos};
  456.     __property Classes::TStrings* Lines = {read=FLines, write=SetLines};
  457. public:
  458.     #pragma option push -w-inl
  459.     /* TWinControl.CreateParented */ inline __fastcall TCustomMemo(HWND ParentWindow) : TCustomEdit(ParentWindow
  460.         ) { }
  461.     #pragma option pop
  462.     
  463. };
  464.  
  465.  
  466. class DELPHICLASS TMemo;
  467. class PASCALIMPLEMENTATION TMemo : public TCustomMemo 
  468. {
  469.     typedef TCustomMemo inherited;
  470.     
  471. __published:
  472.     __property Align ;
  473.     __property Alignment ;
  474.     __property Anchors ;
  475.     __property BiDiMode ;
  476.     __property BorderStyle ;
  477.     __property Color ;
  478.     __property Constraints ;
  479.     __property Ctl3D ;
  480.     __property DragCursor ;
  481.     __property DragKind ;
  482.     __property DragMode ;
  483.     __property Enabled ;
  484.     __property Font ;
  485.     __property HideSelection ;
  486.     __property ImeMode ;
  487.     __property ImeName ;
  488.     __property Lines ;
  489.     __property MaxLength ;
  490.     __property OEMConvert ;
  491.     __property ParentBiDiMode ;
  492.     __property ParentColor ;
  493.     __property ParentCtl3D ;
  494.     __property ParentFont ;
  495.     __property ParentShowHint ;
  496.     __property PopupMenu ;
  497.     __property ReadOnly ;
  498.     __property ScrollBars ;
  499.     __property ShowHint ;
  500.     __property TabOrder ;
  501.     __property TabStop ;
  502.     __property Visible ;
  503.     __property WantReturns ;
  504.     __property WantTabs ;
  505.     __property WordWrap ;
  506.     __property OnChange ;
  507.     __property OnClick ;
  508.     __property OnContextPopup ;
  509.     __property OnDblClick ;
  510.     __property OnDragDrop ;
  511.     __property OnDragOver ;
  512.     __property OnEndDock ;
  513.     __property OnEndDrag ;
  514.     __property OnEnter ;
  515.     __property OnExit ;
  516.     __property OnKeyDown ;
  517.     __property OnKeyPress ;
  518.     __property OnKeyUp ;
  519.     __property OnMouseDown ;
  520.     __property OnMouseMove ;
  521.     __property OnMouseUp ;
  522.     __property OnStartDock ;
  523.     __property OnStartDrag ;
  524. public:
  525.     #pragma option push -w-inl
  526.     /* TCustomMemo.Create */ inline __fastcall virtual TMemo(Classes::TComponent* AOwner) : TCustomMemo(
  527.         AOwner) { }
  528.     #pragma option pop
  529.     #pragma option push -w-inl
  530.     /* TCustomMemo.Destroy */ inline __fastcall virtual ~TMemo(void) { }
  531.     #pragma option pop
  532.     
  533. public:
  534.     #pragma option push -w-inl
  535.     /* TWinControl.CreateParented */ inline __fastcall TMemo(HWND ParentWindow) : TCustomMemo(ParentWindow
  536.         ) { }
  537.     #pragma option pop
  538.     
  539. };
  540.  
  541.  
  542. #pragma option push -b-
  543. enum TComboBoxStyle { csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable };
  544.     
  545. #pragma option pop
  546.  
  547. typedef void __fastcall (__closure *TDrawItemEvent)(Controls::TWinControl* Control, int Index, const 
  548.     Windows::TRect &Rect, Windows::TOwnerDrawState State);
  549.  
  550. typedef void __fastcall (__closure *TMeasureItemEvent)(Controls::TWinControl* Control, int Index, int 
  551.     &Height);
  552.  
  553. class DELPHICLASS TCustomComboBox;
  554. class PASCALIMPLEMENTATION TCustomComboBox : public Controls::TWinControl 
  555. {
  556.     typedef Controls::TWinControl inherited;
  557.     
  558. private:
  559.     Classes::TStrings* FItems;
  560.     Graphics::TCanvas* FCanvas;
  561.     TEditCharCase FCharCase;
  562.     bool FSorted;
  563.     TComboBoxStyle FStyle;
  564.     int FItemHeight;
  565.     int FMaxLength;
  566.     int FDropDownCount;
  567.     HWND FEditHandle;
  568.     HWND FListHandle;
  569.     void *FEditInstance;
  570.     void *FListInstance;
  571.     void *FDefEditProc;
  572.     void *FDefListProc;
  573.     bool FIsFocused;
  574.     bool FFocusChanged;
  575.     Classes::TStringList* FSaveItems;
  576.     int FSaveIndex;
  577.     bool FDroppingDown;
  578.     Classes::TNotifyEvent FOnChange;
  579.     Classes::TNotifyEvent FOnDropDown;
  580.     TDrawItemEvent FOnDrawItem;
  581.     TMeasureItemEvent FOnMeasureItem;
  582.     void __fastcall AdjustDropDown(void);
  583.     void __fastcall EditWndProc(Messages::TMessage &Message);
  584.     bool __fastcall GetDroppedDown(void);
  585.     int __fastcall GetItemIndex(void);
  586.     int __fastcall GetSelLength(void);
  587.     int __fastcall GetSelStart(void);
  588.     AnsiString __fastcall GetSelText();
  589.     void __fastcall ListWndProc(Messages::TMessage &Message);
  590.     void __fastcall SetCharCase(TEditCharCase Value);
  591.     void __fastcall SetDroppedDown(bool Value);
  592.     void __fastcall SetItems(Classes::TStrings* Value);
  593.     void __fastcall SetItemIndex(int Value);
  594.     void __fastcall SetSelLength(int Value);
  595.     void __fastcall SetSelStart(int Value);
  596.     void __fastcall SetSelText(const AnsiString Value);
  597.     void __fastcall SetSorted(bool Value);
  598.     int __fastcall GetItemHeight(void);
  599.     void __fastcall SetItemHeight(int Value);
  600.     void __fastcall SetMaxLength(int Value);
  601.     MESSAGE void __fastcall WMCreate(Messages::TWMCreate &Message);
  602.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  603.     MESSAGE void __fastcall CMCancelMode(Controls::TCMCancelMode &Message);
  604.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  605.     HIDESBASE MESSAGE void __fastcall CMParentColorChanged(Messages::TMessage &Message);
  606.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  607.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  608.     MESSAGE void __fastcall CNMeasureItem(Messages::TWMMeasureItem &Message);
  609.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  610.     HIDESBASE MESSAGE void __fastcall WMDrawItem(Messages::TWMDrawItem &Message);
  611.     HIDESBASE MESSAGE void __fastcall WMMeasureItem(Messages::TWMMeasureItem &Message);
  612.     HIDESBASE MESSAGE void __fastcall WMDeleteItem(Messages::TWMDeleteItem &Message);
  613.     MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  614.     
  615. protected:
  616.     virtual void __fastcall ComboWndProc(Messages::TMessage &Message, HWND ComboWnd, void * ComboProc);
  617.         
  618.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  619.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  620.     virtual void __fastcall CreateWnd(void);
  621.     virtual void __fastcall DestroyWnd(void);
  622.     virtual void __fastcall DrawItem(int Index, const Windows::TRect &Rect, Windows::TOwnerDrawState State
  623.         );
  624.     virtual HWND __fastcall GetComboControl(void);
  625.     virtual void __fastcall MeasureItem(int Index, int &Height);
  626.     DYNAMIC void __fastcall Change(void);
  627.     DYNAMIC void __fastcall DropDown(void);
  628.     virtual void __fastcall SetStyle(TComboBoxStyle Value);
  629.     __property int DropDownCount = {read=FDropDownCount, write=FDropDownCount, default=8};
  630.     __property HWND EditHandle = {read=FEditHandle, nodefault};
  631.     __property int ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault};
  632.     __property HWND ListHandle = {read=FListHandle, nodefault};
  633.     __property int MaxLength = {read=FMaxLength, write=SetMaxLength, default=0};
  634.     __property ParentColor ;
  635.     __property bool Sorted = {read=FSorted, write=SetSorted, default=0};
  636.     __property TComboBoxStyle Style = {read=FStyle, write=SetStyle, default=0};
  637.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  638.     __property Classes::TNotifyEvent OnDropDown = {read=FOnDropDown, write=FOnDropDown};
  639.     __property TDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  640.     __property TMeasureItemEvent OnMeasureItem = {read=FOnMeasureItem, write=FOnMeasureItem};
  641.     
  642. public:
  643.     __fastcall virtual TCustomComboBox(Classes::TComponent* AOwner);
  644.     __fastcall virtual ~TCustomComboBox(void);
  645.     void __fastcall Clear(void);
  646.     DYNAMIC bool __fastcall Focused(void);
  647.     void __fastcall SelectAll(void);
  648.     __property TEditCharCase CharCase = {read=FCharCase, write=SetCharCase, default=0};
  649.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  650.     __property bool DroppedDown = {read=GetDroppedDown, write=SetDroppedDown, nodefault};
  651.     __property Classes::TStrings* Items = {read=FItems, write=SetItems};
  652.     __property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
  653.     __property int SelLength = {read=GetSelLength, write=SetSelLength, nodefault};
  654.     __property int SelStart = {read=GetSelStart, write=SetSelStart, nodefault};
  655.     __property AnsiString SelText = {read=GetSelText, write=SetSelText};
  656.     
  657. __published:
  658.     __property TabStop ;
  659. public:
  660.     #pragma option push -w-inl
  661.     /* TWinControl.CreateParented */ inline __fastcall TCustomComboBox(HWND ParentWindow) : Controls::TWinControl(
  662.         ParentWindow) { }
  663.     #pragma option pop
  664.     
  665. };
  666.  
  667.  
  668. class DELPHICLASS TComboBox;
  669. class PASCALIMPLEMENTATION TComboBox : public TCustomComboBox 
  670. {
  671.     typedef TCustomComboBox inherited;
  672.     
  673. __published:
  674.     __property Style ;
  675.     __property Anchors ;
  676.     __property BiDiMode ;
  677.     __property Color ;
  678.     __property Constraints ;
  679.     __property Ctl3D ;
  680.     __property DragCursor ;
  681.     __property DragKind ;
  682.     __property DragMode ;
  683.     __property DropDownCount ;
  684.     __property Enabled ;
  685.     __property Font ;
  686.     __property ImeMode ;
  687.     __property ImeName ;
  688.     __property ItemHeight ;
  689.     __property MaxLength ;
  690.     __property ParentBiDiMode ;
  691.     __property ParentColor ;
  692.     __property ParentCtl3D ;
  693.     __property ParentFont ;
  694.     __property ParentShowHint ;
  695.     __property PopupMenu ;
  696.     __property ShowHint ;
  697.     __property Sorted ;
  698.     __property TabOrder ;
  699.     __property TabStop ;
  700.     __property Text ;
  701.     __property Visible ;
  702.     __property OnChange ;
  703.     __property OnClick ;
  704.     __property OnContextPopup ;
  705.     __property OnDblClick ;
  706.     __property OnDragDrop ;
  707.     __property OnDragOver ;
  708.     __property OnDrawItem ;
  709.     __property OnDropDown ;
  710.     __property OnEndDock ;
  711.     __property OnEndDrag ;
  712.     __property OnEnter ;
  713.     __property OnExit ;
  714.     __property OnKeyDown ;
  715.     __property OnKeyPress ;
  716.     __property OnKeyUp ;
  717.     __property OnMeasureItem ;
  718.     __property OnStartDock ;
  719.     __property OnStartDrag ;
  720.     __property Items ;
  721. public:
  722.     #pragma option push -w-inl
  723.     /* TCustomComboBox.Create */ inline __fastcall virtual TComboBox(Classes::TComponent* AOwner) : TCustomComboBox(
  724.         AOwner) { }
  725.     #pragma option pop
  726.     #pragma option push -w-inl
  727.     /* TCustomComboBox.Destroy */ inline __fastcall virtual ~TComboBox(void) { }
  728.     #pragma option pop
  729.     
  730. public:
  731.     #pragma option push -w-inl
  732.     /* TWinControl.CreateParented */ inline __fastcall TComboBox(HWND ParentWindow) : TCustomComboBox(ParentWindow
  733.         ) { }
  734.     #pragma option pop
  735.     
  736. };
  737.  
  738.  
  739. class DELPHICLASS TButtonActionLink;
  740. class DELPHICLASS TButtonControl;
  741. class PASCALIMPLEMENTATION TButtonControl : public Controls::TWinControl 
  742. {
  743.     typedef Controls::TWinControl inherited;
  744.     
  745. private:
  746.     bool FClicksDisabled;
  747.     bool __fastcall IsCheckedStored(void);
  748.     
  749. protected:
  750.     DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
  751.     DYNAMIC TMetaClass* __fastcall GetActionLinkClass(void);
  752.     virtual bool __fastcall GetChecked(void);
  753.     virtual void __fastcall SetChecked(bool Value);
  754.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  755.     __property bool Checked = {read=GetChecked, write=SetChecked, stored=IsCheckedStored, default=0};
  756.     __property bool ClicksDisabled = {read=FClicksDisabled, write=FClicksDisabled, nodefault};
  757.     
  758. public:
  759.     __fastcall virtual TButtonControl(Classes::TComponent* AOwner);
  760. public:
  761.     #pragma option push -w-inl
  762.     /* TWinControl.CreateParented */ inline __fastcall TButtonControl(HWND ParentWindow) : Controls::TWinControl(
  763.         ParentWindow) { }
  764.     #pragma option pop
  765.     #pragma option push -w-inl
  766.     /* TWinControl.Destroy */ inline __fastcall virtual ~TButtonControl(void) { }
  767.     #pragma option pop
  768.     
  769. };
  770.  
  771.  
  772. class PASCALIMPLEMENTATION TButtonActionLink : public Controls::TWinControlActionLink 
  773. {
  774.     typedef Controls::TWinControlActionLink inherited;
  775.     
  776. protected:
  777.     TButtonControl* FClient;
  778.     virtual void __fastcall AssignClient(System::TObject* AClient);
  779.     virtual bool __fastcall IsCheckedLinked(void);
  780.     virtual void __fastcall SetChecked(bool Value);
  781. public:
  782.     #pragma option push -w-inl
  783.     /* TBasicActionLink.Create */ inline __fastcall virtual TButtonActionLink(System::TObject* AClient)
  784.          : Controls::TWinControlActionLink(AClient) { }
  785.     #pragma option pop
  786.     #pragma option push -w-inl
  787.     /* TBasicActionLink.Destroy */ inline __fastcall virtual ~TButtonActionLink(void) { }
  788.     #pragma option pop
  789.     
  790. };
  791.  
  792.  
  793. typedef TMetaClass*TButtonActionLinkClass;
  794.  
  795. class DELPHICLASS TButton;
  796. class PASCALIMPLEMENTATION TButton : public TButtonControl 
  797. {
  798.     typedef TButtonControl inherited;
  799.     
  800. private:
  801.     bool FDefault;
  802.     bool FCancel;
  803.     bool FActive;
  804.     Forms::TModalResult FModalResult;
  805.     void __fastcall SetDefault(bool Value);
  806.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  807.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  808.     HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Message);
  809.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  810.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  811.     
  812. protected:
  813.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  814.     virtual void __fastcall CreateWnd(void);
  815.     virtual void __fastcall SetButtonStyle(bool ADefault);
  816.     
  817. public:
  818.     __fastcall virtual TButton(Classes::TComponent* AOwner);
  819.     DYNAMIC void __fastcall Click(void);
  820.     DYNAMIC bool __fastcall UseRightToLeftAlignment(void);
  821.     
  822. __published:
  823.     __property Action ;
  824.     __property Anchors ;
  825.     __property BiDiMode ;
  826.     __property bool Cancel = {read=FCancel, write=FCancel, default=0};
  827.     __property Caption ;
  828.     __property Constraints ;
  829.     __property bool Default = {read=FDefault, write=SetDefault, default=0};
  830.     __property DragCursor ;
  831.     __property DragKind ;
  832.     __property DragMode ;
  833.     __property Enabled ;
  834.     __property Font ;
  835.     __property Forms::TModalResult ModalResult = {read=FModalResult, write=FModalResult, default=0};
  836.     __property ParentBiDiMode ;
  837.     __property ParentFont ;
  838.     __property ParentShowHint ;
  839.     __property PopupMenu ;
  840.     __property ShowHint ;
  841.     __property TabOrder ;
  842.     __property TabStop ;
  843.     __property Visible ;
  844.     __property OnClick ;
  845.     __property OnContextPopup ;
  846.     __property OnDragDrop ;
  847.     __property OnDragOver ;
  848.     __property OnEndDock ;
  849.     __property OnEndDrag ;
  850.     __property OnEnter ;
  851.     __property OnExit ;
  852.     __property OnKeyDown ;
  853.     __property OnKeyPress ;
  854.     __property OnKeyUp ;
  855.     __property OnMouseDown ;
  856.     __property OnMouseMove ;
  857.     __property OnMouseUp ;
  858.     __property OnStartDock ;
  859.     __property OnStartDrag ;
  860. public:
  861.     #pragma option push -w-inl
  862.     /* TWinControl.CreateParented */ inline __fastcall TButton(HWND ParentWindow) : TButtonControl(ParentWindow
  863.         ) { }
  864.     #pragma option pop
  865.     #pragma option push -w-inl
  866.     /* TWinControl.Destroy */ inline __fastcall virtual ~TButton(void) { }
  867.     #pragma option pop
  868.     
  869. };
  870.  
  871.  
  872. #pragma option push -b-
  873. enum TCheckBoxState { cbUnchecked, cbChecked, cbGrayed };
  874. #pragma option pop
  875.  
  876. class DELPHICLASS TCustomCheckBox;
  877. class PASCALIMPLEMENTATION TCustomCheckBox : public TButtonControl 
  878. {
  879.     typedef TButtonControl inherited;
  880.     
  881. private:
  882.     Classes::TAlignment FAlignment;
  883.     bool FAllowGrayed;
  884.     TCheckBoxState FState;
  885.     void __fastcall SetAlignment(Classes::TLeftRight Value);
  886.     void __fastcall SetState(TCheckBoxState Value);
  887.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Message);
  888.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  889.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  890.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  891.     
  892. protected:
  893.     virtual void __fastcall Toggle(void);
  894.     DYNAMIC void __fastcall Click(void);
  895.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  896.     virtual void __fastcall CreateWnd(void);
  897.     virtual bool __fastcall GetChecked(void);
  898.     virtual void __fastcall SetChecked(bool Value);
  899.     __property Classes::TLeftRight Alignment = {read=FAlignment, write=SetAlignment, default=1};
  900.     __property bool AllowGrayed = {read=FAllowGrayed, write=FAllowGrayed, default=0};
  901.     __property TCheckBoxState State = {read=FState, write=SetState, default=0};
  902.     
  903. public:
  904.     __fastcall virtual TCustomCheckBox(Classes::TComponent* AOwner);
  905.     DYNAMIC Classes::TAlignment __fastcall GetControlsAlignment(void);
  906.     
  907. __published:
  908.     __property TabStop ;
  909. public:
  910.     #pragma option push -w-inl
  911.     /* TWinControl.CreateParented */ inline __fastcall TCustomCheckBox(HWND ParentWindow) : TButtonControl(
  912.         ParentWindow) { }
  913.     #pragma option pop
  914.     #pragma option push -w-inl
  915.     /* TWinControl.Destroy */ inline __fastcall virtual ~TCustomCheckBox(void) { }
  916.     #pragma option pop
  917.     
  918. };
  919.  
  920.  
  921. class DELPHICLASS TCheckBox;
  922. class PASCALIMPLEMENTATION TCheckBox : public TCustomCheckBox 
  923. {
  924.     typedef TCustomCheckBox inherited;
  925.     
  926. __published:
  927.     __property Action ;
  928.     __property Alignment ;
  929.     __property AllowGrayed ;
  930.     __property Anchors ;
  931.     __property BiDiMode ;
  932.     __property Caption ;
  933.     __property Checked ;
  934.     __property Color ;
  935.     __property Constraints ;
  936.     __property Ctl3D ;
  937.     __property DragCursor ;
  938.     __property DragKind ;
  939.     __property DragMode ;
  940.     __property Enabled ;
  941.     __property Font ;
  942.     __property ParentBiDiMode ;
  943.     __property ParentColor ;
  944.     __property ParentCtl3D ;
  945.     __property ParentFont ;
  946.     __property ParentShowHint ;
  947.     __property PopupMenu ;
  948.     __property ShowHint ;
  949.     __property State ;
  950.     __property TabOrder ;
  951.     __property TabStop ;
  952.     __property Visible ;
  953.     __property OnClick ;
  954.     __property OnContextPopup ;
  955.     __property OnDragDrop ;
  956.     __property OnDragOver ;
  957.     __property OnEndDock ;
  958.     __property OnEndDrag ;
  959.     __property OnEnter ;
  960.     __property OnExit ;
  961.     __property OnKeyDown ;
  962.     __property OnKeyPress ;
  963.     __property OnKeyUp ;
  964.     __property OnMouseDown ;
  965.     __property OnMouseMove ;
  966.     __property OnMouseUp ;
  967.     __property OnStartDock ;
  968.     __property OnStartDrag ;
  969. public:
  970.     #pragma option push -w-inl
  971.     /* TCustomCheckBox.Create */ inline __fastcall virtual TCheckBox(Classes::TComponent* AOwner) : TCustomCheckBox(
  972.         AOwner) { }
  973.     #pragma option pop
  974.     
  975. public:
  976.     #pragma option push -w-inl
  977.     /* TWinControl.CreateParented */ inline __fastcall TCheckBox(HWND ParentWindow) : TCustomCheckBox(ParentWindow
  978.         ) { }
  979.     #pragma option pop
  980.     #pragma option push -w-inl
  981.     /* TWinControl.Destroy */ inline __fastcall virtual ~TCheckBox(void) { }
  982.     #pragma option pop
  983.     
  984. };
  985.  
  986.  
  987. class DELPHICLASS TRadioButton;
  988. class PASCALIMPLEMENTATION TRadioButton : public TButtonControl 
  989. {
  990.     typedef TButtonControl inherited;
  991.     
  992. private:
  993.     Classes::TAlignment FAlignment;
  994.     bool FChecked;
  995.     void __fastcall SetAlignment(Classes::TLeftRight Value);
  996.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  997.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  998.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  999.     
  1000. protected:
  1001.     virtual bool __fastcall GetChecked(void);
  1002.     virtual void __fastcall SetChecked(bool Value);
  1003.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1004.     virtual void __fastcall CreateWnd(void);
  1005.     
  1006. public:
  1007.     __fastcall virtual TRadioButton(Classes::TComponent* AOwner);
  1008.     DYNAMIC Classes::TAlignment __fastcall GetControlsAlignment(void);
  1009.     
  1010. __published:
  1011.     __property Action ;
  1012.     __property Classes::TLeftRight Alignment = {read=FAlignment, write=SetAlignment, default=1};
  1013.     __property Anchors ;
  1014.     __property BiDiMode ;
  1015.     __property Caption ;
  1016.     __property Checked ;
  1017.     __property Color ;
  1018.     __property Constraints ;
  1019.     __property Ctl3D ;
  1020.     __property DragCursor ;
  1021.     __property DragKind ;
  1022.     __property DragMode ;
  1023.     __property Enabled ;
  1024.     __property Font ;
  1025.     __property ParentBiDiMode ;
  1026.     __property ParentColor ;
  1027.     __property ParentCtl3D ;
  1028.     __property ParentFont ;
  1029.     __property ParentShowHint ;
  1030.     __property PopupMenu ;
  1031.     __property ShowHint ;
  1032.     __property TabOrder ;
  1033.     __property TabStop ;
  1034.     __property Visible ;
  1035.     __property OnClick ;
  1036.     __property OnContextPopup ;
  1037.     __property OnDblClick ;
  1038.     __property OnDragDrop ;
  1039.     __property OnDragOver ;
  1040.     __property OnEndDock ;
  1041.     __property OnEndDrag ;
  1042.     __property OnEnter ;
  1043.     __property OnExit ;
  1044.     __property OnKeyDown ;
  1045.     __property OnKeyPress ;
  1046.     __property OnKeyUp ;
  1047.     __property OnMouseDown ;
  1048.     __property OnMouseMove ;
  1049.     __property OnMouseUp ;
  1050.     __property OnStartDock ;
  1051.     __property OnStartDrag ;
  1052. public:
  1053.     #pragma option push -w-inl
  1054.     /* TWinControl.CreateParented */ inline __fastcall TRadioButton(HWND ParentWindow) : TButtonControl(
  1055.         ParentWindow) { }
  1056.     #pragma option pop
  1057.     #pragma option push -w-inl
  1058.     /* TWinControl.Destroy */ inline __fastcall virtual ~TRadioButton(void) { }
  1059.     #pragma option pop
  1060.     
  1061. };
  1062.  
  1063.  
  1064. #pragma option push -b-
  1065. enum TListBoxStyle { lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable };
  1066. #pragma option pop
  1067.  
  1068. class DELPHICLASS TCustomListBox;
  1069. class PASCALIMPLEMENTATION TCustomListBox : public Controls::TWinControl 
  1070. {
  1071.     typedef Controls::TWinControl inherited;
  1072.     
  1073. private:
  1074.     Classes::TStrings* FItems;
  1075.     Forms::TFormBorderStyle FBorderStyle;
  1076.     Graphics::TCanvas* FCanvas;
  1077.     int FColumns;
  1078.     int FItemHeight;
  1079.     TListBoxStyle FStyle;
  1080.     bool FIntegralHeight;
  1081.     bool FMultiSelect;
  1082.     bool FSorted;
  1083.     bool FExtendedSelect;
  1084.     int FTabWidth;
  1085.     Classes::TStringList* FSaveItems;
  1086.     int FSaveTopIndex;
  1087.     int FSaveItemIndex;
  1088.     TDrawItemEvent FOnDrawItem;
  1089.     TMeasureItemEvent FOnMeasureItem;
  1090.     int __fastcall GetItemHeight(void);
  1091.     int __fastcall GetItemIndex(void);
  1092.     int __fastcall GetSelCount(void);
  1093.     bool __fastcall GetSelected(int Index);
  1094.     int __fastcall GetTopIndex(void);
  1095.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  1096.     void __fastcall SetColumnWidth(void);
  1097.     void __fastcall SetColumns(int Value);
  1098.     void __fastcall SetExtendedSelect(bool Value);
  1099.     void __fastcall SetIntegralHeight(bool Value);
  1100.     void __fastcall SetItemHeight(int Value);
  1101.     void __fastcall SetItems(Classes::TStrings* Value);
  1102.     void __fastcall SetItemIndex(int Value);
  1103.     void __fastcall SetMultiSelect(bool Value);
  1104.     void __fastcall SetSelected(int Index, bool Value);
  1105.     void __fastcall SetSorted(bool Value);
  1106.     void __fastcall SetStyle(TListBoxStyle Value);
  1107.     void __fastcall SetTabWidth(int Value);
  1108.     void __fastcall SetTopIndex(int Value);
  1109.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  1110.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  1111.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  1112.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  1113.     MESSAGE void __fastcall CNMeasureItem(Messages::TWMMeasureItem &Message);
  1114.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  1115.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  1116.     
  1117. protected:
  1118.     bool FMoving;
  1119.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1120.     virtual void __fastcall CreateWnd(void);
  1121.     virtual void __fastcall DestroyWnd(void);
  1122.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  1123.     DYNAMIC void __fastcall DragCanceled(void);
  1124.     virtual void __fastcall DrawItem(int Index, const Windows::TRect &Rect, Windows::TOwnerDrawState State
  1125.         );
  1126.     virtual void __fastcall MeasureItem(int Index, int &Height);
  1127.     DYNAMIC int __fastcall InternalGetItemData(int Index);
  1128.     DYNAMIC void __fastcall InternalSetItemData(int Index, int AData);
  1129.     DYNAMIC int __fastcall GetItemData(int Index);
  1130.     DYNAMIC void __fastcall SetItemData(int Index, int AData);
  1131.     DYNAMIC void __fastcall ResetContent(void);
  1132.     DYNAMIC void __fastcall DeleteString(int Index);
  1133.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  1134.     __property int Columns = {read=FColumns, write=SetColumns, default=0};
  1135.     __property bool ExtendedSelect = {read=FExtendedSelect, write=SetExtendedSelect, default=1};
  1136.     __property bool IntegralHeight = {read=FIntegralHeight, write=SetIntegralHeight, default=0};
  1137.     __property int ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault};
  1138.     __property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
  1139.     __property ParentColor ;
  1140.     __property bool Sorted = {read=FSorted, write=SetSorted, default=0};
  1141.     __property TListBoxStyle Style = {read=FStyle, write=SetStyle, default=0};
  1142.     __property int TabWidth = {read=FTabWidth, write=SetTabWidth, default=0};
  1143.     __property TDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  1144.     __property TMeasureItemEvent OnMeasureItem = {read=FOnMeasureItem, write=FOnMeasureItem};
  1145.     
  1146. public:
  1147.     __fastcall virtual TCustomListBox(Classes::TComponent* AOwner);
  1148.     __fastcall virtual ~TCustomListBox(void);
  1149.     void __fastcall Clear(void);
  1150.     int __fastcall ItemAtPos(const Windows::TPoint &Pos, bool Existing);
  1151.     Windows::TRect __fastcall ItemRect(int Index);
  1152.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  1153.     __property Classes::TStrings* Items = {read=FItems, write=SetItems};
  1154.     __property int ItemIndex = {read=GetItemIndex, write=SetItemIndex, nodefault};
  1155.     __property int SelCount = {read=GetSelCount, nodefault};
  1156.     __property bool Selected[int Index] = {read=GetSelected, write=SetSelected};
  1157.     __property int TopIndex = {read=GetTopIndex, write=SetTopIndex, nodefault};
  1158.     
  1159. __published:
  1160.     __property TabStop ;
  1161. public:
  1162.     #pragma option push -w-inl
  1163.     /* TWinControl.CreateParented */ inline __fastcall TCustomListBox(HWND ParentWindow) : Controls::TWinControl(
  1164.         ParentWindow) { }
  1165.     #pragma option pop
  1166.     
  1167. };
  1168.  
  1169.  
  1170. class DELPHICLASS TListBox;
  1171. class PASCALIMPLEMENTATION TListBox : public TCustomListBox 
  1172. {
  1173.     typedef TCustomListBox inherited;
  1174.     
  1175. __published:
  1176.     __property Align ;
  1177.     __property Anchors ;
  1178.     __property BiDiMode ;
  1179.     __property BorderStyle ;
  1180.     __property Color ;
  1181.     __property Columns ;
  1182.     __property Constraints ;
  1183.     __property Ctl3D ;
  1184.     __property DragCursor ;
  1185.     __property DragKind ;
  1186.     __property DragMode ;
  1187.     __property Enabled ;
  1188.     __property ExtendedSelect ;
  1189.     __property Font ;
  1190.     __property ImeMode ;
  1191.     __property ImeName ;
  1192.     __property IntegralHeight ;
  1193.     __property ItemHeight ;
  1194.     __property Items ;
  1195.     __property MultiSelect ;
  1196.     __property ParentBiDiMode ;
  1197.     __property ParentColor ;
  1198.     __property ParentCtl3D ;
  1199.     __property ParentFont ;
  1200.     __property ParentShowHint ;
  1201.     __property PopupMenu ;
  1202.     __property ShowHint ;
  1203.     __property Sorted ;
  1204.     __property Style ;
  1205.     __property TabOrder ;
  1206.     __property TabStop ;
  1207.     __property TabWidth ;
  1208.     __property Visible ;
  1209.     __property OnClick ;
  1210.     __property OnContextPopup ;
  1211.     __property OnDblClick ;
  1212.     __property OnDragDrop ;
  1213.     __property OnDragOver ;
  1214.     __property OnDrawItem ;
  1215.     __property OnEndDock ;
  1216.     __property OnEndDrag ;
  1217.     __property OnEnter ;
  1218.     __property OnExit ;
  1219.     __property OnKeyDown ;
  1220.     __property OnKeyPress ;
  1221.     __property OnKeyUp ;
  1222.     __property OnMeasureItem ;
  1223.     __property OnMouseDown ;
  1224.     __property OnMouseMove ;
  1225.     __property OnMouseUp ;
  1226.     __property OnStartDock ;
  1227.     __property OnStartDrag ;
  1228. public:
  1229.     #pragma option push -w-inl
  1230.     /* TCustomListBox.Create */ inline __fastcall virtual TListBox(Classes::TComponent* AOwner) : TCustomListBox(
  1231.         AOwner) { }
  1232.     #pragma option pop
  1233.     #pragma option push -w-inl
  1234.     /* TCustomListBox.Destroy */ inline __fastcall virtual ~TListBox(void) { }
  1235.     #pragma option pop
  1236.     
  1237. public:
  1238.     #pragma option push -w-inl
  1239.     /* TWinControl.CreateParented */ inline __fastcall TListBox(HWND ParentWindow) : TCustomListBox(ParentWindow
  1240.         ) { }
  1241.     #pragma option pop
  1242.     
  1243. };
  1244.  
  1245.  
  1246. #pragma option push -b-
  1247. enum TScrollCode { scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, 
  1248.     scEndScroll };
  1249. #pragma option pop
  1250.  
  1251. typedef void __fastcall (__closure *TScrollEvent)(System::TObject* Sender, TScrollCode ScrollCode, int 
  1252.     &ScrollPos);
  1253.  
  1254. class DELPHICLASS TScrollBar;
  1255. class PASCALIMPLEMENTATION TScrollBar : public Controls::TWinControl 
  1256. {
  1257.     typedef Controls::TWinControl inherited;
  1258.     
  1259. private:
  1260.     Forms::TScrollBarKind FKind;
  1261.     int FPosition;
  1262.     int FMin;
  1263.     int FMax;
  1264.     int FPageSize;
  1265.     int FRTLFactor;
  1266.     Forms::TScrollBarInc FSmallChange;
  1267.     Forms::TScrollBarInc FLargeChange;
  1268.     Classes::TNotifyEvent FOnChange;
  1269.     TScrollEvent FOnScroll;
  1270.     void __fastcall DoScroll(Messages::TWMScroll &Message);
  1271.     bool __fastcall NotRightToLeft(void);
  1272.     void __fastcall SetKind(Forms::TScrollBarKind Value);
  1273.     void __fastcall SetMax(int Value);
  1274.     void __fastcall SetMin(int Value);
  1275.     void __fastcall SetPosition(int Value);
  1276.     void __fastcall SetPageSize(int Value);
  1277.     MESSAGE void __fastcall CNHScroll(Messages::TWMScroll &Message);
  1278.     MESSAGE void __fastcall CNVScroll(Messages::TWMScroll &Message);
  1279.     MESSAGE void __fastcall CNCtlColorScrollBar(Messages::TMessage &Message);
  1280.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  1281.     
  1282. protected:
  1283.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1284.     virtual void __fastcall CreateWnd(void);
  1285.     DYNAMIC void __fastcall Change(void);
  1286.     DYNAMIC void __fastcall Scroll(TScrollCode ScrollCode, int &ScrollPos);
  1287.     
  1288. public:
  1289.     __fastcall virtual TScrollBar(Classes::TComponent* AOwner);
  1290.     void __fastcall SetParams(int APosition, int AMin, int AMax);
  1291.     
  1292. __published:
  1293.     __property Align ;
  1294.     __property Anchors ;
  1295.     __property BiDiMode ;
  1296.     __property Constraints ;
  1297.     __property Ctl3D ;
  1298.     __property DragCursor ;
  1299.     __property DragKind ;
  1300.     __property DragMode ;
  1301.     __property Enabled ;
  1302.     __property Forms::TScrollBarKind Kind = {read=FKind, write=SetKind, default=0};
  1303.     __property Forms::TScrollBarInc LargeChange = {read=FLargeChange, write=FLargeChange, default=1};
  1304.     __property int Max = {read=FMax, write=SetMax, default=100};
  1305.     __property int Min = {read=FMin, write=SetMin, default=0};
  1306.     __property int PageSize = {read=FPageSize, write=SetPageSize, nodefault};
  1307.     __property ParentBiDiMode ;
  1308.     __property ParentCtl3D ;
  1309.     __property ParentShowHint ;
  1310.     __property PopupMenu ;
  1311.     __property int Position = {read=FPosition, write=SetPosition, default=0};
  1312.     __property ShowHint ;
  1313.     __property Forms::TScrollBarInc SmallChange = {read=FSmallChange, write=FSmallChange, default=1};
  1314.     __property TabOrder ;
  1315.     __property TabStop ;
  1316.     __property Visible ;
  1317.     __property OnContextPopup ;
  1318.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  1319.     __property OnDragDrop ;
  1320.     __property OnDragOver ;
  1321.     __property OnEndDock ;
  1322.     __property OnEndDrag ;
  1323.     __property OnEnter ;
  1324.     __property OnExit ;
  1325.     __property OnKeyDown ;
  1326.     __property OnKeyPress ;
  1327.     __property OnKeyUp ;
  1328.     __property TScrollEvent OnScroll = {read=FOnScroll, write=FOnScroll};
  1329.     __property OnStartDock ;
  1330.     __property OnStartDrag ;
  1331. public:
  1332.     #pragma option push -w-inl
  1333.     /* TWinControl.CreateParented */ inline __fastcall TScrollBar(HWND ParentWindow) : Controls::TWinControl(
  1334.         ParentWindow) { }
  1335.     #pragma option pop
  1336.     #pragma option push -w-inl
  1337.     /* TWinControl.Destroy */ inline __fastcall virtual ~TScrollBar(void) { }
  1338.     #pragma option pop
  1339.     
  1340. };
  1341.  
  1342.  
  1343. #pragma option push -b-
  1344. enum TStaticBorderStyle { sbsNone, sbsSingle, sbsSunken };
  1345. #pragma option pop
  1346.  
  1347. class DELPHICLASS TCustomStaticText;
  1348. class PASCALIMPLEMENTATION TCustomStaticText : public Controls::TWinControl 
  1349. {
  1350.     typedef Controls::TWinControl inherited;
  1351.     
  1352. private:
  1353.     Classes::TAlignment FAlignment;
  1354.     bool FAutoSize;
  1355.     TStaticBorderStyle FBorderStyle;
  1356.     Controls::TWinControl* FFocusControl;
  1357.     bool FShowAccelChar;
  1358.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  1359.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  1360.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  1361.     void __fastcall AdjustBounds(void);
  1362.     void __fastcall SetAlignment(Classes::TAlignment Value);
  1363.     HIDESBASE void __fastcall SetAutoSize(bool Value);
  1364.     void __fastcall SetBorderStyle(TStaticBorderStyle Value);
  1365.     void __fastcall SetFocusControl(Controls::TWinControl* Value);
  1366.     void __fastcall SetShowAccelChar(bool Value);
  1367.     
  1368. protected:
  1369.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1370.     virtual void __fastcall Loaded(void);
  1371.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  1372.         );
  1373.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  1374.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  1375.     __property TStaticBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=0};
  1376.     __property Controls::TWinControl* FocusControl = {read=FFocusControl, write=SetFocusControl};
  1377.     __property bool ShowAccelChar = {read=FShowAccelChar, write=SetShowAccelChar, default=1};
  1378.     
  1379. public:
  1380.     __fastcall virtual TCustomStaticText(Classes::TComponent* AOwner);
  1381. public:
  1382.     #pragma option push -w-inl
  1383.     /* TWinControl.CreateParented */ inline __fastcall TCustomStaticText(HWND ParentWindow) : Controls::TWinControl(
  1384.         ParentWindow) { }
  1385.     #pragma option pop
  1386.     #pragma option push -w-inl
  1387.     /* TWinControl.Destroy */ inline __fastcall virtual ~TCustomStaticText(void) { }
  1388.     #pragma option pop
  1389.     
  1390. };
  1391.  
  1392.  
  1393. class DELPHICLASS TStaticText;
  1394. class PASCALIMPLEMENTATION TStaticText : public TCustomStaticText 
  1395. {
  1396.     typedef TCustomStaticText inherited;
  1397.     
  1398. __published:
  1399.     __property Align ;
  1400.     __property Alignment ;
  1401.     __property Anchors ;
  1402.     __property AutoSize ;
  1403.     __property BiDiMode ;
  1404.     __property BorderStyle ;
  1405.     __property Caption ;
  1406.     __property Color ;
  1407.     __property Constraints ;
  1408.     __property DragCursor ;
  1409.     __property DragKind ;
  1410.     __property DragMode ;
  1411.     __property Enabled ;
  1412.     __property FocusControl ;
  1413.     __property Font ;
  1414.     __property ParentBiDiMode ;
  1415.     __property ParentColor ;
  1416.     __property ParentFont ;
  1417.     __property ParentShowHint ;
  1418.     __property PopupMenu ;
  1419.     __property ShowAccelChar ;
  1420.     __property ShowHint ;
  1421.     __property TabOrder ;
  1422.     __property TabStop ;
  1423.     __property Visible ;
  1424.     __property OnClick ;
  1425.     __property OnContextPopup ;
  1426.     __property OnDblClick ;
  1427.     __property OnDragDrop ;
  1428.     __property OnDragOver ;
  1429.     __property OnEndDock ;
  1430.     __property OnEndDrag ;
  1431.     __property OnMouseDown ;
  1432.     __property OnMouseMove ;
  1433.     __property OnMouseUp ;
  1434.     __property OnStartDock ;
  1435.     __property OnStartDrag ;
  1436. public:
  1437.     #pragma option push -w-inl
  1438.     /* TCustomStaticText.Create */ inline __fastcall virtual TStaticText(Classes::TComponent* AOwner) : 
  1439.         TCustomStaticText(AOwner) { }
  1440.     #pragma option pop
  1441.     
  1442. public:
  1443.     #pragma option push -w-inl
  1444.     /* TWinControl.CreateParented */ inline __fastcall TStaticText(HWND ParentWindow) : TCustomStaticText(
  1445.         ParentWindow) { }
  1446.     #pragma option pop
  1447.     #pragma option push -w-inl
  1448.     /* TWinControl.Destroy */ inline __fastcall virtual ~TStaticText(void) { }
  1449.     #pragma option pop
  1450.     
  1451. };
  1452.  
  1453.  
  1454. //-- var, const, procedure ---------------------------------------------------
  1455.  
  1456. }    /* namespace Stdctrls */
  1457. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1458. using namespace Stdctrls;
  1459. #endif
  1460. #pragma option pop    // -w-
  1461. #pragma option pop    // -Vx
  1462.  
  1463. #pragma delphiheader end.
  1464. //-- end unit ----------------------------------------------------------------
  1465. #endif    // StdCtrls
  1466.