home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / comctrls.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  177KB  |  4,490 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) 'ComCtrls.pas' rev: 5.00
  6.  
  7. #ifndef ComCtrlsHPP
  8. #define ComCtrlsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ActnList.hpp>    // Pascal unit
  14. #include <ExtCtrls.hpp>    // Pascal unit
  15. #include <ImgList.hpp>    // Pascal unit
  16. #include <ToolWin.hpp>    // Pascal unit
  17. #include <RichEdit.hpp>    // Pascal unit
  18. #include <StdCtrls.hpp>    // Pascal unit
  19. #include <Graphics.hpp>    // Pascal unit
  20. #include <Menus.hpp>    // Pascal unit
  21. #include <Forms.hpp>    // Pascal unit
  22. #include <Controls.hpp>    // Pascal unit
  23. #include <Classes.hpp>    // Pascal unit
  24. #include <Commctrl.hpp>    // Pascal unit
  25. #include <SysUtils.hpp>    // Pascal unit
  26. #include <Windows.hpp>    // Pascal unit
  27. #include <Messages.hpp>    // Pascal unit
  28. #include <SysInit.hpp>    // Pascal unit
  29. #include <System.hpp>    // Pascal unit
  30.  
  31. //-- user supplied -----------------------------------------------------------
  32.  
  33. namespace Comctrls
  34. {
  35. //-- type declarations -------------------------------------------------------
  36. #pragma option push -b-
  37. enum THitTest { htAbove, htBelow, htNowhere, htOnItem, htOnButton, htOnIcon, htOnIndent, htOnLabel, 
  38.     htOnRight, htOnStateIcon, htToLeft, htToRight };
  39. #pragma option pop
  40.  
  41. typedef Set<THitTest, htAbove, htToRight>  THitTests;
  42.  
  43. typedef void __fastcall (__closure *TTabChangingEvent)(System::TObject* Sender, bool &AllowChange);
  44.  
  45. #pragma option push -b-
  46. enum TTabPosition { tpTop, tpBottom, tpLeft, tpRight };
  47. #pragma option pop
  48.  
  49. #pragma option push -b-
  50. enum TTabStyle { tsTabs, tsButtons, tsFlatButtons };
  51. #pragma option pop
  52.  
  53. class DELPHICLASS TCustomTabControl;
  54. typedef void __fastcall (__closure *TDrawTabEvent)(TCustomTabControl* Control, int TabIndex, const Windows::TRect 
  55.     &Rect, bool Active);
  56.  
  57. typedef void __fastcall (__closure *TTabGetImageEvent)(System::TObject* Sender, int TabIndex, int &ImageIndex
  58.     );
  59.  
  60. class PASCALIMPLEMENTATION TCustomTabControl : public Controls::TWinControl 
  61. {
  62.     typedef Controls::TWinControl inherited;
  63.     
  64. private:
  65.     Graphics::TCanvas* FCanvas;
  66.     bool FHotTrack;
  67.     Imglist::TChangeLink* FImageChangeLink;
  68.     Imglist::TCustomImageList* FImages;
  69.     bool FMultiLine;
  70.     bool FMultiSelect;
  71.     bool FOwnerDraw;
  72.     bool FRaggedRight;
  73.     int FSaveTabIndex;
  74.     Classes::TStringList* FSaveTabs;
  75.     bool FScrollOpposite;
  76.     TTabStyle FStyle;
  77.     TTabPosition FTabPosition;
  78.     Classes::TStrings* FTabs;
  79.     #pragma pack(push, 1)
  80.     Windows::TSmallPoint FTabSize;
  81.     #pragma pack(pop)
  82.     
  83.     bool FUpdating;
  84.     Classes::TNotifyEvent FOnChange;
  85.     TTabChangingEvent FOnChanging;
  86.     TDrawTabEvent FOnDrawTab;
  87.     TTabGetImageEvent FOnGetImageIndex;
  88.     Windows::TRect __fastcall GetDisplayRect();
  89.     int __fastcall GetTabIndex(void);
  90.     void __fastcall ImageListChange(System::TObject* Sender);
  91.     bool __fastcall InternalSetMultiLine(bool Value);
  92.     void __fastcall SetHotTrack(bool Value);
  93.     void __fastcall SetImages(Imglist::TCustomImageList* Value);
  94.     void __fastcall SetMultiLine(bool Value);
  95.     void __fastcall SetMultiSelect(bool Value);
  96.     void __fastcall SetOwnerDraw(bool Value);
  97.     void __fastcall SetRaggedRight(bool Value);
  98.     void __fastcall SetScrollOpposite(bool Value);
  99.     void __fastcall SetStyle(TTabStyle Value);
  100.     void __fastcall SetTabHeight(short Value);
  101.     void __fastcall SetTabIndex(int Value);
  102.     void __fastcall SetTabPosition(TTabPosition Value);
  103.     void __fastcall SetTabs(Classes::TStrings* Value);
  104.     void __fastcall SetTabWidth(short Value);
  105.     void __fastcall TabsChanged(void);
  106.     void __fastcall UpdateTabSize(void);
  107.     HIDESBASE MESSAGE void __fastcall CMFontChanged(void *Message);
  108.     HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
  109.     MESSAGE void __fastcall CMTabStopChanged(Messages::TMessage &Message);
  110.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  111.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  112.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  113.     HIDESBASE MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
  114.     MESSAGE void __fastcall WMNotifyFormat(Messages::TMessage &Message);
  115.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Message);
  116.     
  117. protected:
  118.     virtual void __fastcall AdjustClientRect(Windows::TRect &Rect);
  119.     DYNAMIC bool __fastcall CanChange(void);
  120.     virtual bool __fastcall CanShowTab(int TabIndex);
  121.     DYNAMIC void __fastcall Change(void);
  122.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  123.     virtual void __fastcall CreateWnd(void);
  124.     virtual void __fastcall DrawTab(int TabIndex, const Windows::TRect &Rect, bool Active);
  125.     virtual int __fastcall GetImageIndex(int TabIndex);
  126.     virtual void __fastcall Loaded(void);
  127.     void __fastcall UpdateTabImages(void);
  128.     __property Windows::TRect DisplayRect = {read=GetDisplayRect};
  129.     __property bool HotTrack = {read=FHotTrack, write=SetHotTrack, default=0};
  130.     __property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
  131.     __property bool MultiLine = {read=FMultiLine, write=SetMultiLine, default=0};
  132.     __property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
  133.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  134.         );
  135.     __property bool OwnerDraw = {read=FOwnerDraw, write=SetOwnerDraw, default=0};
  136.     __property bool RaggedRight = {read=FRaggedRight, write=SetRaggedRight, default=0};
  137.     __property bool ScrollOpposite = {read=FScrollOpposite, write=SetScrollOpposite, default=0};
  138.     __property TTabStyle Style = {read=FStyle, write=SetStyle, default=0};
  139.     __property short TabHeight = {read=FTabSize.y, write=SetTabHeight, default=0};
  140.     __property int TabIndex = {read=GetTabIndex, write=SetTabIndex, default=-1};
  141.     __property TTabPosition TabPosition = {read=FTabPosition, write=SetTabPosition, default=0};
  142.     __property Classes::TStrings* Tabs = {read=FTabs, write=SetTabs};
  143.     __property short TabWidth = {read=FTabSize.x, write=SetTabWidth, default=0};
  144.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  145.     __property TTabChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  146.     __property TDrawTabEvent OnDrawTab = {read=FOnDrawTab, write=FOnDrawTab};
  147.     __property TTabGetImageEvent OnGetImageIndex = {read=FOnGetImageIndex, write=FOnGetImageIndex};
  148.     
  149. public:
  150.     __fastcall virtual TCustomTabControl(Classes::TComponent* AOwner);
  151.     __fastcall virtual ~TCustomTabControl(void);
  152.     int __fastcall IndexOfTabAt(int X, int Y);
  153.     THitTests __fastcall GetHitTestInfoAt(int X, int Y);
  154.     Windows::TRect __fastcall TabRect(int Index);
  155.     int __fastcall RowCount(void);
  156.     void __fastcall ScrollTabs(int Delta);
  157.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  158.     __property TabStop ;
  159. public:
  160.     #pragma option push -w-inl
  161.     /* TWinControl.CreateParented */ inline __fastcall TCustomTabControl(HWND ParentWindow) : Controls::TWinControl(
  162.         ParentWindow) { }
  163.     #pragma option pop
  164.     
  165. };
  166.  
  167.  
  168. class DELPHICLASS TTabControl;
  169. class PASCALIMPLEMENTATION TTabControl : public TCustomTabControl 
  170. {
  171.     typedef TCustomTabControl inherited;
  172.     
  173. public:
  174.     __property DisplayRect ;
  175.     
  176. __published:
  177.     __property Align ;
  178.     __property Anchors ;
  179.     __property BiDiMode ;
  180.     __property Constraints ;
  181.     __property DockSite ;
  182.     __property DragCursor ;
  183.     __property DragKind ;
  184.     __property DragMode ;
  185.     __property Enabled ;
  186.     __property Font ;
  187.     __property HotTrack ;
  188.     __property Images ;
  189.     __property MultiLine ;
  190.     __property MultiSelect ;
  191.     __property OwnerDraw ;
  192.     __property ParentBiDiMode ;
  193.     __property ParentFont ;
  194.     __property ParentShowHint ;
  195.     __property PopupMenu ;
  196.     __property RaggedRight ;
  197.     __property ScrollOpposite ;
  198.     __property ShowHint ;
  199.     __property Style ;
  200.     __property TabHeight ;
  201.     __property TabOrder ;
  202.     __property TabPosition ;
  203.     __property Tabs ;
  204.     __property TabIndex ;
  205.     __property TabStop ;
  206.     __property TabWidth ;
  207.     __property Visible ;
  208.     __property OnChange ;
  209.     __property OnChanging ;
  210.     __property OnContextPopup ;
  211.     __property OnDockDrop ;
  212.     __property OnDockOver ;
  213.     __property OnDragDrop ;
  214.     __property OnDragOver ;
  215.     __property OnDrawTab ;
  216.     __property OnEndDock ;
  217.     __property OnEndDrag ;
  218.     __property OnEnter ;
  219.     __property OnExit ;
  220.     __property OnGetImageIndex ;
  221.     __property OnGetSiteInfo ;
  222.     __property OnMouseDown ;
  223.     __property OnMouseMove ;
  224.     __property OnMouseUp ;
  225.     __property OnResize ;
  226.     __property OnStartDock ;
  227.     __property OnStartDrag ;
  228.     __property OnUnDock ;
  229. public:
  230.     #pragma option push -w-inl
  231.     /* TCustomTabControl.Create */ inline __fastcall virtual TTabControl(Classes::TComponent* AOwner) : 
  232.         TCustomTabControl(AOwner) { }
  233.     #pragma option pop
  234.     #pragma option push -w-inl
  235.     /* TCustomTabControl.Destroy */ inline __fastcall virtual ~TTabControl(void) { }
  236.     #pragma option pop
  237.     
  238. public:
  239.     #pragma option push -w-inl
  240.     /* TWinControl.CreateParented */ inline __fastcall TTabControl(HWND ParentWindow) : TCustomTabControl(
  241.         ParentWindow) { }
  242.     #pragma option pop
  243.     
  244. };
  245.  
  246.  
  247. class DELPHICLASS TTabSheet;
  248. class DELPHICLASS TPageControl;
  249. class PASCALIMPLEMENTATION TPageControl : public TCustomTabControl 
  250. {
  251.     typedef TCustomTabControl inherited;
  252.     
  253. private:
  254.     Classes::TList* FPages;
  255.     TTabSheet* FActivePage;
  256.     TTabSheet* FNewDockSheet;
  257.     TTabSheet* FUndockingPage;
  258.     void __fastcall ChangeActivePage(TTabSheet* Page);
  259.     void __fastcall DeleteTab(TTabSheet* Page, int Index);
  260.     int __fastcall GetActivePageIndex(void);
  261.     Controls::TControl* __fastcall GetDockClientFromMousePos(const Windows::TPoint &MousePos);
  262.     TTabSheet* __fastcall GetPage(int Index);
  263.     int __fastcall GetPageCount(void);
  264.     void __fastcall InsertPage(TTabSheet* Page);
  265.     void __fastcall InsertTab(TTabSheet* Page);
  266.     void __fastcall MoveTab(int CurIndex, int NewIndex);
  267.     void __fastcall RemovePage(TTabSheet* Page);
  268.     void __fastcall SetActivePage(TTabSheet* Page);
  269.     void __fastcall SetActivePageIndex(const int Value);
  270.     void __fastcall UpdateTab(TTabSheet* Page);
  271.     void __fastcall UpdateTabHighlights(void);
  272.     HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
  273.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  274.     HIDESBASE MESSAGE void __fastcall CMDockClient(Controls::TCMDockClient &Message);
  275.     MESSAGE void __fastcall CMDockNotification(Controls::TCMDockNotification &Message);
  276.     HIDESBASE MESSAGE void __fastcall CMUnDockClient(Controls::TCMUnDockClient &Message);
  277.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  278.     HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
  279.     
  280. protected:
  281.     virtual bool __fastcall CanShowTab(int TabIndex);
  282.     DYNAMIC void __fastcall Change(void);
  283.     DYNAMIC void __fastcall DoAddDockClient(Controls::TControl* Client, const Windows::TRect &ARect);
  284.     DYNAMIC void __fastcall DockOver(Controls::TDragDockObject* Source, int X, int Y, Controls::TDragState 
  285.         State, bool &Accept);
  286.     DYNAMIC void __fastcall DoRemoveDockClient(Controls::TControl* Client);
  287.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  288.     virtual int __fastcall GetImageIndex(int TabIndex);
  289.     TTabSheet* __fastcall GetPageFromDockClient(Controls::TControl* Client);
  290.     DYNAMIC void __fastcall GetSiteInfo(Controls::TControl* Client, Windows::TRect &InfluenceRect, const 
  291.         Windows::TPoint &MousePos, bool &CanDock);
  292.     virtual void __fastcall Loaded(void);
  293.     DYNAMIC void __fastcall SetChildOrder(Classes::TComponent* Child, int Order);
  294.     virtual void __fastcall ShowControl(Controls::TControl* AControl);
  295.     virtual void __fastcall UpdateActivePage(void);
  296.     
  297. public:
  298.     __fastcall virtual TPageControl(Classes::TComponent* AOwner);
  299.     __fastcall virtual ~TPageControl(void);
  300.     TTabSheet* __fastcall FindNextPage(TTabSheet* CurPage, bool GoForward, bool CheckTabVisible);
  301.     void __fastcall SelectNextPage(bool GoForward);
  302.     __property int ActivePageIndex = {read=GetActivePageIndex, write=SetActivePageIndex, nodefault};
  303.     __property int PageCount = {read=GetPageCount, nodefault};
  304.     __property TTabSheet* Pages[int Index] = {read=GetPage};
  305.     
  306. __published:
  307.     __property TTabSheet* ActivePage = {read=FActivePage, write=SetActivePage};
  308.     __property Align ;
  309.     __property Anchors ;
  310.     __property BiDiMode ;
  311.     __property Constraints ;
  312.     __property DockSite ;
  313.     __property DragCursor ;
  314.     __property DragKind ;
  315.     __property DragMode ;
  316.     __property Enabled ;
  317.     __property Font ;
  318.     __property HotTrack ;
  319.     __property Images ;
  320.     __property MultiLine ;
  321.     __property OwnerDraw ;
  322.     __property ParentBiDiMode ;
  323.     __property ParentFont ;
  324.     __property ParentShowHint ;
  325.     __property PopupMenu ;
  326.     __property RaggedRight ;
  327.     __property ScrollOpposite ;
  328.     __property ShowHint ;
  329.     __property Style ;
  330.     __property TabHeight ;
  331.     __property TabOrder ;
  332.     __property TabPosition ;
  333.     __property TabStop ;
  334.     __property TabWidth ;
  335.     __property Visible ;
  336.     __property OnChange ;
  337.     __property OnChanging ;
  338.     __property OnContextPopup ;
  339.     __property OnDockDrop ;
  340.     __property OnDockOver ;
  341.     __property OnDragDrop ;
  342.     __property OnDragOver ;
  343.     __property OnDrawTab ;
  344.     __property OnEndDock ;
  345.     __property OnEndDrag ;
  346.     __property OnEnter ;
  347.     __property OnExit ;
  348.     __property OnGetImageIndex ;
  349.     __property OnGetSiteInfo ;
  350.     __property OnMouseDown ;
  351.     __property OnMouseMove ;
  352.     __property OnMouseUp ;
  353.     __property OnResize ;
  354.     __property OnStartDock ;
  355.     __property OnStartDrag ;
  356.     __property OnUnDock ;
  357. public:
  358.     #pragma option push -w-inl
  359.     /* TWinControl.CreateParented */ inline __fastcall TPageControl(HWND ParentWindow) : TCustomTabControl(
  360.         ParentWindow) { }
  361.     #pragma option pop
  362.     
  363. };
  364.  
  365.  
  366. class PASCALIMPLEMENTATION TTabSheet : public Controls::TWinControl 
  367. {
  368.     typedef Controls::TWinControl inherited;
  369.     
  370. private:
  371.     Imglist::TImageIndex FImageIndex;
  372.     TPageControl* FPageControl;
  373.     bool FTabVisible;
  374.     bool FTabShowing;
  375.     bool FHighlighted;
  376.     Classes::TNotifyEvent FOnHide;
  377.     Classes::TNotifyEvent FOnShow;
  378.     int __fastcall GetPageIndex(void);
  379.     int __fastcall GetTabIndex(void);
  380.     void __fastcall SetHighlighted(bool Value);
  381.     void __fastcall SetImageIndex(Imglist::TImageIndex Value);
  382.     void __fastcall SetPageControl(TPageControl* APageControl);
  383.     void __fastcall SetPageIndex(int Value);
  384.     void __fastcall SetTabShowing(bool Value);
  385.     void __fastcall SetTabVisible(bool Value);
  386.     void __fastcall UpdateTabShowing(void);
  387.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  388.     HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
  389.     
  390. protected:
  391.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  392.     DYNAMIC void __fastcall DoHide(void);
  393.     DYNAMIC void __fastcall DoShow(void);
  394.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  395.     
  396. public:
  397.     __fastcall virtual TTabSheet(Classes::TComponent* AOwner);
  398.     __fastcall virtual ~TTabSheet(void);
  399.     __property TPageControl* PageControl = {read=FPageControl, write=SetPageControl};
  400.     __property int TabIndex = {read=GetTabIndex, nodefault};
  401.     
  402. __published:
  403.     __property BorderWidth ;
  404.     __property Caption ;
  405.     __property DragMode ;
  406.     __property Enabled ;
  407.     __property Font ;
  408.     __property Height  = {stored=false};
  409.     __property bool Highlighted = {read=FHighlighted, write=SetHighlighted, default=0};
  410.     __property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImageIndex, default=0};
  411.     __property Left  = {stored=false};
  412.     __property Constraints ;
  413.     __property int PageIndex = {read=GetPageIndex, write=SetPageIndex, stored=false, nodefault};
  414.     __property ParentFont ;
  415.     __property ParentShowHint ;
  416.     __property PopupMenu ;
  417.     __property ShowHint ;
  418.     __property bool TabVisible = {read=FTabVisible, write=SetTabVisible, default=1};
  419.     __property Top  = {stored=false};
  420.     __property Visible  = {stored=false, default=1};
  421.     __property Width  = {stored=false};
  422.     __property OnContextPopup ;
  423.     __property OnDragDrop ;
  424.     __property OnDragOver ;
  425.     __property OnEndDrag ;
  426.     __property OnEnter ;
  427.     __property OnExit ;
  428.     __property Classes::TNotifyEvent OnHide = {read=FOnHide, write=FOnHide};
  429.     __property OnMouseDown ;
  430.     __property OnMouseMove ;
  431.     __property OnMouseUp ;
  432.     __property OnResize ;
  433.     __property Classes::TNotifyEvent OnShow = {read=FOnShow, write=FOnShow};
  434.     __property OnStartDrag ;
  435. public:
  436.     #pragma option push -w-inl
  437.     /* TWinControl.CreateParented */ inline __fastcall TTabSheet(HWND ParentWindow) : Controls::TWinControl(
  438.         ParentWindow) { }
  439.     #pragma option pop
  440.     
  441. };
  442.  
  443.  
  444. #pragma option push -b-
  445. enum TStatusPanelStyle { psText, psOwnerDraw };
  446. #pragma option pop
  447.  
  448. #pragma option push -b-
  449. enum TStatusPanelBevel { pbNone, pbLowered, pbRaised };
  450. #pragma option pop
  451.  
  452. class DELPHICLASS TStatusPanel;
  453. class PASCALIMPLEMENTATION TStatusPanel : public Classes::TCollectionItem 
  454. {
  455.     typedef Classes::TCollectionItem inherited;
  456.     
  457. private:
  458.     AnsiString FText;
  459.     int FWidth;
  460.     Classes::TAlignment FAlignment;
  461.     TStatusPanelBevel FBevel;
  462.     Classes::TBiDiMode FBiDiMode;
  463.     bool FParentBiDiMode;
  464.     TStatusPanelStyle FStyle;
  465.     bool FUpdateNeeded;
  466.     void __fastcall SetAlignment(Classes::TAlignment Value);
  467.     void __fastcall SetBevel(TStatusPanelBevel Value);
  468.     void __fastcall SetBiDiMode(Classes::TBiDiMode Value);
  469.     void __fastcall SetParentBiDiMode(bool Value);
  470.     void __fastcall SetStyle(TStatusPanelStyle Value);
  471.     void __fastcall SetText(const AnsiString Value);
  472.     void __fastcall SetWidth(int Value);
  473.     bool __fastcall IsBiDiModeStored(void);
  474.     
  475. protected:
  476.     virtual AnsiString __fastcall GetDisplayName();
  477.     
  478. public:
  479.     __fastcall virtual TStatusPanel(Classes::TCollection* Collection);
  480.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  481.     void __fastcall ParentBiDiModeChanged(void);
  482.     bool __fastcall UseRightToLeftAlignment(void);
  483.     bool __fastcall UseRightToLeftReading(void);
  484.     
  485. __published:
  486.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  487.     __property TStatusPanelBevel Bevel = {read=FBevel, write=SetBevel, default=1};
  488.     __property Classes::TBiDiMode BiDiMode = {read=FBiDiMode, write=SetBiDiMode, stored=IsBiDiModeStored
  489.         , nodefault};
  490.     __property bool ParentBiDiMode = {read=FParentBiDiMode, write=SetParentBiDiMode, default=1};
  491.     __property TStatusPanelStyle Style = {read=FStyle, write=SetStyle, default=0};
  492.     __property AnsiString Text = {read=FText, write=SetText};
  493.     __property int Width = {read=FWidth, write=SetWidth, nodefault};
  494. public:
  495.     #pragma option push -w-inl
  496.     /* TCollectionItem.Destroy */ inline __fastcall virtual ~TStatusPanel(void) { }
  497.     #pragma option pop
  498.     
  499. };
  500.  
  501.  
  502. class DELPHICLASS TStatusPanels;
  503. class DELPHICLASS TStatusBar;
  504. typedef void __fastcall (__closure *TDrawPanelEvent)(TStatusBar* StatusBar, TStatusPanel* Panel, const 
  505.     Windows::TRect &Rect);
  506.  
  507. class PASCALIMPLEMENTATION TStatusBar : public Controls::TWinControl 
  508. {
  509.     typedef Controls::TWinControl inherited;
  510.     
  511. private:
  512.     TStatusPanels* FPanels;
  513.     Graphics::TCanvas* FCanvas;
  514.     AnsiString FSimpleText;
  515.     bool FSimplePanel;
  516.     bool FSizeGrip;
  517.     bool FUseSystemFont;
  518.     bool FAutoHint;
  519.     TDrawPanelEvent FOnDrawPanel;
  520.     Classes::TNotifyEvent FOnHint;
  521.     void __fastcall DoRightToLeftAlignment(AnsiString &Str, Classes::TAlignment AAlignment, bool ARTLAlignment
  522.         );
  523.     HIDESBASE bool __fastcall IsFontStored(void);
  524.     void __fastcall SetPanels(TStatusPanels* Value);
  525.     void __fastcall SetSimplePanel(bool Value);
  526.     void __fastcall UpdateSimpleText(void);
  527.     void __fastcall SetSimpleText(const AnsiString Value);
  528.     void __fastcall SetSizeGrip(bool Value);
  529.     void __fastcall SyncToSystemFont(void);
  530.     void __fastcall UpdatePanel(int Index, bool Repaint);
  531.     void __fastcall UpdatePanels(bool UpdateRects, bool UpdateText);
  532.     HIDESBASE MESSAGE void __fastcall CMBiDiModeChanged(Messages::TMessage &Message);
  533.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  534.     HIDESBASE MESSAGE void __fastcall CMParentFontChanged(Messages::TMessage &Message);
  535.     HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
  536.     HIDESBASE MESSAGE void __fastcall CMWinIniChange(Messages::TMessage &Message);
  537.     HIDESBASE MESSAGE void __fastcall CMSysFontChanged(Messages::TMessage &Message);
  538.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  539.     MESSAGE void __fastcall WMGetTextLength(Messages::TWMNoParams &Message);
  540.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  541.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  542.     void __fastcall SetUseSystemFont(const bool Value);
  543.     
  544. protected:
  545.     DYNAMIC void __fastcall ChangeScale(int M, int D);
  546.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  547.     virtual void __fastcall CreateWnd(void);
  548.     virtual bool __fastcall DoHint(void);
  549.     DYNAMIC void __fastcall DrawPanel(TStatusPanel* Panel, const Windows::TRect &Rect);
  550.     
  551. public:
  552.     __fastcall virtual TStatusBar(Classes::TComponent* AOwner);
  553.     __fastcall virtual ~TStatusBar(void);
  554.     DYNAMIC bool __fastcall ExecuteAction(Classes::TBasicAction* Action);
  555.     DYNAMIC void __fastcall FlipChildren(bool AllLevels);
  556.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  557.     
  558. __published:
  559.     __property Action ;
  560.     __property bool AutoHint = {read=FAutoHint, write=FAutoHint, default=0};
  561.     __property Align ;
  562.     __property Anchors ;
  563.     __property BiDiMode ;
  564.     __property BorderWidth ;
  565.     __property Color ;
  566.     __property DragCursor ;
  567.     __property DragKind ;
  568.     __property DragMode ;
  569.     __property Enabled ;
  570.     __property Font  = {stored=IsFontStored};
  571.     __property Constraints ;
  572.     __property TStatusPanels* Panels = {read=FPanels, write=SetPanels};
  573.     __property ParentBiDiMode ;
  574.     __property ParentColor ;
  575.     __property ParentFont ;
  576.     __property ParentShowHint ;
  577.     __property PopupMenu ;
  578.     __property ShowHint ;
  579.     __property bool SimplePanel = {read=FSimplePanel, write=SetSimplePanel, nodefault};
  580.     __property AnsiString SimpleText = {read=FSimpleText, write=SetSimpleText};
  581.     __property bool SizeGrip = {read=FSizeGrip, write=SetSizeGrip, default=1};
  582.     __property bool UseSystemFont = {read=FUseSystemFont, write=SetUseSystemFont, default=1};
  583.     __property Visible ;
  584.     __property OnClick ;
  585.     __property OnContextPopup ;
  586.     __property OnDblClick ;
  587.     __property OnDragDrop ;
  588.     __property OnDragOver ;
  589.     __property OnEndDock ;
  590.     __property OnEndDrag ;
  591.     __property Classes::TNotifyEvent OnHint = {read=FOnHint, write=FOnHint};
  592.     __property OnMouseDown ;
  593.     __property OnMouseMove ;
  594.     __property OnMouseUp ;
  595.     __property TDrawPanelEvent OnDrawPanel = {read=FOnDrawPanel, write=FOnDrawPanel};
  596.     __property OnResize ;
  597.     __property OnStartDock ;
  598.     __property OnStartDrag ;
  599. public:
  600.     #pragma option push -w-inl
  601.     /* TWinControl.CreateParented */ inline __fastcall TStatusBar(HWND ParentWindow) : Controls::TWinControl(
  602.         ParentWindow) { }
  603.     #pragma option pop
  604.     
  605. };
  606.  
  607.  
  608. class PASCALIMPLEMENTATION TStatusPanels : public Classes::TCollection 
  609. {
  610.     typedef Classes::TCollection inherited;
  611.     
  612. private:
  613.     TStatusBar* FStatusBar;
  614.     HIDESBASE TStatusPanel* __fastcall GetItem(int Index);
  615.     HIDESBASE void __fastcall SetItem(int Index, TStatusPanel* Value);
  616.     
  617. protected:
  618.     DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  619.     virtual void __fastcall Update(Classes::TCollectionItem* Item);
  620.     
  621. public:
  622.     __fastcall TStatusPanels(TStatusBar* StatusBar);
  623.     HIDESBASE TStatusPanel* __fastcall Add(void);
  624.     __property TStatusPanel* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  625. public:
  626.     #pragma option push -w-inl
  627.     /* TCollection.Destroy */ inline __fastcall virtual ~TStatusPanels(void) { }
  628.     #pragma option pop
  629.     
  630. };
  631.  
  632.  
  633. #pragma option push -b-
  634. enum TCustomDrawTarget { dtControl, dtItem, dtSubItem };
  635. #pragma option pop
  636.  
  637. #pragma option push -b-
  638. enum TCustomDrawStage { cdPrePaint, cdPostPaint, cdPreErase, cdPostErase };
  639. #pragma option pop
  640.  
  641. #pragma option push -b-
  642. enum ComCtrls__8 { cdsSelected, cdsGrayed, cdsDisabled, cdsChecked, cdsFocused, cdsDefault, cdsHot, 
  643.     cdsMarked, cdsIndeterminate };
  644. #pragma option pop
  645.  
  646. typedef Set<ComCtrls__8, cdsSelected, cdsIndeterminate>  TCustomDrawState;
  647.  
  648. #pragma option push -b-
  649. enum THeaderSectionStyle { hsText, hsOwnerDraw };
  650. #pragma option pop
  651.  
  652. class DELPHICLASS THeaderSection;
  653. class PASCALIMPLEMENTATION THeaderSection : public Classes::TCollectionItem 
  654. {
  655.     typedef Classes::TCollectionItem inherited;
  656.     
  657. private:
  658.     AnsiString FText;
  659.     int FWidth;
  660.     int FMinWidth;
  661.     int FMaxWidth;
  662.     Classes::TAlignment FAlignment;
  663.     THeaderSectionStyle FStyle;
  664.     bool FAllowClick;
  665.     bool FAutoSize;
  666.     Imglist::TImageIndex FImageIndex;
  667.     Classes::TBiDiMode FBiDiMode;
  668.     bool FParentBiDiMode;
  669.     int __fastcall GetLeft(void);
  670.     int __fastcall GetRight(void);
  671.     bool __fastcall IsBiDiModeStored(void);
  672.     void __fastcall SetAlignment(Classes::TAlignment Value);
  673.     void __fastcall SetAutoSize(bool Value);
  674.     void __fastcall SetBiDiMode(Classes::TBiDiMode Value);
  675.     void __fastcall SetMaxWidth(int Value);
  676.     void __fastcall SetMinWidth(int Value);
  677.     void __fastcall SetParentBiDiMode(bool Value);
  678.     void __fastcall SetStyle(THeaderSectionStyle Value);
  679.     void __fastcall SetText(const AnsiString Value);
  680.     void __fastcall SetWidth(int Value);
  681.     void __fastcall SetImageIndex(const Imglist::TImageIndex Value);
  682.     
  683. protected:
  684.     virtual AnsiString __fastcall GetDisplayName();
  685.     
  686. public:
  687.     __fastcall virtual THeaderSection(Classes::TCollection* Collection);
  688.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  689.     void __fastcall ParentBiDiModeChanged(void);
  690.     bool __fastcall UseRightToLeftAlignment(void);
  691.     bool __fastcall UseRightToLeftReading(void);
  692.     __property int Left = {read=GetLeft, nodefault};
  693.     __property int Right = {read=GetRight, nodefault};
  694.     
  695. __published:
  696.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  697.     __property bool AllowClick = {read=FAllowClick, write=FAllowClick, default=1};
  698.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
  699.     __property Classes::TBiDiMode BiDiMode = {read=FBiDiMode, write=SetBiDiMode, stored=IsBiDiModeStored
  700.         , nodefault};
  701.     __property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
  702.     __property int MaxWidth = {read=FMaxWidth, write=SetMaxWidth, default=10000};
  703.     __property int MinWidth = {read=FMinWidth, write=SetMinWidth, default=0};
  704.     __property bool ParentBiDiMode = {read=FParentBiDiMode, write=SetParentBiDiMode, default=1};
  705.     __property THeaderSectionStyle Style = {read=FStyle, write=SetStyle, default=0};
  706.     __property AnsiString Text = {read=FText, write=SetText};
  707.     __property int Width = {read=FWidth, write=SetWidth, nodefault};
  708. public:
  709.     #pragma option push -w-inl
  710.     /* TCollectionItem.Destroy */ inline __fastcall virtual ~THeaderSection(void) { }
  711.     #pragma option pop
  712.     
  713. };
  714.  
  715.  
  716. class DELPHICLASS THeaderSections;
  717. class DELPHICLASS THeaderControl;
  718. #pragma option push -b-
  719. enum THeaderStyle { hsButtons, hsFlat };
  720. #pragma option pop
  721.  
  722. typedef void __fastcall (__closure *TDrawSectionEvent)(THeaderControl* HeaderControl, THeaderSection* 
  723.     Section, const Windows::TRect &Rect, bool Pressed);
  724.  
  725. typedef void __fastcall (__closure *TSectionNotifyEvent)(THeaderControl* HeaderControl, THeaderSection* 
  726.     Section);
  727.  
  728. #pragma option push -b-
  729. enum TSectionTrackState { tsTrackBegin, tsTrackMove, tsTrackEnd };
  730. #pragma option pop
  731.  
  732. typedef void __fastcall (__closure *TSectionTrackEvent)(THeaderControl* HeaderControl, THeaderSection* 
  733.     Section, int Width, TSectionTrackState State);
  734.  
  735. typedef void __fastcall (__closure *TSectionDragEvent)(System::TObject* Sender, THeaderSection* FromSection
  736.     , THeaderSection* ToSection, bool &AllowDrag);
  737.  
  738. class PASCALIMPLEMENTATION THeaderControl : public Controls::TWinControl 
  739. {
  740.     typedef Controls::TWinControl inherited;
  741.     
  742. private:
  743.     THeaderSections* FSections;
  744.     Classes::TMemoryStream* FSectionStream;
  745.     bool FUpdatingSectionOrder;
  746.     bool FSectionDragged;
  747.     Graphics::TCanvas* FCanvas;
  748.     int FFromIndex;
  749.     int FToIndex;
  750.     bool FFullDrag;
  751.     bool FHotTrack;
  752.     bool FDragReorder;
  753.     Imglist::TChangeLink* FImageChangeLink;
  754.     Imglist::TCustomImageList* FImages;
  755.     THeaderStyle FStyle;
  756.     THeaderSection* FTrackSection;
  757.     int FTrackWidth;
  758.     Windows::TPoint FTrackPos;
  759.     TDrawSectionEvent FOnDrawSection;
  760.     TSectionNotifyEvent FOnSectionClick;
  761.     TSectionNotifyEvent FOnSectionResize;
  762.     TSectionTrackEvent FOnSectionTrack;
  763.     TSectionDragEvent FOnSectionDrag;
  764.     Classes::TNotifyEvent FOnSectionEndDrag;
  765.     bool __fastcall DoSectionDrag(THeaderSection* FromSection, THeaderSection* ToSection);
  766.     void __fastcall DoSectionEndDrag(void);
  767.     void __fastcall ImageListChange(System::TObject* Sender);
  768.     void __fastcall SetDragReorder(const bool Value);
  769.     void __fastcall SetFullDrag(bool Value);
  770.     void __fastcall SetHotTrack(bool Value);
  771.     void __fastcall SetSections(THeaderSections* Value);
  772.     void __fastcall SetStyle(THeaderStyle Value);
  773.     void __fastcall UpdateItem(int Message, int Index);
  774.     void __fastcall UpdateSection(int Index);
  775.     void __fastcall UpdateSections(void);
  776.     HIDESBASE MESSAGE void __fastcall CMBiDiModeChanged(Messages::TMessage &Message);
  777.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  778.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  779.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  780.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  781.     HIDESBASE MESSAGE void __fastcall WMWindowPosChanged(Messages::TWMWindowPosMsg &Message);
  782.     
  783. protected:
  784.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  785.     virtual void __fastcall CreateWnd(void);
  786.     virtual void __fastcall DestroyWnd(void);
  787.     DYNAMIC void __fastcall DrawSection(THeaderSection* Section, const Windows::TRect &Rect, bool Pressed
  788.         );
  789.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  790.         );
  791.     DYNAMIC void __fastcall SectionClick(THeaderSection* Section);
  792.     DYNAMIC void __fastcall SectionDrag(THeaderSection* FromSection, THeaderSection* ToSection, bool &AllowDrag
  793.         );
  794.     DYNAMIC void __fastcall SectionEndDrag(void);
  795.     DYNAMIC void __fastcall SectionResize(THeaderSection* Section);
  796.     DYNAMIC void __fastcall SectionTrack(THeaderSection* Section, int Width, TSectionTrackState State);
  797.         
  798.     virtual void __fastcall SetImages(Imglist::TCustomImageList* Value);
  799.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  800.     
  801. public:
  802.     __fastcall virtual THeaderControl(Classes::TComponent* AOwner);
  803.     __fastcall virtual ~THeaderControl(void);
  804.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  805.     DYNAMIC void __fastcall FlipChildren(bool AllLevels);
  806.     
  807. __published:
  808.     __property Align ;
  809.     __property Anchors ;
  810.     __property BiDiMode ;
  811.     __property BorderWidth ;
  812.     __property DragCursor ;
  813.     __property DragKind ;
  814.     __property DragMode ;
  815.     __property bool DragReorder = {read=FDragReorder, write=SetDragReorder, nodefault};
  816.     __property Enabled ;
  817.     __property Font ;
  818.     __property bool FullDrag = {read=FFullDrag, write=SetFullDrag, default=1};
  819.     __property bool HotTrack = {read=FHotTrack, write=SetHotTrack, default=0};
  820.     __property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
  821.     __property Constraints ;
  822.     __property THeaderSections* Sections = {read=FSections, write=SetSections};
  823.     __property ShowHint ;
  824.     __property THeaderStyle Style = {read=FStyle, write=SetStyle, default=0};
  825.     __property ParentBiDiMode ;
  826.     __property ParentFont ;
  827.     __property ParentShowHint ;
  828.     __property PopupMenu ;
  829.     __property Visible ;
  830.     __property OnContextPopup ;
  831.     __property OnDragDrop ;
  832.     __property OnDragOver ;
  833.     __property OnEndDock ;
  834.     __property OnEndDrag ;
  835.     __property OnMouseDown ;
  836.     __property OnMouseMove ;
  837.     __property OnMouseUp ;
  838.     __property TDrawSectionEvent OnDrawSection = {read=FOnDrawSection, write=FOnDrawSection};
  839.     __property OnResize ;
  840.     __property TSectionNotifyEvent OnSectionClick = {read=FOnSectionClick, write=FOnSectionClick};
  841.     __property TSectionDragEvent OnSectionDrag = {read=FOnSectionDrag, write=FOnSectionDrag};
  842.     __property Classes::TNotifyEvent OnSectionEndDrag = {read=FOnSectionEndDrag, write=FOnSectionEndDrag
  843.         };
  844.     __property TSectionNotifyEvent OnSectionResize = {read=FOnSectionResize, write=FOnSectionResize};
  845.     __property TSectionTrackEvent OnSectionTrack = {read=FOnSectionTrack, write=FOnSectionTrack};
  846.     __property OnStartDock ;
  847.     __property OnStartDrag ;
  848. public:
  849.     #pragma option push -w-inl
  850.     /* TWinControl.CreateParented */ inline __fastcall THeaderControl(HWND ParentWindow) : Controls::TWinControl(
  851.         ParentWindow) { }
  852.     #pragma option pop
  853.     
  854. };
  855.  
  856.  
  857. class PASCALIMPLEMENTATION THeaderSections : public Classes::TCollection 
  858. {
  859.     typedef Classes::TCollection inherited;
  860.     
  861. private:
  862.     THeaderControl* FHeaderControl;
  863.     HIDESBASE THeaderSection* __fastcall GetItem(int Index);
  864.     HIDESBASE void __fastcall SetItem(int Index, THeaderSection* Value);
  865.     
  866. protected:
  867.     DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  868.     virtual void __fastcall Update(Classes::TCollectionItem* Item);
  869.     
  870. public:
  871.     __fastcall THeaderSections(THeaderControl* HeaderControl);
  872.     HIDESBASE THeaderSection* __fastcall Add(void);
  873.     __property THeaderSection* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  874. public:
  875.     #pragma option push -w-inl
  876.     /* TCollection.Destroy */ inline __fastcall virtual ~THeaderSections(void) { }
  877.     #pragma option pop
  878.     
  879. };
  880.  
  881.  
  882. #pragma option push -b-
  883. enum TNodeState { nsCut, nsDropHilited, nsFocused, nsSelected, nsExpanded };
  884. #pragma option pop
  885.  
  886. #pragma option push -b-
  887. enum TNodeAttachMode { naAdd, naAddFirst, naAddChild, naAddChildFirst, naInsert };
  888. #pragma option pop
  889.  
  890. #pragma option push -b-
  891. enum TAddMode { taAddFirst, taAdd, taInsert };
  892. #pragma option pop
  893.  
  894. struct TNodeInfo;
  895. typedef TNodeInfo *PNodeInfo;
  896.  
  897. #pragma pack(push, 1)
  898. struct TNodeInfo
  899. {
  900.     int ImageIndex;
  901.     int SelectedIndex;
  902.     int StateIndex;
  903.     int OverlayIndex;
  904.     void *Data;
  905.     int Count;
  906.     System::SmallString<255>  Text;
  907. } ;
  908. #pragma pack(pop)
  909.  
  910. class DELPHICLASS TTreeNode;
  911. class DELPHICLASS TTreeNodes;
  912. class DELPHICLASS TCustomTreeView;
  913. #pragma option push -b-
  914. enum TSortType { stNone, stData, stText, stBoth };
  915. #pragma option pop
  916.  
  917. typedef void __fastcall (__closure *TTVAdvancedCustomDrawEvent)(TCustomTreeView* Sender, const Windows::TRect 
  918.     &ARect, TCustomDrawStage Stage, bool &DefaultDraw);
  919.  
  920. typedef void __fastcall (__closure *TTVAdvancedCustomDrawItemEvent)(TCustomTreeView* Sender, TTreeNode* 
  921.     Node, TCustomDrawState State, TCustomDrawStage Stage, bool &PaintImages, bool &DefaultDraw);
  922.  
  923. typedef void __fastcall (__closure *TTVChangedEvent)(System::TObject* Sender, TTreeNode* Node);
  924.  
  925. typedef void __fastcall (__closure *TTVChangingEvent)(System::TObject* Sender, TTreeNode* Node, bool 
  926.     &AllowChange);
  927.  
  928. typedef void __fastcall (__closure *TTVExpandedEvent)(System::TObject* Sender, TTreeNode* Node);
  929.  
  930. typedef void __fastcall (__closure *TTVCollapsingEvent)(System::TObject* Sender, TTreeNode* Node, bool 
  931.     &AllowCollapse);
  932.  
  933. typedef void __fastcall (__closure *TTVCompareEvent)(System::TObject* Sender, TTreeNode* Node1, TTreeNode* 
  934.     Node2, int Data, int &Compare);
  935.  
  936. typedef void __fastcall (__closure *TTVCustomDrawEvent)(TCustomTreeView* Sender, const Windows::TRect 
  937.     &ARect, bool &DefaultDraw);
  938.  
  939. typedef void __fastcall (__closure *TTVCustomDrawItemEvent)(TCustomTreeView* Sender, TTreeNode* Node
  940.     , TCustomDrawState State, bool &DefaultDraw);
  941.  
  942. typedef void __fastcall (__closure *TTVEditingEvent)(System::TObject* Sender, TTreeNode* Node, bool 
  943.     &AllowEdit);
  944.  
  945. typedef void __fastcall (__closure *TTVEditedEvent)(System::TObject* Sender, TTreeNode* Node, AnsiString 
  946.     &S);
  947.  
  948. typedef void __fastcall (__closure *TTVExpandingEvent)(System::TObject* Sender, TTreeNode* Node, bool 
  949.     &AllowExpansion);
  950.  
  951. class PASCALIMPLEMENTATION TCustomTreeView : public Controls::TWinControl 
  952. {
  953.     typedef Controls::TWinControl inherited;
  954.     
  955. private:
  956.     bool FAutoExpand;
  957.     Forms::TFormBorderStyle FBorderStyle;
  958.     Graphics::TCanvas* FCanvas;
  959.     bool FCanvasChanged;
  960.     void *FDefEditProc;
  961.     bool FDragged;
  962.     Controls::TDragImageList* FDragImage;
  963.     TTreeNode* FDragNode;
  964.     HWND FEditHandle;
  965.     void *FEditInstance;
  966.     bool FHideSelection;
  967.     bool FHotTrack;
  968.     Imglist::TChangeLink* FImageChangeLink;
  969.     Imglist::TCustomImageList* FImages;
  970.     TTreeNode* FLastDropTarget;
  971.     Classes::TMemoryStream* FMemStream;
  972.     TTreeNode* FRClickNode;
  973.     bool FRightClickSelect;
  974.     bool FManualNotify;
  975.     bool FReadOnly;
  976.     bool FRowSelect;
  977.     int FSaveIndex;
  978.     int FSaveIndent;
  979.     Classes::TStringList* FSaveItems;
  980.     int FSaveTopIndex;
  981.     bool FShowButtons;
  982.     bool FShowLines;
  983.     bool FShowRoot;
  984.     TSortType FSortType;
  985.     bool FStateChanging;
  986.     Imglist::TCustomImageList* FStateImages;
  987.     Imglist::TChangeLink* FStateChangeLink;
  988.     bool FToolTips;
  989.     TTreeNodes* FTreeNodes;
  990.     WideString FWideText;
  991.     TTVAdvancedCustomDrawEvent FOnAdvancedCustomDraw;
  992.     TTVAdvancedCustomDrawItemEvent FOnAdvancedCustomDrawItem;
  993.     TTVChangedEvent FOnChange;
  994.     TTVChangingEvent FOnChanging;
  995.     TTVExpandedEvent FOnCollapsed;
  996.     TTVCollapsingEvent FOnCollapsing;
  997.     TTVCompareEvent FOnCompare;
  998.     TTVCustomDrawEvent FOnCustomDraw;
  999.     TTVCustomDrawItemEvent FOnCustomDrawItem;
  1000.     TTVExpandedEvent FOnDeletion;
  1001.     TTVEditingEvent FOnEditing;
  1002.     TTVEditedEvent FOnEdited;
  1003.     TTVExpandedEvent FOnExpanded;
  1004.     TTVExpandingEvent FOnExpanding;
  1005.     TTVExpandedEvent FOnGetImageIndex;
  1006.     TTVExpandedEvent FOnGetSelectedIndex;
  1007.     void __fastcall CanvasChanged(System::TObject* Sender);
  1008.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  1009.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  1010.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  1011.     HIDESBASE MESSAGE void __fastcall CMDrag(Controls::TCMDrag &Message);
  1012.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  1013.     void __fastcall EditWndProc(Messages::TMessage &Message);
  1014.     void __fastcall DoDragOver(Controls::TDragObject* Source, int X, int Y, bool CanDrop);
  1015.     int __fastcall GetChangeDelay(void);
  1016.     TTreeNode* __fastcall GetDropTarget(void);
  1017.     int __fastcall GetIndent(void);
  1018.     TTreeNode* __fastcall GetNodeFromItem(const tagTVITEMA &Item);
  1019.     TTreeNode* __fastcall GetSelection(void);
  1020.     TTreeNode* __fastcall GetTopItem(void);
  1021.     void __fastcall ImageListChange(System::TObject* Sender);
  1022.     void __fastcall SetAutoExpand(bool Value);
  1023.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  1024.     void __fastcall SetButtonStyle(bool Value);
  1025.     void __fastcall SetChangeDelay(int Value);
  1026.     void __fastcall SetDropTarget(TTreeNode* Value);
  1027.     void __fastcall SetHideSelection(bool Value);
  1028.     void __fastcall SetHotTrack(bool Value);
  1029.     void __fastcall SetImageList(unsigned Value, int Flags);
  1030.     void __fastcall SetIndent(int Value);
  1031.     void __fastcall SetImages(Imglist::TCustomImageList* Value);
  1032.     void __fastcall SetLineStyle(bool Value);
  1033.     void __fastcall SetReadOnly(bool Value);
  1034.     void __fastcall SetRootStyle(bool Value);
  1035.     void __fastcall SetRowSelect(bool Value);
  1036.     void __fastcall SetSelection(TTreeNode* Value);
  1037.     void __fastcall SetSortType(TSortType Value);
  1038.     void __fastcall SetStateImages(Imglist::TCustomImageList* Value);
  1039.     void __fastcall SetToolTips(bool Value);
  1040.     void __fastcall SetTreeNodes(TTreeNodes* Value);
  1041.     void __fastcall SetTopItem(TTreeNode* Value);
  1042.     void __fastcall OnChangeTimer(System::TObject* Sender);
  1043.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  1044.     HIDESBASE MESSAGE void __fastcall WMNotify(Messages::TWMNotify &Message);
  1045.     HIDESBASE MESSAGE void __fastcall WMContextMenu(Messages::TWMContextMenu &Message);
  1046.     HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
  1047.     
  1048. protected:
  1049.     Extctrls::TTimer* FChangeTimer;
  1050.     DYNAMIC bool __fastcall CanEdit(TTreeNode* Node);
  1051.     DYNAMIC bool __fastcall CanChange(TTreeNode* Node);
  1052.     DYNAMIC bool __fastcall CanCollapse(TTreeNode* Node);
  1053.     DYNAMIC bool __fastcall CanExpand(TTreeNode* Node);
  1054.     DYNAMIC void __fastcall Change(TTreeNode* Node);
  1055.     DYNAMIC void __fastcall Collapse(TTreeNode* Node);
  1056.     virtual TTreeNode* __fastcall CreateNode(void);
  1057.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1058.     virtual void __fastcall CreateWnd(void);
  1059.     virtual bool __fastcall CustomDraw(const Windows::TRect &ARect, TCustomDrawStage Stage);
  1060.     virtual bool __fastcall CustomDrawItem(TTreeNode* Node, TCustomDrawState State, TCustomDrawStage Stage
  1061.         , bool &PaintImages);
  1062.     DYNAMIC void __fastcall Delete(TTreeNode* Node);
  1063.     virtual void __fastcall DestroyWnd(void);
  1064.     DYNAMIC void __fastcall DoEndDrag(System::TObject* Target, int X, int Y);
  1065.     DYNAMIC void __fastcall DoStartDrag(Controls::TDragObject* &DragObject);
  1066.     DYNAMIC void __fastcall Edit(const tagTVITEMA &Item);
  1067.     DYNAMIC void __fastcall Expand(TTreeNode* Node);
  1068.     virtual Controls::TDragImageList* __fastcall GetDragImages(void);
  1069.     virtual void __fastcall GetImageIndex(TTreeNode* Node);
  1070.     virtual void __fastcall GetSelectedIndex(TTreeNode* Node);
  1071.     bool __fastcall IsCustomDrawn(TCustomDrawTarget Target, TCustomDrawStage Stage);
  1072.     virtual void __fastcall Loaded(void);
  1073.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  1074.         );
  1075.     virtual void __fastcall SetDragMode(Controls::TDragMode Value);
  1076.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  1077.     __property bool AutoExpand = {read=FAutoExpand, write=SetAutoExpand, default=0};
  1078.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  1079.     __property int ChangeDelay = {read=GetChangeDelay, write=SetChangeDelay, default=0};
  1080.     __property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
  1081.     __property bool HotTrack = {read=FHotTrack, write=SetHotTrack, default=0};
  1082.     __property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
  1083.     __property int Indent = {read=GetIndent, write=SetIndent, nodefault};
  1084.     __property TTreeNodes* Items = {read=FTreeNodes, write=SetTreeNodes};
  1085.     __property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, default=0};
  1086.     __property bool RightClickSelect = {read=FRightClickSelect, write=FRightClickSelect, default=0};
  1087.     __property bool RowSelect = {read=FRowSelect, write=SetRowSelect, default=0};
  1088.     __property bool ShowButtons = {read=FShowButtons, write=SetButtonStyle, default=1};
  1089.     __property bool ShowLines = {read=FShowLines, write=SetLineStyle, default=1};
  1090.     __property bool ShowRoot = {read=FShowRoot, write=SetRootStyle, default=1};
  1091.     __property TSortType SortType = {read=FSortType, write=SetSortType, default=0};
  1092.     __property Imglist::TCustomImageList* StateImages = {read=FStateImages, write=SetStateImages};
  1093.     __property bool ToolTips = {read=FToolTips, write=SetToolTips, default=1};
  1094.     __property TTVAdvancedCustomDrawEvent OnAdvancedCustomDraw = {read=FOnAdvancedCustomDraw, write=FOnAdvancedCustomDraw
  1095.         };
  1096.     __property TTVAdvancedCustomDrawItemEvent OnAdvancedCustomDrawItem = {read=FOnAdvancedCustomDrawItem
  1097.         , write=FOnAdvancedCustomDrawItem};
  1098.     __property TTVChangedEvent OnChange = {read=FOnChange, write=FOnChange};
  1099.     __property TTVChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  1100.     __property TTVExpandedEvent OnCollapsed = {read=FOnCollapsed, write=FOnCollapsed};
  1101.     __property TTVCollapsingEvent OnCollapsing = {read=FOnCollapsing, write=FOnCollapsing};
  1102.     __property TTVCompareEvent OnCompare = {read=FOnCompare, write=FOnCompare};
  1103.     __property TTVCustomDrawEvent OnCustomDraw = {read=FOnCustomDraw, write=FOnCustomDraw};
  1104.     __property TTVCustomDrawItemEvent OnCustomDrawItem = {read=FOnCustomDrawItem, write=FOnCustomDrawItem
  1105.         };
  1106.     __property TTVExpandedEvent OnDeletion = {read=FOnDeletion, write=FOnDeletion};
  1107.     __property TTVEditingEvent OnEditing = {read=FOnEditing, write=FOnEditing};
  1108.     __property TTVEditedEvent OnEdited = {read=FOnEdited, write=FOnEdited};
  1109.     __property TTVExpandingEvent OnExpanding = {read=FOnExpanding, write=FOnExpanding};
  1110.     __property TTVExpandedEvent OnExpanded = {read=FOnExpanded, write=FOnExpanded};
  1111.     __property TTVExpandedEvent OnGetImageIndex = {read=FOnGetImageIndex, write=FOnGetImageIndex};
  1112.     __property TTVExpandedEvent OnGetSelectedIndex = {read=FOnGetSelectedIndex, write=FOnGetSelectedIndex
  1113.         };
  1114.     
  1115. public:
  1116.     __fastcall virtual TCustomTreeView(Classes::TComponent* AOwner);
  1117.     __fastcall virtual ~TCustomTreeView(void);
  1118.     bool __fastcall AlphaSort(void);
  1119.     bool __fastcall CustomSort(PFNTVCOMPARE SortProc, int Data);
  1120.     void __fastcall FullCollapse(void);
  1121.     void __fastcall FullExpand(void);
  1122.     THitTests __fastcall GetHitTestInfoAt(int X, int Y);
  1123.     TTreeNode* __fastcall GetNodeAt(int X, int Y);
  1124.     bool __fastcall IsEditing(void);
  1125.     void __fastcall LoadFromFile(const AnsiString FileName);
  1126.     void __fastcall LoadFromStream(Classes::TStream* Stream);
  1127.     void __fastcall SaveToFile(const AnsiString FileName);
  1128.     void __fastcall SaveToStream(Classes::TStream* Stream);
  1129.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  1130.     __property TTreeNode* DropTarget = {read=GetDropTarget, write=SetDropTarget};
  1131.     __property TTreeNode* Selected = {read=GetSelection, write=SetSelection};
  1132.     __property TTreeNode* TopItem = {read=GetTopItem, write=SetTopItem};
  1133. public:
  1134.     #pragma option push -w-inl
  1135.     /* TWinControl.CreateParented */ inline __fastcall TCustomTreeView(HWND ParentWindow) : Controls::TWinControl(
  1136.         ParentWindow) { }
  1137.     #pragma option pop
  1138.     
  1139. };
  1140.  
  1141.  
  1142. struct TNodeCache
  1143. {
  1144.     TTreeNode* CacheNode;
  1145.     int CacheIndex;
  1146. } ;
  1147.  
  1148. class PASCALIMPLEMENTATION TTreeNodes : public Classes::TPersistent 
  1149. {
  1150.     typedef Classes::TPersistent inherited;
  1151.     
  1152. private:
  1153.     TCustomTreeView* FOwner;
  1154.     int FUpdateCount;
  1155.     TNodeCache FNodeCache;
  1156.     void __fastcall AddedNode(TTreeNode* Value);
  1157.     HWND __fastcall GetHandle(void);
  1158.     TTreeNode* __fastcall GetNodeFromIndex(int Index);
  1159.     void __fastcall ReadData(Classes::TStream* Stream);
  1160.     void __fastcall Repaint(TTreeNode* Node);
  1161.     void __fastcall WriteData(Classes::TStream* Stream);
  1162.     void __fastcall ClearCache(void);
  1163.     void __fastcall WriteExpandedState(Classes::TStream* Stream);
  1164.     void __fastcall ReadExpandedState(Classes::TStream* Stream);
  1165.     
  1166. protected:
  1167.     HTREEITEM __fastcall AddItem(HTREEITEM Parent, HTREEITEM Target, const tagTVITEMA &Item, TAddMode AddMode
  1168.         );
  1169.     TTreeNode* __fastcall InternalAddObject(TTreeNode* Node, const AnsiString S, void * Ptr, TAddMode AddMode
  1170.         );
  1171.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  1172.     tagTVITEMA __fastcall CreateItem(TTreeNode* Node);
  1173.     int __fastcall GetCount(void);
  1174.     void __fastcall SetItem(int Index, TTreeNode* Value);
  1175.     void __fastcall SetUpdateState(bool Updating);
  1176.     
  1177. public:
  1178.     __fastcall TTreeNodes(TCustomTreeView* AOwner);
  1179.     __fastcall virtual ~TTreeNodes(void);
  1180.     TTreeNode* __fastcall AddChildFirst(TTreeNode* Node, const AnsiString S);
  1181.     TTreeNode* __fastcall AddChild(TTreeNode* Node, const AnsiString S);
  1182.     TTreeNode* __fastcall AddChildObjectFirst(TTreeNode* Node, const AnsiString S, void * Ptr);
  1183.     TTreeNode* __fastcall AddChildObject(TTreeNode* Node, const AnsiString S, void * Ptr);
  1184.     TTreeNode* __fastcall AddFirst(TTreeNode* Node, const AnsiString S);
  1185.     TTreeNode* __fastcall Add(TTreeNode* Node, const AnsiString S);
  1186.     TTreeNode* __fastcall AddObjectFirst(TTreeNode* Node, const AnsiString S, void * Ptr);
  1187.     TTreeNode* __fastcall AddObject(TTreeNode* Node, const AnsiString S, void * Ptr);
  1188.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  1189.     void __fastcall BeginUpdate(void);
  1190.     void __fastcall Clear(void);
  1191.     void __fastcall Delete(TTreeNode* Node);
  1192.     void __fastcall EndUpdate(void);
  1193.     TTreeNode* __fastcall GetFirstNode(void);
  1194.     TTreeNode* __fastcall GetNode(HTREEITEM ItemId);
  1195.     TTreeNode* __fastcall Insert(TTreeNode* Node, const AnsiString S);
  1196.     TTreeNode* __fastcall InsertObject(TTreeNode* Node, const AnsiString S, void * Ptr);
  1197.     __property int Count = {read=GetCount, nodefault};
  1198.     __property HWND Handle = {read=GetHandle, nodefault};
  1199.     __property TTreeNode* Item[int Index] = {read=GetNodeFromIndex/*, default*/};
  1200.     __property TCustomTreeView* Owner = {read=FOwner};
  1201. };
  1202.  
  1203.  
  1204. class PASCALIMPLEMENTATION TTreeNode : public Classes::TPersistent 
  1205. {
  1206.     typedef Classes::TPersistent inherited;
  1207.     
  1208. private:
  1209.     TTreeNodes* FOwner;
  1210.     AnsiString FText;
  1211.     void *FData;
  1212.     _TREEITEM *FItemId;
  1213.     Imglist::TImageIndex FImageIndex;
  1214.     int FSelectedIndex;
  1215.     int FOverlayIndex;
  1216.     int FStateIndex;
  1217.     bool FDeleting;
  1218.     bool FInTree;
  1219.     bool __fastcall CompareCount(int CompareMe);
  1220.     bool __fastcall DoCanExpand(bool Expand);
  1221.     void __fastcall DoExpand(bool Expand);
  1222.     void __fastcall ExpandItem(bool Expand, bool Recurse);
  1223.     int __fastcall GetAbsoluteIndex(void);
  1224.     bool __fastcall GetExpanded(void);
  1225.     int __fastcall GetLevel(void);
  1226.     TTreeNode* __fastcall GetParent(void);
  1227.     bool __fastcall GetChildren(void);
  1228.     bool __fastcall GetCut(void);
  1229.     bool __fastcall GetDropTarget(void);
  1230.     bool __fastcall GetFocused(void);
  1231.     int __fastcall GetIndex(void);
  1232.     TTreeNode* __fastcall GetItem(int Index);
  1233.     bool __fastcall GetSelected(void);
  1234.     bool __fastcall GetState(TNodeState NodeState);
  1235.     int __fastcall GetCount(void);
  1236.     TCustomTreeView* __fastcall GetTreeView(void);
  1237.     void __fastcall InternalMove(TTreeNode* ParentNode, TTreeNode* Node, HTREEITEM HItem, TAddMode AddMode
  1238.         );
  1239.     bool __fastcall IsEqual(TTreeNode* Node);
  1240.     bool __fastcall IsNodeVisible(void);
  1241.     void __fastcall ReadData(Classes::TStream* Stream, PNodeInfo Info);
  1242.     void __fastcall SetChildren(bool Value);
  1243.     void __fastcall SetCut(bool Value);
  1244.     void __fastcall SetData(void * Value);
  1245.     void __fastcall SetDropTarget(bool Value);
  1246.     void __fastcall SetItem(int Index, TTreeNode* Value);
  1247.     void __fastcall SetExpanded(bool Value);
  1248.     void __fastcall SetFocused(bool Value);
  1249.     void __fastcall SetImageIndex(Imglist::TImageIndex Value);
  1250.     void __fastcall SetOverlayIndex(int Value);
  1251.     void __fastcall SetSelectedIndex(int Value);
  1252.     void __fastcall SetSelected(bool Value);
  1253.     void __fastcall SetStateIndex(int Value);
  1254.     void __fastcall SetText(const AnsiString S);
  1255.     void __fastcall WriteData(Classes::TStream* Stream, PNodeInfo Info);
  1256.     
  1257. public:
  1258.     __fastcall TTreeNode(TTreeNodes* AOwner);
  1259.     __fastcall virtual ~TTreeNode(void);
  1260.     bool __fastcall AlphaSort(void);
  1261.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  1262.     void __fastcall Collapse(bool Recurse);
  1263.     bool __fastcall CustomSort(PFNTVCOMPARE SortProc, int Data);
  1264.     void __fastcall Delete(void);
  1265.     void __fastcall DeleteChildren(void);
  1266.     Windows::TRect __fastcall DisplayRect(bool TextOnly);
  1267.     bool __fastcall EditText(void);
  1268.     void __fastcall EndEdit(bool Cancel);
  1269.     void __fastcall Expand(bool Recurse);
  1270.     TTreeNode* __fastcall getFirstChild(void);
  1271.     HWND __fastcall GetHandle(void);
  1272.     TTreeNode* __fastcall GetLastChild(void);
  1273.     TTreeNode* __fastcall GetNext(void);
  1274.     TTreeNode* __fastcall GetNextChild(TTreeNode* Value);
  1275.     TTreeNode* __fastcall getNextSibling(void);
  1276.     TTreeNode* __fastcall GetNextVisible(void);
  1277.     TTreeNode* __fastcall GetPrev(void);
  1278.     TTreeNode* __fastcall GetPrevChild(TTreeNode* Value);
  1279.     TTreeNode* __fastcall getPrevSibling(void);
  1280.     TTreeNode* __fastcall GetPrevVisible(void);
  1281.     bool __fastcall HasAsParent(TTreeNode* Value);
  1282.     int __fastcall IndexOf(TTreeNode* Value);
  1283.     void __fastcall MakeVisible(void);
  1284.     virtual void __fastcall MoveTo(TTreeNode* Destination, TNodeAttachMode Mode);
  1285.     __property int AbsoluteIndex = {read=GetAbsoluteIndex, nodefault};
  1286.     __property int Count = {read=GetCount, nodefault};
  1287.     __property bool Cut = {read=GetCut, write=SetCut, nodefault};
  1288.     __property void * Data = {read=FData, write=SetData};
  1289.     __property bool Deleting = {read=FDeleting, nodefault};
  1290.     __property bool Focused = {read=GetFocused, write=SetFocused, nodefault};
  1291.     __property bool DropTarget = {read=GetDropTarget, write=SetDropTarget, nodefault};
  1292.     __property bool Selected = {read=GetSelected, write=SetSelected, nodefault};
  1293.     __property bool Expanded = {read=GetExpanded, write=SetExpanded, nodefault};
  1294.     __property HWND Handle = {read=GetHandle, nodefault};
  1295.     __property bool HasChildren = {read=GetChildren, write=SetChildren, nodefault};
  1296.     __property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
  1297.     __property int Index = {read=GetIndex, nodefault};
  1298.     __property bool IsVisible = {read=IsNodeVisible, nodefault};
  1299.     __property TTreeNode* Item[int Index] = {read=GetItem, write=SetItem/*, default*/};
  1300.     __property HTREEITEM ItemId = {read=FItemId};
  1301.     __property int Level = {read=GetLevel, nodefault};
  1302.     __property int OverlayIndex = {read=FOverlayIndex, write=SetOverlayIndex, nodefault};
  1303.     __property TTreeNodes* Owner = {read=FOwner};
  1304.     __property TTreeNode* Parent = {read=GetParent};
  1305.     __property int SelectedIndex = {read=FSelectedIndex, write=SetSelectedIndex, nodefault};
  1306.     __property int StateIndex = {read=FStateIndex, write=SetStateIndex, nodefault};
  1307.     __property AnsiString Text = {read=FText, write=SetText};
  1308.     __property TCustomTreeView* TreeView = {read=GetTreeView};
  1309. };
  1310.  
  1311.  
  1312. typedef TNodeCache *PNodeCache;
  1313.  
  1314. class DELPHICLASS ETreeViewError;
  1315. class PASCALIMPLEMENTATION ETreeViewError : public Sysutils::Exception 
  1316. {
  1317.     typedef Sysutils::Exception inherited;
  1318.     
  1319. public:
  1320.     #pragma option push -w-inl
  1321.     /* Exception.Create */ inline __fastcall ETreeViewError(const AnsiString Msg) : Sysutils::Exception(
  1322.         Msg) { }
  1323.     #pragma option pop
  1324.     #pragma option push -w-inl
  1325.     /* Exception.CreateFmt */ inline __fastcall ETreeViewError(const AnsiString Msg, const System::TVarRec 
  1326.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  1327.     #pragma option pop
  1328.     #pragma option push -w-inl
  1329.     /* Exception.CreateRes */ inline __fastcall ETreeViewError(int Ident)/* overload */ : Sysutils::Exception(
  1330.         Ident) { }
  1331.     #pragma option pop
  1332.     #pragma option push -w-inl
  1333.     /* Exception.CreateResFmt */ inline __fastcall ETreeViewError(int Ident, const System::TVarRec * Args
  1334.         , const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  1335.     #pragma option pop
  1336.     #pragma option push -w-inl
  1337.     /* Exception.CreateHelp */ inline __fastcall ETreeViewError(const AnsiString Msg, int AHelpContext)
  1338.          : Sysutils::Exception(Msg, AHelpContext) { }
  1339.     #pragma option pop
  1340.     #pragma option push -w-inl
  1341.     /* Exception.CreateFmtHelp */ inline __fastcall ETreeViewError(const AnsiString Msg, const System::TVarRec 
  1342.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  1343.         ) { }
  1344.     #pragma option pop
  1345.     #pragma option push -w-inl
  1346.     /* Exception.CreateResHelp */ inline __fastcall ETreeViewError(int Ident, int AHelpContext)/* overload */
  1347.          : Sysutils::Exception(Ident, AHelpContext) { }
  1348.     #pragma option pop
  1349.     #pragma option push -w-inl
  1350.     /* Exception.CreateResFmtHelp */ inline __fastcall ETreeViewError(System::PResStringRec ResStringRec
  1351.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
  1352.         ResStringRec, Args, Args_Size, AHelpContext) { }
  1353.     #pragma option pop
  1354.     
  1355. public:
  1356.     #pragma option push -w-inl
  1357.     /* TObject.Destroy */ inline __fastcall virtual ~ETreeViewError(void) { }
  1358.     #pragma option pop
  1359.     
  1360. };
  1361.  
  1362.  
  1363. class DELPHICLASS TTreeView;
  1364. class PASCALIMPLEMENTATION TTreeView : public TCustomTreeView 
  1365. {
  1366.     typedef TCustomTreeView inherited;
  1367.     
  1368. __published:
  1369.     __property Align ;
  1370.     __property Anchors ;
  1371.     __property AutoExpand ;
  1372.     __property BiDiMode ;
  1373.     __property BorderStyle ;
  1374.     __property BorderWidth ;
  1375.     __property ChangeDelay ;
  1376.     __property Color ;
  1377.     __property Ctl3D ;
  1378.     __property Constraints ;
  1379.     __property DragKind ;
  1380.     __property DragCursor ;
  1381.     __property DragMode ;
  1382.     __property Enabled ;
  1383.     __property Font ;
  1384.     __property HideSelection ;
  1385.     __property HotTrack ;
  1386.     __property Images ;
  1387.     __property Indent ;
  1388.     __property ParentBiDiMode ;
  1389.     __property ParentColor ;
  1390.     __property ParentCtl3D ;
  1391.     __property ParentFont ;
  1392.     __property ParentShowHint ;
  1393.     __property PopupMenu ;
  1394.     __property ReadOnly ;
  1395.     __property RightClickSelect ;
  1396.     __property RowSelect ;
  1397.     __property ShowButtons ;
  1398.     __property ShowHint ;
  1399.     __property ShowLines ;
  1400.     __property ShowRoot ;
  1401.     __property SortType ;
  1402.     __property StateImages ;
  1403.     __property TabOrder ;
  1404.     __property TabStop ;
  1405.     __property ToolTips ;
  1406.     __property Visible ;
  1407.     __property OnAdvancedCustomDraw ;
  1408.     __property OnAdvancedCustomDrawItem ;
  1409.     __property OnChange ;
  1410.     __property OnChanging ;
  1411.     __property OnClick ;
  1412.     __property OnCollapsed ;
  1413.     __property OnCollapsing ;
  1414.     __property OnCompare ;
  1415.     __property OnContextPopup ;
  1416.     __property OnCustomDraw ;
  1417.     __property OnCustomDrawItem ;
  1418.     __property OnDblClick ;
  1419.     __property OnDeletion ;
  1420.     __property OnDragDrop ;
  1421.     __property OnDragOver ;
  1422.     __property OnEdited ;
  1423.     __property OnEditing ;
  1424.     __property OnEndDock ;
  1425.     __property OnEndDrag ;
  1426.     __property OnEnter ;
  1427.     __property OnExit ;
  1428.     __property OnExpanding ;
  1429.     __property OnExpanded ;
  1430.     __property OnGetImageIndex ;
  1431.     __property OnGetSelectedIndex ;
  1432.     __property OnKeyDown ;
  1433.     __property OnKeyPress ;
  1434.     __property OnKeyUp ;
  1435.     __property OnMouseDown ;
  1436.     __property OnMouseMove ;
  1437.     __property OnMouseUp ;
  1438.     __property OnStartDock ;
  1439.     __property OnStartDrag ;
  1440.     __property Items ;
  1441. public:
  1442.     #pragma option push -w-inl
  1443.     /* TCustomTreeView.Create */ inline __fastcall virtual TTreeView(Classes::TComponent* AOwner) : TCustomTreeView(
  1444.         AOwner) { }
  1445.     #pragma option pop
  1446.     #pragma option push -w-inl
  1447.     /* TCustomTreeView.Destroy */ inline __fastcall virtual ~TTreeView(void) { }
  1448.     #pragma option pop
  1449.     
  1450. public:
  1451.     #pragma option push -w-inl
  1452.     /* TWinControl.CreateParented */ inline __fastcall TTreeView(HWND ParentWindow) : TCustomTreeView(ParentWindow
  1453.         ) { }
  1454.     #pragma option pop
  1455.     
  1456. };
  1457.  
  1458.  
  1459. #pragma option push -b-
  1460. enum TTrackBarOrientation { trHorizontal, trVertical };
  1461. #pragma option pop
  1462.  
  1463. #pragma option push -b-
  1464. enum TTickMark { tmBottomRight, tmTopLeft, tmBoth };
  1465. #pragma option pop
  1466.  
  1467. #pragma option push -b-
  1468. enum TTickStyle { tsNone, tsAuto, tsManual };
  1469. #pragma option pop
  1470.  
  1471. class DELPHICLASS TTrackBar;
  1472. class PASCALIMPLEMENTATION TTrackBar : public Controls::TWinControl 
  1473. {
  1474.     typedef Controls::TWinControl inherited;
  1475.     
  1476. private:
  1477.     TTrackBarOrientation FOrientation;
  1478.     TTickMark FTickMarks;
  1479.     TTickStyle FTickStyle;
  1480.     int FLineSize;
  1481.     int FPageSize;
  1482.     int FThumbLength;
  1483.     bool FSliderVisible;
  1484.     int FMin;
  1485.     int FMax;
  1486.     int FFrequency;
  1487.     int FPosition;
  1488.     int FSelStart;
  1489.     int FSelEnd;
  1490.     Classes::TNotifyEvent FOnChange;
  1491.     int __fastcall GetThumbLength(void);
  1492.     void __fastcall SetOrientation(TTrackBarOrientation Value);
  1493.     void __fastcall SetParams(int APosition, int AMin, int AMax);
  1494.     void __fastcall SetPosition(int Value);
  1495.     void __fastcall SetMin(int Value);
  1496.     void __fastcall SetMax(int Value);
  1497.     void __fastcall SetFrequency(int Value);
  1498.     void __fastcall SetTickStyle(TTickStyle Value);
  1499.     void __fastcall SetTickMarks(TTickMark Value);
  1500.     void __fastcall SetLineSize(int Value);
  1501.     void __fastcall SetPageSize(int Value);
  1502.     void __fastcall SetThumbLength(int Value);
  1503.     void __fastcall SetSliderVisible(bool Value);
  1504.     void __fastcall SetSelStart(int Value);
  1505.     void __fastcall SetSelEnd(int Value);
  1506.     void __fastcall UpdateSelection(void);
  1507.     MESSAGE void __fastcall CNHScroll(Messages::TWMScroll &Message);
  1508.     MESSAGE void __fastcall CNVScroll(Messages::TWMScroll &Message);
  1509.     
  1510. protected:
  1511.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1512.     virtual void __fastcall CreateWnd(void);
  1513.     virtual void __fastcall DestroyWnd(void);
  1514.     HIDESBASEDYNAMIC void __fastcall Changed(void);
  1515.     
  1516. public:
  1517.     __fastcall virtual TTrackBar(Classes::TComponent* AOwner);
  1518.     void __fastcall SetTick(int Value);
  1519.     
  1520. __published:
  1521.     __property Align ;
  1522.     __property Anchors ;
  1523.     __property BorderWidth ;
  1524.     __property Ctl3D ;
  1525.     __property DragCursor ;
  1526.     __property DragKind ;
  1527.     __property DragMode ;
  1528.     __property Enabled ;
  1529.     __property Constraints ;
  1530.     __property int LineSize = {read=FLineSize, write=SetLineSize, default=1};
  1531.     __property int Max = {read=FMax, write=SetMax, default=10};
  1532.     __property int Min = {read=FMin, write=SetMin, default=0};
  1533.     __property TTrackBarOrientation Orientation = {read=FOrientation, write=SetOrientation, nodefault};
  1534.         
  1535.     __property ParentCtl3D ;
  1536.     __property ParentShowHint ;
  1537.     __property int PageSize = {read=FPageSize, write=SetPageSize, default=2};
  1538.     __property PopupMenu ;
  1539.     __property int Frequency = {read=FFrequency, write=SetFrequency, nodefault};
  1540.     __property int Position = {read=FPosition, write=SetPosition, nodefault};
  1541.     __property bool SliderVisible = {read=FSliderVisible, write=SetSliderVisible, default=1};
  1542.     __property int SelEnd = {read=FSelEnd, write=SetSelEnd, nodefault};
  1543.     __property int SelStart = {read=FSelStart, write=SetSelStart, nodefault};
  1544.     __property ShowHint ;
  1545.     __property TabOrder ;
  1546.     __property TabStop ;
  1547.     __property int ThumbLength = {read=GetThumbLength, write=SetThumbLength, default=20};
  1548.     __property TTickMark TickMarks = {read=FTickMarks, write=SetTickMarks, nodefault};
  1549.     __property TTickStyle TickStyle = {read=FTickStyle, write=SetTickStyle, nodefault};
  1550.     __property Visible ;
  1551.     __property OnContextPopup ;
  1552.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  1553.     __property OnDragDrop ;
  1554.     __property OnDragOver ;
  1555.     __property OnEndDock ;
  1556.     __property OnEndDrag ;
  1557.     __property OnEnter ;
  1558.     __property OnExit ;
  1559.     __property OnKeyDown ;
  1560.     __property OnKeyPress ;
  1561.     __property OnKeyUp ;
  1562.     __property OnStartDock ;
  1563.     __property OnStartDrag ;
  1564. public:
  1565.     #pragma option push -w-inl
  1566.     /* TWinControl.CreateParented */ inline __fastcall TTrackBar(HWND ParentWindow) : Controls::TWinControl(
  1567.         ParentWindow) { }
  1568.     #pragma option pop
  1569.     #pragma option push -w-inl
  1570.     /* TWinControl.Destroy */ inline __fastcall virtual ~TTrackBar(void) { }
  1571.     #pragma option pop
  1572.     
  1573. };
  1574.  
  1575.  
  1576. typedef int TProgressRange;
  1577.  
  1578. #pragma option push -b-
  1579. enum TProgressBarOrientation { pbHorizontal, pbVertical };
  1580. #pragma option pop
  1581.  
  1582. class DELPHICLASS TProgressBar;
  1583. class PASCALIMPLEMENTATION TProgressBar : public Controls::TWinControl 
  1584. {
  1585.     typedef Controls::TWinControl inherited;
  1586.     
  1587. private:
  1588.     bool F32BitMode;
  1589.     int FMin;
  1590.     int FMax;
  1591.     int FPosition;
  1592.     int FStep;
  1593.     TProgressBarOrientation FOrientation;
  1594.     bool FSmooth;
  1595.     int __fastcall GetMin(void);
  1596.     int __fastcall GetMax(void);
  1597.     int __fastcall GetPosition(void);
  1598.     void __fastcall SetParams(int AMin, int AMax);
  1599.     void __fastcall SetMin(int Value);
  1600.     void __fastcall SetMax(int Value);
  1601.     void __fastcall SetPosition(int Value);
  1602.     void __fastcall SetStep(int Value);
  1603.     void __fastcall SetOrientation(TProgressBarOrientation Value);
  1604.     void __fastcall SetSmooth(bool Value);
  1605.     
  1606. protected:
  1607.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1608.     virtual void __fastcall CreateWnd(void);
  1609.     virtual void __fastcall DestroyWnd(void);
  1610.     
  1611. public:
  1612.     __fastcall virtual TProgressBar(Classes::TComponent* AOwner);
  1613.     void __fastcall StepIt(void);
  1614.     void __fastcall StepBy(int Delta);
  1615.     
  1616. __published:
  1617.     __property Align ;
  1618.     __property Anchors ;
  1619.     __property BorderWidth ;
  1620.     __property DragCursor ;
  1621.     __property DragKind ;
  1622.     __property DragMode ;
  1623.     __property Enabled ;
  1624.     __property Hint ;
  1625.     __property Constraints ;
  1626.     __property int Min = {read=GetMin, write=SetMin, nodefault};
  1627.     __property int Max = {read=GetMax, write=SetMax, nodefault};
  1628.     __property TProgressBarOrientation Orientation = {read=FOrientation, write=SetOrientation, default=0
  1629.         };
  1630.     __property ParentShowHint ;
  1631.     __property PopupMenu ;
  1632.     __property int Position = {read=GetPosition, write=SetPosition, default=0};
  1633.     __property bool Smooth = {read=FSmooth, write=SetSmooth, default=0};
  1634.     __property int Step = {read=FStep, write=SetStep, default=10};
  1635.     __property ShowHint ;
  1636.     __property TabOrder ;
  1637.     __property TabStop ;
  1638.     __property Visible ;
  1639.     __property OnContextPopup ;
  1640.     __property OnDragDrop ;
  1641.     __property OnDragOver ;
  1642.     __property OnEndDock ;
  1643.     __property OnEndDrag ;
  1644.     __property OnEnter ;
  1645.     __property OnExit ;
  1646.     __property OnMouseDown ;
  1647.     __property OnMouseMove ;
  1648.     __property OnMouseUp ;
  1649.     __property OnStartDock ;
  1650.     __property OnStartDrag ;
  1651. public:
  1652.     #pragma option push -w-inl
  1653.     /* TWinControl.CreateParented */ inline __fastcall TProgressBar(HWND ParentWindow) : Controls::TWinControl(
  1654.         ParentWindow) { }
  1655.     #pragma option pop
  1656.     #pragma option push -w-inl
  1657.     /* TWinControl.Destroy */ inline __fastcall virtual ~TProgressBar(void) { }
  1658.     #pragma option pop
  1659.     
  1660. };
  1661.  
  1662.  
  1663. #pragma option push -b-
  1664. enum TAttributeType { atSelected, atDefaultText };
  1665. #pragma option pop
  1666.  
  1667. #pragma option push -b-
  1668. enum TConsistentAttribute { caBold, caColor, caFace, caItalic, caSize, caStrikeOut, caUnderline, caProtected 
  1669.     };
  1670. #pragma option pop
  1671.  
  1672. typedef Set<TConsistentAttribute, caBold, caProtected>  TConsistentAttributes;
  1673.  
  1674. class DELPHICLASS TTextAttributes;
  1675. class DELPHICLASS TCustomRichEdit;
  1676. class DELPHICLASS TParaAttributes;
  1677. #pragma option push -b-
  1678. enum TNumberingStyle { nsNone, nsBullet };
  1679. #pragma option pop
  1680.  
  1681. class PASCALIMPLEMENTATION TParaAttributes : public Classes::TPersistent 
  1682. {
  1683.     typedef Classes::TPersistent inherited;
  1684.     
  1685. private:
  1686.     TCustomRichEdit* RichEdit;
  1687.     void __fastcall GetAttributes(_paraformat &Paragraph);
  1688.     Classes::TAlignment __fastcall GetAlignment(void);
  1689.     int __fastcall GetFirstIndent(void);
  1690.     int __fastcall GetLeftIndent(void);
  1691.     int __fastcall GetRightIndent(void);
  1692.     TNumberingStyle __fastcall GetNumbering(void);
  1693.     int __fastcall GetTab(Byte Index);
  1694.     int __fastcall GetTabCount(void);
  1695.     void __fastcall InitPara(_paraformat &Paragraph);
  1696.     void __fastcall SetAlignment(Classes::TAlignment Value);
  1697.     void __fastcall SetAttributes(_paraformat &Paragraph);
  1698.     void __fastcall SetFirstIndent(int Value);
  1699.     void __fastcall SetLeftIndent(int Value);
  1700.     void __fastcall SetRightIndent(int Value);
  1701.     void __fastcall SetNumbering(TNumberingStyle Value);
  1702.     void __fastcall SetTab(Byte Index, int Value);
  1703.     void __fastcall SetTabCount(int Value);
  1704.     
  1705. public:
  1706.     __fastcall TParaAttributes(TCustomRichEdit* AOwner);
  1707.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  1708.     __property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, nodefault};
  1709.     __property int FirstIndent = {read=GetFirstIndent, write=SetFirstIndent, nodefault};
  1710.     __property int LeftIndent = {read=GetLeftIndent, write=SetLeftIndent, nodefault};
  1711.     __property TNumberingStyle Numbering = {read=GetNumbering, write=SetNumbering, nodefault};
  1712.     __property int RightIndent = {read=GetRightIndent, write=SetRightIndent, nodefault};
  1713.     __property int Tab[Byte Index] = {read=GetTab, write=SetTab};
  1714.     __property int TabCount = {read=GetTabCount, write=SetTabCount, nodefault};
  1715. public:
  1716.     #pragma option push -w-inl
  1717.     /* TPersistent.Destroy */ inline __fastcall virtual ~TParaAttributes(void) { }
  1718.     #pragma option pop
  1719.     
  1720. };
  1721.  
  1722.  
  1723. typedef TMetaClass*TConversionClass;
  1724.  
  1725. typedef void __fastcall (__closure *TRichEditResizeEvent)(System::TObject* Sender, const Windows::TRect 
  1726.     &Rect);
  1727.  
  1728. typedef void __fastcall (__closure *TRichEditProtectChange)(System::TObject* Sender, int StartPos, int 
  1729.     EndPos, bool &AllowChange);
  1730.  
  1731. typedef void __fastcall (__closure *TRichEditSaveClipboard)(System::TObject* Sender, int NumObjects, 
  1732.     int NumChars, bool &SaveClipboard);
  1733.  
  1734. #pragma option push -b-
  1735. enum TSearchType { stWholeWord, stMatchCase };
  1736. #pragma option pop
  1737.  
  1738. typedef Set<TSearchType, stWholeWord, stMatchCase>  TSearchTypes;
  1739.  
  1740. class PASCALIMPLEMENTATION TCustomRichEdit : public Stdctrls::TCustomMemo 
  1741. {
  1742.     typedef Stdctrls::TCustomMemo inherited;
  1743.     
  1744. private:
  1745.     bool FHideScrollBars;
  1746.     TTextAttributes* FSelAttributes;
  1747.     TTextAttributes* FDefAttributes;
  1748.     TParaAttributes* FParagraph;
  1749.     Classes::TAlignment FOldParaAlignment;
  1750.     int FScreenLogPixels;
  1751.     Classes::TStrings* FRichEditStrings;
  1752.     Classes::TMemoryStream* FMemStream;
  1753.     Classes::TNotifyEvent FOnSelChange;
  1754.     bool FHideSelection;
  1755.     bool FModified;
  1756.     TMetaClass*FDefaultConverter;
  1757.     TRichEditResizeEvent FOnResizeRequest;
  1758.     TRichEditProtectChange FOnProtectChange;
  1759.     TRichEditSaveClipboard FOnSaveClipboard;
  1760.     Windows::TRect FPageRect;
  1761.     HIDESBASE MESSAGE void __fastcall CMBiDiModeChanged(Messages::TMessage &Message);
  1762.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  1763.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  1764.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  1765.     bool __fastcall GetPlainText(void);
  1766.     bool __fastcall ProtectChange(int StartPos, int EndPos);
  1767.     bool __fastcall SaveClipboard(int NumObj, int NumChars);
  1768.     void __fastcall SetHideScrollBars(bool Value);
  1769.     HIDESBASE void __fastcall SetHideSelection(bool Value);
  1770.     void __fastcall SetPlainText(bool Value);
  1771.     void __fastcall SetRichEditStrings(Classes::TStrings* Value);
  1772.     void __fastcall SetDefAttributes(TTextAttributes* Value);
  1773.     void __fastcall SetSelAttributes(TTextAttributes* Value);
  1774.     HIDESBASE MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
  1775.     HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Message);
  1776.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  1777.     HIDESBASE MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);
  1778.     HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
  1779.     
  1780. protected:
  1781.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  1782.     virtual void __fastcall CreateWnd(void);
  1783.     virtual void __fastcall DestroyWnd(void);
  1784.     virtual void __fastcall RequestSize(const Windows::TRect &Rect);
  1785.     DYNAMIC void __fastcall SelectionChange(void);
  1786.     virtual void __fastcall DoSetMaxLength(int Value);
  1787.     virtual Windows::TPoint __fastcall GetCaretPos();
  1788.     virtual int __fastcall GetSelLength(void);
  1789.     virtual int __fastcall GetSelStart(void);
  1790.     virtual AnsiString __fastcall GetSelText();
  1791.     virtual void __fastcall SetSelLength(int Value);
  1792.     virtual void __fastcall SetSelStart(int Value);
  1793.     __property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
  1794.     __property bool HideScrollBars = {read=FHideScrollBars, write=SetHideScrollBars, default=1};
  1795.     __property Classes::TStrings* Lines = {read=FRichEditStrings, write=SetRichEditStrings};
  1796.     __property TRichEditSaveClipboard OnSaveClipboard = {read=FOnSaveClipboard, write=FOnSaveClipboard}
  1797.         ;
  1798.     __property Classes::TNotifyEvent OnSelectionChange = {read=FOnSelChange, write=FOnSelChange};
  1799.     __property TRichEditProtectChange OnProtectChange = {read=FOnProtectChange, write=FOnProtectChange}
  1800.         ;
  1801.     __property TRichEditResizeEvent OnResizeRequest = {read=FOnResizeRequest, write=FOnResizeRequest};
  1802.     __property bool PlainText = {read=GetPlainText, write=SetPlainText, default=0};
  1803.     
  1804. public:
  1805.     __fastcall virtual TCustomRichEdit(Classes::TComponent* AOwner);
  1806.     __fastcall virtual ~TCustomRichEdit(void);
  1807.     virtual void __fastcall Clear(void);
  1808.     int __fastcall FindText(const AnsiString SearchStr, int StartPos, int Length, TSearchTypes Options)
  1809.         ;
  1810.     virtual int __fastcall GetSelTextBuf(char * Buffer, int BufSize);
  1811.     virtual void __fastcall Print(const AnsiString Caption);
  1812.     /*         class method */ static void __fastcall RegisterConversionFormat(TMetaClass* vmt, const AnsiString 
  1813.         AExtension, TMetaClass* AConversionClass);
  1814.     __property TMetaClass* DefaultConverter = {read=FDefaultConverter, write=FDefaultConverter};
  1815.     __property TTextAttributes* DefAttributes = {read=FDefAttributes, write=SetDefAttributes};
  1816.     __property TTextAttributes* SelAttributes = {read=FSelAttributes, write=SetSelAttributes};
  1817.     __property Windows::TRect PageRect = {read=FPageRect, write=FPageRect};
  1818.     __property TParaAttributes* Paragraph = {read=FParagraph};
  1819. public:
  1820.     #pragma option push -w-inl
  1821.     /* TWinControl.CreateParented */ inline __fastcall TCustomRichEdit(HWND ParentWindow) : Stdctrls::TCustomMemo(
  1822.         ParentWindow) { }
  1823.     #pragma option pop
  1824.     
  1825. };
  1826.  
  1827.  
  1828. class PASCALIMPLEMENTATION TTextAttributes : public Classes::TPersistent 
  1829. {
  1830.     typedef Classes::TPersistent inherited;
  1831.     
  1832. private:
  1833.     TCustomRichEdit* RichEdit;
  1834.     TAttributeType FType;
  1835.     void __fastcall GetAttributes(Richedit::TCharFormatA &Format);
  1836.     Graphics::TFontCharset __fastcall GetCharset(void);
  1837.     Graphics::TColor __fastcall GetColor(void);
  1838.     TConsistentAttributes __fastcall GetConsistentAttributes(void);
  1839.     int __fastcall GetHeight(void);
  1840.     AnsiString __fastcall GetName();
  1841.     Graphics::TFontPitch __fastcall GetPitch(void);
  1842.     bool __fastcall GetProtected(void);
  1843.     int __fastcall GetSize(void);
  1844.     Graphics::TFontStyles __fastcall GetStyle(void);
  1845.     void __fastcall SetAttributes(Richedit::TCharFormatA &Format);
  1846.     void __fastcall SetCharset(Graphics::TFontCharset Value);
  1847.     void __fastcall SetColor(Graphics::TColor Value);
  1848.     void __fastcall SetHeight(int Value);
  1849.     void __fastcall SetName(AnsiString Value);
  1850.     void __fastcall SetPitch(Graphics::TFontPitch Value);
  1851.     void __fastcall SetProtected(bool Value);
  1852.     void __fastcall SetSize(int Value);
  1853.     void __fastcall SetStyle(Graphics::TFontStyles Value);
  1854.     
  1855. protected:
  1856.     void __fastcall InitFormat(Richedit::TCharFormatA &Format);
  1857.     virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  1858.     
  1859. public:
  1860.     __fastcall TTextAttributes(TCustomRichEdit* AOwner, TAttributeType AttributeType);
  1861.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  1862.     __property Graphics::TFontCharset Charset = {read=GetCharset, write=SetCharset, nodefault};
  1863.     __property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};
  1864.     __property TConsistentAttributes ConsistentAttributes = {read=GetConsistentAttributes, nodefault};
  1865.     __property AnsiString Name = {read=GetName, write=SetName};
  1866.     __property Graphics::TFontPitch Pitch = {read=GetPitch, write=SetPitch, nodefault};
  1867.     __property bool Protected = {read=GetProtected, write=SetProtected, nodefault};
  1868.     __property int Size = {read=GetSize, write=SetSize, nodefault};
  1869.     __property Graphics::TFontStyles Style = {read=GetStyle, write=SetStyle, nodefault};
  1870.     __property int Height = {read=GetHeight, write=SetHeight, nodefault};
  1871. public:
  1872.     #pragma option push -w-inl
  1873.     /* TPersistent.Destroy */ inline __fastcall virtual ~TTextAttributes(void) { }
  1874.     #pragma option pop
  1875.     
  1876. };
  1877.  
  1878.  
  1879. class DELPHICLASS TConversion;
  1880. class PASCALIMPLEMENTATION TConversion : public System::TObject 
  1881. {
  1882.     typedef System::TObject inherited;
  1883.     
  1884. public:
  1885.     virtual int __fastcall ConvertReadStream(Classes::TStream* Stream, char * Buffer, int BufSize);
  1886.     virtual int __fastcall ConvertWriteStream(Classes::TStream* Stream, char * Buffer, int BufSize);
  1887. public:
  1888.         
  1889.     #pragma option push -w-inl
  1890.     /* TObject.Create */ inline __fastcall TConversion(void) : System::TObject() { }
  1891.     #pragma option pop
  1892.     #pragma option push -w-inl
  1893.     /* TObject.Destroy */ inline __fastcall virtual ~TConversion(void) { }
  1894.     #pragma option pop
  1895.     
  1896. };
  1897.  
  1898.  
  1899. struct TConversionFormat;
  1900. typedef TConversionFormat *PConversionFormat;
  1901.  
  1902. struct TConversionFormat
  1903. {
  1904.     TMetaClass*ConversionClass;
  1905.     AnsiString Extension;
  1906.     TConversionFormat *Next;
  1907. } ;
  1908.  
  1909. struct TRichEditStreamInfo
  1910. {
  1911.     TConversion* Converter;
  1912.     Classes::TStream* Stream;
  1913. } ;
  1914.  
  1915. typedef TRichEditStreamInfo *PRichEditStreamInfo;
  1916.  
  1917. class DELPHICLASS TRichEdit;
  1918. class PASCALIMPLEMENTATION TRichEdit : public TCustomRichEdit 
  1919. {
  1920.     typedef TCustomRichEdit inherited;
  1921.     
  1922. __published:
  1923.     __property Align ;
  1924.     __property Alignment ;
  1925.     __property Anchors ;
  1926.     __property BiDiMode ;
  1927.     __property BorderStyle ;
  1928.     __property BorderWidth ;
  1929.     __property Color ;
  1930.     __property Ctl3D ;
  1931.     __property DragCursor ;
  1932.     __property DragKind ;
  1933.     __property DragMode ;
  1934.     __property Enabled ;
  1935.     __property Font ;
  1936.     __property HideSelection ;
  1937.     __property HideScrollBars ;
  1938.     __property ImeMode ;
  1939.     __property ImeName ;
  1940.     __property Constraints ;
  1941.     __property Lines ;
  1942.     __property MaxLength ;
  1943.     __property ParentBiDiMode ;
  1944.     __property ParentColor ;
  1945.     __property ParentCtl3D ;
  1946.     __property ParentFont ;
  1947.     __property ParentShowHint ;
  1948.     __property PlainText ;
  1949.     __property PopupMenu ;
  1950.     __property ReadOnly ;
  1951.     __property ScrollBars ;
  1952.     __property ShowHint ;
  1953.     __property TabOrder ;
  1954.     __property TabStop ;
  1955.     __property Visible ;
  1956.     __property WantTabs ;
  1957.     __property WantReturns ;
  1958.     __property WordWrap ;
  1959.     __property OnChange ;
  1960.     __property OnContextPopup ;
  1961.     __property OnDragDrop ;
  1962.     __property OnDragOver ;
  1963.     __property OnEndDock ;
  1964.     __property OnEndDrag ;
  1965.     __property OnEnter ;
  1966.     __property OnExit ;
  1967.     __property OnKeyDown ;
  1968.     __property OnKeyPress ;
  1969.     __property OnKeyUp ;
  1970.     __property OnMouseDown ;
  1971.     __property OnMouseMove ;
  1972.     __property OnMouseUp ;
  1973.     __property OnMouseWheel ;
  1974.     __property OnMouseWheelDown ;
  1975.     __property OnMouseWheelUp ;
  1976.     __property OnProtectChange ;
  1977.     __property OnResizeRequest ;
  1978.     __property OnSaveClipboard ;
  1979.     __property OnSelectionChange ;
  1980.     __property OnStartDock ;
  1981.     __property OnStartDrag ;
  1982. public:
  1983.     #pragma option push -w-inl
  1984.     /* TCustomRichEdit.Create */ inline __fastcall virtual TRichEdit(Classes::TComponent* AOwner) : TCustomRichEdit(
  1985.         AOwner) { }
  1986.     #pragma option pop
  1987.     #pragma option push -w-inl
  1988.     /* TCustomRichEdit.Destroy */ inline __fastcall virtual ~TRichEdit(void) { }
  1989.     #pragma option pop
  1990.     
  1991. public:
  1992.     #pragma option push -w-inl
  1993.     /* TWinControl.CreateParented */ inline __fastcall TRichEdit(HWND ParentWindow) : TCustomRichEdit(ParentWindow
  1994.         ) { }
  1995.     #pragma option pop
  1996.     
  1997. };
  1998.  
  1999.  
  2000. #pragma option push -b-
  2001. enum TUDAlignButton { udLeft, udRight };
  2002. #pragma option pop
  2003.  
  2004. #pragma option push -b-
  2005. enum TUDOrientation { udHorizontal, udVertical };
  2006. #pragma option pop
  2007.  
  2008. #pragma option push -b-
  2009. enum TUDBtnType { btNext, btPrev };
  2010. #pragma option pop
  2011.  
  2012. #pragma option push -b-
  2013. enum TUpDownDirection { updNone, updUp, updDown };
  2014. #pragma option pop
  2015.  
  2016. typedef void __fastcall (__closure *TUDClickEvent)(System::TObject* Sender, TUDBtnType Button);
  2017.  
  2018. typedef void __fastcall (__closure *TUDChangingEvent)(System::TObject* Sender, bool &AllowChange);
  2019.  
  2020. typedef void __fastcall (__closure *TUDChangingEventEx)(System::TObject* Sender, bool &AllowChange, 
  2021.     short NewValue, TUpDownDirection Direction);
  2022.  
  2023. class DELPHICLASS TCustomUpDown;
  2024. class PASCALIMPLEMENTATION TCustomUpDown : public Controls::TWinControl 
  2025. {
  2026.     typedef Controls::TWinControl inherited;
  2027.     
  2028. private:
  2029.     bool FArrowKeys;
  2030.     Controls::TWinControl* FAssociate;
  2031.     short FMin;
  2032.     short FMax;
  2033.     int FIncrement;
  2034.     short FNewValue;
  2035.     short FNewValueDelta;
  2036.     short FPosition;
  2037.     bool FThousands;
  2038.     bool FWrap;
  2039.     TUDClickEvent FOnClick;
  2040.     TUDAlignButton FAlignButton;
  2041.     TUDOrientation FOrientation;
  2042.     TUDChangingEvent FOnChanging;
  2043.     TUDChangingEventEx FOnChangingEx;
  2044.     void __fastcall UndoAutoResizing(Controls::TWinControl* Value);
  2045.     void __fastcall SetAssociate(Controls::TWinControl* Value);
  2046.     short __fastcall GetPosition(void);
  2047.     void __fastcall SetMin(short Value);
  2048.     void __fastcall SetMax(short Value);
  2049.     void __fastcall SetIncrement(int Value);
  2050.     void __fastcall SetPosition(short Value);
  2051.     void __fastcall SetAlignButton(TUDAlignButton Value);
  2052.     void __fastcall SetOrientation(TUDOrientation Value);
  2053.     void __fastcall SetArrowKeys(bool Value);
  2054.     void __fastcall SetThousands(bool Value);
  2055.     void __fastcall SetWrap(bool Value);
  2056.     MESSAGE void __fastcall CMAllChildrenFlipped(Messages::TMessage &Message);
  2057.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  2058.     HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
  2059.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  2060.     HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
  2061.     
  2062. protected:
  2063.     bool __fastcall DoCanChange(short NewVal, short Delta);
  2064.     DYNAMIC bool __fastcall CanChange(void);
  2065.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  2066.     virtual void __fastcall CreateWnd(void);
  2067.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  2068.         );
  2069.     HIDESBASEDYNAMIC void __fastcall Click(TUDBtnType Button);
  2070.     __property TUDAlignButton AlignButton = {read=FAlignButton, write=SetAlignButton, default=1};
  2071.     __property bool ArrowKeys = {read=FArrowKeys, write=SetArrowKeys, default=1};
  2072.     __property Controls::TWinControl* Associate = {read=FAssociate, write=SetAssociate};
  2073.     __property short Min = {read=FMin, write=SetMin, nodefault};
  2074.     __property short Max = {read=FMax, write=SetMax, default=100};
  2075.     __property int Increment = {read=FIncrement, write=SetIncrement, default=1};
  2076.     __property TUDOrientation Orientation = {read=FOrientation, write=SetOrientation, default=1};
  2077.     __property short Position = {read=GetPosition, write=SetPosition, nodefault};
  2078.     __property bool Thousands = {read=FThousands, write=SetThousands, default=1};
  2079.     __property bool Wrap = {read=FWrap, write=SetWrap, nodefault};
  2080.     __property TUDChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  2081.     __property TUDChangingEventEx OnChangingEx = {read=FOnChangingEx, write=FOnChangingEx};
  2082.     __property TUDClickEvent OnClick = {read=FOnClick, write=FOnClick};
  2083.     
  2084. public:
  2085.     __fastcall virtual TCustomUpDown(Classes::TComponent* AOwner);
  2086. public:
  2087.     #pragma option push -w-inl
  2088.     /* TWinControl.CreateParented */ inline __fastcall TCustomUpDown(HWND ParentWindow) : Controls::TWinControl(
  2089.         ParentWindow) { }
  2090.     #pragma option pop
  2091.     #pragma option push -w-inl
  2092.     /* TWinControl.Destroy */ inline __fastcall virtual ~TCustomUpDown(void) { }
  2093.     #pragma option pop
  2094.     
  2095. };
  2096.  
  2097.  
  2098. class DELPHICLASS TUpDown;
  2099. class PASCALIMPLEMENTATION TUpDown : public TCustomUpDown 
  2100. {
  2101.     typedef TCustomUpDown inherited;
  2102.     
  2103. __published:
  2104.     __property AlignButton ;
  2105.     __property Anchors ;
  2106.     __property Associate ;
  2107.     __property ArrowKeys ;
  2108.     __property Enabled ;
  2109.     __property Hint ;
  2110.     __property Min ;
  2111.     __property Max ;
  2112.     __property Increment ;
  2113.     __property Constraints ;
  2114.     __property Orientation ;
  2115.     __property ParentShowHint ;
  2116.     __property PopupMenu ;
  2117.     __property Position ;
  2118.     __property ShowHint ;
  2119.     __property TabOrder ;
  2120.     __property TabStop ;
  2121.     __property Thousands ;
  2122.     __property Visible ;
  2123.     __property Wrap ;
  2124.     __property OnChanging ;
  2125.     __property OnChangingEx ;
  2126.     __property OnContextPopup ;
  2127.     __property OnClick ;
  2128.     __property OnEnter ;
  2129.     __property OnExit ;
  2130.     __property OnMouseDown ;
  2131.     __property OnMouseMove ;
  2132.     __property OnMouseUp ;
  2133. public:
  2134.     #pragma option push -w-inl
  2135.     /* TCustomUpDown.Create */ inline __fastcall virtual TUpDown(Classes::TComponent* AOwner) : TCustomUpDown(
  2136.         AOwner) { }
  2137.     #pragma option pop
  2138.     
  2139. public:
  2140.     #pragma option push -w-inl
  2141.     /* TWinControl.CreateParented */ inline __fastcall TUpDown(HWND ParentWindow) : TCustomUpDown(ParentWindow
  2142.         ) { }
  2143.     #pragma option pop
  2144.     #pragma option push -w-inl
  2145.     /* TWinControl.Destroy */ inline __fastcall virtual ~TUpDown(void) { }
  2146.     #pragma option pop
  2147.     
  2148. };
  2149.  
  2150.  
  2151. #pragma option push -b-
  2152. enum THKModifier { hkShift, hkCtrl, hkAlt, hkExt };
  2153. #pragma option pop
  2154.  
  2155. typedef Set<THKModifier, hkShift, hkExt>  THKModifiers;
  2156.  
  2157. #pragma option push -b-
  2158. enum THKInvalidKey { hcNone, hcShift, hcCtrl, hcAlt, hcShiftCtrl, hcShiftAlt, hcCtrlAlt, hcShiftCtrlAlt 
  2159.     };
  2160. #pragma option pop
  2161.  
  2162. typedef Set<THKInvalidKey, hcNone, hcShiftCtrlAlt>  THKInvalidKeys;
  2163.  
  2164. class DELPHICLASS TCustomHotKey;
  2165. class PASCALIMPLEMENTATION TCustomHotKey : public Controls::TWinControl 
  2166. {
  2167.     typedef Controls::TWinControl inherited;
  2168.     
  2169. private:
  2170.     bool FAutoSize;
  2171.     THKModifiers FModifiers;
  2172.     THKInvalidKeys FInvalidKeys;
  2173.     Word FHotKey;
  2174.     void __fastcall AdjustHeight(void);
  2175.     HIDESBASE void __fastcall SetAutoSize(bool Value);
  2176.     void __fastcall SetInvalidKeys(THKInvalidKeys Value);
  2177.     void __fastcall SetModifiers(THKModifiers Value);
  2178.     void __fastcall UpdateHeight(void);
  2179.     Classes::TShortCut __fastcall GetHotKey(void);
  2180.     void __fastcall SetHotKey(Classes::TShortCut Value);
  2181.     void __fastcall ShortCutToHotKey(Classes::TShortCut Value);
  2182.     Classes::TShortCut __fastcall HotKeyToShortCut(int Value);
  2183.     
  2184. protected:
  2185.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  2186.     virtual void __fastcall CreateWnd(void);
  2187.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
  2188.     __property THKInvalidKeys InvalidKeys = {read=FInvalidKeys, write=SetInvalidKeys, nodefault};
  2189.     __property THKModifiers Modifiers = {read=FModifiers, write=SetModifiers, nodefault};
  2190.     __property Classes::TShortCut HotKey = {read=GetHotKey, write=SetHotKey, nodefault};
  2191.     __property TabStop ;
  2192.     
  2193. public:
  2194.     __fastcall virtual TCustomHotKey(Classes::TComponent* AOwner);
  2195. public:
  2196.     #pragma option push -w-inl
  2197.     /* TWinControl.CreateParented */ inline __fastcall TCustomHotKey(HWND ParentWindow) : Controls::TWinControl(
  2198.         ParentWindow) { }
  2199.     #pragma option pop
  2200.     #pragma option push -w-inl
  2201.     /* TWinControl.Destroy */ inline __fastcall virtual ~TCustomHotKey(void) { }
  2202.     #pragma option pop
  2203.     
  2204. };
  2205.  
  2206.  
  2207. class DELPHICLASS THotKey;
  2208. class PASCALIMPLEMENTATION THotKey : public TCustomHotKey 
  2209. {
  2210.     typedef TCustomHotKey inherited;
  2211.     
  2212. __published:
  2213.     __property Anchors ;
  2214.     __property AutoSize ;
  2215.     __property BiDiMode ;
  2216.     __property Constraints ;
  2217.     __property Enabled ;
  2218.     __property Hint ;
  2219.     __property HotKey ;
  2220.     __property InvalidKeys ;
  2221.     __property Modifiers ;
  2222.     __property ParentBiDiMode ;
  2223.     __property ParentShowHint ;
  2224.     __property PopupMenu ;
  2225.     __property ShowHint ;
  2226.     __property TabOrder ;
  2227.     __property TabStop ;
  2228.     __property Visible ;
  2229.     __property OnContextPopup ;
  2230.     __property OnEnter ;
  2231.     __property OnExit ;
  2232.     __property OnMouseDown ;
  2233.     __property OnMouseMove ;
  2234.     __property OnMouseUp ;
  2235. public:
  2236.     #pragma option push -w-inl
  2237.     /* TCustomHotKey.Create */ inline __fastcall virtual THotKey(Classes::TComponent* AOwner) : TCustomHotKey(
  2238.         AOwner) { }
  2239.     #pragma option pop
  2240.     
  2241. public:
  2242.     #pragma option push -w-inl
  2243.     /* TWinControl.CreateParented */ inline __fastcall THotKey(HWND ParentWindow) : TCustomHotKey(ParentWindow
  2244.         ) { }
  2245.     #pragma option pop
  2246.     #pragma option push -w-inl
  2247.     /* TWinControl.Destroy */ inline __fastcall virtual ~THotKey(void) { }
  2248.     #pragma option pop
  2249.     
  2250. };
  2251.  
  2252.  
  2253. typedef int TWidth;
  2254.  
  2255. class DELPHICLASS TListColumn;
  2256. class PASCALIMPLEMENTATION TListColumn : public Classes::TCollectionItem 
  2257. {
  2258.     typedef Classes::TCollectionItem inherited;
  2259.     
  2260. private:
  2261.     Classes::TAlignment FAlignment;
  2262.     bool FAutoSize;
  2263.     AnsiString FCaption;
  2264.     TWidth FMaxWidth;
  2265.     TWidth FMinWidth;
  2266.     Imglist::TImageIndex FImageIndex;
  2267.     TWidth FPrivateWidth;
  2268.     TWidth FWidth;
  2269.     int FOrderTag;
  2270.     int FTag;
  2271.     void __fastcall DoChange(void);
  2272.     TWidth __fastcall GetWidth(void);
  2273.     bool __fastcall IsWidthStored(void);
  2274.     void __fastcall ReadData(Classes::TReader* Reader);
  2275.     void __fastcall SetAlignment(Classes::TAlignment Value);
  2276.     void __fastcall SetAutoSize(bool Value);
  2277.     void __fastcall SetCaption(const AnsiString Value);
  2278.     void __fastcall SetImageIndex(Imglist::TImageIndex Value);
  2279.     void __fastcall SetMaxWidth(TWidth Value);
  2280.     void __fastcall SetMinWidth(TWidth Value);
  2281.     void __fastcall SetWidth(TWidth Value);
  2282.     void __fastcall WriteData(Classes::TWriter* Writer);
  2283.     
  2284. protected:
  2285.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  2286.     virtual AnsiString __fastcall GetDisplayName();
  2287.     virtual void __fastcall SetIndex(int Value);
  2288.     
  2289. public:
  2290.     __fastcall virtual TListColumn(Classes::TCollection* Collection);
  2291.     __fastcall virtual ~TListColumn(void);
  2292.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  2293.     __property TWidth WidthType = {read=FWidth, nodefault};
  2294.     
  2295. __published:
  2296.     __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
  2297.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
  2298.     __property AnsiString Caption = {read=FCaption, write=SetCaption};
  2299.     __property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImageIndex, default=-1};
  2300.     __property TWidth MaxWidth = {read=FMaxWidth, write=SetMaxWidth, default=0};
  2301.     __property TWidth MinWidth = {read=FMinWidth, write=SetMinWidth, default=0};
  2302.     __property int Tag = {read=FTag, write=FTag, default=0};
  2303.     __property TWidth Width = {read=GetWidth, write=SetWidth, stored=IsWidthStored, default=50};
  2304. };
  2305.  
  2306.  
  2307. class DELPHICLASS TListColumns;
  2308. class DELPHICLASS TCustomListView;
  2309. #pragma option push -b-
  2310. enum TViewStyle { vsIcon, vsSmallIcon, vsList, vsReport };
  2311. #pragma option pop
  2312.  
  2313. class DELPHICLASS TListItems;
  2314. class DELPHICLASS TListItem;
  2315. class PASCALIMPLEMENTATION TListItems : public Classes::TPersistent 
  2316. {
  2317.     typedef Classes::TPersistent inherited;
  2318.     
  2319. private:
  2320.     TCustomListView* FOwner;
  2321.     int FUpdateCount;
  2322.     bool FNoRedraw;
  2323.     void __fastcall ReadData(Classes::TStream* Stream);
  2324.     void __fastcall WriteData(Classes::TStream* Stream);
  2325.     
  2326. protected:
  2327.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  2328.     tagLVITEMA __fastcall CreateItem(int Index, TListItem* ListItem);
  2329.     int __fastcall GetCount(void);
  2330.     HWND __fastcall GetHandle(void);
  2331.     TListItem* __fastcall GetItem(int Index);
  2332.     void __fastcall SetCount(int Value);
  2333.     void __fastcall SetItem(int Index, TListItem* Value);
  2334.     void __fastcall SetUpdateState(bool Updating);
  2335.     
  2336. public:
  2337.     __fastcall TListItems(TCustomListView* AOwner);
  2338.     __fastcall virtual ~TListItems(void);
  2339.     TListItem* __fastcall Add(void);
  2340.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  2341.     void __fastcall BeginUpdate(void);
  2342.     void __fastcall Clear(void);
  2343.     void __fastcall Delete(int Index);
  2344.     void __fastcall EndUpdate(void);
  2345.     int __fastcall IndexOf(TListItem* Value);
  2346.     TListItem* __fastcall Insert(int Index);
  2347.     __property int Count = {read=GetCount, write=SetCount, nodefault};
  2348.     __property HWND Handle = {read=GetHandle, nodefault};
  2349.     __property TListItem* Item[int Index] = {read=GetItem, write=SetItem/*, default*/};
  2350.     __property TCustomListView* Owner = {read=FOwner};
  2351. };
  2352.  
  2353.  
  2354. class DELPHICLASS TIconOptions;
  2355. #pragma option push -b-
  2356. enum TIconArrangement { iaTop, iaLeft };
  2357. #pragma option pop
  2358.  
  2359. class PASCALIMPLEMENTATION TIconOptions : public Classes::TPersistent 
  2360. {
  2361.     typedef Classes::TPersistent inherited;
  2362.     
  2363. private:
  2364.     TCustomListView* FListView;
  2365.     TIconArrangement FArrangement;
  2366.     bool FAutoArrange;
  2367.     bool FWrapText;
  2368.     void __fastcall SetArrangement(TIconArrangement Value);
  2369.     void __fastcall SetAutoArrange(bool Value);
  2370.     void __fastcall SetWrapText(bool Value);
  2371.     
  2372. public:
  2373.     __fastcall TIconOptions(TCustomListView* AOwner);
  2374.     
  2375. __published:
  2376.     __property TIconArrangement Arrangement = {read=FArrangement, write=SetArrangement, default=0};
  2377.     __property bool AutoArrange = {read=FAutoArrange, write=SetAutoArrange, default=0};
  2378.     __property bool WrapText = {read=FWrapText, write=SetWrapText, default=1};
  2379. public:
  2380.     #pragma option push -w-inl
  2381.     /* TPersistent.Destroy */ inline __fastcall virtual ~TIconOptions(void) { }
  2382.     #pragma option pop
  2383.     
  2384. };
  2385.  
  2386.  
  2387. #pragma option push -b-
  2388. enum TListHotTrackStyle { htHandPoint, htUnderlineCold, htUnderlineHot };
  2389. #pragma option pop
  2390.  
  2391. typedef Set<TListHotTrackStyle, htHandPoint, htUnderlineHot>  TListHotTrackStyles;
  2392.  
  2393. class DELPHICLASS TWorkAreas;
  2394. class DELPHICLASS TWorkArea;
  2395. class PASCALIMPLEMENTATION TWorkAreas : public Classes::TOwnedCollection 
  2396. {
  2397.     typedef Classes::TOwnedCollection inherited;
  2398.     
  2399. private:
  2400.     HIDESBASE TWorkArea* __fastcall GetItem(int Index);
  2401.     HIDESBASE void __fastcall SetItem(int Index, const TWorkArea* Value);
  2402.     
  2403. protected:
  2404.     HIDESBASE void __fastcall Changed(void);
  2405.     virtual void __fastcall Update(Classes::TCollectionItem* Item);
  2406.     
  2407. public:
  2408.     HIDESBASE TWorkArea* __fastcall Add(void);
  2409.     HIDESBASE void __fastcall Delete(int Index);
  2410.     HIDESBASE TWorkArea* __fastcall Insert(int Index);
  2411.     __property TWorkArea* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  2412. public:
  2413.     #pragma option push -w-inl
  2414.     /* TOwnedCollection.Create */ inline __fastcall TWorkAreas(Classes::TPersistent* AOwner, TMetaClass* 
  2415.         ItemClass) : Classes::TOwnedCollection(AOwner, ItemClass) { }
  2416.     #pragma option pop
  2417.     
  2418. public:
  2419.     #pragma option push -w-inl
  2420.     /* TCollection.Destroy */ inline __fastcall virtual ~TWorkAreas(void) { }
  2421.     #pragma option pop
  2422.     
  2423. };
  2424.  
  2425.  
  2426. typedef void __fastcall (__closure *TLVAdvancedCustomDrawEvent)(TCustomListView* Sender, const Windows::TRect 
  2427.     &ARect, TCustomDrawStage Stage, bool &DefaultDraw);
  2428.  
  2429. typedef void __fastcall (__closure *TLVAdvancedCustomDrawItemEvent)(TCustomListView* Sender, TListItem* 
  2430.     Item, TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw);
  2431.  
  2432. typedef void __fastcall (__closure *TLVAdvancedCustomDrawSubItemEvent)(TCustomListView* Sender, TListItem* 
  2433.     Item, int SubItem, TCustomDrawState State, TCustomDrawStage Stage, bool &DefaultDraw);
  2434.  
  2435. #pragma option push -b-
  2436. enum TItemChange { ctText, ctImage, ctState };
  2437. #pragma option pop
  2438.  
  2439. typedef void __fastcall (__closure *TLVChangeEvent)(System::TObject* Sender, TListItem* Item, TItemChange 
  2440.     Change);
  2441.  
  2442. typedef void __fastcall (__closure *TLVChangingEvent)(System::TObject* Sender, TListItem* Item, TItemChange 
  2443.     Change, bool &AllowChange);
  2444.  
  2445. typedef void __fastcall (__closure *TLVColumnClickEvent)(System::TObject* Sender, TListColumn* Column
  2446.     );
  2447.  
  2448. typedef void __fastcall (__closure *TLVColumnRClickEvent)(System::TObject* Sender, TListColumn* Column
  2449.     , const Windows::TPoint &Point);
  2450.  
  2451. typedef void __fastcall (__closure *TLVCompareEvent)(System::TObject* Sender, TListItem* Item1, TListItem* 
  2452.     Item2, int Data, int &Compare);
  2453.  
  2454. typedef void __fastcall (__closure *TLVCustomDrawEvent)(TCustomListView* Sender, const Windows::TRect 
  2455.     &ARect, bool &DefaultDraw);
  2456.  
  2457. typedef void __fastcall (__closure *TLVCustomDrawItemEvent)(TCustomListView* Sender, TListItem* Item
  2458.     , TCustomDrawState State, bool &DefaultDraw);
  2459.  
  2460. typedef void __fastcall (__closure *TLVCustomDrawSubItemEvent)(TCustomListView* Sender, TListItem* Item
  2461.     , int SubItem, TCustomDrawState State, bool &DefaultDraw);
  2462.  
  2463. typedef void __fastcall (__closure *TLVOwnerDataEvent)(System::TObject* Sender, TListItem* Item);
  2464.  
  2465. #pragma option push -b-
  2466. enum TItemFind { ifData, ifPartialString, ifExactString, ifNearest };
  2467. #pragma option pop
  2468.  
  2469. #pragma option push -b-
  2470. enum TSearchDirection { sdLeft, sdRight, sdAbove, sdBelow, sdAll };
  2471. #pragma option pop
  2472.  
  2473. typedef void __fastcall (__closure *TLVOwnerDataFindEvent)(System::TObject* Sender, TItemFind Find, 
  2474.     const AnsiString FindString, const Windows::TPoint &FindPosition, void * FindData, int StartIndex, 
  2475.     TSearchDirection Direction, bool Wrap, int &Index);
  2476.  
  2477. typedef void __fastcall (__closure *TLVOwnerDataHintEvent)(System::TObject* Sender, int StartIndex, 
  2478.     int EndIndex);
  2479.  
  2480. #pragma option push -b-
  2481. enum TItemState { isNone, isCut, isDropHilited, isFocused, isSelected, isActivating };
  2482. #pragma option pop
  2483.  
  2484. typedef Set<TItemState, isNone, isActivating>  TItemStates;
  2485.  
  2486. typedef void __fastcall (__closure *TLVOwnerDataStateChangeEvent)(System::TObject* Sender, int StartIndex
  2487.     , int EndIndex, TItemStates OldState, TItemStates NewState);
  2488.  
  2489. typedef void __fastcall (__closure *TLVDeletedEvent)(System::TObject* Sender, TListItem* Item);
  2490.  
  2491. typedef void __fastcall (__closure *TLVDrawItemEvent)(TCustomListView* Sender, TListItem* Item, const 
  2492.     Windows::TRect &Rect, Windows::TOwnerDrawState State);
  2493.  
  2494. typedef void __fastcall (__closure *TLVEditedEvent)(System::TObject* Sender, TListItem* Item, AnsiString 
  2495.     &S);
  2496.  
  2497. typedef void __fastcall (__closure *TLVEditingEvent)(System::TObject* Sender, TListItem* Item, bool 
  2498.     &AllowEdit);
  2499.  
  2500. typedef void __fastcall (__closure *TLVNotifyEvent)(System::TObject* Sender, TListItem* Item);
  2501.  
  2502. typedef void __fastcall (__closure *TLVSubItemImageEvent)(System::TObject* Sender, TListItem* Item, 
  2503.     int SubItem, int &ImageIndex);
  2504.  
  2505. typedef void __fastcall (__closure *TLVInfoTipEvent)(System::TObject* Sender, TListItem* Item, AnsiString 
  2506.     &InfoTip);
  2507.  
  2508. typedef void __fastcall (__closure *TLVSelectItemEvent)(System::TObject* Sender, TListItem* Item, bool 
  2509.     Selected);
  2510.  
  2511. #pragma option push -b-
  2512. enum TItemRequests { irText, irImage, irParam, irState, irIndent };
  2513. #pragma option pop
  2514.  
  2515. typedef Set<TItemRequests, irText, irIndent>  TItemRequest;
  2516.  
  2517. #pragma option push -b-
  2518. enum TListArrangement { arAlignBottom, arAlignLeft, arAlignRight, arAlignTop, arDefault, arSnapToGrid 
  2519.     };
  2520. #pragma option pop
  2521.  
  2522. class PASCALIMPLEMENTATION TCustomListView : public Controls::TWinControl 
  2523. {
  2524.     typedef Controls::TWinControl inherited;
  2525.     
  2526. private:
  2527.     Graphics::TCanvas* FCanvas;
  2528.     Forms::TFormBorderStyle FBorderStyle;
  2529.     TViewStyle FViewStyle;
  2530.     bool FReadOnly;
  2531.     Imglist::TCustomImageList* FLargeImages;
  2532.     Imglist::TCustomImageList* FSmallImages;
  2533.     Imglist::TCustomImageList* FStateImages;
  2534.     Controls::TDragImageList* FDragImage;
  2535.     bool FMultiSelect;
  2536.     TSortType FSortType;
  2537.     bool FColumnClick;
  2538.     bool FShowColumnHeaders;
  2539.     TListItems* FListItems;
  2540.     bool FClicked;
  2541.     bool FRClicked;
  2542.     TIconOptions* FIconOptions;
  2543.     bool FHideSelection;
  2544.     TListColumns* FListColumns;
  2545.     Classes::TMemoryStream* FMemStream;
  2546.     bool FOwnerData;
  2547.     bool FOwnerDraw;
  2548.     Classes::TMemoryStream* FColStream;
  2549.     Classes::TMemoryStream* FCheckStream;
  2550.     void *FEditInstance;
  2551.     void *FDefEditProc;
  2552.     HWND FEditHandle;
  2553.     void *FHeaderInstance;
  2554.     void *FDefHeaderProc;
  2555.     HWND FHeaderHandle;
  2556.     int FAllocBy;
  2557.     int FDragIndex;
  2558.     TListItem* FLastDropTarget;
  2559.     bool FCheckboxes;
  2560.     bool FFlatScrollBars;
  2561.     bool FFullDrag;
  2562.     bool FGridLines;
  2563.     bool FHotTrack;
  2564.     TListHotTrackStyles FHotTrackStyles;
  2565.     bool FRowSelect;
  2566.     Imglist::TChangeLink* FLargeChangeLink;
  2567.     Imglist::TChangeLink* FSmallChangeLink;
  2568.     Imglist::TChangeLink* FStateChangeLink;
  2569.     TSortType FSavedSort;
  2570.     bool FReading;
  2571.     bool FCanvasChanged;
  2572.     TListItem* FTempItem;
  2573.     TWorkAreas* FWorkAreas;
  2574.     bool FShowWorkAreas;
  2575.     bool FUpdatingColumnOrder;
  2576.     int FOwnerDataCount;
  2577.     TLVAdvancedCustomDrawEvent FOnAdvancedCustomDraw;
  2578.     TLVAdvancedCustomDrawItemEvent FOnAdvancedCustomDrawItem;
  2579.     TLVAdvancedCustomDrawSubItemEvent FOnAdvancedCustomDrawSubItem;
  2580.     TLVChangeEvent FOnChange;
  2581.     TLVChangingEvent FOnChanging;
  2582.     TLVColumnClickEvent FOnColumnClick;
  2583.     Classes::TNotifyEvent FOnColumnDragged;
  2584.     TLVColumnRClickEvent FOnColumnRightClick;
  2585.     TLVCompareEvent FOnCompare;
  2586.     TLVCustomDrawEvent FOnCustomDraw;
  2587.     TLVCustomDrawItemEvent FOnCustomDrawItem;
  2588.     TLVCustomDrawSubItemEvent FOnCustomDrawSubItem;
  2589.     TLVOwnerDataEvent FOnData;
  2590.     TLVOwnerDataFindEvent FOnDataFind;
  2591.     TLVOwnerDataHintEvent FOnDataHint;
  2592.     TLVOwnerDataStateChangeEvent FOnDataStateChange;
  2593.     TLVDeletedEvent FOnDeletion;
  2594.     TLVDrawItemEvent FOnDrawItem;
  2595.     TLVEditedEvent FOnEdited;
  2596.     TLVEditingEvent FOnEditing;
  2597.     TLVNotifyEvent FOnGetImageIndex;
  2598.     TLVSubItemImageEvent FOnGetSubItemImage;
  2599.     TLVInfoTipEvent FOnInfoTip;
  2600.     TLVDeletedEvent FOnInsert;
  2601.     TLVSelectItemEvent FOnSelectItem;
  2602.     bool __fastcall AreItemsStored(void);
  2603.     void __fastcall CanvasChanged(System::TObject* Sender);
  2604.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  2605.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  2606.     HIDESBASE MESSAGE void __fastcall CMDrag(Controls::TCMDrag &Message);
  2607.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  2608.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  2609.     void __fastcall DoAutoSize(void);
  2610.     void __fastcall DoDragOver(Controls::TDragObject* Source, int X, int Y, bool CanDrop);
  2611.     void __fastcall DrawWorkAreas(void);
  2612.     void __fastcall EditWndProc(Messages::TMessage &Message);
  2613.     Windows::TRect __fastcall GetBoundingRect();
  2614.     TListColumn* __fastcall GetColumnFromIndex(int Index);
  2615.     TListColumn* __fastcall GetColumnFromTag(int Tag);
  2616.     TListItem* __fastcall GetDropTarget(void);
  2617.     TListItem* __fastcall GetFocused(void);
  2618.     void __fastcall GetImageIndex(TListItem* Item);
  2619.     void __fastcall GetSubItemImage(TListItem* Item, int SubItem, int &ImageIndex);
  2620.     TListItem* __fastcall GetItem(const tagLVITEMA &Value);
  2621.     int __fastcall GetSelCount(void);
  2622.     TListItem* __fastcall GetSelection(void);
  2623.     TListItem* __fastcall GetTopItem(void);
  2624.     Windows::TPoint __fastcall GetViewOrigin();
  2625.     int __fastcall GetVisibleRowCount(void);
  2626.     int __fastcall GetHoverTime(void);
  2627.     void __fastcall HeaderWndProc(Messages::TMessage &Message);
  2628.     void __fastcall ImageListChange(System::TObject* Sender);
  2629.     void __fastcall RestoreChecks(void);
  2630.     void __fastcall SaveChecks(void);
  2631.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  2632.     void __fastcall SetColumnClick(bool Value);
  2633.     void __fastcall SetColumnHeaders(bool Value);
  2634.     void __fastcall SetDropTarget(TListItem* Value);
  2635.     void __fastcall SetFocused(TListItem* Value);
  2636.     void __fastcall SetHideSelection(bool Value);
  2637.     void __fastcall SetIconOptions(TIconOptions* Value);
  2638.     void __fastcall SetImageList(unsigned Value, int Flags);
  2639.     void __fastcall SetLargeImages(Imglist::TCustomImageList* Value);
  2640.     void __fastcall SetAllocBy(int Value);
  2641.     void __fastcall SetItems(TListItems* Value);
  2642.     void __fastcall SetListColumns(TListColumns* Value);
  2643.     void __fastcall SetMultiSelect(bool Value);
  2644.     void __fastcall SetOwnerData(bool Value);
  2645.     void __fastcall SetOwnerDraw(bool Value);
  2646.     void __fastcall SetReadOnly(bool Value);
  2647.     void __fastcall SetShowWorkAreas(const bool Value);
  2648.     void __fastcall SetSmallImages(Imglist::TCustomImageList* Value);
  2649.     void __fastcall SetSortType(TSortType Value);
  2650.     void __fastcall SetSelection(TListItem* Value);
  2651.     void __fastcall SetStateImages(Imglist::TCustomImageList* Value);
  2652.     void __fastcall SetTextBkColor(Graphics::TColor Value);
  2653.     void __fastcall SetTextColor(Graphics::TColor Value);
  2654.     void __fastcall SetViewStyle(TViewStyle Value);
  2655.     void __fastcall SetCheckboxes(bool Value);
  2656.     void __fastcall SetFlatScrollBars(bool Value);
  2657.     void __fastcall SetFullDrag(bool Value);
  2658.     void __fastcall SetGridLines(bool Value);
  2659.     void __fastcall SetHotTrack(bool Value);
  2660.     void __fastcall SetHotTrackStyles(TListHotTrackStyles Value);
  2661.     void __fastcall SetRowSelect(bool Value);
  2662.     void __fastcall SetHoverTime(int Value);
  2663.     void __fastcall ResetExStyles(void);
  2664.     bool __fastcall ValidHeaderHandle(void);
  2665.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  2666.     HIDESBASE MESSAGE void __fastcall WMNotify(Messages::TWMNotify &Message);
  2667.     HIDESBASE MESSAGE void __fastcall WMParentNotify(Messages::TWMParentNotify &Message);
  2668.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  2669.     HIDESBASE MESSAGE void __fastcall WMWindowPosChanged(Messages::TWMWindowPosMsg &Message);
  2670.     MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  2671.     HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Message);
  2672.     HIDESBASE MESSAGE void __fastcall WMContextMenu(Messages::TWMContextMenu &Message);
  2673.     
  2674. protected:
  2675.     DYNAMIC bool __fastcall CanChange(TListItem* Item, int Change);
  2676.     DYNAMIC bool __fastcall CanEdit(TListItem* Item);
  2677.     DYNAMIC void __fastcall Change(TListItem* Item, int Change);
  2678.     DYNAMIC void __fastcall ChangeScale(int M, int D);
  2679.     DYNAMIC void __fastcall ColClick(TListColumn* Column);
  2680.     DYNAMIC void __fastcall ColRightClick(TListColumn* Column, const Windows::TPoint &Point);
  2681.     bool __fastcall ColumnsShowing(void);
  2682.     virtual TListItem* __fastcall CreateListItem(void);
  2683.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  2684.     virtual void __fastcall CreateWnd(void);
  2685.     virtual bool __fastcall CustomDraw(const Windows::TRect &ARect, TCustomDrawStage Stage);
  2686.     virtual bool __fastcall CustomDrawItem(TListItem* Item, TCustomDrawState State, TCustomDrawStage Stage
  2687.         );
  2688.     virtual bool __fastcall CustomDrawSubItem(TListItem* Item, int SubItem, TCustomDrawState State, TCustomDrawStage 
  2689.         Stage);
  2690.     DYNAMIC void __fastcall Delete(TListItem* Item);
  2691.     virtual void __fastcall DestroyWnd(void);
  2692.     DYNAMIC void __fastcall DoEndDrag(System::TObject* Target, int X, int Y);
  2693.     DYNAMIC void __fastcall DoStartDrag(Controls::TDragObject* &DragObject);
  2694.     virtual void __fastcall DoInfoTip(TListItem* Item, AnsiString &InfoTip);
  2695.     virtual void __fastcall DrawItem(TListItem* Item, const Windows::TRect &Rect, Windows::TOwnerDrawState 
  2696.         State);
  2697.     DYNAMIC void __fastcall Edit(const tagLVITEMA &Item);
  2698.     DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  2699.         Y);
  2700.     virtual bool __fastcall OwnerDataFetch(TListItem* Item, TItemRequest Request);
  2701.     virtual int __fastcall OwnerDataFind(TItemFind Find, const AnsiString FindString, const Windows::TPoint 
  2702.         &FindPosition, void * FindData, int StartIndex, TSearchDirection Direction, bool Wrap);
  2703.     virtual bool __fastcall OwnerDataHint(int StartIndex, int EndIndex);
  2704.     virtual bool __fastcall OwnerDataStateChange(int StartIndex, int EndIndex, TItemStates OldState, TItemStates 
  2705.         NewState);
  2706.     virtual Controls::TDragImageList* __fastcall GetDragImages(void);
  2707.     int __fastcall GetItemIndex(TListItem* Value);
  2708.     DYNAMIC void __fastcall InsertItem(TListItem* Item);
  2709.     bool __fastcall IsCustomDrawn(TCustomDrawTarget Target, TCustomDrawStage Stage);
  2710.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  2711.         );
  2712.     void __fastcall UpdateColumn(int AnIndex);
  2713.     void __fastcall UpdateColumns(void);
  2714.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  2715.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  2716.     __property TListColumns* Columns = {read=FListColumns, write=SetListColumns};
  2717.     __property bool ColumnClick = {read=FColumnClick, write=SetColumnClick, default=1};
  2718.     __property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, nodefault};
  2719.     __property bool HideSelection = {read=FHideSelection, write=SetHideSelection, default=1};
  2720.     __property TIconOptions* IconOptions = {read=FIconOptions, write=SetIconOptions};
  2721.     __property TListItems* Items = {read=FListItems, write=SetItems, stored=AreItemsStored};
  2722.     __property int AllocBy = {read=FAllocBy, write=SetAllocBy, default=0};
  2723.     __property int HoverTime = {read=GetHoverTime, write=SetHoverTime, default=-1};
  2724.     __property Imglist::TCustomImageList* LargeImages = {read=FLargeImages, write=SetLargeImages};
  2725.     __property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
  2726.     __property bool OwnerData = {read=FOwnerData, write=SetOwnerData, default=0};
  2727.     __property bool OwnerDraw = {read=FOwnerDraw, write=SetOwnerDraw, default=0};
  2728.     __property TLVAdvancedCustomDrawEvent OnAdvancedCustomDraw = {read=FOnAdvancedCustomDraw, write=FOnAdvancedCustomDraw
  2729.         };
  2730.     __property TLVAdvancedCustomDrawItemEvent OnAdvancedCustomDrawItem = {read=FOnAdvancedCustomDrawItem
  2731.         , write=FOnAdvancedCustomDrawItem};
  2732.     __property TLVAdvancedCustomDrawSubItemEvent OnAdvancedCustomDrawSubItem = {read=FOnAdvancedCustomDrawSubItem
  2733.         , write=FOnAdvancedCustomDrawSubItem};
  2734.     __property TLVChangeEvent OnChange = {read=FOnChange, write=FOnChange};
  2735.     __property TLVChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  2736.     __property TLVColumnClickEvent OnColumnClick = {read=FOnColumnClick, write=FOnColumnClick};
  2737.     __property Classes::TNotifyEvent OnColumnDragged = {read=FOnColumnDragged, write=FOnColumnDragged};
  2738.         
  2739.     __property TLVColumnRClickEvent OnColumnRightClick = {read=FOnColumnRightClick, write=FOnColumnRightClick
  2740.         };
  2741.     __property TLVCompareEvent OnCompare = {read=FOnCompare, write=FOnCompare};
  2742.     __property TLVCustomDrawEvent OnCustomDraw = {read=FOnCustomDraw, write=FOnCustomDraw};
  2743.     __property TLVCustomDrawItemEvent OnCustomDrawItem = {read=FOnCustomDrawItem, write=FOnCustomDrawItem
  2744.         };
  2745.     __property TLVCustomDrawSubItemEvent OnCustomDrawSubItem = {read=FOnCustomDrawSubItem, write=FOnCustomDrawSubItem
  2746.         };
  2747.     __property TLVOwnerDataEvent OnData = {read=FOnData, write=FOnData};
  2748.     __property TLVOwnerDataFindEvent OnDataFind = {read=FOnDataFind, write=FOnDataFind};
  2749.     __property TLVOwnerDataHintEvent OnDataHint = {read=FOnDataHint, write=FOnDataHint};
  2750.     __property TLVOwnerDataStateChangeEvent OnDataStateChange = {read=FOnDataStateChange, write=FOnDataStateChange
  2751.         };
  2752.     __property TLVDeletedEvent OnDeletion = {read=FOnDeletion, write=FOnDeletion};
  2753.     __property TLVDrawItemEvent OnDrawItem = {read=FOnDrawItem, write=FOnDrawItem};
  2754.     __property TLVEditedEvent OnEdited = {read=FOnEdited, write=FOnEdited};
  2755.     __property TLVEditingEvent OnEditing = {read=FOnEditing, write=FOnEditing};
  2756.     __property TLVInfoTipEvent OnInfoTip = {read=FOnInfoTip, write=FOnInfoTip};
  2757.     __property TLVDeletedEvent OnInsert = {read=FOnInsert, write=FOnInsert};
  2758.     __property TLVNotifyEvent OnGetImageIndex = {read=FOnGetImageIndex, write=FOnGetImageIndex};
  2759.     __property TLVSubItemImageEvent OnGetSubItemImage = {read=FOnGetSubItemImage, write=FOnGetSubItemImage
  2760.         };
  2761.     __property TLVSelectItemEvent OnSelectItem = {read=FOnSelectItem, write=FOnSelectItem};
  2762.     __property bool ShowColumnHeaders = {read=FShowColumnHeaders, write=SetColumnHeaders, default=1};
  2763.     __property bool ShowWorkAreas = {read=FShowWorkAreas, write=SetShowWorkAreas, default=0};
  2764.     __property Imglist::TCustomImageList* SmallImages = {read=FSmallImages, write=SetSmallImages};
  2765.     __property TSortType SortType = {read=FSortType, write=SetSortType, default=0};
  2766.     __property Imglist::TCustomImageList* StateImages = {read=FStateImages, write=SetStateImages};
  2767.     __property TViewStyle ViewStyle = {read=FViewStyle, write=SetViewStyle, default=0};
  2768.     
  2769. public:
  2770.     __fastcall virtual TCustomListView(Classes::TComponent* AOwner);
  2771.     __fastcall virtual ~TCustomListView(void);
  2772.     bool __fastcall AlphaSort(void);
  2773.     void __fastcall Arrange(TListArrangement Code);
  2774.     TListItem* __fastcall FindCaption(int StartIndex, AnsiString Value, bool Partial, bool Inclusive, bool 
  2775.         Wrap);
  2776.     TListItem* __fastcall FindData(int StartIndex, void * Value, bool Inclusive, bool Wrap);
  2777.     THitTests __fastcall GetHitTestInfoAt(int X, int Y);
  2778.     TListItem* __fastcall GetItemAt(int X, int Y);
  2779.     TListItem* __fastcall GetNearestItem(const Windows::TPoint &Point, TSearchDirection Direction);
  2780.     TListItem* __fastcall GetNextItem(TListItem* StartItem, TSearchDirection Direction, TItemStates States
  2781.         );
  2782.     AnsiString __fastcall GetSearchString();
  2783.     bool __fastcall IsEditing(void);
  2784.     void __fastcall Scroll(int DX, int DY);
  2785.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  2786.     __property bool Checkboxes = {read=FCheckboxes, write=SetCheckboxes, default=0};
  2787.     __property TListColumn* Column[int Index] = {read=GetColumnFromIndex};
  2788.     __property TListItem* DropTarget = {read=GetDropTarget, write=SetDropTarget};
  2789.     __property bool FlatScrollBars = {read=FFlatScrollBars, write=SetFlatScrollBars, default=0};
  2790.     __property bool FullDrag = {read=FFullDrag, write=SetFullDrag, default=0};
  2791.     __property bool GridLines = {read=FGridLines, write=SetGridLines, default=0};
  2792.     __property bool HotTrack = {read=FHotTrack, write=SetHotTrack, default=0};
  2793.     __property TListHotTrackStyles HotTrackStyles = {read=FHotTrackStyles, write=SetHotTrackStyles, default=0
  2794.         };
  2795.     __property TListItem* ItemFocused = {read=GetFocused, write=SetFocused};
  2796.     __property bool RowSelect = {read=FRowSelect, write=SetRowSelect, default=0};
  2797.     __property int SelCount = {read=GetSelCount, nodefault};
  2798.     __property TListItem* Selected = {read=GetSelection, write=SetSelection};
  2799.     bool __fastcall CustomSort(PFNLVCOMPARE SortProc, int lParam);
  2800.     int __fastcall StringWidth(AnsiString S);
  2801.     void __fastcall UpdateItems(int FirstIndex, int LastIndex);
  2802.     __property TListItem* TopItem = {read=GetTopItem};
  2803.     __property Windows::TPoint ViewOrigin = {read=GetViewOrigin};
  2804.     __property int VisibleRowCount = {read=GetVisibleRowCount, nodefault};
  2805.     __property Windows::TRect BoundingRect = {read=GetBoundingRect};
  2806.     __property TWorkAreas* WorkAreas = {read=FWorkAreas};
  2807. public:
  2808.     #pragma option push -w-inl
  2809.     /* TWinControl.CreateParented */ inline __fastcall TCustomListView(HWND ParentWindow) : Controls::TWinControl(
  2810.         ParentWindow) { }
  2811.     #pragma option pop
  2812.     
  2813. };
  2814.  
  2815.  
  2816. class PASCALIMPLEMENTATION TListColumns : public Classes::TCollection 
  2817. {
  2818.     typedef Classes::TCollection inherited;
  2819.     
  2820. private:
  2821.     TCustomListView* FOwner;
  2822.     HIDESBASE TListColumn* __fastcall GetItem(int Index);
  2823.     HIDESBASE void __fastcall SetItem(int Index, TListColumn* Value);
  2824.     void __fastcall UpdateCols(void);
  2825.     
  2826. protected:
  2827.     DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  2828.     virtual void __fastcall Update(Classes::TCollectionItem* Item);
  2829.     
  2830. public:
  2831.     __fastcall TListColumns(TCustomListView* AOwner);
  2832.     HIDESBASE TListColumn* __fastcall Add(void);
  2833.     __property TCustomListView* Owner = {read=FOwner};
  2834.     __property TListColumn* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  2835. public:
  2836.     #pragma option push -w-inl
  2837.     /* TCollection.Destroy */ inline __fastcall virtual ~TListColumns(void) { }
  2838.     #pragma option pop
  2839.     
  2840. };
  2841.  
  2842.  
  2843. #pragma option push -b-
  2844. enum TDisplayCode { drBounds, drIcon, drLabel, drSelectBounds };
  2845. #pragma option pop
  2846.  
  2847. class PASCALIMPLEMENTATION TListItem : public Classes::TPersistent 
  2848. {
  2849.     typedef Classes::TPersistent inherited;
  2850.     
  2851. private:
  2852.     TListItems* FOwner;
  2853.     Classes::TStrings* FSubItems;
  2854.     void *FData;
  2855.     Imglist::TImageIndex FImageIndex;
  2856.     int FIndent;
  2857.     int FIndex;
  2858.     Imglist::TImageIndex FOverlayIndex;
  2859.     Imglist::TImageIndex FStateIndex;
  2860.     AnsiString FCaption;
  2861.     bool FDeleting;
  2862.     bool FProcessedDeleting;
  2863.     bool FChecked;
  2864.     bool __fastcall GetChecked(void);
  2865.     HWND __fastcall GetHandle(void);
  2866.     int __fastcall GetIndex(void);
  2867.     TCustomListView* __fastcall GetListView(void);
  2868.     int __fastcall GetLeft(void);
  2869.     bool __fastcall GetState(int Index);
  2870.     int __fastcall GetTop(void);
  2871.     bool __fastcall IsEqual(TListItem* Item);
  2872.     void __fastcall SetChecked(bool Value);
  2873.     void __fastcall SetCaption(const AnsiString Value);
  2874.     void __fastcall SetData(void * Value);
  2875.     void __fastcall SetImage(int Index, Imglist::TImageIndex Value);
  2876.     void __fastcall SetIndent(int Value);
  2877.     void __fastcall SetLeft(int Value);
  2878.     void __fastcall SetState(int Index, bool State);
  2879.     void __fastcall SetSubItems(Classes::TStrings* Value);
  2880.     void __fastcall SetTop(int Value);
  2881.     int __fastcall GetSubItemImage(int Index);
  2882.     void __fastcall SetSubItemImage(int Index, const int Value);
  2883.     
  2884. public:
  2885.     __fastcall TListItem(TListItems* AOwner);
  2886.     __fastcall virtual ~TListItem(void);
  2887.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  2888.     void __fastcall CancelEdit(void);
  2889.     void __fastcall Delete(void);
  2890.     Windows::TRect __fastcall DisplayRect(TDisplayCode Code);
  2891.     bool __fastcall EditCaption(void);
  2892.     Windows::TPoint __fastcall GetPosition();
  2893.     void __fastcall MakeVisible(bool PartialOK);
  2894.     void __fastcall Update(void);
  2895.     void __fastcall SetPosition(const Windows::TPoint &Value);
  2896.     int __fastcall WorkArea(void);
  2897.     __property AnsiString Caption = {read=FCaption, write=SetCaption};
  2898.     __property bool Checked = {read=GetChecked, write=SetChecked, nodefault};
  2899.     __property bool Cut = {read=GetState, write=SetState, index=0, nodefault};
  2900.     __property void * Data = {read=FData, write=SetData};
  2901.     __property bool DropTarget = {read=GetState, write=SetState, index=1, nodefault};
  2902.     __property bool Focused = {read=GetState, write=SetState, index=2, nodefault};
  2903.     __property HWND Handle = {read=GetHandle, nodefault};
  2904.     __property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImage, index=0, nodefault}
  2905.         ;
  2906.     __property int Indent = {read=FIndent, write=SetIndent, default=0};
  2907.     __property int Index = {read=GetIndex, nodefault};
  2908.     __property int Left = {read=GetLeft, write=SetLeft, nodefault};
  2909.     __property TCustomListView* ListView = {read=GetListView};
  2910.     __property TListItems* Owner = {read=FOwner};
  2911.     __property Imglist::TImageIndex OverlayIndex = {read=FOverlayIndex, write=SetImage, index=1, nodefault
  2912.         };
  2913.     __property Windows::TPoint Position = {read=GetPosition, write=SetPosition};
  2914.     __property bool Selected = {read=GetState, write=SetState, index=3, nodefault};
  2915.     __property Imglist::TImageIndex StateIndex = {read=FStateIndex, write=SetImage, index=2, nodefault}
  2916.         ;
  2917.     __property Classes::TStrings* SubItems = {read=FSubItems, write=SetSubItems};
  2918.     __property int SubItemImages[int Index] = {read=GetSubItemImage, write=SetSubItemImage};
  2919.     __property int Top = {read=GetTop, write=SetTop, nodefault};
  2920. };
  2921.  
  2922.  
  2923. class PASCALIMPLEMENTATION TWorkArea : public Classes::TCollectionItem 
  2924. {
  2925.     typedef Classes::TCollectionItem inherited;
  2926.     
  2927. private:
  2928.     Windows::TRect FRect;
  2929.     AnsiString FDisplayName;
  2930.     Graphics::TColor FColor;
  2931.     void __fastcall SetRect(const Windows::TRect &Value);
  2932.     void __fastcall SetColor(const Graphics::TColor Value);
  2933.     
  2934. public:
  2935.     __fastcall virtual TWorkArea(Classes::TCollection* Collection);
  2936.     virtual void __fastcall SetDisplayName(const AnsiString Value);
  2937.     virtual AnsiString __fastcall GetDisplayName();
  2938.     __property Windows::TRect Rect = {read=FRect, write=SetRect};
  2939.     __property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
  2940. public:
  2941.     #pragma option push -w-inl
  2942.     /* TCollectionItem.Destroy */ inline __fastcall virtual ~TWorkArea(void) { }
  2943.     #pragma option pop
  2944.     
  2945. };
  2946.  
  2947.  
  2948. class DELPHICLASS TListView;
  2949. class PASCALIMPLEMENTATION TListView : public TCustomListView 
  2950. {
  2951.     typedef TCustomListView inherited;
  2952.     
  2953. __published:
  2954.     __property Align ;
  2955.     __property AllocBy ;
  2956.     __property Anchors ;
  2957.     __property BiDiMode ;
  2958.     __property BorderStyle ;
  2959.     __property BorderWidth ;
  2960.     __property Checkboxes ;
  2961.     __property Color ;
  2962.     __property Columns ;
  2963.     __property ColumnClick ;
  2964.     __property Constraints ;
  2965.     __property Ctl3D ;
  2966.     __property DragCursor ;
  2967.     __property DragKind ;
  2968.     __property DragMode ;
  2969.     __property Enabled ;
  2970.     __property Font ;
  2971.     __property FlatScrollBars ;
  2972.     __property FullDrag ;
  2973.     __property GridLines ;
  2974.     __property HideSelection ;
  2975.     __property HotTrack ;
  2976.     __property HotTrackStyles ;
  2977.     __property HoverTime ;
  2978.     __property IconOptions ;
  2979.     __property Items ;
  2980.     __property LargeImages ;
  2981.     __property MultiSelect ;
  2982.     __property OwnerData ;
  2983.     __property OwnerDraw ;
  2984.     __property ReadOnly ;
  2985.     __property RowSelect ;
  2986.     __property ParentBiDiMode ;
  2987.     __property ParentColor ;
  2988.     __property ParentFont ;
  2989.     __property ParentShowHint ;
  2990.     __property PopupMenu ;
  2991.     __property ShowColumnHeaders ;
  2992.     __property ShowWorkAreas ;
  2993.     __property ShowHint ;
  2994.     __property SmallImages ;
  2995.     __property SortType ;
  2996.     __property StateImages ;
  2997.     __property TabOrder ;
  2998.     __property TabStop ;
  2999.     __property ViewStyle ;
  3000.     __property Visible ;
  3001.     __property OnAdvancedCustomDraw ;
  3002.     __property OnAdvancedCustomDrawItem ;
  3003.     __property OnAdvancedCustomDrawSubItem ;
  3004.     __property OnChange ;
  3005.     __property OnChanging ;
  3006.     __property OnClick ;
  3007.     __property OnColumnClick ;
  3008.     __property OnColumnDragged ;
  3009.     __property OnColumnRightClick ;
  3010.     __property OnCompare ;
  3011.     __property OnContextPopup ;
  3012.     __property OnCustomDraw ;
  3013.     __property OnCustomDrawItem ;
  3014.     __property OnCustomDrawSubItem ;
  3015.     __property OnData ;
  3016.     __property OnDataFind ;
  3017.     __property OnDataHint ;
  3018.     __property OnDataStateChange ;
  3019.     __property OnDblClick ;
  3020.     __property OnDeletion ;
  3021.     __property OnDrawItem ;
  3022.     __property OnEdited ;
  3023.     __property OnEditing ;
  3024.     __property OnEndDock ;
  3025.     __property OnEndDrag ;
  3026.     __property OnEnter ;
  3027.     __property OnExit ;
  3028.     __property OnGetImageIndex ;
  3029.     __property OnGetSubItemImage ;
  3030.     __property OnDragDrop ;
  3031.     __property OnDragOver ;
  3032.     __property OnInfoTip ;
  3033.     __property OnInsert ;
  3034.     __property OnKeyDown ;
  3035.     __property OnKeyPress ;
  3036.     __property OnKeyUp ;
  3037.     __property OnMouseDown ;
  3038.     __property OnMouseMove ;
  3039.     __property OnMouseUp ;
  3040.     __property OnResize ;
  3041.     __property OnSelectItem ;
  3042.     __property OnStartDock ;
  3043.     __property OnStartDrag ;
  3044. public:
  3045.     #pragma option push -w-inl
  3046.     /* TCustomListView.Create */ inline __fastcall virtual TListView(Classes::TComponent* AOwner) : TCustomListView(
  3047.         AOwner) { }
  3048.     #pragma option pop
  3049.     #pragma option push -w-inl
  3050.     /* TCustomListView.Destroy */ inline __fastcall virtual ~TListView(void) { }
  3051.     #pragma option pop
  3052.     
  3053. public:
  3054.     #pragma option push -w-inl
  3055.     /* TWinControl.CreateParented */ inline __fastcall TListView(HWND ParentWindow) : TCustomListView(ParentWindow
  3056.         ) { }
  3057.     #pragma option pop
  3058.     
  3059. };
  3060.  
  3061.  
  3062. #pragma option push -b-
  3063. enum TCommonAVI { aviNone, aviFindFolder, aviFindFile, aviFindComputer, aviCopyFiles, aviCopyFile, aviRecycleFile, 
  3064.     aviEmptyRecycle, aviDeleteFile };
  3065. #pragma option pop
  3066.  
  3067. class DELPHICLASS TAnimate;
  3068. class PASCALIMPLEMENTATION TAnimate : public Controls::TWinControl 
  3069. {
  3070.     typedef Controls::TWinControl inherited;
  3071.     
  3072. private:
  3073.     bool FActive;
  3074.     AnsiString FFileName;
  3075.     bool FCenter;
  3076.     TCommonAVI FCommonAVI;
  3077.     int FFrameCount;
  3078.     int FFrameHeight;
  3079.     int FFrameWidth;
  3080.     bool FOpen;
  3081.     bool FRecreateNeeded;
  3082.     int FRepetitions;
  3083.     unsigned FResHandle;
  3084.     int FResId;
  3085.     AnsiString FResName;
  3086.     bool FStreamedActive;
  3087.     bool FTimers;
  3088.     bool FTransparent;
  3089.     short FStartFrame;
  3090.     short FStopFrame;
  3091.     int FStopCount;
  3092.     Classes::TNotifyEvent FOnOpen;
  3093.     Classes::TNotifyEvent FOnClose;
  3094.     Classes::TNotifyEvent FOnStart;
  3095.     Classes::TNotifyEvent FOnStop;
  3096.     void __fastcall CheckOpen(void);
  3097.     bool __fastcall InternalClose(void);
  3098.     bool __fastcall InternalOpen(void);
  3099.     void __fastcall GetAnimateParams(void *Params);
  3100.     unsigned __fastcall GetActualResHandle(void);
  3101.     int __fastcall GetActualResId(void);
  3102.     void __fastcall GetFrameInfo(void);
  3103.     void __fastcall SetAnimateParams(const void *Params);
  3104.     void __fastcall SetActive(bool Value);
  3105.     void __fastcall SetFileName(AnsiString Value);
  3106.     void __fastcall SetCenter(bool Value);
  3107.     void __fastcall SetCommonAVI(TCommonAVI Value);
  3108.     void __fastcall SetOpen(bool Value);
  3109.     void __fastcall SetRepetitions(int Value);
  3110.     void __fastcall SetResHandle(unsigned Value);
  3111.     void __fastcall SetResId(int Value);
  3112.     void __fastcall SetResName(AnsiString Value);
  3113.     void __fastcall SetTimers(bool Value);
  3114.     void __fastcall SetTransparent(bool Value);
  3115.     void __fastcall SetStartFrame(short Value);
  3116.     void __fastcall SetStopFrame(short Value);
  3117.     void __fastcall UpdateActiveState(void);
  3118.     HIDESBASE MESSAGE void __fastcall WMNCCalcSize(Messages::TWMNCCalcSize &Message);
  3119.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
  3120.     HIDESBASE MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message);
  3121.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  3122.     HIDESBASE MESSAGE void __fastcall WMWindowPosChanged(Messages::TWMWindowPosMsg &Message);
  3123.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  3124.     MESSAGE void __fastcall CNCommand(Messages::TWMCommand &Message);
  3125.     
  3126. protected:
  3127.     virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
  3128.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  3129.     virtual void __fastcall CreateWnd(void);
  3130.     virtual void __fastcall DestroyWnd(void);
  3131.     virtual void __fastcall DoOpen(void);
  3132.     virtual void __fastcall DoClose(void);
  3133.     virtual void __fastcall DoStart(void);
  3134.     virtual void __fastcall DoStop(void);
  3135.     virtual void __fastcall Loaded(void);
  3136.     
  3137. public:
  3138.     __fastcall virtual TAnimate(Classes::TComponent* AOwner);
  3139.     __property int FrameCount = {read=FFrameCount, nodefault};
  3140.     __property int FrameHeight = {read=FFrameHeight, nodefault};
  3141.     __property int FrameWidth = {read=FFrameWidth, nodefault};
  3142.     __property bool Open = {read=FOpen, write=SetOpen, nodefault};
  3143.     void __fastcall Play(Word FromFrame, Word ToFrame, int Count);
  3144.     void __fastcall Reset(void);
  3145.     void __fastcall Seek(short Frame);
  3146.     void __fastcall Stop(void);
  3147.     __property unsigned ResHandle = {read=FResHandle, write=SetResHandle, nodefault};
  3148.     __property int ResId = {read=FResId, write=SetResId, nodefault};
  3149.     __property AnsiString ResName = {read=FResName, write=SetResName};
  3150.     
  3151. __published:
  3152.     __property Align ;
  3153.     __property bool Active = {read=FActive, write=SetActive, nodefault};
  3154.     __property Anchors ;
  3155.     __property AutoSize ;
  3156.     __property BorderWidth ;
  3157.     __property bool Center = {read=FCenter, write=SetCenter, default=1};
  3158.     __property Color ;
  3159.     __property TCommonAVI CommonAVI = {read=FCommonAVI, write=SetCommonAVI, default=0};
  3160.     __property Constraints ;
  3161.     __property AnsiString FileName = {read=FFileName, write=SetFileName};
  3162.     __property ParentColor ;
  3163.     __property ParentShowHint ;
  3164.     __property int Repetitions = {read=FRepetitions, write=SetRepetitions, default=0};
  3165.     __property ShowHint ;
  3166.     __property short StartFrame = {read=FStartFrame, write=SetStartFrame, default=1};
  3167.     __property short StopFrame = {read=FStopFrame, write=SetStopFrame, default=0};
  3168.     __property bool Timers = {read=FTimers, write=SetTimers, default=0};
  3169.     __property bool Transparent = {read=FTransparent, write=SetTransparent, default=1};
  3170.     __property Visible ;
  3171.     __property Classes::TNotifyEvent OnOpen = {read=FOnOpen, write=FOnOpen};
  3172.     __property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
  3173.     __property Classes::TNotifyEvent OnStart = {read=FOnStart, write=FOnStart};
  3174.     __property Classes::TNotifyEvent OnStop = {read=FOnStop, write=FOnStop};
  3175. public:
  3176.     #pragma option push -w-inl
  3177.     /* TWinControl.CreateParented */ inline __fastcall TAnimate(HWND ParentWindow) : Controls::TWinControl(
  3178.         ParentWindow) { }
  3179.     #pragma option pop
  3180.     #pragma option push -w-inl
  3181.     /* TWinControl.Destroy */ inline __fastcall virtual ~TAnimate(void) { }
  3182.     #pragma option pop
  3183.     
  3184. };
  3185.  
  3186.  
  3187. #pragma option push -b-
  3188. enum TToolButtonStyle { tbsButton, tbsCheck, tbsDropDown, tbsSeparator, tbsDivider };
  3189. #pragma option pop
  3190.  
  3191. #pragma option push -b-
  3192. enum TToolButtonState { tbsChecked, tbsPressed, tbsEnabled, tbsHidden, tbsIndeterminate, tbsWrap, tbsEllipses, 
  3193.     tbsMarked };
  3194. #pragma option pop
  3195.  
  3196. class DELPHICLASS TToolButtonActionLink;
  3197. class DELPHICLASS TToolButton;
  3198. class DELPHICLASS TToolBar;
  3199. typedef void __fastcall (__closure *TTBAdvancedCustomDrawEvent)(TToolBar* Sender, const Windows::TRect 
  3200.     &ARect, TCustomDrawStage Stage, bool &DefaultDraw);
  3201.  
  3202. #pragma option push -b-
  3203. enum ComCtrls__04 { tbNoEdges, tbHiliteHotTrack, tbNoOffset, tbNoMark, tbNoEtchedEffect };
  3204. #pragma option pop
  3205.  
  3206. typedef Set<ComCtrls__04, tbNoEdges, tbNoEtchedEffect>  TTBCustomDrawFlags;
  3207.  
  3208. typedef void __fastcall (__closure *TTBAdvancedCustomDrawBtnEvent)(TToolBar* Sender, TToolButton* Button
  3209.     , TCustomDrawState State, TCustomDrawStage Stage, TTBCustomDrawFlags &Flags, bool &DefaultDraw);
  3210.  
  3211. typedef void __fastcall (__closure *TTBCustomDrawEvent)(TToolBar* Sender, const Windows::TRect &ARect
  3212.     , bool &DefaultDraw);
  3213.  
  3214. typedef void __fastcall (__closure *TTBCustomDrawBtnEvent)(TToolBar* Sender, TToolButton* Button, TCustomDrawState 
  3215.     State, bool &DefaultDraw);
  3216.  
  3217. class PASCALIMPLEMENTATION TToolBar : public Toolwin::TToolWindow 
  3218. {
  3219.     typedef Toolwin::TToolWindow inherited;
  3220.     
  3221. private:
  3222.     int FButtonWidth;
  3223.     int FButtonHeight;
  3224.     Classes::TList* FButtons;
  3225.     AnsiString FCaption;
  3226.     Graphics::TCanvas* FCanvas;
  3227.     bool FCanvasChanged;
  3228.     bool FShowCaptions;
  3229.     bool FList;
  3230.     bool FFlat;
  3231.     bool FTransparent;
  3232.     bool FWrapable;
  3233.     Imglist::TCustomImageList* FImages;
  3234.     Imglist::TChangeLink* FImageChangeLink;
  3235.     Imglist::TCustomImageList* FDisabledImages;
  3236.     Imglist::TChangeLink* FDisabledImageChangeLink;
  3237.     Imglist::TCustomImageList* FHotImages;
  3238.     Imglist::TChangeLink* FHotImageChangeLink;
  3239.     int FIndent;
  3240.     bool FNewStyle;
  3241.     Graphics::TBitmap* FNullBitmap;
  3242.     HBITMAP FOldHandle;
  3243.     int FUpdateCount;
  3244.     int FHeightMargin;
  3245.     TTBAdvancedCustomDrawEvent FOnAdvancedCustomDraw;
  3246.     TTBAdvancedCustomDrawBtnEvent FOnAdvancedCustomDrawButton;
  3247.     TTBCustomDrawEvent FOnCustomDraw;
  3248.     TTBCustomDrawBtnEvent FOnCustomDrawButton;
  3249.     bool FCaptureChangeCancels;
  3250.     bool FInMenuLoop;
  3251.     Menus::TPopupMenu* FTempMenu;
  3252.     Menus::TMenuItem* FButtonMenu;
  3253.     TToolButton* FMenuButton;
  3254.     bool FMenuResult;
  3255.     bool FMenuDropped;
  3256.     int __fastcall ButtonIndex(int OldIndex, int ALeft, int ATop);
  3257.     void __fastcall CanvasChanged(System::TObject* Sender);
  3258.     void __fastcall LoadImages(Imglist::TCustomImageList* AImages);
  3259.     TToolButton* __fastcall GetButton(int Index);
  3260.     int __fastcall GetButtonCount(void);
  3261.     void __fastcall GetButtonSize(int &AWidth, int &AHeight);
  3262.     int __fastcall GetRowCount(void);
  3263.     void __fastcall SetList(bool Value);
  3264.     void __fastcall SetShowCaptions(bool Value);
  3265.     void __fastcall SetFlat(bool Value);
  3266.     void __fastcall SetTransparent(bool Value);
  3267.     void __fastcall SetWrapable(bool Value);
  3268.     void __fastcall InsertButton(Controls::TControl* Control);
  3269.     void __fastcall RemoveButton(Controls::TControl* Control);
  3270.     bool __fastcall RefreshButton(int Index);
  3271.     void __fastcall UpdateButton(int Index);
  3272.     void __fastcall UpdateButtons(void);
  3273.     void __fastcall UpdateButtonState(int Index);
  3274.     void __fastcall UpdateButtonStates(void);
  3275.     bool __fastcall UpdateItem(int Message, int FromIndex, int ToIndex);
  3276.     bool __fastcall UpdateItem2(int Message, int FromIndex, int ToIndex);
  3277.     void __fastcall ClearTempMenu(void);
  3278.     void __fastcall CreateButtons(int NewWidth, int NewHeight);
  3279.     void __fastcall SetButtonWidth(int Value);
  3280.     void __fastcall SetButtonHeight(int Value);
  3281.     void __fastcall UpdateImages(void);
  3282.     void __fastcall ImageListChange(System::TObject* Sender);
  3283.     void __fastcall SetImageList(unsigned Value);
  3284.     void __fastcall SetImages(Imglist::TCustomImageList* Value);
  3285.     void __fastcall DisabledImageListChange(System::TObject* Sender);
  3286.     void __fastcall SetDisabledImageList(unsigned Value);
  3287.     void __fastcall SetDisabledImages(Imglist::TCustomImageList* Value);
  3288.     void __fastcall HotImageListChange(System::TObject* Sender);
  3289.     void __fastcall SetHotImageList(unsigned Value);
  3290.     void __fastcall SetHotImages(Imglist::TCustomImageList* Value);
  3291.     void __fastcall SetIndent(int Value);
  3292.     void __fastcall AdjustControl(Controls::TControl* Control);
  3293.     void __fastcall RecreateButtons(void);
  3294.     void __fastcall BeginUpdate(void);
  3295.     void __fastcall EndUpdate(void);
  3296.     void __fastcall ResizeButtons(void);
  3297.     int __fastcall InternalButtonCount(void);
  3298.     int __fastcall ReorderButton(int OldIndex, int ALeft, int ATop);
  3299.     MESSAGE void __fastcall WMCaptureChanged(Messages::TMessage &Message);
  3300.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  3301.     MESSAGE void __fastcall WMGetDlgCode(Messages::TMessage &Message);
  3302.     MESSAGE void __fastcall WMGetText(Messages::TWMGetText &Message);
  3303.     MESSAGE void __fastcall WMGetTextLength(Messages::TWMNoParams &Message);
  3304.     HIDESBASE MESSAGE void __fastcall WMKeyDown(Messages::TWMKey &Message);
  3305.     MESSAGE void __fastcall WMNotifyFormat(Messages::TMessage &Message);
  3306.     MESSAGE void __fastcall WMSetText(Messages::TWMSetText &Message);
  3307.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  3308.     MESSAGE void __fastcall WMSysChar(Messages::TWMKey &Message);
  3309.     HIDESBASE MESSAGE void __fastcall WMSysCommand(Messages::TWMSysCommand &Message);
  3310.     HIDESBASE MESSAGE void __fastcall WMWindowPosChanged(Messages::TWMWindowPosMsg &Message);
  3311.     HIDESBASE MESSAGE void __fastcall WMWindowPosChanging(Messages::TWMWindowPosMsg &Message);
  3312.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  3313.     MESSAGE void __fastcall CMControlChange(Controls::TCMControlChange &Message);
  3314.     HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  3315.     HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  3316.     HIDESBASE MESSAGE void __fastcall CMFontChanged(void *Message);
  3317.     HIDESBASE MESSAGE void __fastcall CMParentColorChanged(Messages::TMessage &Message);
  3318.     HIDESBASE MESSAGE void __fastcall CNChar(Messages::TWMKey &Message);
  3319.     HIDESBASE MESSAGE void __fastcall CNSysKeyDown(Messages::TWMKey &Message);
  3320.     HIDESBASE MESSAGE void __fastcall CMSysFontChanged(Messages::TMessage &Message);
  3321.     MESSAGE void __fastcall CNDropDownClosed(Messages::TMessage &Message);
  3322.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  3323.     
  3324. protected:
  3325.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  3326.     virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
  3327.     DYNAMIC void __fastcall CancelMenu(void);
  3328.     DYNAMIC void __fastcall ChangeScale(int M, int D);
  3329.     DYNAMIC bool __fastcall CheckMenuDropdown(TToolButton* Button);
  3330.     DYNAMIC void __fastcall ClickButton(TToolButton* Button);
  3331.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  3332.     virtual void __fastcall CreateWnd(void);
  3333.     virtual bool __fastcall CustomDraw(const Windows::TRect &ARect, TCustomDrawStage Stage);
  3334.     virtual bool __fastcall CustomDrawButton(TToolButton* Button, TCustomDrawState State, TCustomDrawStage 
  3335.         Stage, TTBCustomDrawFlags &Flags);
  3336.     TToolButton* __fastcall FindButtonFromAccel(Word Accel);
  3337.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  3338.     DYNAMIC void __fastcall InitMenu(TToolButton* Button);
  3339.     bool __fastcall IsCustomDrawn(TCustomDrawTarget Target, TCustomDrawStage Stage);
  3340.     virtual void __fastcall Loaded(void);
  3341.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  3342.         );
  3343.     void __fastcall RepositionButton(int Index);
  3344.     void __fastcall RepositionButtons(int Index);
  3345.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  3346.     bool __fastcall WrapButtons(int &NewWidth, int &NewHeight);
  3347.     
  3348. public:
  3349.     __fastcall virtual TToolBar(Classes::TComponent* AOwner);
  3350.     __fastcall virtual ~TToolBar(void);
  3351.     DYNAMIC void __fastcall FlipChildren(bool AllLevels);
  3352.     DYNAMIC bool __fastcall TrackMenu(TToolButton* Button);
  3353.     __property int ButtonCount = {read=GetButtonCount, nodefault};
  3354.     __property TToolButton* Buttons[int Index] = {read=GetButton};
  3355.     __property Graphics::TCanvas* Canvas = {read=FCanvas};
  3356.     __property int RowCount = {read=GetRowCount, nodefault};
  3357.     
  3358. __published:
  3359.     __property Align ;
  3360.     __property Anchors ;
  3361.     __property AutoSize ;
  3362.     __property BorderWidth ;
  3363.     __property int ButtonHeight = {read=FButtonHeight, write=SetButtonHeight, default=22};
  3364.     __property int ButtonWidth = {read=FButtonWidth, write=SetButtonWidth, default=23};
  3365.     __property Caption ;
  3366.     __property Color ;
  3367.     __property Constraints ;
  3368.     __property Ctl3D ;
  3369.     __property Imglist::TCustomImageList* DisabledImages = {read=FDisabledImages, write=SetDisabledImages
  3370.         };
  3371.     __property DockSite ;
  3372.     __property DragCursor ;
  3373.     __property DragKind ;
  3374.     __property DragMode ;
  3375.     __property EdgeBorders ;
  3376.     __property EdgeInner ;
  3377.     __property EdgeOuter ;
  3378.     __property Enabled ;
  3379.     __property bool Flat = {read=FFlat, write=SetFlat, default=0};
  3380.     __property Font ;
  3381.     __property Height ;
  3382.     __property Imglist::TCustomImageList* HotImages = {read=FHotImages, write=SetHotImages};
  3383.     __property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
  3384.     __property int Indent = {read=FIndent, write=SetIndent, default=0};
  3385.     __property bool List = {read=FList, write=SetList, default=0};
  3386.     __property ParentColor ;
  3387.     __property ParentFont ;
  3388.     __property ParentShowHint ;
  3389.     __property PopupMenu ;
  3390.     __property bool ShowCaptions = {read=FShowCaptions, write=SetShowCaptions, default=0};
  3391.     __property ShowHint ;
  3392.     __property TabOrder ;
  3393.     __property TabStop ;
  3394.     __property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
  3395.     __property Visible ;
  3396.     __property bool Wrapable = {read=FWrapable, write=SetWrapable, default=1};
  3397.     __property TTBAdvancedCustomDrawEvent OnAdvancedCustomDraw = {read=FOnAdvancedCustomDraw, write=FOnAdvancedCustomDraw
  3398.         };
  3399.     __property TTBAdvancedCustomDrawBtnEvent OnAdvancedCustomDrawButton = {read=FOnAdvancedCustomDrawButton
  3400.         , write=FOnAdvancedCustomDrawButton};
  3401.     __property OnClick ;
  3402.     __property OnContextPopup ;
  3403.     __property TTBCustomDrawEvent OnCustomDraw = {read=FOnCustomDraw, write=FOnCustomDraw};
  3404.     __property TTBCustomDrawBtnEvent OnCustomDrawButton = {read=FOnCustomDrawButton, write=FOnCustomDrawButton
  3405.         };
  3406.     __property OnDblClick ;
  3407.     __property OnDockDrop ;
  3408.     __property OnDockOver ;
  3409.     __property OnDragDrop ;
  3410.     __property OnDragOver ;
  3411.     __property OnEndDock ;
  3412.     __property OnEndDrag ;
  3413.     __property OnEnter ;
  3414.     __property OnExit ;
  3415.     __property OnGetSiteInfo ;
  3416.     __property OnMouseDown ;
  3417.     __property OnMouseMove ;
  3418.     __property OnMouseUp ;
  3419.     __property OnResize ;
  3420.     __property OnStartDock ;
  3421.     __property OnStartDrag ;
  3422.     __property OnUnDock ;
  3423. public:
  3424.     #pragma option push -w-inl
  3425.     /* TWinControl.CreateParented */ inline __fastcall TToolBar(HWND ParentWindow) : Toolwin::TToolWindow(
  3426.         ParentWindow) { }
  3427.     #pragma option pop
  3428.     
  3429. };
  3430.  
  3431.  
  3432. class PASCALIMPLEMENTATION TToolButton : public Controls::TGraphicControl 
  3433. {
  3434.     typedef Controls::TGraphicControl inherited;
  3435.     
  3436. private:
  3437.     bool FAllowAllUp;
  3438.     bool FAutoSize;
  3439.     bool FDown;
  3440.     bool FGrouped;
  3441.     Imglist::TImageIndex FImageIndex;
  3442.     bool FIndeterminate;
  3443.     bool FMarked;
  3444.     Menus::TMenuItem* FMenuItem;
  3445.     Menus::TPopupMenu* FDropdownMenu;
  3446.     bool FWrap;
  3447.     TToolButtonStyle FStyle;
  3448.     int FUpdateCount;
  3449.     Byte __fastcall GetButtonState(void);
  3450.     int __fastcall GetIndex(void);
  3451.     bool __fastcall IsCheckedStored(void);
  3452.     bool __fastcall IsImageIndexStored(void);
  3453.     bool __fastcall IsWidthStored(void);
  3454.     HIDESBASE void __fastcall SetAutoSize(bool Value);
  3455.     void __fastcall SetButtonState(Byte State);
  3456.     void __fastcall SetDown(bool Value);
  3457.     void __fastcall SetDropdownMenu(Menus::TPopupMenu* Value);
  3458.     void __fastcall SetGrouped(bool Value);
  3459.     void __fastcall SetImageIndex(Imglist::TImageIndex Value);
  3460.     void __fastcall SetIndeterminate(bool Value);
  3461.     void __fastcall SetMarked(bool Value);
  3462.     void __fastcall SetMenuItem(Menus::TMenuItem* Value);
  3463.     void __fastcall SetStyle(TToolButtonStyle Value);
  3464.     void __fastcall SetWrap(bool Value);
  3465.     HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  3466.     HIDESBASE MESSAGE void __fastcall CMHitTest(Messages::TWMNCHitTest &Message);
  3467.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  3468.     HIDESBASE MESSAGE void __fastcall CMVisibleChanged(Messages::TMessage &Message);
  3469.     
  3470. protected:
  3471.     TToolBar* FToolBar;
  3472.     DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
  3473.     virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  3474.     virtual void __fastcall BeginUpdate(void);
  3475.     virtual void __fastcall EndUpdate(void);
  3476.     DYNAMIC TMetaClass* __fastcall GetActionLinkClass(void);
  3477.     DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  3478.         int Y);
  3479.     DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  3480.     DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  3481.         Y);
  3482.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  3483.         );
  3484.     virtual void __fastcall Paint(void);
  3485.     virtual void __fastcall RefreshControl(void);
  3486.     void __fastcall SetToolBar(TToolBar* AToolBar);
  3487.     virtual void __fastcall UpdateControl(void);
  3488.     DYNAMIC void __fastcall ValidateContainer(Classes::TComponent* AComponent);
  3489.     
  3490. public:
  3491.     __fastcall virtual TToolButton(Classes::TComponent* AOwner);
  3492.     DYNAMIC bool __fastcall CheckMenuDropdown(void);
  3493.     DYNAMIC void __fastcall Click(void);
  3494.     virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
  3495.     __property int Index = {read=GetIndex, nodefault};
  3496.     
  3497. __published:
  3498.     __property Action ;
  3499.     __property bool AllowAllUp = {read=FAllowAllUp, write=FAllowAllUp, default=0};
  3500.     __property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
  3501.     __property Caption ;
  3502.     __property bool Down = {read=FDown, write=SetDown, stored=IsCheckedStored, default=0};
  3503.     __property DragCursor ;
  3504.     __property DragKind ;
  3505.     __property DragMode ;
  3506.     __property Menus::TPopupMenu* DropdownMenu = {read=FDropdownMenu, write=SetDropdownMenu};
  3507.     __property Enabled ;
  3508.     __property bool Grouped = {read=FGrouped, write=SetGrouped, default=0};
  3509.     __property Height  = {stored=false};
  3510.     __property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImageIndex, stored=IsImageIndexStored
  3511.         , default=-1};
  3512.     __property bool Indeterminate = {read=FIndeterminate, write=SetIndeterminate, default=0};
  3513.     __property bool Marked = {read=FMarked, write=SetMarked, default=0};
  3514.     __property Menus::TMenuItem* MenuItem = {read=FMenuItem, write=SetMenuItem};
  3515.     __property ParentShowHint ;
  3516.     __property PopupMenu ;
  3517.     __property bool Wrap = {read=FWrap, write=SetWrap, default=0};
  3518.     __property ShowHint ;
  3519.     __property TToolButtonStyle Style = {read=FStyle, write=SetStyle, default=0};
  3520.     __property Visible ;
  3521.     __property Width  = {stored=IsWidthStored};
  3522.     __property OnClick ;
  3523.     __property OnContextPopup ;
  3524.     __property OnDragDrop ;
  3525.     __property OnDragOver ;
  3526.     __property OnEndDock ;
  3527.     __property OnEndDrag ;
  3528.     __property OnMouseDown ;
  3529.     __property OnMouseMove ;
  3530.     __property OnMouseUp ;
  3531.     __property OnStartDock ;
  3532.     __property OnStartDrag ;
  3533. public:
  3534.     #pragma option push -w-inl
  3535.     /* TGraphicControl.Destroy */ inline __fastcall virtual ~TToolButton(void) { }
  3536.     #pragma option pop
  3537.     
  3538. };
  3539.  
  3540.  
  3541. class PASCALIMPLEMENTATION TToolButtonActionLink : public Controls::TControlActionLink 
  3542. {
  3543.     typedef Controls::TControlActionLink inherited;
  3544.     
  3545. protected:
  3546.     TToolButton* FClient;
  3547.     virtual void __fastcall AssignClient(System::TObject* AClient);
  3548.     virtual bool __fastcall IsCheckedLinked(void);
  3549.     virtual bool __fastcall IsImageIndexLinked(void);
  3550.     virtual void __fastcall SetChecked(bool Value);
  3551.     virtual void __fastcall SetImageIndex(int Value);
  3552. public:
  3553.     #pragma option push -w-inl
  3554.     /* TBasicActionLink.Create */ inline __fastcall virtual TToolButtonActionLink(System::TObject* AClient
  3555.         ) : Controls::TControlActionLink(AClient) { }
  3556.     #pragma option pop
  3557.     #pragma option push -w-inl
  3558.     /* TBasicActionLink.Destroy */ inline __fastcall virtual ~TToolButtonActionLink(void) { }
  3559.     #pragma option pop
  3560.     
  3561. };
  3562.  
  3563.  
  3564. typedef TMetaClass*TToolButtonActionLinkClass;
  3565.  
  3566. class DELPHICLASS TToolBarDockObject;
  3567. class PASCALIMPLEMENTATION TToolBarDockObject : public Controls::TDragDockObject 
  3568. {
  3569.     typedef Controls::TDragDockObject inherited;
  3570.     
  3571. private:
  3572.     Windows::TRect FEraseDockRect;
  3573.     bool FErase;
  3574.     
  3575. protected:
  3576.     virtual void __fastcall AdjustDockRect(const Windows::TRect &ARect);
  3577.     virtual void __fastcall DrawDragDockImage(void);
  3578.     virtual void __fastcall EraseDragDockImage(void);
  3579.     virtual Controls::TCursor __fastcall GetDragCursor(bool Accepted, int X, int Y);
  3580.     virtual bool __fastcall ToolDockImage(bool Erase);
  3581. public:
  3582.     #pragma option push -w-inl
  3583.     /* TDragDockObject.Create */ inline __fastcall virtual TToolBarDockObject(Controls::TControl* AControl
  3584.         ) : Controls::TDragDockObject(AControl) { }
  3585.     #pragma option pop
  3586.     #pragma option push -w-inl
  3587.     /* TDragDockObject.Destroy */ inline __fastcall virtual ~TToolBarDockObject(void) { }
  3588.     #pragma option pop
  3589.     
  3590. };
  3591.  
  3592.  
  3593. class DELPHICLASS TCoolBand;
  3594. class DELPHICLASS TCoolBar;
  3595. class PASCALIMPLEMENTATION TCoolBand : public Classes::TCollectionItem 
  3596. {
  3597.     typedef Classes::TCollectionItem inherited;
  3598.     
  3599. private:
  3600.     Forms::TFormBorderStyle FBorderStyle;
  3601.     bool FBreak;
  3602.     bool FFixedSize;
  3603.     bool FVisible;
  3604.     bool FHorizontalOnly;
  3605.     Imglist::TImageIndex FImageIndex;
  3606.     bool FFixedBackground;
  3607.     int FMinHeight;
  3608.     int FMinWidth;
  3609.     Graphics::TColor FColor;
  3610.     Controls::TWinControl* FControl;
  3611.     bool FParentColor;
  3612.     bool FParentBitmap;
  3613.     Graphics::TBitmap* FBitmap;
  3614.     AnsiString FText;
  3615.     int FWidth;
  3616.     Graphics::TBitmap* FDDB;
  3617.     int FID;
  3618.     TCoolBar* __fastcall CoolBar(void);
  3619.     bool __fastcall IsColorStored(void);
  3620.     bool __fastcall IsBitmapStored(void);
  3621.     void __fastcall BitmapChanged(System::TObject* Sender);
  3622.     int __fastcall GetHeight(void);
  3623.     bool __fastcall GetVisible(void);
  3624.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  3625.     void __fastcall SetBreak(bool Value);
  3626.     void __fastcall SetFixedSize(bool Value);
  3627.     void __fastcall SetMinHeight(int Value);
  3628.     void __fastcall SetMinWidth(int Value);
  3629.     void __fastcall SetVisible(bool Value);
  3630.     void __fastcall SetHorizontalOnly(bool Value);
  3631.     void __fastcall SetImageIndex(Imglist::TImageIndex Value);
  3632.     void __fastcall SetFixedBackground(bool Value);
  3633.     void __fastcall SetColor(Graphics::TColor Value);
  3634.     void __fastcall SetControl(Controls::TWinControl* Value);
  3635.     void __fastcall SetParentColor(bool Value);
  3636.     void __fastcall SetParentBitmap(bool Value);
  3637.     void __fastcall SetBitmap(Graphics::TBitmap* Value);
  3638.     void __fastcall SetText(const AnsiString Value);
  3639.     void __fastcall SetWidth(int Value);
  3640.     
  3641. protected:
  3642.     virtual AnsiString __fastcall GetDisplayName();
  3643.     DYNAMIC void __fastcall ParentColorChanged(void);
  3644.     DYNAMIC void __fastcall ParentBitmapChanged(void);
  3645.     
  3646. public:
  3647.     __fastcall virtual TCoolBand(Classes::TCollection* Collection);
  3648.     __fastcall virtual ~TCoolBand(void);
  3649.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  3650.     __property int Height = {read=GetHeight, nodefault};
  3651.     
  3652. __published:
  3653.     __property Graphics::TBitmap* Bitmap = {read=FBitmap, write=SetBitmap, stored=IsBitmapStored};
  3654.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=0};
  3655.     __property bool Break = {read=FBreak, write=SetBreak, default=1};
  3656.     __property Graphics::TColor Color = {read=FColor, write=SetColor, stored=IsColorStored, default=-2147483633
  3657.         };
  3658.     __property Controls::TWinControl* Control = {read=FControl, write=SetControl};
  3659.     __property bool FixedBackground = {read=FFixedBackground, write=SetFixedBackground, default=1};
  3660.     __property bool FixedSize = {read=FFixedSize, write=SetFixedSize, default=0};
  3661.     __property bool HorizontalOnly = {read=FHorizontalOnly, write=SetHorizontalOnly, default=0};
  3662.     __property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
  3663.     __property int MinHeight = {read=FMinHeight, write=SetMinHeight, default=25};
  3664.     __property int MinWidth = {read=FMinWidth, write=SetMinWidth, default=0};
  3665.     __property bool ParentColor = {read=FParentColor, write=SetParentColor, default=1};
  3666.     __property bool ParentBitmap = {read=FParentBitmap, write=SetParentBitmap, default=1};
  3667.     __property AnsiString Text = {read=FText, write=SetText};
  3668.     __property bool Visible = {read=GetVisible, write=SetVisible, default=1};
  3669.     __property int Width = {read=FWidth, write=SetWidth, nodefault};
  3670. };
  3671.  
  3672.  
  3673. class DELPHICLASS TCoolBands;
  3674. class PASCALIMPLEMENTATION TCoolBands : public Classes::TCollection 
  3675. {
  3676.     typedef Classes::TCollection inherited;
  3677.     
  3678. private:
  3679.     TCoolBar* FCoolBar;
  3680.     unsigned FVisibleCount;
  3681.     HIDESBASE TCoolBand* __fastcall GetItem(int Index);
  3682.     HIDESBASE void __fastcall SetItem(int Index, TCoolBand* Value);
  3683.     
  3684. protected:
  3685.     DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
  3686.     virtual void __fastcall Update(Classes::TCollectionItem* Item);
  3687.     bool __fastcall HaveGraphic(void);
  3688.     
  3689. public:
  3690.     __fastcall TCoolBands(TCoolBar* CoolBar);
  3691.     HIDESBASE TCoolBand* __fastcall Add(void);
  3692.     TCoolBand* __fastcall FindBand(Controls::TControl* AControl);
  3693.     __property TCoolBar* CoolBar = {read=FCoolBar};
  3694.     __property TCoolBand* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
  3695. public:
  3696.     #pragma option push -w-inl
  3697.     /* TCollection.Destroy */ inline __fastcall virtual ~TCoolBands(void) { }
  3698.     #pragma option pop
  3699.     
  3700. };
  3701.  
  3702.  
  3703. #pragma option push -b-
  3704. enum TCoolBandMaximize { bmNone, bmClick, bmDblClick };
  3705. #pragma option pop
  3706.  
  3707. class PASCALIMPLEMENTATION TCoolBar : public Toolwin::TToolWindow 
  3708. {
  3709.     typedef Toolwin::TToolWindow inherited;
  3710.     
  3711. private:
  3712.     TCoolBands* FBands;
  3713.     Forms::TFormBorderStyle FBandBorderStyle;
  3714.     TCoolBandMaximize FBandMaximize;
  3715.     Graphics::TBitmap* FBitmap;
  3716.     Graphics::TFont* FCaptionFont;
  3717.     int FCaptionFontHeight;
  3718.     Graphics::TBitmap* FDDB;
  3719.     bool FFixedSize;
  3720.     bool FFixedOrder;
  3721.     Imglist::TCustomImageList* FImages;
  3722.     Imglist::TChangeLink* FImageChangeLink;
  3723.     bool FShowText;
  3724.     bool FVertical;
  3725.     #pragma pack(push, 1)
  3726.     Windows::TSmallPoint FTrackDrag;
  3727.     #pragma pack(pop)
  3728.     
  3729.     int FUpdateCount;
  3730.     Classes::TNotifyEvent FOnChange;
  3731.     void __fastcall BeginUpdate(void);
  3732.     void __fastcall BitmapChanged(System::TObject* Sender);
  3733.     void __fastcall EndUpdate(void);
  3734.     bool __fastcall IsAutoSized(void);
  3735.     bool __fastcall IsBackgroundDirty(void);
  3736.     Controls::TAlign __fastcall GetAlign(void);
  3737.     HFONT __fastcall GetCaptionFont(void);
  3738.     int __fastcall GetCaptionFontHeight(void);
  3739.     int __fastcall GetCaptionSize(TCoolBand* Band);
  3740.     int __fastcall GetRowHeight(int Index);
  3741.     void __fastcall RefreshControl(TCoolBand* Band);
  3742.     HIDESBASE void __fastcall SetAlign(Controls::TAlign Value);
  3743.     void __fastcall SetBands(TCoolBands* Value);
  3744.     void __fastcall SetBandBorderStyle(Forms::TBorderStyle Value);
  3745.     void __fastcall SetBandMaximize(TCoolBandMaximize Value);
  3746.     void __fastcall SetBitmap(Graphics::TBitmap* Value);
  3747.     void __fastcall SetFixedSize(bool Value);
  3748.     void __fastcall SetFixedOrder(bool Value);
  3749.     void __fastcall SetImageList(unsigned Value);
  3750.     void __fastcall SetImages(Imglist::TCustomImageList* Value);
  3751.     void __fastcall SetShowText(bool Value);
  3752.     void __fastcall SetVertical(bool Value);
  3753.     void __fastcall ImageListChange(System::TObject* Sender);
  3754.     int __fastcall PtInGripRect(const Windows::TPoint &Pos, TCoolBand* &Band);
  3755.     bool __fastcall ReadBands(void);
  3756.     bool __fastcall UpdateItem(int Message, int FromIndex, int ToIndex);
  3757.     void __fastcall UpdateBand(int Index);
  3758.     void __fastcall UpdateBands(void);
  3759.     MESSAGE void __fastcall WMCaptureChanged(Messages::TMessage &Message);
  3760.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  3761.     HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  3762.     HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TWMMouse &Message);
  3763.     MESSAGE void __fastcall WMNotifyFormat(Messages::TMessage &Message);
  3764.     HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Message);
  3765.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  3766.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  3767.     MESSAGE void __fastcall CMControlChange(Controls::TCMControlChange &Message);
  3768.     HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
  3769.     MESSAGE void __fastcall CNBandChange(Messages::TMessage &Message);
  3770.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  3771.     HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
  3772.     HIDESBASE MESSAGE void __fastcall CMSysFontChanged(Messages::TMessage &Message);
  3773.     HIDESBASE MESSAGE void __fastcall CMWinIniChange(Messages::TWMWinIniChange &Message);
  3774.     
  3775. protected:
  3776.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  3777.     virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
  3778.     DYNAMIC void __fastcall Change(void);
  3779.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  3780.     virtual void __fastcall CreateWnd(void);
  3781.     DYNAMIC HPALETTE __fastcall GetPalette(void);
  3782.     TCoolBand* __fastcall HitTest(const Windows::TPoint &Pos);
  3783.     virtual void __fastcall Loaded(void);
  3784.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  3785.         );
  3786.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  3787.     virtual void __fastcall PaintWindow(HDC DC);
  3788.     
  3789. public:
  3790.     __fastcall virtual TCoolBar(Classes::TComponent* AOwner);
  3791.     __fastcall virtual ~TCoolBar(void);
  3792.     DYNAMIC void __fastcall FlipChildren(bool AllLevels);
  3793.     
  3794. __published:
  3795.     __property Align  = {read=GetAlign, write=SetAlign, default=1};
  3796.     __property Anchors ;
  3797.     __property AutoSize ;
  3798.     __property Forms::TBorderStyle BandBorderStyle = {read=FBandBorderStyle, write=SetBandBorderStyle, 
  3799.         default=1};
  3800.     __property TCoolBandMaximize BandMaximize = {read=FBandMaximize, write=SetBandMaximize, default=1};
  3801.         
  3802.     __property TCoolBands* Bands = {read=FBands, write=SetBands};
  3803.     __property BorderWidth ;
  3804.     __property Color ;
  3805.     __property Constraints ;
  3806.     __property Ctl3D ;
  3807.     __property DockSite ;
  3808.     __property DragCursor ;
  3809.     __property DragKind ;
  3810.     __property DragMode ;
  3811.     __property EdgeBorders ;
  3812.     __property EdgeInner ;
  3813.     __property EdgeOuter ;
  3814.     __property Enabled ;
  3815.     __property bool FixedSize = {read=FFixedSize, write=SetFixedSize, default=0};
  3816.     __property bool FixedOrder = {read=FFixedOrder, write=SetFixedOrder, default=0};
  3817.     __property Font ;
  3818.     __property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
  3819.     __property ParentColor ;
  3820.     __property ParentFont ;
  3821.     __property ParentShowHint ;
  3822.     __property Graphics::TBitmap* Bitmap = {read=FBitmap, write=SetBitmap};
  3823.     __property PopupMenu ;
  3824.     __property ShowHint ;
  3825.     __property bool ShowText = {read=FShowText, write=SetShowText, default=1};
  3826.     __property bool Vertical = {read=FVertical, write=SetVertical, default=0};
  3827.     __property Visible ;
  3828.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  3829.     __property OnClick ;
  3830.     __property OnContextPopup ;
  3831.     __property OnDblClick ;
  3832.     __property OnDockDrop ;
  3833.     __property OnDockOver ;
  3834.     __property OnDragDrop ;
  3835.     __property OnDragOver ;
  3836.     __property OnEndDock ;
  3837.     __property OnEndDrag ;
  3838.     __property OnGetSiteInfo ;
  3839.     __property OnMouseDown ;
  3840.     __property OnMouseMove ;
  3841.     __property OnMouseUp ;
  3842.     __property OnResize ;
  3843.     __property OnStartDock ;
  3844.     __property OnStartDrag ;
  3845.     __property OnUnDock ;
  3846. public:
  3847.     #pragma option push -w-inl
  3848.     /* TWinControl.CreateParented */ inline __fastcall TCoolBar(HWND ParentWindow) : Toolwin::TToolWindow(
  3849.         ParentWindow) { }
  3850.     #pragma option pop
  3851.     
  3852. };
  3853.  
  3854.  
  3855. class DELPHICLASS ECommonCalendarError;
  3856. class PASCALIMPLEMENTATION ECommonCalendarError : public Sysutils::Exception 
  3857. {
  3858.     typedef Sysutils::Exception inherited;
  3859.     
  3860. public:
  3861.     #pragma option push -w-inl
  3862.     /* Exception.Create */ inline __fastcall ECommonCalendarError(const AnsiString Msg) : Sysutils::Exception(
  3863.         Msg) { }
  3864.     #pragma option pop
  3865.     #pragma option push -w-inl
  3866.     /* Exception.CreateFmt */ inline __fastcall ECommonCalendarError(const AnsiString Msg, const System::TVarRec 
  3867.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  3868.     #pragma option pop
  3869.     #pragma option push -w-inl
  3870.     /* Exception.CreateRes */ inline __fastcall ECommonCalendarError(int Ident)/* overload */ : Sysutils::Exception(
  3871.         Ident) { }
  3872.     #pragma option pop
  3873.     #pragma option push -w-inl
  3874.     /* Exception.CreateResFmt */ inline __fastcall ECommonCalendarError(int Ident, const System::TVarRec 
  3875.         * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  3876.     #pragma option pop
  3877.     #pragma option push -w-inl
  3878.     /* Exception.CreateHelp */ inline __fastcall ECommonCalendarError(const AnsiString Msg, int AHelpContext
  3879.         ) : Sysutils::Exception(Msg, AHelpContext) { }
  3880.     #pragma option pop
  3881.     #pragma option push -w-inl
  3882.     /* Exception.CreateFmtHelp */ inline __fastcall ECommonCalendarError(const AnsiString Msg, const System::TVarRec 
  3883.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  3884.         ) { }
  3885.     #pragma option pop
  3886.     #pragma option push -w-inl
  3887.     /* Exception.CreateResHelp */ inline __fastcall ECommonCalendarError(int Ident, int AHelpContext)/* overload */
  3888.          : Sysutils::Exception(Ident, AHelpContext) { }
  3889.     #pragma option pop
  3890.     #pragma option push -w-inl
  3891.     /* Exception.CreateResFmtHelp */ inline __fastcall ECommonCalendarError(System::PResStringRec ResStringRec
  3892.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
  3893.         ResStringRec, Args, Args_Size, AHelpContext) { }
  3894.     #pragma option pop
  3895.     
  3896. public:
  3897.     #pragma option push -w-inl
  3898.     /* TObject.Destroy */ inline __fastcall virtual ~ECommonCalendarError(void) { }
  3899.     #pragma option pop
  3900.     
  3901. };
  3902.  
  3903.  
  3904. class DELPHICLASS TMonthCalColors;
  3905. class DELPHICLASS TCommonCalendar;
  3906. #pragma option push -b-
  3907. enum TCalDayOfWeek { dowMonday, dowTuesday, dowWednesday, dowThursday, dowFriday, dowSaturday, dowSunday, 
  3908.     dowLocaleDefault };
  3909. #pragma option pop
  3910.  
  3911. typedef void __fastcall (__closure *TOnGetMonthInfoEvent)(System::TObject* Sender, unsigned Month, unsigned 
  3912.     &MonthBoldInfo);
  3913.  
  3914. class PASCALIMPLEMENTATION TCommonCalendar : public Controls::TWinControl 
  3915. {
  3916.     typedef Controls::TWinControl inherited;
  3917.     
  3918. private:
  3919.     TMonthCalColors* FCalColors;
  3920.     TMetaClass*FCalExceptionClass;
  3921.     System::TDateTime FDateTime;
  3922.     TDate FEndDate;
  3923.     TCalDayOfWeek FFirstDayOfWeek;
  3924.     TDate FMaxDate;
  3925.     int FMaxSelectRange;
  3926.     TDate FMinDate;
  3927.     int FMonthDelta;
  3928.     bool FMultiSelect;
  3929.     bool FShowToday;
  3930.     bool FShowTodayCircle;
  3931.     bool FWeekNumbers;
  3932.     TOnGetMonthInfoEvent FOnGetMonthInfo;
  3933.     bool __fastcall DoStoreEndDate(void);
  3934.     bool __fastcall DoStoreMaxDate(void);
  3935.     bool __fastcall DoStoreMinDate(void);
  3936.     TDate __fastcall GetDate(void);
  3937.     void __fastcall SetCalColors(TMonthCalColors* Value);
  3938.     void __fastcall SetDate(TDate Value);
  3939.     void __fastcall SetDateTime(System::TDateTime Value);
  3940.     void __fastcall SetEndDate(TDate Value);
  3941.     void __fastcall SetFirstDayOfWeek(TCalDayOfWeek Value);
  3942.     void __fastcall SetMaxDate(TDate Value);
  3943.     void __fastcall SetMaxSelectRange(int Value);
  3944.     void __fastcall SetMinDate(TDate Value);
  3945.     void __fastcall SetMonthDelta(int Value);
  3946.     void __fastcall SetMultiSelect(bool Value);
  3947.     void __fastcall SetRange(TDate MinVal, TDate MaxVal);
  3948.     void __fastcall SetSelectedRange(TDate Date, TDate EndDate);
  3949.     void __fastcall SetShowToday(bool Value);
  3950.     void __fastcall SetShowTodayCircle(bool Value);
  3951.     void __fastcall SetWeekNumbers(bool Value);
  3952.     
  3953. protected:
  3954.     virtual void __fastcall CheckEmptyDate(void);
  3955.     virtual void __fastcall CheckValidDate(TDate Value);
  3956.     virtual void __fastcall CreateWnd(void);
  3957.     virtual HWND __fastcall GetCalendarHandle(void) = 0 ;
  3958.     virtual unsigned __fastcall GetCalStyles(void);
  3959.     virtual bool __fastcall MsgSetCalColors(int ColorIndex, Graphics::TColor ColorValue) = 0 ;
  3960.     virtual bool __fastcall MsgSetDateTime(const _SYSTEMTIME &Value) = 0 ;
  3961.     virtual bool __fastcall MsgSetRange(int Flags, Windows::PSystemTime SysTime) = 0 ;
  3962.     __property TMonthCalColors* CalColors = {read=FCalColors, write=SetCalColors};
  3963.     __property HWND CalendarHandle = {read=GetCalendarHandle, nodefault};
  3964.     __property TMetaClass* CalExceptionClass = {read=FCalExceptionClass, write=FCalExceptionClass};
  3965.     __property TDate Date = {read=GetDate, write=SetDate};
  3966.     __property System::TDateTime DateTime = {read=FDateTime, write=SetDateTime};
  3967.     __property TDate EndDate = {read=FEndDate, write=SetEndDate, stored=DoStoreEndDate};
  3968.     __property TCalDayOfWeek FirstDayOfWeek = {read=FFirstDayOfWeek, write=SetFirstDayOfWeek, default=7
  3969.         };
  3970.     __property TDate MaxDate = {read=FMaxDate, write=SetMaxDate, stored=DoStoreMaxDate};
  3971.     __property int MaxSelectRange = {read=FMaxSelectRange, write=SetMaxSelectRange, default=31};
  3972.     __property TDate MinDate = {read=FMinDate, write=SetMinDate, stored=DoStoreMinDate};
  3973.     __property int MonthDelta = {read=FMonthDelta, write=SetMonthDelta, default=1};
  3974.     __property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
  3975.     __property bool ShowToday = {read=FShowToday, write=SetShowToday, default=1};
  3976.     __property bool ShowTodayCircle = {read=FShowTodayCircle, write=SetShowTodayCircle, default=1};
  3977.     __property bool WeekNumbers = {read=FWeekNumbers, write=SetWeekNumbers, default=0};
  3978.     __property TOnGetMonthInfoEvent OnGetMonthInfo = {read=FOnGetMonthInfo, write=FOnGetMonthInfo};
  3979.     
  3980. public:
  3981.     __fastcall virtual TCommonCalendar(Classes::TComponent* AOwner);
  3982.     __fastcall virtual ~TCommonCalendar(void);
  3983.     void __fastcall BoldDays(const unsigned * Days, const int Days_Size, unsigned &MonthBoldInfo);
  3984. public:
  3985.         
  3986.     #pragma option push -w-inl
  3987.     /* TWinControl.CreateParented */ inline __fastcall TCommonCalendar(HWND ParentWindow) : Controls::TWinControl(
  3988.         ParentWindow) { }
  3989.     #pragma option pop
  3990.     
  3991. };
  3992.  
  3993.  
  3994. class PASCALIMPLEMENTATION TMonthCalColors : public Classes::TPersistent 
  3995. {
  3996.     typedef Classes::TPersistent inherited;
  3997.     
  3998. private:
  3999.     TCommonCalendar* Owner;
  4000.     Graphics::TColor FBackColor;
  4001.     Graphics::TColor FTextColor;
  4002.     Graphics::TColor FTitleBackColor;
  4003.     Graphics::TColor FTitleTextColor;
  4004.     Graphics::TColor FMonthBackColor;
  4005.     Graphics::TColor FTrailingTextColor;
  4006.     void __fastcall SetColor(int Index, Graphics::TColor Value);
  4007.     void __fastcall SetAllColors(void);
  4008.     
  4009. public:
  4010.     __fastcall TMonthCalColors(TCommonCalendar* AOwner);
  4011.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  4012.     
  4013. __published:
  4014.     __property Graphics::TColor BackColor = {read=FBackColor, write=SetColor, index=0, default=-2147483643
  4015.         };
  4016.     __property Graphics::TColor TextColor = {read=FTextColor, write=SetColor, index=1, default=-2147483640
  4017.         };
  4018.     __property Graphics::TColor TitleBackColor = {read=FTitleBackColor, write=SetColor, index=2, default=-2147483646
  4019.         };
  4020.     __property Graphics::TColor TitleTextColor = {read=FTitleTextColor, write=SetColor, index=3, default=16777215
  4021.         };
  4022.     __property Graphics::TColor MonthBackColor = {read=FMonthBackColor, write=SetColor, index=4, default=16777215
  4023.         };
  4024.     __property Graphics::TColor TrailingTextColor = {read=FTrailingTextColor, write=SetColor, index=5, 
  4025.         default=-2147483629};
  4026. public:
  4027.     #pragma option push -w-inl
  4028.     /* TPersistent.Destroy */ inline __fastcall virtual ~TMonthCalColors(void) { }
  4029.     #pragma option pop
  4030.     
  4031. };
  4032.  
  4033.  
  4034. class DELPHICLASS EMonthCalError;
  4035. class PASCALIMPLEMENTATION EMonthCalError : public ECommonCalendarError 
  4036. {
  4037.     typedef ECommonCalendarError inherited;
  4038.     
  4039. public:
  4040.     #pragma option push -w-inl
  4041.     /* Exception.Create */ inline __fastcall EMonthCalError(const AnsiString Msg) : ECommonCalendarError(
  4042.         Msg) { }
  4043.     #pragma option pop
  4044.     #pragma option push -w-inl
  4045.     /* Exception.CreateFmt */ inline __fastcall EMonthCalError(const AnsiString Msg, const System::TVarRec 
  4046.         * Args, const int Args_Size) : ECommonCalendarError(Msg, Args, Args_Size) { }
  4047.     #pragma option pop
  4048.     #pragma option push -w-inl
  4049.     /* Exception.CreateRes */ inline __fastcall EMonthCalError(int Ident)/* overload */ : ECommonCalendarError(
  4050.         Ident) { }
  4051.     #pragma option pop
  4052.     #pragma option push -w-inl
  4053.     /* Exception.CreateResFmt */ inline __fastcall EMonthCalError(int Ident, const System::TVarRec * Args
  4054.         , const int Args_Size)/* overload */ : ECommonCalendarError(Ident, Args, Args_Size) { }
  4055.     #pragma option pop
  4056.     #pragma option push -w-inl
  4057.     /* Exception.CreateHelp */ inline __fastcall EMonthCalError(const AnsiString Msg, int AHelpContext)
  4058.          : ECommonCalendarError(Msg, AHelpContext) { }
  4059.     #pragma option pop
  4060.     #pragma option push -w-inl
  4061.     /* Exception.CreateFmtHelp */ inline __fastcall EMonthCalError(const AnsiString Msg, const System::TVarRec 
  4062.         * Args, const int Args_Size, int AHelpContext) : ECommonCalendarError(Msg, Args, Args_Size, AHelpContext
  4063.         ) { }
  4064.     #pragma option pop
  4065.     #pragma option push -w-inl
  4066.     /* Exception.CreateResHelp */ inline __fastcall EMonthCalError(int Ident, int AHelpContext)/* overload */
  4067.          : ECommonCalendarError(Ident, AHelpContext) { }
  4068.     #pragma option pop
  4069.     #pragma option push -w-inl
  4070.     /* Exception.CreateResFmtHelp */ inline __fastcall EMonthCalError(System::PResStringRec ResStringRec
  4071.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : ECommonCalendarError(
  4072.         ResStringRec, Args, Args_Size, AHelpContext) { }
  4073.     #pragma option pop
  4074.     
  4075. public:
  4076.     #pragma option push -w-inl
  4077.     /* TObject.Destroy */ inline __fastcall virtual ~EMonthCalError(void) { }
  4078.     #pragma option pop
  4079.     
  4080. };
  4081.  
  4082.  
  4083. class DELPHICLASS TMonthCalendar;
  4084. class PASCALIMPLEMENTATION TMonthCalendar : public TCommonCalendar 
  4085. {
  4086.     typedef TCommonCalendar inherited;
  4087.     
  4088. private:
  4089.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  4090.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  4091.     
  4092. protected:
  4093.     virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
  4094.     virtual void __fastcall ConstrainedResize(int &MinWidth, int &MinHeight, int &MaxWidth, int &MaxHeight
  4095.         );
  4096.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  4097.     virtual HWND __fastcall GetCalendarHandle(void);
  4098.     virtual bool __fastcall MsgSetCalColors(int ColorIndex, Graphics::TColor ColorValue);
  4099.     virtual bool __fastcall MsgSetDateTime(const _SYSTEMTIME &Value);
  4100.     virtual bool __fastcall MsgSetRange(int Flags, Windows::PSystemTime SysTime);
  4101.     
  4102. public:
  4103.     __fastcall virtual TMonthCalendar(Classes::TComponent* AOwner);
  4104.     
  4105. __published:
  4106.     __property Align ;
  4107.     __property Anchors ;
  4108.     __property AutoSize ;
  4109.     __property BorderWidth ;
  4110.     __property BiDiMode ;
  4111.     __property CalColors ;
  4112.     __property Constraints ;
  4113.     __property MultiSelect ;
  4114.     __property Date ;
  4115.     __property DragCursor ;
  4116.     __property DragKind ;
  4117.     __property DragMode ;
  4118.     __property Enabled ;
  4119.     __property EndDate ;
  4120.     __property FirstDayOfWeek ;
  4121.     __property Font ;
  4122.     __property ImeMode ;
  4123.     __property ImeName ;
  4124.     __property MaxDate ;
  4125.     __property MaxSelectRange ;
  4126.     __property MinDate ;
  4127.     __property ParentBiDiMode ;
  4128.     __property ParentFont ;
  4129.     __property ParentShowHint ;
  4130.     __property PopupMenu ;
  4131.     __property ShowHint ;
  4132.     __property ShowToday ;
  4133.     __property ShowTodayCircle ;
  4134.     __property TabOrder ;
  4135.     __property TabStop ;
  4136.     __property Visible ;
  4137.     __property WeekNumbers ;
  4138.     __property OnClick ;
  4139.     __property OnContextPopup ;
  4140.     __property OnDblClick ;
  4141.     __property OnDragDrop ;
  4142.     __property OnDragOver ;
  4143.     __property OnEndDock ;
  4144.     __property OnEndDrag ;
  4145.     __property OnEnter ;
  4146.     __property OnExit ;
  4147.     __property OnGetMonthInfo ;
  4148.     __property OnKeyDown ;
  4149.     __property OnKeyPress ;
  4150.     __property OnKeyUp ;
  4151.     __property OnStartDock ;
  4152.     __property OnStartDrag ;
  4153. public:
  4154.     #pragma option push -w-inl
  4155.     /* TCommonCalendar.Destroy */ inline __fastcall virtual ~TMonthCalendar(void) { }
  4156.     #pragma option pop
  4157.     
  4158. public:
  4159.     #pragma option push -w-inl
  4160.     /* TWinControl.CreateParented */ inline __fastcall TMonthCalendar(HWND ParentWindow) : TCommonCalendar(
  4161.         ParentWindow) { }
  4162.     #pragma option pop
  4163.     
  4164. };
  4165.  
  4166.  
  4167. class DELPHICLASS EDateTimeError;
  4168. class PASCALIMPLEMENTATION EDateTimeError : public ECommonCalendarError 
  4169. {
  4170.     typedef ECommonCalendarError inherited;
  4171.     
  4172. public:
  4173.     #pragma option push -w-inl
  4174.     /* Exception.Create */ inline __fastcall EDateTimeError(const AnsiString Msg) : ECommonCalendarError(
  4175.         Msg) { }
  4176.     #pragma option pop
  4177.     #pragma option push -w-inl
  4178.     /* Exception.CreateFmt */ inline __fastcall EDateTimeError(const AnsiString Msg, const System::TVarRec 
  4179.         * Args, const int Args_Size) : ECommonCalendarError(Msg, Args, Args_Size) { }
  4180.     #pragma option pop
  4181.     #pragma option push -w-inl
  4182.     /* Exception.CreateRes */ inline __fastcall EDateTimeError(int Ident)/* overload */ : ECommonCalendarError(
  4183.         Ident) { }
  4184.     #pragma option pop
  4185.     #pragma option push -w-inl
  4186.     /* Exception.CreateResFmt */ inline __fastcall EDateTimeError(int Ident, const System::TVarRec * Args
  4187.         , const int Args_Size)/* overload */ : ECommonCalendarError(Ident, Args, Args_Size) { }
  4188.     #pragma option pop
  4189.     #pragma option push -w-inl
  4190.     /* Exception.CreateHelp */ inline __fastcall EDateTimeError(const AnsiString Msg, int AHelpContext)
  4191.          : ECommonCalendarError(Msg, AHelpContext) { }
  4192.     #pragma option pop
  4193.     #pragma option push -w-inl
  4194.     /* Exception.CreateFmtHelp */ inline __fastcall EDateTimeError(const AnsiString Msg, const System::TVarRec 
  4195.         * Args, const int Args_Size, int AHelpContext) : ECommonCalendarError(Msg, Args, Args_Size, AHelpContext
  4196.         ) { }
  4197.     #pragma option pop
  4198.     #pragma option push -w-inl
  4199.     /* Exception.CreateResHelp */ inline __fastcall EDateTimeError(int Ident, int AHelpContext)/* overload */
  4200.          : ECommonCalendarError(Ident, AHelpContext) { }
  4201.     #pragma option pop
  4202.     #pragma option push -w-inl
  4203.     /* Exception.CreateResFmtHelp */ inline __fastcall EDateTimeError(System::PResStringRec ResStringRec
  4204.         , const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : ECommonCalendarError(
  4205.         ResStringRec, Args, Args_Size, AHelpContext) { }
  4206.     #pragma option pop
  4207.     
  4208. public:
  4209.     #pragma option push -w-inl
  4210.     /* TObject.Destroy */ inline __fastcall virtual ~EDateTimeError(void) { }
  4211.     #pragma option pop
  4212.     
  4213. };
  4214.  
  4215.  
  4216. #pragma option push -b-
  4217. enum TDateTimeKind { dtkDate, dtkTime };
  4218. #pragma option pop
  4219.  
  4220. #pragma option push -b-
  4221. enum TDTDateMode { dmComboBox, dmUpDown };
  4222. #pragma option pop
  4223.  
  4224. #pragma option push -b-
  4225. enum TDTDateFormat { dfShort, dfLong };
  4226. #pragma option pop
  4227.  
  4228. #pragma option push -b-
  4229. enum TDTCalAlignment { dtaLeft, dtaRight };
  4230. #pragma option pop
  4231.  
  4232. typedef void __fastcall (__closure *TDTParseInputEvent)(System::TObject* Sender, const AnsiString UserString
  4233.     , System::TDateTime &DateAndTime, bool &AllowChange);
  4234.  
  4235. typedef TMonthCalColors TDateTimeColors;
  4236. ;
  4237.  
  4238. class DELPHICLASS TDateTimePicker;
  4239. class PASCALIMPLEMENTATION TDateTimePicker : public TCommonCalendar 
  4240. {
  4241.     typedef TCommonCalendar inherited;
  4242.     
  4243. private:
  4244.     TDTCalAlignment FCalAlignment;
  4245.     bool FChanging;
  4246.     bool FChecked;
  4247.     TDTDateFormat FDateFormat;
  4248.     TDTDateMode FDateMode;
  4249.     bool FDroppedDown;
  4250.     TDateTimeKind FKind;
  4251.     _SYSTEMTIME FLastChange;
  4252.     bool FParseInput;
  4253.     bool FShowCheckbox;
  4254.     TDTParseInputEvent FOnUserInput;
  4255.     Classes::TNotifyEvent FOnCloseUp;
  4256.     Classes::TNotifyEvent FOnChange;
  4257.     Classes::TNotifyEvent FOnDropDown;
  4258.     void __fastcall AdjustHeight(void);
  4259.     TTime __fastcall GetTime(void);
  4260.     void __fastcall SetCalAlignment(TDTCalAlignment Value);
  4261.     void __fastcall SetChecked(bool Value);
  4262.     void __fastcall SetDateMode(TDTDateMode Value);
  4263.     void __fastcall SetDateFormat(TDTDateFormat Value);
  4264.     void __fastcall SetKind(TDateTimeKind Value);
  4265.     void __fastcall SetParseInput(bool Value);
  4266.     void __fastcall SetShowCheckbox(bool Value);
  4267.     void __fastcall SetTime(TTime Value);
  4268.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  4269.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  4270.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  4271.     
  4272. protected:
  4273.     virtual void __fastcall CheckEmptyDate(void);
  4274.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  4275.     virtual void __fastcall CreateWnd(void);
  4276.     DYNAMIC void __fastcall Change(void);
  4277.     virtual HWND __fastcall GetCalendarHandle(void);
  4278.     virtual bool __fastcall MsgSetCalColors(int ColorIndex, Graphics::TColor ColorValue);
  4279.     virtual bool __fastcall MsgSetDateTime(const _SYSTEMTIME &Value);
  4280.     virtual bool __fastcall MsgSetRange(int Flags, Windows::PSystemTime SysTime);
  4281.     
  4282. public:
  4283.     __fastcall virtual TDateTimePicker(Classes::TComponent* AOwner);
  4284.     __property DateTime ;
  4285.     __property bool DroppedDown = {read=FDroppedDown, nodefault};
  4286.     
  4287. __published:
  4288.     __property Anchors ;
  4289.     __property BiDiMode ;
  4290.     __property TDTCalAlignment CalAlignment = {read=FCalAlignment, write=SetCalAlignment, nodefault};
  4291.     __property CalColors ;
  4292.     __property Constraints ;
  4293.     __property Date ;
  4294.     __property TTime Time = {read=GetTime, write=SetTime};
  4295.     __property bool ShowCheckbox = {read=FShowCheckbox, write=SetShowCheckbox, default=0};
  4296.     __property bool Checked = {read=FChecked, write=SetChecked, default=1};
  4297.     __property Color  = {stored=true, default=-2147483643};
  4298.     __property TDTDateFormat DateFormat = {read=FDateFormat, write=SetDateFormat, nodefault};
  4299.     __property TDTDateMode DateMode = {read=FDateMode, write=SetDateMode, nodefault};
  4300.     __property DragCursor ;
  4301.     __property DragKind ;
  4302.     __property DragMode ;
  4303.     __property Enabled ;
  4304.     __property Font ;
  4305.     __property ImeMode ;
  4306.     __property ImeName ;
  4307.     __property TDateTimeKind Kind = {read=FKind, write=SetKind, nodefault};
  4308.     __property MaxDate ;
  4309.     __property MinDate ;
  4310.     __property bool ParseInput = {read=FParseInput, write=SetParseInput, nodefault};
  4311.     __property ParentBiDiMode ;
  4312.     __property ParentColor ;
  4313.     __property ParentFont ;
  4314.     __property ParentShowHint ;
  4315.     __property PopupMenu ;
  4316.     __property ShowHint ;
  4317.     __property TabOrder ;
  4318.     __property TabStop ;
  4319.     __property Visible ;
  4320.     __property OnClick ;
  4321.     __property Classes::TNotifyEvent OnCloseUp = {read=FOnCloseUp, write=FOnCloseUp};
  4322.     __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
  4323.     __property OnContextPopup ;
  4324.     __property Classes::TNotifyEvent OnDropDown = {read=FOnDropDown, write=FOnDropDown};
  4325.     __property OnDblClick ;
  4326.     __property OnDragDrop ;
  4327.     __property OnDragOver ;
  4328.     __property OnEndDock ;
  4329.     __property OnEndDrag ;
  4330.     __property OnEnter ;
  4331.     __property OnExit ;
  4332.     __property OnKeyDown ;
  4333.     __property OnKeyPress ;
  4334.     __property OnKeyUp ;
  4335.     __property OnStartDock ;
  4336.     __property OnStartDrag ;
  4337.     __property TDTParseInputEvent OnUserInput = {read=FOnUserInput, write=FOnUserInput};
  4338. public:
  4339.     #pragma option push -w-inl
  4340.     /* TCommonCalendar.Destroy */ inline __fastcall virtual ~TDateTimePicker(void) { }
  4341.     #pragma option pop
  4342.     
  4343. public:
  4344.     #pragma option push -w-inl
  4345.     /* TWinControl.CreateParented */ inline __fastcall TDateTimePicker(HWND ParentWindow) : TCommonCalendar(
  4346.         ParentWindow) { }
  4347.     #pragma option pop
  4348.     
  4349. };
  4350.  
  4351.  
  4352. #pragma option push -b-
  4353. enum TPageScrollerOrientation { soHorizontal, soVertical };
  4354. #pragma option pop
  4355.  
  4356. #pragma option push -b-
  4357. enum TPageScrollerButton { sbFirst, sbLast };
  4358. #pragma option pop
  4359.  
  4360. #pragma option push -b-
  4361. enum TPageScrollerButtonState { bsNormal, bsInvisible, bsGrayed, bsDepressed, bsHot };
  4362. #pragma option pop
  4363.  
  4364. typedef void __fastcall (__closure *TPageScrollEvent)(System::TObject* Sender, Classes::TShiftState 
  4365.     Shift, int X, int Y, TPageScrollerOrientation Orientation, int &Delta);
  4366.  
  4367. class DELPHICLASS TPageScroller;
  4368. class PASCALIMPLEMENTATION TPageScroller : public Controls::TWinControl 
  4369. {
  4370.     typedef Controls::TWinControl inherited;
  4371.     
  4372. private:
  4373.     bool FAutoScroll;
  4374.     int FButtonSize;
  4375.     Controls::TWinControl* FControl;
  4376.     bool FDragScroll;
  4377.     int FMargin;
  4378.     TPageScrollerOrientation FOrientation;
  4379.     int FPosition;
  4380.     int FPreferredSize;
  4381.     TPageScrollEvent FOnScroll;
  4382.     MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  4383.     void __fastcall DoSetControl(Controls::TWinControl* Value);
  4384.     void __fastcall SetAutoScroll(bool Value);
  4385.     void __fastcall SetButtonSize(int Value);
  4386.     void __fastcall SetControl(Controls::TWinControl* Value);
  4387.     void __fastcall SetDragScroll(bool Value);
  4388.     void __fastcall SetMargin(int Value);
  4389.     void __fastcall SetOrientation(TPageScrollerOrientation Value);
  4390.     void __fastcall SetPosition(int Value);
  4391.     void __fastcall UpdatePreferredSize(void);
  4392.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
  4393.     MESSAGE void __fastcall CMControlChange(Controls::TCMControlChange &Message);
  4394.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  4395.     
  4396. protected:
  4397.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  4398.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  4399.     virtual void __fastcall CreateWnd(void);
  4400.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  4401.         );
  4402.     DYNAMIC void __fastcall Scroll(Classes::TShiftState Shift, int X, int Y, TPageScrollerOrientation Orientation
  4403.         , int &Delta);
  4404.     
  4405. public:
  4406.     __fastcall virtual TPageScroller(Classes::TComponent* AOwner);
  4407.     TPageScrollerButtonState __fastcall GetButtonState(TPageScrollerButton Button);
  4408.     
  4409. __published:
  4410.     __property Align ;
  4411.     __property Anchors ;
  4412.     __property bool AutoScroll = {read=FAutoScroll, write=SetAutoScroll, nodefault};
  4413.     __property BorderWidth ;
  4414.     __property int ButtonSize = {read=FButtonSize, write=SetButtonSize, default=12};
  4415.     __property Color ;
  4416.     __property Constraints ;
  4417.     __property Controls::TWinControl* Control = {read=FControl, write=SetControl};
  4418.     __property DockSite ;
  4419.     __property DragCursor ;
  4420.     __property DragKind ;
  4421.     __property DragMode ;
  4422.     __property bool DragScroll = {read=FDragScroll, write=SetDragScroll, default=1};
  4423.     __property Enabled ;
  4424.     __property Font ;
  4425.     __property int Margin = {read=FMargin, write=SetMargin, default=0};
  4426.     __property TPageScrollerOrientation Orientation = {read=FOrientation, write=SetOrientation, default=0
  4427.         };
  4428.     __property ParentColor ;
  4429.     __property ParentFont ;
  4430.     __property ParentShowHint ;
  4431.     __property PopupMenu ;
  4432.     __property int Position = {read=FPosition, write=SetPosition, default=0};
  4433.     __property ShowHint ;
  4434.     __property TabOrder ;
  4435.     __property TabStop ;
  4436.     __property Visible ;
  4437.     __property OnClick ;
  4438.     __property OnContextPopup ;
  4439.     __property OnDblClick ;
  4440.     __property OnDragDrop ;
  4441.     __property OnDragOver ;
  4442.     __property OnEndDock ;
  4443.     __property OnEndDrag ;
  4444.     __property OnEnter ;
  4445.     __property OnExit ;
  4446.     __property OnKeyDown ;
  4447.     __property OnKeyPress ;
  4448.     __property OnKeyUp ;
  4449.     __property OnMouseWheel ;
  4450.     __property OnResize ;
  4451.     __property TPageScrollEvent OnScroll = {read=FOnScroll, write=FOnScroll};
  4452.     __property OnStartDock ;
  4453.     __property OnStartDrag ;
  4454. public:
  4455.     #pragma option push -w-inl
  4456.     /* TWinControl.CreateParented */ inline __fastcall TPageScroller(HWND ParentWindow) : Controls::TWinControl(
  4457.         ParentWindow) { }
  4458.     #pragma option pop
  4459.     #pragma option push -w-inl
  4460.     /* TWinControl.Destroy */ inline __fastcall virtual ~TPageScroller(void) { }
  4461.     #pragma option pop
  4462.     
  4463. };
  4464.  
  4465.  
  4466. //-- var, const, procedure ---------------------------------------------------
  4467. static const Shortint ColumnHeaderWidth = 0xfffffffe;
  4468. static const Shortint ColumnTextWidth = 0xffffffff;
  4469. static const Word CN_DROPDOWNCLOSED = 0x1400;
  4470. static const Word CN_BANDCHANGE = 0x1400;
  4471. static const int ComCtlVersionIE3 = 0x40046;
  4472. static const int ComCtlVersionIE4 = 0x40047;
  4473. static const int ComCtlVersionIE401 = 0x40048;
  4474. static const int ComCtlVersionIE5 = 0x50050;
  4475. extern PACKAGE bool __fastcall InitCommonControl(int CC);
  4476. extern PACKAGE void __fastcall CheckCommonControl(int CC);
  4477. extern PACKAGE int __fastcall GetComCtlVersion(void);
  4478. extern PACKAGE void __fastcall CheckToolMenuDropdown(TToolButton* ToolButton);
  4479.  
  4480. }    /* namespace Comctrls */
  4481. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  4482. using namespace Comctrls;
  4483. #endif
  4484. #pragma option pop    // -w-
  4485. #pragma option pop    // -Vx
  4486.  
  4487. #pragma delphiheader end.
  4488. //-- end unit ----------------------------------------------------------------
  4489. #endif    // ComCtrls
  4490.