CD Actual 9/CDACTUAL9.iso/progs/CB/DATA.Z/COMCTRLS.HPP

C/C++ Source or Header | 1996-11-06 | 84.4 KB | 2,108 lines

//----------------------------------------------------------------------------
// ComCtrls.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
// From: ComCtrls.pas
//----------------------------------------------------------------------------
#ifndef ComCtrlsHPP
#define ComCtrlsHPP
//----------------------------------------------------------------------------
#ifndef RichEditHPP
#include <RichEdit.hpp>
#endif

#ifndef StdCtrlsHPP
#include <StdCtrls.hpp>
#endif

#ifndef GraphicsHPP
#include <Graphics.hpp>
#endif

#ifndef MenusHPP
#include <Menus.hpp>
#endif

#ifndef FormsHPP
#include <Forms.hpp>
#endif

#ifndef ControlsHPP
#include <Controls.hpp>
#endif

#ifndef ClassesHPP
#include <Classes.hpp>
#endif

#ifndef CommCtrlHPP
#include <CommCtrl.hpp>
#endif

#ifndef SysUtilsHPP
#include <SysUtils.hpp>
#endif

#ifndef WindowsHPP
#include <Windows.hpp>
#endif

#ifndef MessagesHPP
#include <Messages.hpp>
#endif

#ifndef SystemHPP
#include <System.hpp>
#endif

namespace Comctrls
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TTabChangingEvent)(System::TObject *Sender, System::Boolean &AllowChange
    );

class __declspec(delphiclass) TCustomTabControl;
class __declspec(pascalimplementation) TCustomTabControl : public Controls::TWinControl
{
    typedef TCustomTabControl ThisClass;
    typedef Controls::TWinControl inherited;

private:
    Classes::TStrings *FTabs;
    Classes::TStringList *FSaveTabs;
    System::Integer FSaveTabIndex;
    Windows::TSmallPoint FTabSize;
    System::Boolean FMultiLine;
    System::Boolean FUpdating;
    Classes::TNotifyEvent FOnChange;
    TTabChangingEvent FOnChanging;
    Windows::TRect __fastcall GetDisplayRect(void);
    System::Integer __fastcall GetTabIndex(void);
    void __fastcall SetMultiLine(System::Boolean Value);
    void __fastcall SetTabHeight(System::Smallint Value);
    void __fastcall SetTabIndex(System::Integer Value);
    void __fastcall SetTabs(Classes::TStrings *Value);
    void __fastcall SetTabWidth(System::Smallint Value);
    void __fastcall TabsChanged(void);
    void __fastcall UpdateTabSize(void);
    MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
    MESSAGE void __fastcall CMTabStopChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);

protected:
    virtual void __fastcall AlignControls(Controls::TControl *AControl, Windows::TRect &Rect);
    virtual System::Boolean __fastcall CanChange(void);
    virtual void __fastcall Change(void);
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall DestroyWnd(void);
    __property Windows::TRect DisplayRect = {read=GetDisplayRect};
    __property System::Boolean MultiLine = {read=FMultiLine, write=SetMultiLine, default=0};
    __property System::Smallint TabHeight = {read=FTabSize.y, write=SetTabHeight, default=0};
    __property System::Integer TabIndex = {read=GetTabIndex, write=SetTabIndex, default=-1};
    __property Classes::TStrings * Tabs = {read=FTabs, write=SetTabs, nodefault};
    __property System::Smallint TabWidth = {read=FTabSize.x, write=SetTabWidth, default=0};
    __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
    __property TTabChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};

public:
    __fastcall virtual TCustomTabControl(Classes::TComponent *AOwner);
    __fastcall virtual ~TCustomTabControl(void);
    __property TabStop ;
};

class __declspec(delphiclass) TTabControl;
class __declspec(pascalimplementation) TTabControl : public TCustomTabControl
{
    typedef TTabControl ThisClass;
    typedef TCustomTabControl inherited;

public:
    __property DisplayRect ;

__published:
    __property Align ;
    __property DragCursor ;
    __property DragMode ;
    __property Enabled ;
    __property Font ;
    __property MultiLine ;
    __property ParentFont ;
    __property ParentShowHint ;
    __property PopupMenu ;
    __property ShowHint ;
    __property TabHeight ;
    __property TabIndex ;
    __property TabOrder ;
    __property Tabs ;
    __property TabStop ;
    __property TabWidth ;
    __property Visible ;
    __property OnChange ;
    __property OnChanging ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEndDrag ;
    __property OnEnter ;
    __property OnExit ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property OnStartDrag ;
public:
    /* !! TCustomTabControl.Create */ __fastcall virtual TTabControl(Classes::TComponent *AOwner) : Comctrls::TCustomTabControl(
        AOwner) { }
    /* !! TCustomTabControl.Destroy */ __fastcall virtual ~TTabControl(void) { }

};

class __declspec(delphiclass) TTabSheet;
class __declspec(delphiclass) TPageControl;
class __declspec(pascalimplementation) TPageControl : public TCustomTabControl
{
    typedef TPageControl ThisClass;
    typedef TCustomTabControl inherited;

private:
    Classes::TList *FPages;
    TTabSheet *FActivePage;
    void __fastcall ChangeActivePage(TTabSheet *Page);
    void __fastcall DeleteTab(TTabSheet *Page);
    TTabSheet *__fastcall GetPage(System::Integer Index);
    System::Integer __fastcall GetPageCount(void);
    void __fastcall InsertPage(TTabSheet *Page);
    void __fastcall InsertTab(TTabSheet *Page);
    void __fastcall MoveTab(System::Integer CurIndex, System::Integer NewIndex);
    void __fastcall RemovePage(TTabSheet *Page);
    void __fastcall SetActivePage(TTabSheet *Page);
    void __fastcall UpdateTab(TTabSheet *Page);
    void __fastcall UpdateActivePage(void);
    MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
    MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);

protected:
    virtual void __fastcall Change(void);
    virtual void __fastcall GetChildren(Classes::TGetChildProc Proc);
    virtual void __fastcall SetChildOrder(Classes::TComponent *Child, System::Integer Order);
    virtual void __fastcall ShowControl(Controls::TControl *AControl);

public:
    __fastcall virtual TPageControl(Classes::TComponent *AOwner);
    __fastcall virtual ~TPageControl(void);
    TTabSheet *__fastcall FindNextPage(TTabSheet *CurPage, System::Boolean GoForward, System::Boolean CheckTabVisible
        );
    void __fastcall SelectNextPage(System::Boolean GoForward);
    __property System::Integer PageCount = {read=GetPageCount, nodefault};
    __property TTabSheet * Pages[System::Integer Index] = {read=GetPage};

__published:
    __property TTabSheet * ActivePage = {read=FActivePage, write=SetActivePage, nodefault};
    __property Align ;
    __property DragCursor ;
    __property DragMode ;
    __property Enabled ;
    __property Font ;
    __property MultiLine ;
    __property ParentFont ;
    __property ParentShowHint ;
    __property PopupMenu ;
    __property ShowHint ;
    __property TabHeight ;
    __property TabOrder ;
    __property TabStop ;
    __property TabWidth ;
    __property Visible ;
    __property OnChange ;
    __property OnChanging ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEndDrag ;
    __property OnEnter ;
    __property OnExit ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property OnStartDrag ;
};

class __declspec(pascalimplementation) TTabSheet : public Controls::TWinControl
{
    typedef TTabSheet ThisClass;
    typedef Controls::TWinControl inherited;

private:
    TPageControl *FPageControl;
    System::Boolean FTabVisible;
    System::Boolean FTabShowing;
    System::Integer __fastcall GetPageIndex(void);
    System::Integer __fastcall GetTabIndex(void);
    void __fastcall SetPageControl(TPageControl *APageControl);
    void __fastcall SetPageIndex(System::Integer Value);
    void __fastcall SetTabShowing(System::Boolean Value);
    void __fastcall SetTabVisible(System::Boolean Value);
    void __fastcall UpdateTabShowing(void);
    MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);

protected:
    virtual void __fastcall ReadState(Classes::TReader *Reader);

public:
    __fastcall virtual TTabSheet(Classes::TComponent *AOwner);
    __fastcall virtual ~TTabSheet(void);
    __property TPageControl * PageControl = {read=FPageControl, write=SetPageControl, nodefault};
    __property System::Integer TabIndex = {read=GetTabIndex, nodefault};

__published:
    __property Caption ;
    __property Enabled ;
    __property Font ;
    __property Height  = {stored=false};
    __property Left  = {stored=false};
    __property System::Integer PageIndex = {read=GetPageIndex, write=SetPageIndex, stored=false, nodefault
        };
    __property ParentFont ;
    __property ParentShowHint ;
    __property PopupMenu ;
    __property ShowHint ;
    __property System::Boolean TabVisible = {read=FTabVisible, write=SetTabVisible, default=1};
    __property Top  = {stored=false};
    __property Visible  = {stored=false, default=1};
    __property Width  = {stored=false};
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEnter ;
    __property OnExit ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
};

enum TStatusPanelStyle { psText, psOwnerDraw };

enum TStatusPanelBevel { pbNone, pbLowered, pbRaised };

class __declspec(delphiclass) TStatusPanel;
class __declspec(pascalimplementation) TStatusPanel : public Classes::TCollectionItem
{
    typedef TStatusPanel ThisClass;
    typedef Classes::TCollectionItem inherited;

private:
    System::AnsiString FText;
    System::Integer FWidth;
    TAlignment FAlignment;
    TStatusPanelBevel FBevel;
    TStatusPanelStyle FStyle;
    void __fastcall SetAlignment(Classes::TAlignment Value);
    void __fastcall SetBevel(TStatusPanelBevel Value);
    void __fastcall SetStyle(TStatusPanelStyle Value);
    void __fastcall SetText(const System::AnsiString Value);
    void __fastcall SetWidth(System::Integer Value);

public:
    __fastcall virtual TStatusPanel(Classes::TCollection *Collection);
    virtual void __fastcall Assign(Classes::TPersistent *Source);

__published:
    __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
    __property TStatusPanelBevel Bevel = {read=FBevel, write=SetBevel, default=1};
    __property TStatusPanelStyle Style = {read=FStyle, write=SetStyle, default=0};
    __property System::AnsiString Text = {read=FText, write=SetText, nodefault};
    __property System::Integer Width = {read=FWidth, write=SetWidth, nodefault};
public:
    /* !! TCollectionItem.Destroy */ __fastcall virtual ~TStatusPanel(void) { }

};

class __declspec(delphiclass) TStatusPanels;
class __declspec(delphiclass) TStatusBar;
typedef void __fastcall (__closure *TDrawPanelEvent)(TStatusBar *StatusBar, TStatusPanel *Panel, const
    Windows::TRect &Rect);

class __declspec(pascalimplementation) TStatusBar : public Controls::TWinControl
{
    typedef TStatusBar ThisClass;
    typedef Controls::TWinControl inherited;

private:
    TStatusPanels *FPanels;
    Graphics::TCanvas *FCanvas;
    System::AnsiString FSimpleText;
    System::Boolean FSimplePanel;
    System::Boolean FSizeGrip;
    TDrawPanelEvent FOnDrawPanel;
    Classes::TNotifyEvent FOnResize;
    void __fastcall SetPanels(TStatusPanels *Value);
    void __fastcall SetSimplePanel(System::Boolean Value);
    void __fastcall SetSimpleText(const System::AnsiString Value);
    void __fastcall SetSizeGrip(System::Boolean Value);
    void __fastcall UpdatePanel(System::Integer Index);
    void __fastcall UpdatePanels(void);
    MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
    MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);

protected:
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall DrawPanel(TStatusPanel *Panel, const Windows::TRect &Rect);
    virtual void __fastcall Resize(void);

public:
    __fastcall virtual TStatusBar(Classes::TComponent *AOwner);
    __fastcall virtual ~TStatusBar(void);
    __property Graphics::TCanvas * Canvas = {read=FCanvas, nodefault};

__published:
    __property Align ;
    __property DragCursor ;
    __property DragMode ;
    __property Enabled ;
    __property Font ;
    __property TStatusPanels * Panels = {read=FPanels, write=SetPanels, nodefault};
    __property ParentFont ;
    __property ParentShowHint ;
    __property PopupMenu ;
    __property ShowHint ;
    __property System::Boolean SimplePanel = {read=FSimplePanel, write=SetSimplePanel, nodefault};
    __property System::AnsiString SimpleText = {read=FSimpleText, write=SetSimpleText, nodefault};
    __property System::Boolean SizeGrip = {read=FSizeGrip, write=SetSizeGrip, default=1};
    __property Visible ;
    __property OnClick ;
    __property OnDblClick ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEndDrag ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property TDrawPanelEvent OnDrawPanel = {read=FOnDrawPanel, write=FOnDrawPanel};
    __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
    __property OnStartDrag ;
};

class __declspec(pascalimplementation) TStatusPanels : public Classes::TCollection
{
    typedef TStatusPanels ThisClass;
    typedef Classes::TCollection inherited;

private:
    TStatusBar *FStatusBar;
    TStatusPanel *__fastcall GetItem(System::Integer Index);
    void __fastcall SetItem(System::Integer Index, TStatusPanel *Value);

protected:
    virtual void __fastcall Update(Classes::TCollectionItem *Item);

public:
    __fastcall TStatusPanels(TStatusBar *StatusBar);
    TStatusPanel *__fastcall Add(void);
    __property TStatusPanel * Items[System::Integer Index] = {read=GetItem, write=SetItem/*, default*/}
        ;
public:
    /* !! TCollection.Destroy */ __fastcall virtual ~TStatusPanels(void) { }

};

enum THeaderSectionStyle { hsText, hsOwnerDraw };

class __declspec(delphiclass) THeaderSection;
class __declspec(pascalimplementation) THeaderSection : public Classes::TCollectionItem
{
    typedef THeaderSection ThisClass;
    typedef Classes::TCollectionItem inherited;

private:
    System::AnsiString FText;
    System::Integer FWidth;
    System::Integer FMinWidth;
    System::Integer FMaxWidth;
    TAlignment FAlignment;
    THeaderSectionStyle FStyle;
    System::Boolean FAllowClick;
    System::Integer __fastcall GetLeft(void);
    System::Integer __fastcall GetRight(void);
    void __fastcall SetAlignment(Classes::TAlignment Value);
    void __fastcall SetMaxWidth(System::Integer Value);
    void __fastcall SetMinWidth(System::Integer Value);
    void __fastcall SetStyle(THeaderSectionStyle Value);
    void __fastcall SetText(const System::AnsiString Value);
    void __fastcall SetWidth(System::Integer Value);

public:
    __fastcall virtual THeaderSection(Classes::TCollection *Collection);
    virtual void __fastcall Assign(Classes::TPersistent *Source);
    __property System::Integer Left = {read=GetLeft, nodefault};
    __property System::Integer Right = {read=GetRight, nodefault};

__published:
    __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
    __property System::Boolean AllowClick = {read=FAllowClick, write=FAllowClick, default=1};
    __property System::Integer MaxWidth = {read=FMaxWidth, write=SetMaxWidth, default=10000};
    __property System::Integer MinWidth = {read=FMinWidth, write=SetMinWidth, default=0};
    __property THeaderSectionStyle Style = {read=FStyle, write=SetStyle, default=0};
    __property System::AnsiString Text = {read=FText, write=SetText, nodefault};
    __property System::Integer Width = {read=FWidth, write=SetWidth, nodefault};
public:
    /* !! TCollectionItem.Destroy */ __fastcall virtual ~THeaderSection(void) { }

};

class __declspec(delphiclass) THeaderSections;
class __declspec(delphiclass) THeaderControl;
typedef void __fastcall (__closure *TDrawSectionEvent)(THeaderControl *HeaderControl, THeaderSection *
    Section, const Windows::TRect &Rect, System::Boolean Pressed);

typedef void __fastcall (__closure *TSectionNotifyEvent)(THeaderControl *HeaderControl, THeaderSection *
    Section);

enum TSectionTrackState { tsTrackBegin, tsTrackMove, tsTrackEnd };

typedef void __fastcall (__closure *TSectionTrackEvent)(THeaderControl *HeaderControl, THeaderSection *
    Section, System::Integer Width, TSectionTrackState State);

class __declspec(pascalimplementation) THeaderControl : public Controls::TWinControl
{
    typedef THeaderControl ThisClass;
    typedef Controls::TWinControl inherited;

private:
    THeaderSections *FSections;
    Graphics::TCanvas *FCanvas;
    TDrawSectionEvent FOnDrawSection;
    Classes::TNotifyEvent FOnResize;
    TSectionNotifyEvent FOnSectionClick;
    TSectionNotifyEvent FOnSectionResize;
    TSectionTrackEvent FOnSectionTrack;
    void __fastcall SetSections(THeaderSections *Value);
    void __fastcall UpdateItem(System::Integer Message, System::Integer Index);
    void __fastcall UpdateSection(System::Integer Index);
    void __fastcall UpdateSections(void);
    MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
    MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
    MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
    MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);

protected:
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall DrawSection(THeaderSection *Section, const Windows::TRect &Rect, System::Boolean
        Pressed);
    virtual void __fastcall Resize(void);
    virtual void __fastcall SectionClick(THeaderSection *Section);
    virtual void __fastcall SectionResize(THeaderSection *Section);
    virtual void __fastcall SectionTrack(THeaderSection *Section, System::Integer Width, TSectionTrackState
        State);

public:
    __fastcall virtual THeaderControl(Classes::TComponent *AOwner);
    __fastcall virtual ~THeaderControl(void);
    __property Graphics::TCanvas * Canvas = {read=FCanvas, nodefault};

__published:
    __property Align ;
    __property DragCursor ;
    __property DragMode ;
    __property Enabled ;
    __property Font ;
    __property THeaderSections * Sections = {read=FSections, write=SetSections, nodefault};
    __property ShowHint ;
    __property ParentFont ;
    __property ParentShowHint ;
    __property PopupMenu ;
    __property Visible ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEndDrag ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property TDrawSectionEvent OnDrawSection = {read=FOnDrawSection, write=FOnDrawSection};
    __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
    __property TSectionNotifyEvent OnSectionClick = {read=FOnSectionClick, write=FOnSectionClick};
    __property TSectionNotifyEvent OnSectionResize = {read=FOnSectionResize, write=FOnSectionResize};
    __property TSectionTrackEvent OnSectionTrack = {read=FOnSectionTrack, write=FOnSectionTrack};
    __property OnStartDrag ;
};

class __declspec(pascalimplementation) THeaderSections : public Classes::TCollection
{
    typedef THeaderSections ThisClass;
    typedef Classes::TCollection inherited;

private:
    THeaderControl *FHeaderControl;
    THeaderSection *__fastcall GetItem(System::Integer Index);
    void __fastcall SetItem(System::Integer Index, THeaderSection *Value);

protected:
    virtual void __fastcall Update(Classes::TCollectionItem *Item);

public:
    __fastcall THeaderSections(THeaderControl *HeaderControl);
    THeaderSection *__fastcall Add(void);
    __property THeaderSection * Items[System::Integer Index] = {read=GetItem, write=SetItem/*, default*/
        };
public:
    /* !! TCollection.Destroy */ __fastcall virtual ~THeaderSections(void) { }

};

enum TNodeState { nsCut, nsDropHilited, nsFocused, nsSelected, nsExpanded };

enum TNodeAttachMode { naAdd, naAddFirst, naAddChild, naAddChildFirst, naInsert };

enum TAddMode { taAddFirst, taAdd, taInsert };

struct TNodeInfo;
typedef TNodeInfo *PNodeInfo;

struct TNodeInfo
{
    System::Integer ImageIndex;
    System::Integer SelectedIndex;
    System::Integer StateIndex;
    System::Integer OverlayIndex;
    void *Data;
    System::Integer Count;
    SmallString<255>  Text;
} ;

class __declspec(delphiclass) TTreeNode;
class __declspec(delphiclass) TTreeNodes;
class __declspec(delphiclass) TCustomTreeView;
enum TSortType { stNone, stData, stText, stBoth };

typedef void __fastcall (__closure *TTVEditingEvent)(System::TObject *Sender, TTreeNode *Node, System::Boolean
    &AllowEdit);

typedef void __fastcall (__closure *TTVEditedEvent)(System::TObject *Sender, TTreeNode *Node,  System::AnsiString &
    S);

typedef void __fastcall (__closure *TTVExpandedEvent)(System::TObject *Sender, TTreeNode *Node);

typedef void __fastcall (__closure *TTVExpandingEvent)(System::TObject *Sender, TTreeNode *Node, System::Boolean
    &AllowExpansion);

typedef void __fastcall (__closure *TTVCollapsingEvent)(System::TObject *Sender, TTreeNode *Node, System::Boolean
    &AllowCollapse);

typedef void __fastcall (__closure *TTVChangingEvent)(System::TObject *Sender, TTreeNode *Node, System::Boolean
    &AllowChange);

typedef void __fastcall (__closure *TTVChangedEvent)(System::TObject *Sender, TTreeNode *Node);

typedef void __fastcall (__closure *TTVCompareEvent)(System::TObject *Sender, TTreeNode *Node1, TTreeNode *
    Node2, System::Integer Data, System::Integer &Compare);

enum THitTest { htAbove, htBelow, htNowhere, htOnItem, htOnButton, htOnIcon, htOnIndent, htOnLabel,
    htOnRight, htOnStateIcon, htToLeft, htToRight };

typedef Set<THitTest, htAbove, htToRight>  THitTests;

class __declspec(pascalimplementation) TCustomTreeView : public Controls::TWinControl
{
    typedef TCustomTreeView ThisClass;
    typedef Controls::TWinControl inherited;

private:
    System::Boolean FShowLines;
    System::Boolean FShowRoot;
    System::Boolean FShowButtons;
    TFormBorderStyle FBorderStyle;
    System::Boolean FReadOnly;
    Controls::TImageList *FImages;
    Controls::TImageList *FStateImages;
    Controls::TChangeLink *FImageChangeLink;
    Controls::TChangeLink *FStateChangeLink;
    Controls::TImageList *FDragImage;
    TTreeNodes *FTreeNodes;
    TSortType FSortType;
    Classes::TStringList *FSaveItems;
    System::Integer FSaveTopIndex;
    System::Integer FSaveIndex;
    System::Integer FSaveIndent;
    System::Boolean FHideSelection;
    Classes::TMemoryStream *FMemStream;
    void *FEditInstance;
    void *FDefEditProc;
    System::Integer FEditHandle;
    System::Boolean FDragged;
    System::Boolean FRClicked;
    TTreeNode *FLastDropTarget;
    TTreeNode *FDragNode;
    TTVEditingEvent FOnEditing;
    TTVEditedEvent FOnEdited;
    TTVExpandedEvent FOnExpanded;
    TTVExpandingEvent FOnExpanding;
    TTVExpandedEvent FOnCollapsed;
    TTVCollapsingEvent FOnCollapsing;
    TTVChangingEvent FOnChanging;
    TTVChangedEvent FOnChange;
    TTVCompareEvent FOnCompare;
    TTVExpandedEvent FOnDeletion;
    TTVExpandedEvent FOnGetImageIndex;
    TTVExpandedEvent FOnGetSelectedIndex;
    MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CMDrag(Controls::TCMDrag &Message);
    MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
    void __fastcall EditWndProc(Messages::TMessage &Message);
    void __fastcall DoDragOver(Controls::TDragObject *Source, System::Integer X, System::Integer Y);
    void __fastcall GetImageIndex(TTreeNode *Node);
    void __fastcall GetSelectedIndex(TTreeNode *Node);
    TTreeNode *__fastcall GetDropTarget(void);
    System::Integer __fastcall GetIndent(void);
    TTreeNode *__fastcall GetNodeFromItem(const Commctrl::TTVItemA &Item);
    TTreeNode *__fastcall GetSelection(void);
    TTreeNode *__fastcall GetTopItem(void);
    void __fastcall ImageListChange(System::TObject *Sender);
    void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
    void __fastcall SetButtonStyle(System::Boolean Value);
    void __fastcall SetDropTarget(TTreeNode *Value);
    void __fastcall SetHideSelection(System::Boolean Value);
    void __fastcall SetImageList(System::Integer Value, System::Integer Flags);
    void __fastcall SetIndent(System::Integer Value);
    void __fastcall SetImages(Controls::TImageList *Value);
    void __fastcall SetLineStyle(System::Boolean Value);
    void __fastcall SetReadOnly(System::Boolean Value);
    void __fastcall SetRootStyle(System::Boolean Value);
    void __fastcall SetSelection(TTreeNode *Value);
    void __fastcall SetSortType(TSortType Value);
    void __fastcall SetStateImages(Controls::TImageList *Value);
    void __fastcall SetStyle(System::Integer Value, System::Boolean UseStyle);
    void __fastcall SetTreeNodes(TTreeNodes *Value);
    void __fastcall SetTopItem(TTreeNode *Value);
    MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
    MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);

protected:
    virtual System::Boolean __fastcall CanEdit(TTreeNode *Node);
    virtual System::Boolean __fastcall CanChange(TTreeNode *Node);
    virtual System::Boolean __fastcall CanCollapse(TTreeNode *Node);
    virtual System::Boolean __fastcall CanExpand(TTreeNode *Node);
    virtual void __fastcall Change(TTreeNode *Node);
    virtual void __fastcall Collapse(TTreeNode *Node);
    virtual TTreeNode *__fastcall CreateNode(void);
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall DestroyWnd(void);
    virtual void __fastcall DoEndDrag(System::TObject *Target, System::Integer X, System::Integer Y);
    virtual void __fastcall DoStartDrag(Controls::TDragObject *&DragObject);
    virtual void __fastcall Edit(const Commctrl::TTVItemA &Item);
    virtual void __fastcall Expand(TTreeNode *Node);
    virtual Controls::TCustomImageList *__fastcall GetDragImages(void);
    virtual void __fastcall Loaded(void);
    virtual void __fastcall Notification(Classes::TComponent *AComponent, Classes::TOperation Operation
        );
    virtual void __fastcall SetDragMode(Controls::TDragMode Value);
    virtual void __fastcall WndProc(Messages::TMessage &Message);
    __property TTVEditingEvent OnEditing = {read=FOnEditing, write=FOnEditing};
    __property TTVEditedEvent OnEdited = {read=FOnEdited, write=FOnEdited};
    __property TTVExpandingEvent OnExpanding = {read=FOnExpanding, write=FOnExpanding};
    __property TTVExpandedEvent OnExpanded = {read=FOnExpanded, write=FOnExpanded};
    __property TTVCollapsingEvent OnCollapsing = {read=FOnCollapsing, write=FOnCollapsing};
    __property TTVExpandedEvent OnCollapsed = {read=FOnCollapsed, write=FOnCollapsed};
    __property TTVChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
    __property TTVChangedEvent OnChange = {read=FOnChange, write=FOnChange};
    __property TTVCompareEvent OnCompare = {read=FOnCompare, write=FOnCompare};
    __property TTVExpandedEvent OnDeletion = {read=FOnDeletion, write=FOnDeletion};
    __property TTVExpandedEvent OnGetImageIndex = {read=FOnGetImageIndex, write=FOnGetImageIndex};
    __property TTVExpandedEvent OnGetSelectedIndex = {read=FOnGetSelectedIndex, write=FOnGetSelectedIndex
        };
    __property System::Boolean ShowButtons = {read=FShowButtons, write=SetButtonStyle, default=1};
    __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
    __property System::Boolean ShowLines = {read=FShowLines, write=SetLineStyle, default=1};
    __property System::Boolean ShowRoot = {read=FShowRoot, write=SetRootStyle, default=1};
    __property System::Boolean ReadOnly = {read=FReadOnly, write=SetReadOnly, default=0};
    __property System::Integer Indent = {read=GetIndent, write=SetIndent, nodefault};
    __property TTreeNodes * Items = {read=FTreeNodes, write=SetTreeNodes, nodefault};
    __property TSortType SortType = {read=FSortType, write=SetSortType, default=0};
    __property System::Boolean HideSelection = {read=FHideSelection, write=SetHideSelection, default=1}
        ;
    __property Controls::TImageList * Images = {read=FImages, write=SetImages, nodefault};
    __property Controls::TImageList * StateImages = {read=FStateImages, write=SetStateImages, nodefault
        };

public:
    __fastcall virtual TCustomTreeView(Classes::TComponent *AOwner);
    __fastcall virtual ~TCustomTreeView(void);
    System::Boolean __fastcall AlphaSort(void);
    System::Boolean __fastcall CustomSort(Commctrl::TTVCompare SortProc, System::Longint Data);
    void __fastcall FullCollapse(void);
    void __fastcall FullExpand(void);
    THitTests __fastcall GetHitTestInfoAt(System::Integer X, System::Integer Y);
    TTreeNode *__fastcall GetNodeAt(System::Integer X, System::Integer Y);
    System::Boolean __fastcall IsEditing(void);
    void __fastcall LoadFromFile(const System::AnsiString FileName);
    void __fastcall LoadFromStream(Classes::TStream *Stream);
    void __fastcall SaveToFile(const System::AnsiString FileName);
    void __fastcall SaveToStream(Classes::TStream *Stream);
    __property TTreeNode * DropTarget = {read=GetDropTarget, write=SetDropTarget, nodefault};
    __property TTreeNode * Selected = {read=GetSelection, write=SetSelection, nodefault};
    __property TTreeNode * TopItem = {read=GetTopItem, write=SetTopItem, nodefault};
};

class __declspec(pascalimplementation) TTreeNodes : public Classes::TPersistent
{
    typedef TTreeNodes ThisClass;
    typedef Classes::TPersistent inherited;

private:
    TCustomTreeView *FOwner;
    System::Integer FUpdateCount;
    void __fastcall AddedNode(TTreeNode *Value);
    System::Integer __fastcall GetHandle(void);
    TTreeNode *__fastcall GetNodeFromIndex(System::Integer Index);
    void __fastcall ReadData(Classes::TStream *Stream);
    void __fastcall Repaint(TTreeNode *Node);
    void __fastcall WriteData(Classes::TStream *Stream);

protected:
    Commctrl::HTreeItem __fastcall AddItem(Commctrl::HTreeItem Parent, Commctrl::HTreeItem Target, const
        Commctrl::TTVItemA &Item, TAddMode AddMode);
    TTreeNode *__fastcall InternalAddObject(TTreeNode *Node, const System::AnsiString S, System::Pointer
        Ptr, TAddMode AddMode);
    virtual void __fastcall DefineProperties(Classes::TFiler *Filer);
    Commctrl::TTVItemA __fastcall CreateItem(TTreeNode *Node);
    System::Integer __fastcall GetCount(void);
    void __fastcall SetItem(System::Integer Index, TTreeNode *Value);
    void __fastcall SetUpdateState(System::Boolean Updating);

public:
    __fastcall TTreeNodes(TCustomTreeView *AOwner);
    __fastcall virtual ~TTreeNodes(void);
    TTreeNode *__fastcall AddChildFirst(TTreeNode *Node, const System::AnsiString S);
    TTreeNode *__fastcall AddChild(TTreeNode *Node, const System::AnsiString S);
    TTreeNode *__fastcall AddChildObjectFirst(TTreeNode *Node, const System::AnsiString S, System::Pointer
        Ptr);
    TTreeNode *__fastcall AddChildObject(TTreeNode *Node, const System::AnsiString S, System::Pointer Ptr
        );
    TTreeNode *__fastcall AddFirst(TTreeNode *Node, const System::AnsiString S);
    TTreeNode *__fastcall Add(TTreeNode *Node, const System::AnsiString S);
    TTreeNode *__fastcall AddObjectFirst(TTreeNode *Node, const System::AnsiString S, System::Pointer Ptr
        );
    TTreeNode *__fastcall AddObject(TTreeNode *Node, const System::AnsiString S, System::Pointer Ptr);
    virtual void __fastcall Assign(Classes::TPersistent *Source);
    void __fastcall BeginUpdate(void);
    void __fastcall Clear(void);
    void __fastcall Delete(TTreeNode *Node);
    void __fastcall EndUpdate(void);
    TTreeNode *__fastcall GetFirstNode(void);
    TTreeNode *__fastcall GetNode(Commctrl::HTreeItem ItemId);
    TTreeNode *__fastcall Insert(TTreeNode *Node, const System::AnsiString S);
    TTreeNode *__fastcall InsertObject(TTreeNode *Node, const System::AnsiString S, System::Pointer Ptr
        );
    __property System::Integer Count = {read=GetCount, nodefault};
    __property System::Integer Handle = {read=GetHandle, nodefault};
    __property TTreeNode * Item[System::Integer Index] = {read=GetNodeFromIndex/*, default*/};
    __property TCustomTreeView * Owner = {read=FOwner, nodefault};
};

class __declspec(pascalimplementation) TTreeNode : public Classes::TPersistent
{
    typedef TTreeNode ThisClass;
    typedef Classes::TPersistent inherited;

private:
    TTreeNodes *FOwner;
    System::AnsiString FText;
    void *FData;
    Commctrl::_TreeItem *FItemId;
    System::Integer FImageIndex;
    System::Integer FSelectedIndex;
    System::Integer FOverlayIndex;
    System::Integer FStateIndex;
    System::Boolean FDeleting;
    void __fastcall ExpandItem(System::Boolean Expand, System::Boolean Recurse);
    System::Integer __fastcall GetAbsoluteIndex(void);
    System::Boolean __fastcall GetExpanded(void);
    System::Integer __fastcall GetLevel(void);
    TTreeNode *__fastcall GetParent(void);
    System::Boolean __fastcall GetChildren(void);
    System::Boolean __fastcall GetCut(void);
    System::Boolean __fastcall GetDropTarget(void);
    System::Boolean __fastcall GetFocused(void);
    System::Integer __fastcall GetIndex(void);
    TTreeNode *__fastcall GetItem(System::Integer Index);
    System::Boolean __fastcall GetSelected(void);
    System::Boolean __fastcall GetState(TNodeState NodeState);
    System::Integer __fastcall GetCount(void);
    TCustomTreeView *__fastcall GetTreeView(void);
    System::Boolean __fastcall HasVisibleParent(void);
    void __fastcall InternalMove(TTreeNode *ParentNode, TTreeNode *Node, Commctrl::HTreeItem HItem, TAddMode
        AddMode);
    System::Boolean __fastcall IsEqual(TTreeNode *Node);
    System::Boolean __fastcall IsNodeVisible(void);
    void __fastcall ReadData(Classes::TStream *Stream, PNodeInfo Info);
    void __fastcall SetChildren(System::Boolean Value);
    void __fastcall SetCut(System::Boolean Value);
    void __fastcall SetData(System::Pointer Value);
    void __fastcall SetDropTarget(System::Boolean Value);
    void __fastcall SetItem(System::Integer Index, TTreeNode *Value);
    void __fastcall SetExpanded(System::Boolean Value);
    void __fastcall SetFocused(System::Boolean Value);
    void __fastcall SetImageIndex(System::Integer Value);
    void __fastcall SetOverlayIndex(System::Integer Value);
    void __fastcall SetSelectedIndex(System::Integer Value);
    void __fastcall SetSelected(System::Boolean Value);
    void __fastcall SetStateIndex(System::Integer Value);
    void __fastcall SetText(const System::AnsiString S);
    void __fastcall WriteData(Classes::TStream *Stream, PNodeInfo Info);

public:
    __fastcall TTreeNode(TTreeNodes *AOwner);
    __fastcall virtual ~TTreeNode(void);
    System::Boolean __fastcall AlphaSort(void);
    virtual void __fastcall Assign(Classes::TPersistent *Source);
    void __fastcall Collapse(System::Boolean Recurse);
    System::Boolean __fastcall CustomSort(Commctrl::TTVCompare SortProc, System::Longint Data);
    void __fastcall Delete(void);
    void __fastcall DeleteChildren(void);
    Windows::TRect __fastcall DisplayRect(System::Boolean TextOnly);
    System::Boolean __fastcall EditText(void);
    void __fastcall EndEdit(System::Boolean Cancel);
    void __fastcall Expand(System::Boolean Recurse);
    TTreeNode *__fastcall GetFirstChild(void);
    System::Integer __fastcall GetHandle(void);
    TTreeNode *__fastcall GetLastChild(void);
    TTreeNode *__fastcall GetNext(void);
    TTreeNode *__fastcall GetNextChild(TTreeNode *Value);
    TTreeNode *__fastcall GetNextSibling(void);
    TTreeNode *__fastcall GetNextVisible(void);
    TTreeNode *__fastcall GetPrev(void);
    TTreeNode *__fastcall GetPrevChild(TTreeNode *Value);
    TTreeNode *__fastcall GetPrevSibling(void);
    TTreeNode *__fastcall GetPrevVisible(void);
    System::Boolean __fastcall HasAsParent(TTreeNode *Value);
    System::Integer __fastcall IndexOf(TTreeNode *Value);
    void __fastcall MakeVisible(void);
    void __fastcall MoveTo(TTreeNode *Destination, TNodeAttachMode Mode);
    __property System::Integer AbsoluteIndex = {read=GetAbsoluteIndex, nodefault};
    __property System::Integer Count = {read=GetCount, nodefault};
    __property System::Boolean Cut = {read=GetCut, write=SetCut, nodefault};
    __property System::Pointer Data = {read=FData, write=SetData, nodefault};
    __property System::Boolean Deleting = {read=FDeleting, nodefault};
    __property System::Boolean Focused = {read=GetFocused, write=SetFocused, nodefault};
    __property System::Boolean DropTarget = {read=GetDropTarget, write=SetDropTarget, nodefault};
    __property System::Boolean Selected = {read=GetSelected, write=SetSelected, nodefault};
    __property System::Boolean Expanded = {read=GetExpanded, write=SetExpanded, nodefault};
    __property System::Integer Handle = {read=GetHandle, nodefault};
    __property System::Boolean HasChildren = {read=GetChildren, write=SetChildren, nodefault};
    __property System::Integer ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
    __property System::Integer Index = {read=GetIndex, nodefault};
    __property System::Boolean IsVisible = {read=IsNodeVisible, nodefault};
    __property TTreeNode * Item[System::Integer Index] = {read=GetItem, write=SetItem/*, default*/};
    __property Commctrl::HTreeItem ItemId = {read=FItemId, nodefault};
    __property System::Integer Level = {read=GetLevel, nodefault};
    __property System::Integer OverlayIndex = {read=FOverlayIndex, write=SetOverlayIndex, nodefault};
    __property TTreeNodes * Owner = {read=FOwner, nodefault};
    __property TTreeNode * Parent = {read=GetParent, nodefault};
    __property System::Integer SelectedIndex = {read=FSelectedIndex, write=SetSelectedIndex, nodefault}
        ;
    __property System::Integer StateIndex = {read=FStateIndex, write=SetStateIndex, nodefault};
    __property System::AnsiString Text = {read=FText, write=SetText, nodefault};
    __property TCustomTreeView * TreeView = {read=GetTreeView, nodefault};
};

class __declspec(delphiclass) ETreeViewError;
class __declspec(pascalimplementation) ETreeViewError : public Sysutils::Exception
{
    typedef ETreeViewError ThisClass;
    typedef Sysutils::Exception inherited;

public:
    /* !! Exception.Create */ __fastcall ETreeViewError(const System::AnsiString Msg) : Sysutils::Exception(
        Msg) { }
    /* !! Exception.CreateFmt */ __fastcall ETreeViewError(const System::AnsiString Msg, const TVarRec
        *Args, const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
    /* !! Exception.CreateRes */ __fastcall ETreeViewError(System::Integer Ident) : Sysutils::Exception(
        Ident) { }
    /* !! Exception.CreateResFmt */ __fastcall ETreeViewError(System::Integer Ident, const TVarRec *Args
        , const System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
    /* !! Exception.CreateHelp */ __fastcall ETreeViewError(const System::AnsiString Msg, System::Integer
        AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
    /* !! Exception.CreateFmtHelp */ __fastcall ETreeViewError(const System::AnsiString Msg, const TVarRec
        *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
        , Args_Size, AHelpContext) { }
    /* !! Exception.CreateResHelp */ __fastcall ETreeViewError(System::Integer Ident, System::Integer AHelpContext
        ) : Sysutils::Exception(Ident, AHelpContext) { }
    /* !! Exception.CreateResFmtHelp */ __fastcall ETreeViewError(System::Integer Ident, const TVarRec
        *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident,
        Args, Args_Size, AHelpContext) { }

public:
    /* !! TObject.Destroy */ __fastcall virtual ~ETreeViewError(void) { }

};

class __declspec(delphiclass) TTreeView;
class __declspec(pascalimplementation) TTreeView : public TCustomTreeView
{
    typedef TTreeView ThisClass;
    typedef TCustomTreeView inherited;

__published:
    __property ShowButtons ;
    __property BorderStyle ;
    __property DragCursor ;
    __property ShowLines ;
    __property ShowRoot ;
    __property ReadOnly ;
    __property DragMode ;
    __property HideSelection ;
    __property Indent ;
    __property Items ;
    __property OnEditing ;
    __property OnEdited ;
    __property OnExpanding ;
    __property OnExpanded ;
    __property OnCollapsing ;
    __property OnCompare ;
    __property OnCollapsed ;
    __property OnChanging ;
    __property OnChange ;
    __property OnDeletion ;
    __property OnGetImageIndex ;
    __property OnGetSelectedIndex ;
    __property Align ;
    __property Enabled ;
    __property Font ;
    __property Color ;
    __property ParentColor ;
    __property ParentCtl3D ;
    __property Ctl3D ;
    __property SortType ;
    __property TabOrder ;
    __property TabStop ;
    __property Visible ;
    __property OnClick ;
    __property OnEnter ;
    __property OnExit ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnStartDrag ;
    __property OnEndDrag ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property OnDblClick ;
    __property OnKeyDown ;
    __property OnKeyPress ;
    __property OnKeyUp ;
    __property PopupMenu ;
    __property ParentFont ;
    __property ParentShowHint ;
    __property ShowHint ;
    __property Images ;
    __property StateImages ;
public:
    /* !! TCustomTreeView.Create */ __fastcall virtual TTreeView(Classes::TComponent *AOwner) : Comctrls::TCustomTreeView(
        AOwner) { }
    /* !! TCustomTreeView.Destroy */ __fastcall virtual ~TTreeView(void) { }

};

enum TTrackBarOrientation { trHorizontal, trVertical };

enum TTickMark { tmBottomRight, tmTopLeft, tmBoth };

enum TTickStyle { tsNone, tsAuto, tsManual };

class __declspec(delphiclass) TTrackBar;
class __declspec(pascalimplementation) TTrackBar : public Controls::TWinControl
{
    typedef TTrackBar ThisClass;
    typedef Controls::TWinControl inherited;

private:
    TTrackBarOrientation FOrientation;
    TTickMark FTickMarks;
    TTickStyle FTickStyle;
    System::Integer FLineSize;
    System::Integer FPageSize;
    System::Integer FMin;
    System::Integer FMax;
    System::Integer FFrequency;
    System::Integer FPosition;
    System::Integer FSelStart;
    System::Integer FSelEnd;
    Classes::TNotifyEvent FOnChange;
    void __fastcall SetOrientation(TTrackBarOrientation Value);
    void __fastcall SetParams(System::Integer APosition, System::Integer AMin, System::Integer AMax);
    void __fastcall SetPosition(System::Integer Value);
    void __fastcall SetMin(System::Integer Value);
    void __fastcall SetMax(System::Integer Value);
    void __fastcall SetFrequency(System::Integer Value);
    void __fastcall SetTickStyle(TTickStyle Value);
    void __fastcall SetTickMarks(TTickMark Value);
    void __fastcall SetLineSize(System::Integer Value);
    void __fastcall SetPageSize(System::Integer Value);
    void __fastcall SetSelStart(System::Integer Value);
    void __fastcall SetSelEnd(System::Integer Value);
    void __fastcall UpdateSelection(void);
    MESSAGE void __fastcall CNHScroll(Messages::TWMScroll &Message);
    MESSAGE void __fastcall CNVScroll(Messages::TWMScroll &Message);

protected:
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall DestroyWnd(void);

public:
    __fastcall virtual TTrackBar(Classes::TComponent *AOwner);
    void __fastcall SetTick(System::Integer Value);

__published:
    __property Ctl3D ;
    __property DragCursor ;
    __property DragMode ;
    __property Enabled ;
    __property System::Integer LineSize = {read=FLineSize, write=SetLineSize, default=1};
    __property System::Integer Max = {read=FMax, write=SetMax, default=10};
    __property System::Integer Min = {read=FMin, write=SetMin, default=0};
    __property TTrackBarOrientation Orientation = {read=FOrientation, write=SetOrientation, nodefault};

    __property ParentCtl3D ;
    __property ParentShowHint ;
    __property System::Integer PageSize = {read=FPageSize, write=SetPageSize, default=2};
    __property PopupMenu ;
    __property System::Integer Frequency = {read=FFrequency, write=SetFrequency, nodefault};
    __property System::Integer Position = {read=FPosition, write=SetPosition, nodefault};
    __property System::Integer SelEnd = {read=FSelEnd, write=SetSelEnd, nodefault};
    __property System::Integer SelStart = {read=FSelStart, write=SetSelStart, nodefault};
    __property ShowHint ;
    __property TabOrder ;
    __property TabStop ;
    __property TTickMark TickMarks = {read=FTickMarks, write=SetTickMarks, nodefault};
    __property TTickStyle TickStyle = {read=FTickStyle, write=SetTickStyle, nodefault};
    __property Visible ;
    __property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEndDrag ;
    __property OnEnter ;
    __property OnExit ;
    __property OnKeyDown ;
    __property OnKeyPress ;
    __property OnKeyUp ;
    __property OnStartDrag ;
public:
    /* !! TWinControl.Destroy */ __fastcall virtual ~TTrackBar(void) { }

};

typedef System::Word TProgressRange;

class __declspec(delphiclass) TProgressBar;
class __declspec(pascalimplementation) TProgressBar : public Controls::TWinControl
{
    typedef TProgressBar ThisClass;
    typedef Controls::TWinControl inherited;

private:
    TProgressRange FMin;
    TProgressRange FMax;
    TProgressRange FStep;
    TProgressRange FPosition;
    TProgressRange __fastcall GetPosition(void);
    void __fastcall SetParams(TProgressRange AMin, TProgressRange AMax);
    void __fastcall SetMin(TProgressRange Value);
    void __fastcall SetMax(TProgressRange Value);
    void __fastcall SetPosition(TProgressRange Value);
    void __fastcall SetStep(TProgressRange Value);

protected:
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);

public:
    __fastcall virtual TProgressBar(Classes::TComponent *AOwner);
    void __fastcall StepIt(void);
    void __fastcall StepBy(TProgressRange Delta);

__published:
    __property Align ;
    __property Enabled ;
    __property Hint ;
    __property TProgressRange Min = {read=FMin, write=SetMin, nodefault};
    __property TProgressRange Max = {read=FMax, write=SetMax, nodefault};
    __property ParentShowHint ;
    __property PopupMenu ;
    __property TProgressRange Position = {read=GetPosition, write=SetPosition, default=0};
    __property TProgressRange Step = {read=FStep, write=SetStep, default=10};
    __property ShowHint ;
    __property TabOrder ;
    __property TabStop ;
    __property Visible ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEndDrag ;
    __property OnEnter ;
    __property OnExit ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property OnStartDrag ;
public:
    /* !! TWinControl.Destroy */ __fastcall virtual ~TProgressBar(void) { }

};

enum TAttributeType { atSelected, atDefaultText };

enum TConsistentAttribute { caBold, caColor, caFace, caItalic, caSize, caStrikeOut, caUnderline, caProtected
    };

typedef Set<TConsistentAttribute, caBold, caProtected>  TConsistentAttributes;

class __declspec(delphiclass) TTextAttributes;
class __declspec(delphiclass) TCustomRichEdit;
class __declspec(delphiclass) TParaAttributes;
enum TNumberingStyle { nsNone, nsBullet };

class __declspec(pascalimplementation) TParaAttributes : public Classes::TPersistent
{
    typedef TParaAttributes ThisClass;
    typedef Classes::TPersistent inherited;

private:
    TCustomRichEdit *RichEdit;
    void __fastcall GetAttributes(Richedit::TParaFormat &Paragraph);
    Classes::TAlignment __fastcall GetAlignment(void);
    System::Longint __fastcall GetFirstIndent(void);
    System::Longint __fastcall GetLeftIndent(void);
    System::Longint __fastcall GetRightIndent(void);
    TNumberingStyle __fastcall GetNumbering(void);
    System::Longint __fastcall GetTab(System::Byte Index);
    System::Integer __fastcall GetTabCount(void);
    void __fastcall InitPara(Richedit::TParaFormat &Paragraph);
    void __fastcall SetAlignment(Classes::TAlignment Value);
    void __fastcall SetAttributes(Richedit::TParaFormat &Paragraph);
    void __fastcall SetFirstIndent(System::Longint Value);
    void __fastcall SetLeftIndent(System::Longint Value);
    void __fastcall SetRightIndent(System::Longint Value);
    void __fastcall SetNumbering(TNumberingStyle Value);
    void __fastcall SetTab(System::Byte Index, System::Longint Value);
    void __fastcall SetTabCount(System::Integer Value);

public:
    __fastcall TParaAttributes(TCustomRichEdit *AOwner);
    virtual void __fastcall Assign(Classes::TPersistent *Source);
    __property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, nodefault};
    __property System::Longint FirstIndent = {read=GetFirstIndent, write=SetFirstIndent, nodefault};
    __property System::Longint LeftIndent = {read=GetLeftIndent, write=SetLeftIndent, nodefault};
    __property TNumberingStyle Numbering = {read=GetNumbering, write=SetNumbering, nodefault};
    __property System::Longint RightIndent = {read=GetRightIndent, write=SetRightIndent, nodefault};
    __property System::Longint Tab[System::Byte Index] = {read=GetTab, write=SetTab};
    __property System::Integer TabCount = {read=GetTabCount, write=SetTabCount, nodefault};
public:
    /* !! TObject.Destroy */ __fastcall virtual ~TParaAttributes(void) { }

};

typedef System::TMetaClass *TConversionClass;

typedef void __fastcall (__closure *TRichEditResizeEvent)(System::TObject *Sender, const Windows::TRect
    &Rect);

typedef void __fastcall (__closure *TRichEditProtectChange)(System::TObject *Sender, System::Integer
    StartPos, System::Integer EndPos, System::Boolean &AllowChange);

typedef void __fastcall (__closure *TRichEditSaveClipboard)(System::TObject *Sender, System::Integer
    NumObjects, System::Integer NumChars, System::Boolean &SaveClipboard);

enum TSearchType { stWholeWord, stMatchCase };

typedef Set<TSearchType, stWholeWord, stMatchCase>  TSearchTypes;

class __declspec(pascalimplementation) TCustomRichEdit : public Stdctrls::TCustomMemo
{
    typedef TCustomRichEdit ThisClass;
    typedef Stdctrls::TCustomMemo inherited;

private:
    System::Integer FLibHandle;
    System::Boolean FHideScrollBars;
    TTextAttributes *FSelAttributes;
    TTextAttributes *FDefAttributes;
    TParaAttributes *FParagraph;
    System::Integer FScreenLogPixels;
    Classes::TStrings *FRichEditStrings;
    Classes::TMemoryStream *FMemStream;
    Classes::TNotifyEvent FOnSelChange;
    System::Boolean FHideSelection;
    System::Boolean FModified;
    System::TMetaClass *FDefaultConverter;
    TRichEditResizeEvent FOnResizeRequest;
    TRichEditProtectChange FOnProtectChange;
    TRichEditSaveClipboard FOnSaveClipboard;
    Windows::TRect FPageRect;
    MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
    System::Boolean __fastcall GetPlainText(void);
    System::Boolean __fastcall ProtectChange(System::Integer StartPos, System::Integer EndPos);
    System::Boolean __fastcall SaveClipboard(System::Integer NumObj, System::Integer NumChars);
    void __fastcall SetHideScrollBars(System::Boolean Value);
    void __fastcall SetHideSelection(System::Boolean Value);
    void __fastcall SetPlainText(System::Boolean Value);
    void __fastcall SetRichEditStrings(Classes::TStrings *Value);
    void __fastcall SetDefAttributes(TTextAttributes *Value);
    void __fastcall SetSelAttributes(TTextAttributes *Value);
    MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
    MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Message);
    MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
    MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);

protected:
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall DestroyWnd(void);
    virtual void __fastcall RequestSize(const Windows::TRect &Rect);
    virtual void __fastcall SelectionChange(void);
    __property System::Boolean HideSelection = {read=FHideSelection, write=SetHideSelection, default=1}
        ;
    __property System::Boolean HideScrollBars = {read=FHideScrollBars, write=SetHideScrollBars, default=1
        };
    __property Classes::TStrings * Lines = {read=FRichEditStrings, write=SetRichEditStrings, nodefault}
        ;
    __property TRichEditSaveClipboard OnSaveClipboard = {read=FOnSaveClipboard, write=FOnSaveClipboard}
        ;
    __property Classes::TNotifyEvent OnSelectionChange = {read=FOnSelChange, write=FOnSelChange};
    __property TRichEditProtectChange OnProtectChange = {read=FOnProtectChange, write=FOnProtectChange}
        ;
    __property TRichEditResizeEvent OnResizeRequest = {read=FOnResizeRequest, write=FOnResizeRequest};
    __property System::Boolean PlainText = {read=GetPlainText, write=SetPlainText, default=0};

public:
    __fastcall virtual TCustomRichEdit(Classes::TComponent *AOwner);
    __fastcall virtual ~TCustomRichEdit(void);
    System::Integer __fastcall FindText(const System::AnsiString SearchStr, System::Integer StartPos, System::Integer
        Length,  TSearchTypes Options);
    void __fastcall Print(const System::AnsiString Caption);
    static /* class method */ void __fastcall RegisterConversionFormat(const System::TMetaClass * const vmt,
        const System::AnsiString AExtension, System::TMetaClass * AConversionClass);
    __property System::TMetaClass * DefaultConverter = {read=FDefaultConverter, write=FDefaultConverter
        , nodefault};
    __property TTextAttributes * DefAttributes = {read=FDefAttributes, write=SetDefAttributes, nodefault
        };
    __property TTextAttributes * SelAttributes = {read=FSelAttributes, write=SetSelAttributes, nodefault
        };
    __property Windows::TRect PageRect = {read=FPageRect, write=FPageRect};
    __property TParaAttributes * Paragraph = {read=FParagraph, nodefault};
};

class __declspec(pascalimplementation) TTextAttributes : public Classes::TPersistent
{
    typedef TTextAttributes ThisClass;
    typedef Classes::TPersistent inherited;

private:
    TCustomRichEdit *RichEdit;
    TAttributeType FType;
    void __fastcall GetAttributes(Richedit::TCharFormat &Format);
    Graphics::TColor __fastcall GetColor(void);
    TConsistentAttributes __fastcall GetConsistentAttributes(void);
    System::Integer __fastcall GetHeight(void);
    Graphics::TFontName __fastcall GetName(void);
    Graphics::TFontPitch __fastcall GetPitch(void);
    System::Boolean __fastcall GetProtected(void);
    System::Integer __fastcall GetSize(void);
    Graphics::TFontStyles __fastcall GetStyle(void);
    void __fastcall SetAttributes(Richedit::TCharFormat &Format);
    void __fastcall SetColor(Graphics::TColor Value);
    void __fastcall SetHeight(System::Integer Value);
    void __fastcall SetName( Graphics::TFontName &Value);
    void __fastcall SetPitch(Graphics::TFontPitch Value);
    void __fastcall SetProtected(System::Boolean Value);
    void __fastcall SetSize(System::Integer Value);
    void __fastcall SetStyle( Graphics::TFontStyles Value);

protected:
    void __fastcall InitFormat(Richedit::TCharFormat &Format);
    virtual void __fastcall AssignTo(Classes::TPersistent *Dest);

public:
    __fastcall TTextAttributes(TCustomRichEdit *AOwner, TAttributeType AttributeType);
    virtual void __fastcall Assign(Classes::TPersistent *Source);
    __property Graphics::TColor Color = {read=GetColor, write=SetColor, nodefault};
    __property TConsistentAttributes ConsistentAttributes = {read=GetConsistentAttributes, nodefault};
    __property Graphics::TFontName Name = {read=GetName, write=SetName};
    __property Graphics::TFontPitch Pitch = {read=GetPitch, write=SetPitch, nodefault};
    __property System::Boolean Protected = {read=GetProtected, write=SetProtected, nodefault};
    __property System::Integer Size = {read=GetSize, write=SetSize, nodefault};
    __property Graphics::TFontStyles Style = {read=GetStyle, write=SetStyle, nodefault};
    __property System::Integer Height = {read=GetHeight, write=SetHeight, nodefault};
public:
    /* !! TObject.Destroy */ __fastcall virtual ~TTextAttributes(void) { }

};

class __declspec(delphiclass) TConversion;
class __declspec(pascalimplementation) TConversion : public System::TObject
{
    typedef TConversion ThisClass;
    typedef System::TObject inherited;

public:
    virtual System::Integer __fastcall ConvertReadStream(Classes::TStream *Stream, System::PChar Buffer
        , System::Integer BufSize);
    virtual System::Integer __fastcall ConvertWriteStream(Classes::TStream *Stream, System::PChar Buffer
        , System::Integer BufSize);
public:
    /* !! TObject.Create */ __fastcall TConversion(void) : System::TObject() { }
    /* !! TObject.Destroy */ __fastcall virtual ~TConversion(void) { }

};

struct TConversionFormat;
typedef TConversionFormat *PConversionFormat;

struct TConversionFormat
{
    System::TMetaClass *ConversionClass;
    System::AnsiString Extension;
    TConversionFormat *Next;
} ;

struct TRichEditStreamInfo
{
    TConversion *Converter;
    Classes::TStream *Stream;
} ;

typedef TRichEditStreamInfo *PRichEditStreamInfo;

class __declspec(delphiclass) TRichEdit;
class __declspec(pascalimplementation) TRichEdit : public TCustomRichEdit
{
    typedef TRichEdit ThisClass;
    typedef TCustomRichEdit inherited;

__published:
    __property Align ;
    __property Alignment ;
    __property BorderStyle ;
    __property Color ;
    __property Ctl3D ;
    __property DragMode ;
    __property Enabled ;
    __property Font ;
    __property HideSelection ;
    __property HideScrollBars ;
    __property Lines ;
    __property MaxLength ;
    __property ParentColor ;
    __property ParentCtl3D ;
    __property ParentFont ;
    __property PlainText ;
    __property PopupMenu ;
    __property ReadOnly ;
    __property ScrollBars ;
    __property ShowHint ;
    __property TabOrder ;
    __property TabStop ;
    __property Visible ;
    __property WantTabs ;
    __property WantReturns ;
    __property WordWrap ;
    __property OnChange ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property OnEndDrag ;
    __property OnEnter ;
    __property OnExit ;
    __property OnKeyDown ;
    __property OnKeyPress ;
    __property OnKeyUp ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property OnResizeRequest ;
    __property OnSelectionChange ;
    __property OnStartDrag ;
    __property OnProtectChange ;
    __property OnSaveClipboard ;
public:
    /* !! TCustomRichEdit.Create */ __fastcall virtual TRichEdit(Classes::TComponent *AOwner) : Comctrls::TCustomRichEdit(
        AOwner) { }
    /* !! TCustomRichEdit.Destroy */ __fastcall virtual ~TRichEdit(void) { }

};

enum TUDAlignButton { udLeft, udRight };

enum TUDOrientation { udHorizontal, udVertical };

enum TUDBtnType { btNext, btPrev };

typedef void __fastcall (__closure *TUDClickEvent)(System::TObject *Sender, TUDBtnType Button);

typedef void __fastcall (__closure *TUDChangingEvent)(System::TObject *Sender, System::Boolean &AllowChange
    );

class __declspec(delphiclass) TCustomUpDown;
class __declspec(pascalimplementation) TCustomUpDown : public Controls::TWinControl
{
    typedef TCustomUpDown ThisClass;
    typedef Controls::TWinControl inherited;

private:
    System::Boolean FArrowKeys;
    Controls::TWinControl *FAssociate;
    System::Smallint FMin;
    System::Smallint FMax;
    System::Integer FIncrement;
    System::Smallint FPosition;
    System::Boolean FThousands;
    System::Boolean FWrap;
    TUDClickEvent FOnClick;
    TUDAlignButton FAlignButton;
    TUDOrientation FOrientation;
    TUDChangingEvent FOnChanging;
    void __fastcall UndoAutoResizing(Controls::TWinControl *Value);
    void __fastcall SetAssociate(Controls::TWinControl *Value);
    System::Smallint __fastcall GetPosition(void);
    void __fastcall SetMin(System::Smallint Value);
    void __fastcall SetMax(System::Smallint Value);
    void __fastcall SetIncrement(System::Integer Value);
    void __fastcall SetPosition(System::Smallint Value);
    void __fastcall SetAlignButton(TUDAlignButton Value);
    void __fastcall SetOrientation(TUDOrientation Value);
    void __fastcall SetArrowKeys(System::Boolean Value);
    void __fastcall SetThousands(System::Boolean Value);
    void __fastcall SetWrap(System::Boolean Value);
    MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
    MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
    MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);

protected:
    System::Boolean __fastcall CanChange(void);
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall Notification(Classes::TComponent *AComponent, Classes::TOperation Operation
        );
    virtual void __fastcall Click(TUDBtnType Button);
    __property TUDAlignButton AlignButton = {read=FAlignButton, write=SetAlignButton, default=1};
    __property System::Boolean ArrowKeys = {read=FArrowKeys, write=SetArrowKeys, default=1};
    __property Controls::TWinControl * Associate = {read=FAssociate, write=SetAssociate, nodefault};
    __property System::Smallint Min = {read=FMin, write=SetMin, nodefault};
    __property System::Smallint Max = {read=FMax, write=SetMax, default=100};
    __property System::Integer Increment = {read=FIncrement, write=SetIncrement, default=1};
    __property TUDOrientation Orientation = {read=FOrientation, write=SetOrientation, default=1};
    __property System::Smallint Position = {read=GetPosition, write=SetPosition, nodefault};
    __property System::Boolean Thousands = {read=FThousands, write=SetThousands, default=1};
    __property System::Boolean Wrap = {read=FWrap, write=SetWrap, nodefault};
    __property TUDChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
    __property TUDClickEvent OnClick = {read=FOnClick, write=FOnClick};

public:
    __fastcall virtual TCustomUpDown(Classes::TComponent *AOwner);
public:
    /* !! TWinControl.Destroy */ __fastcall virtual ~TCustomUpDown(void) { }

};

class __declspec(delphiclass) TUpDown;
class __declspec(pascalimplementation) TUpDown : public TCustomUpDown
{
    typedef TUpDown ThisClass;
    typedef TCustomUpDown inherited;

__published:
    __property AlignButton ;
    __property Associate ;
    __property ArrowKeys ;
    __property Enabled ;
    __property Hint ;
    __property Min ;
    __property Max ;
    __property Increment ;
    __property Orientation ;
    __property ParentShowHint ;
    __property PopupMenu ;
    __property Position ;
    __property ShowHint ;
    __property TabOrder ;
    __property TabStop ;
    __property Thousands ;
    __property Visible ;
    __property Wrap ;
    __property OnChanging ;
    __property OnClick ;
    __property OnEnter ;
    __property OnExit ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
public:
    /* !! TCustomUpDown.Create */ __fastcall virtual TUpDown(Classes::TComponent *AOwner) : Comctrls::TCustomUpDown(
        AOwner) { }

public:
    /* !! TWinControl.Destroy */ __fastcall virtual ~TUpDown(void) { }

};

enum THKModifier { hkShift, hkCtrl, hkAlt, hkExt };

typedef Set<THKModifier, hkShift, hkExt>  THKModifiers;

enum THKInvalidKey { hcNone, hcShift, hcCtrl, hcAlt, hcShiftCtrl, hcShiftAlt, hcCtrlAlt, hcShiftCtrlAlt
    };

typedef Set<THKInvalidKey, hcNone, hcShiftCtrlAlt>  THKInvalidKeys;

class __declspec(delphiclass) TCustomHotKey;
class __declspec(pascalimplementation) TCustomHotKey : public Controls::TWinControl
{
    typedef TCustomHotKey ThisClass;
    typedef Controls::TWinControl inherited;

private:
    System::Boolean FAutoSize;
    THKModifiers FModifiers;
    THKInvalidKeys FInvalidKeys;
    System::Word FHotKey;
    Classes::TShiftState FShiftState;
    void __fastcall AdjustHeight(void);
    void __fastcall SetAutoSize(System::Boolean Value);
    void __fastcall SetInvalidKeys( THKInvalidKeys Value);
    void __fastcall SetModifiers( THKModifiers Value);
    void __fastcall UpdateHeight(void);
    Menus::TShortCut __fastcall GetHotKey(void);
    void __fastcall SetHotKey(Menus::TShortCut Value);
    void __fastcall ShortCutToHotKey(Menus::TShortCut Value);
    Menus::TShortCut __fastcall HotKeyToShortCut(System::Longint Value);

protected:
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    __property System::Boolean AutoSize = {read=FAutoSize, write=SetAutoSize, default=1};
    __property THKInvalidKeys InvalidKeys = {read=FInvalidKeys, write=SetInvalidKeys, nodefault};
    __property THKModifiers Modifiers = {read=FModifiers, write=SetModifiers, nodefault};
    __property Menus::TShortCut HotKey = {read=GetHotKey, write=SetHotKey, nodefault};
    __property TabStop ;

public:
    __fastcall virtual TCustomHotKey(Classes::TComponent *AOwner);
public:
    /* !! TWinControl.Destroy */ __fastcall virtual ~TCustomHotKey(void) { }

};

class __declspec(delphiclass) THotKey;
class __declspec(pascalimplementation) THotKey : public TCustomHotKey
{
    typedef THotKey ThisClass;
    typedef TCustomHotKey inherited;

__published:
    __property AutoSize ;
    __property Enabled ;
    __property Hint ;
    __property HotKey ;
    __property InvalidKeys ;
    __property Modifiers ;
    __property ParentShowHint ;
    __property PopupMenu ;
    __property ShowHint ;
    __property TabOrder ;
    __property TabStop ;
    __property Visible ;
    __property OnEnter ;
    __property OnExit ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
public:
    /* !! TCustomHotKey.Create */ __fastcall virtual THotKey(Classes::TComponent *AOwner) : Comctrls::TCustomHotKey(
        AOwner) { }

public:
    /* !! TWinControl.Destroy */ __fastcall virtual ~THotKey(void) { }

};

typedef System::Integer TWidth;

class __declspec(delphiclass) TListColumn;
class __declspec(pascalimplementation) TListColumn : public Classes::TCollectionItem
{
    typedef TListColumn ThisClass;
    typedef Classes::TCollectionItem inherited;

private:
    System::AnsiString FCaption;
    TAlignment FAlignment;
    TWidth FWidth;
    void __fastcall DoChange(void);
    TWidth __fastcall GetWidth(void);
    void __fastcall ReadData(Classes::TReader *Reader);
    void __fastcall SetAlignment(Classes::TAlignment Value);
    void __fastcall SetCaption(const System::AnsiString Value);
    void __fastcall SetWidth(TWidth Value);
    void __fastcall WriteData(Classes::TWriter *Writer);

protected:
    virtual void __fastcall DefineProperties(Classes::TFiler *Filer);

public:
    __fastcall virtual TListColumn(Classes::TCollection *Collection);
    __fastcall virtual ~TListColumn(void);
    virtual void __fastcall Assign(Classes::TPersistent *Source);
    __property TWidth WidthType = {read=FWidth, nodefault};

__published:
    __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
    __property System::AnsiString Caption = {read=FCaption, write=SetCaption, nodefault};
    __property TWidth Width = {read=GetWidth, write=SetWidth, default=50};
};

class __declspec(delphiclass) TListColumns;
class __declspec(delphiclass) TCustomListView;
enum TViewStyle { vsIcon, vsSmallIcon, vsList, vsReport };

class __declspec(delphiclass) TListItems;
class __declspec(delphiclass) TListItem;
class __declspec(pascalimplementation) TListItems : public Classes::TPersistent
{
    typedef TListItems ThisClass;
    typedef Classes::TPersistent inherited;

private:
    TCustomListView *FOwner;
    System::Integer FUpdateCount;
    System::Boolean FNoRedraw;
    void __fastcall ReadData(Classes::TStream *Stream);
    void __fastcall WriteData(Classes::TStream *Stream);

protected:
    virtual void __fastcall DefineProperties(Classes::TFiler *Filer);
    Commctrl::TLVItemA __fastcall CreateItem(System::Integer Index, TListItem *ListItem);
    System::Integer __fastcall GetCount(void);
    System::Integer __fastcall GetHandle(void);
    TListItem *__fastcall GetItem(System::Integer Index);
    void __fastcall SetItem(System::Integer Index, TListItem *Value);
    void __fastcall SetUpdateState(System::Boolean Updating);

public:
    __fastcall TListItems(TCustomListView *AOwner);
    __fastcall virtual ~TListItems(void);
    TListItem *__fastcall Add(void);
    virtual void __fastcall Assign(Classes::TPersistent *Source);
    void __fastcall BeginUpdate(void);
    void __fastcall Clear(void);
    void __fastcall Delete(System::Integer Index);
    void __fastcall EndUpdate(void);
    System::Integer __fastcall IndexOf(TListItem *Value);
    TListItem *__fastcall Insert(System::Integer Index);
    __property System::Integer Count = {read=GetCount, nodefault};
    __property System::Integer Handle = {read=GetHandle, nodefault};
    __property TListItem * Item[System::Integer Index] = {read=GetItem, write=SetItem/*, default*/};
    __property TCustomListView * Owner = {read=FOwner, nodefault};
};

class __declspec(delphiclass) TIconOptions;
enum TIconArrangement { iaTop, iaLeft };

class __declspec(pascalimplementation) TIconOptions : public Classes::TPersistent
{
    typedef TIconOptions ThisClass;
    typedef Classes::TPersistent inherited;

private:
    TCustomListView *FListView;
    TIconArrangement FArrangement;
    System::Boolean FAutoArrange;
    System::Boolean FWrapText;
    void __fastcall SetArrangement(TIconArrangement Value);
    void __fastcall SetAutoArrange(System::Boolean Value);
    void __fastcall SetWrapText(System::Boolean Value);

public:
    __fastcall TIconOptions(TCustomListView *AOwner);

__published:
    __property TIconArrangement Arrangement = {read=FArrangement, write=SetArrangement, default=0};
    __property System::Boolean AutoArrange = {read=FAutoArrange, write=SetAutoArrange, default=0};
    __property System::Boolean WrapText = {read=FWrapText, write=SetWrapText, default=1};
public:
    /* !! TObject.Destroy */ __fastcall virtual ~TIconOptions(void) { }

};

enum TItemChange { ctText, ctImage, ctState };

typedef void __fastcall (__closure *TLVChangeEvent)(System::TObject *Sender, TListItem *Item, TItemChange
    Change);

typedef void __fastcall (__closure *TLVChangingEvent)(System::TObject *Sender, TListItem *Item, TItemChange
    Change, System::Boolean &AllowChange);

typedef void __fastcall (__closure *TLVColumnClickEvent)(System::TObject *Sender, TListColumn *Column
    );

typedef void __fastcall (__closure *TLVDeletedEvent)(System::TObject *Sender, TListItem *Item);

typedef void __fastcall (__closure *TLVEditingEvent)(System::TObject *Sender, TListItem *Item, System::Boolean
    &AllowEdit);

typedef void __fastcall (__closure *TLVEditedEvent)(System::TObject *Sender, TListItem *Item,  System::AnsiString &
    S);

typedef void __fastcall (__closure *TLVCompareEvent)(System::TObject *Sender, TListItem *Item1, TListItem *
    Item2, System::Integer Data, System::Integer &Compare);

enum TListArrangement { arAlignBottom, arAlignLeft, arAlignRight, arAlignTop, arDefault, arSnapToGrid
    };

enum TSearchDirection { sdLeft, sdRight, sdAbove, sdBelow, sdAll };

enum TItemState { isNone, isCut, isDropHilited, isFocused, isSelected };

typedef Set<TItemState, isNone, isSelected>  TItemStates;

class __declspec(pascalimplementation) TCustomListView : public Controls::TWinControl
{
    typedef TCustomListView ThisClass;
    typedef Controls::TWinControl inherited;

private:
    TFormBorderStyle FBorderStyle;
    TViewStyle FViewStyle;
    System::Boolean FReadOnly;
    Controls::TImageList *FLargeImages;
    Controls::TImageList *FSmallImages;
    Controls::TImageList *FStateImages;
    Controls::TImageList *FDragImage;
    System::Boolean FShareImages;
    System::Boolean FMultiSelect;
    TSortType FSortType;
    System::Boolean FColumnClick;
    System::Boolean FShowColumnHeaders;
    TListItems *FListItems;
    System::Boolean FClicked;
    System::Boolean FRClicked;
    TIconOptions *FIconOptions;
    System::Boolean FHideSelection;
    TListColumns *FListColumns;
    Classes::TMemoryStream *FMemStream;
    void *FEditInstance;
    void *FDefEditProc;
    System::Integer FEditHandle;
    void *FHeaderInstance;
    void *FDefHeaderProc;
    System::Integer FHeaderHandle;
    System::Integer FAllocBy;
    System::Integer FDragIndex;
    TListItem *FLastDropTarget;
    Controls::TChangeLink *FLargeChangeLink;
    Controls::TChangeLink *FSmallChangeLink;
    Controls::TChangeLink *FStateChangeLink;
    TLVChangeEvent FOnChange;
    TLVChangingEvent FOnChanging;
    TLVColumnClickEvent FOnColumnClick;
    TLVDeletedEvent FOnDeletion;
    TLVEditingEvent FOnEditing;
    TLVEditedEvent FOnEdited;
    TLVDeletedEvent FOnInsert;
    TLVCompareEvent FOnCompare;
    MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CMDrag(Controls::TCMDrag &Message);
    MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
    MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
    void __fastcall DoDragOver(Controls::TDragObject *Source, System::Integer X, System::Integer Y);
    void __fastcall EditWndProc(Messages::TMessage &Message);
    Windows::TRect __fastcall GetBoundingRect(void);
    TListColumn *__fastcall GetColumnFromIndex(System::Integer Index);
    TListItem *__fastcall GetDropTarget(void);
    TListItem *__fastcall GetFocused(void);
    TListItem *__fastcall GetItem(const Commctrl::TLVItemA &Value);
    System::Integer __fastcall GetSelCount(void);
    TListItem *__fastcall GetSelection(void);
    TListItem *__fastcall GetTopItem(void);
    Windows::TPoint __fastcall GetViewOrigin(void);
    System::Integer __fastcall GetVisibleRowCount(void);
    void __fastcall HeaderWndProc(Messages::TMessage &Message);
    void __fastcall ImageListChange(System::TObject *Sender);
    virtual void __fastcall InsertItem(TListItem *Item);
    void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
    void __fastcall SetColumnClick(System::Boolean Value);
    void __fastcall SetColumnHeaders(System::Boolean Value);
    void __fastcall SetDropTarget(TListItem *Value);
    void __fastcall SetFocused(TListItem *Value);
    void __fastcall SetHideSelection(System::Boolean Value);
    void __fastcall SetIconArrangement(TIconArrangement Value);
    void __fastcall SetIconOptions(TIconOptions *Value);
    void __fastcall SetImageList(System::Integer Value, System::Integer Flags);
    void __fastcall SetLargeImages(Controls::TImageList *Value);
    void __fastcall SetAllocBy(System::Integer Value);
    void __fastcall SetItems(TListItems *Value);
    void __fastcall SetListColumns(TListColumns *Value);
    void __fastcall SetMultiSelect(System::Boolean Value);
    void __fastcall SetReadOnly(System::Boolean Value);
    void __fastcall SetSmallImages(Controls::TImageList *Value);
    void __fastcall SetSortType(TSortType Value);
    void __fastcall SetSelection(TListItem *Value);
    void __fastcall SetStateImages(Controls::TImageList *Value);
    void __fastcall SetTextBkColor(Graphics::TColor Value);
    void __fastcall SetTextColor(Graphics::TColor Value);
    void __fastcall SetViewStyle(TViewStyle Value);
    System::Boolean __fastcall ValidHeaderHandle(void);
    MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
    MESSAGE void __fastcall WMNotify(Messages::TWMNotify &Message);
    MESSAGE void __fastcall WMParentNotify(Messages::TWMParentNotify &Message);
    MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);

protected:
    virtual System::Boolean __fastcall CanChange(TListItem *Item, System::Integer Change);
    virtual System::Boolean __fastcall CanEdit(TListItem *Item);
    virtual void __fastcall Change(TListItem *Item, System::Integer Change);
    virtual void __fastcall ColClick(TListColumn *Column);
    System::Boolean __fastcall ColumnsShowing(void);
    virtual TListItem *__fastcall CreateListItem(void);
    virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
    virtual void __fastcall CreateWnd(void);
    virtual void __fastcall Delete(TListItem *Item);
    virtual void __fastcall DestroyWnd(void);
    virtual void __fastcall DoEndDrag(System::TObject *Target, System::Integer X, System::Integer Y);
    virtual void __fastcall DoStartDrag(Controls::TDragObject *&DragObject);
    virtual void __fastcall Edit(const Commctrl::TLVItemA &Item);
    virtual Controls::TCustomImageList *__fastcall GetDragImages(void);
    System::Integer __fastcall GetItemIndex(TListItem *Value);
    virtual void __fastcall Notification(Classes::TComponent *AComponent, Classes::TOperation Operation
        );
    void __fastcall UpdateColumn(System::Integer Index);
    void __fastcall UpdateColumns(void);
    virtual void __fastcall WndProc(Messages::TMessage &Message);
    __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
    __property TListColumns * Columns = {read=FListColumns, write=SetListColumns, nodefault};
    __property System::Boolean ColumnClick = {read=FColumnClick, write=SetColumnClick, default=1};
    __property System::Boolean ReadOnly = {read=FReadOnly, write=SetReadOnly, nodefault};
    __property System::Boolean HideSelection = {read=FHideSelection, write=SetHideSelection, default=1}
        ;
    __property TIconOptions * IconOptions = {read=FIconOptions, write=SetIconOptions, nodefault};
    __property TListItems * Items = {read=FListItems, write=SetItems, nodefault};
    __property System::Integer AllocBy = {read=FAllocBy, write=SetAllocBy, default=0};
    __property Controls::TImageList * LargeImages = {read=FLargeImages, write=SetLargeImages, nodefault
        };
    __property System::Boolean MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
    __property TLVChangeEvent OnChange = {read=FOnChange, write=FOnChange};
    __property TLVChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
    __property TLVColumnClickEvent OnColumnClick = {read=FOnColumnClick, write=FOnColumnClick};
    __property TLVCompareEvent OnCompare = {read=FOnCompare, write=FOnCompare};
    __property TLVDeletedEvent OnDeletion = {read=FOnDeletion, write=FOnDeletion};
    __property TLVEditedEvent OnEdited = {read=FOnEdited, write=FOnEdited};
    __property TLVEditingEvent OnEditing = {read=FOnEditing, write=FOnEditing};
    __property TLVDeletedEvent OnInsert = {read=FOnInsert, write=FOnInsert};
    __property System::Boolean ShowColumnHeaders = {read=FShowColumnHeaders, write=SetColumnHeaders, default=1
        };
    __property Controls::TImageList * SmallImages = {read=FSmallImages, write=SetSmallImages, nodefault
        };
    __property TSortType SortType = {read=FSortType, write=SetSortType, default=0};
    __property Controls::TImageList * StateImages = {read=FStateImages, write=SetStateImages, nodefault
        };
    __property TViewStyle ViewStyle = {read=FViewStyle, write=SetViewStyle, default=0};

public:
    __fastcall virtual TCustomListView(Classes::TComponent *AOwner);
    __fastcall virtual ~TCustomListView(void);
    System::Boolean __fastcall AlphaSort(void);
    void __fastcall Arrange(TListArrangement Code);
    TListItem *__fastcall FindCaption(System::Integer StartIndex,  System::AnsiString Value, System::Boolean
        Partial, System::Boolean Inclusive, System::Boolean Wrap);
    TListItem *__fastcall FindData(System::Integer StartIndex, System::Pointer Value, System::Boolean Inclusive
        , System::Boolean Wrap);
    TListItem *__fastcall GetItemAt(System::Integer X, System::Integer Y);
    TListItem *__fastcall GetNearestItem(const Windows::TPoint &Point, TSearchDirection Direction);
    TListItem *__fastcall GetNextItem(TListItem *StartItem, TSearchDirection Direction,  TItemStates States
        );
    System::AnsiString __fastcall GetSearchString(void);
    System::Boolean __fastcall IsEditing(void);
    void __fastcall Scroll(System::Integer DX, System::Integer DY);
    __property TListColumn * Column[System::Integer Index] = {read=GetColumnFromIndex};
    __property TListItem * DropTarget = {read=GetDropTarget, write=SetDropTarget, nodefault};
    __property TListItem * ItemFocused = {read=GetFocused, write=SetFocused, nodefault};
    __property System::Integer SelCount = {read=GetSelCount, nodefault};
    __property TListItem * Selected = {read=GetSelection, write=SetSelection, nodefault};
    System::Boolean __fastcall CustomSort(Commctrl::TLVCompare SortProc, System::Longint lParam);
    System::Integer __fastcall StringWidth( System::AnsiString S);
    void __fastcall UpdateItems(System::Integer FirstIndex, System::Integer LastIndex);
    __property TListItem * TopItem = {read=GetTopItem, nodefault};
    __property Windows::TPoint ViewOrigin = {read=GetViewOrigin};
    __property System::Integer VisibleRowCount = {read=GetVisibleRowCount, nodefault};
    __property Windows::TRect BoundingRect = {read=GetBoundingRect};
};

class __declspec(pascalimplementation) TListColumns : public Classes::TCollection
{
    typedef TListColumns ThisClass;
    typedef Classes::TCollection inherited;

private:
    TCustomListView *FOwner;
    TListColumn *__fastcall GetItem(System::Integer Index);
    void __fastcall SetItem(System::Integer Index, TListColumn *Value);

protected:
    virtual void __fastcall Update(Classes::TCollectionItem *Item);

public:
    __fastcall TListColumns(TCustomListView *AOwner);
    TListColumn *__fastcall Add(void);
    __property TCustomListView * Owner = {read=FOwner, nodefault};
    __property TListColumn * Items[System::Integer Index] = {read=GetItem, write=SetItem/*, default*/};

public:
    /* !! TCollection.Destroy */ __fastcall virtual ~TListColumns(void) { }

};

enum TDisplayCode { drBounds, drIcon, drLabel, drSelectBounds };

class __declspec(pascalimplementation) TListItem : public Classes::TPersistent
{
    typedef TListItem ThisClass;
    typedef Classes::TPersistent inherited;

private:
    TListItems *FOwner;
    Classes::TStrings *FSubItems;
    void *FData;
    System::Integer FImageIndex;
    System::Integer FOverlayIndex;
    System::Integer FStateIndex;
    System::AnsiString FCaption;
    System::Boolean FDeleting;
    System::Boolean FProcessedDeleting;
    System::Integer __fastcall GetHandle(void);
    System::Integer __fastcall GetIndex(void);
    TCustomListView *__fastcall GetListView(void);
    System::Integer __fastcall GetLeft(void);
    System::Boolean __fastcall GetState(System::Integer Index);
    System::Integer __fastcall GetTop(void);
    System::Boolean __fastcall IsEqual(TListItem *Item);
    void __fastcall SetCaption(const System::AnsiString Value);
    void __fastcall SetData(System::Pointer Value);
    void __fastcall SetImage(System::Integer Index, System::Integer Value);
    void __fastcall SetLeft(System::Integer Value);
    void __fastcall SetState(System::Integer Index, System::Boolean State);
    void __fastcall SetSubItems(Classes::TStrings *Value);
    void __fastcall SetTop(System::Integer Value);

protected:
    virtual void __fastcall Assign(Classes::TPersistent *Source);

public:
    __fastcall TListItem(TListItems *AOwner);
    __fastcall virtual ~TListItem(void);
    void __fastcall CancelEdit(void);
    void __fastcall Delete(void);
    Windows::TRect __fastcall DisplayRect(TDisplayCode Code);
    System::Boolean __fastcall EditCaption(void);
    Windows::TPoint __fastcall GetPosition(void);
    void __fastcall MakeVisible(System::Boolean PartialOK);
    void __fastcall Update(void);
    void __fastcall SetPosition(const Windows::TPoint &Value);
    __property System::AnsiString Caption = {read=FCaption, write=SetCaption, nodefault};
    __property System::Boolean Cut = {read=GetState, write=SetState, index=0, nodefault};
    __property System::Pointer Data = {read=FData, write=SetData, nodefault};
    __property System::Boolean DropTarget = {read=GetState, write=SetState, index=1, nodefault};
    __property System::Boolean Focused = {read=GetState, write=SetState, index=2, nodefault};
    __property System::Integer Handle = {read=GetHandle, nodefault};
    __property System::Integer ImageIndex = {read=FImageIndex, write=SetImage, index=0, nodefault};
    __property System::Integer Index = {read=GetIndex, nodefault};
    __property System::Integer Left = {read=GetLeft, write=SetLeft, nodefault};
    __property TCustomListView * ListView = {read=GetListView, nodefault};
    __property TListItems * Owner = {read=FOwner, nodefault};
    __property System::Integer OverlayIndex = {read=FOverlayIndex, write=SetImage, index=1, nodefault};

    __property System::Boolean Selected = {read=GetState, write=SetState, index=3, nodefault};
    __property System::Integer StateIndex = {read=FStateIndex, write=SetImage, index=2, nodefault};
    __property Classes::TStrings * SubItems = {read=FSubItems, write=SetSubItems, nodefault};
    __property System::Integer Top = {read=GetTop, write=SetTop, nodefault};
};

class __declspec(delphiclass) TListView;
class __declspec(pascalimplementation) TListView : public TCustomListView
{
    typedef TListView ThisClass;
    typedef TCustomListView inherited;

__published:
    __property Align ;
    __property BorderStyle ;
    __property Color ;
    __property ColumnClick ;
    __property OnClick ;
    __property OnDblClick ;
    __property Columns ;
    __property Ctl3D ;
    __property DragMode ;
    __property ReadOnly ;
    __property Font ;
    __property HideSelection ;
    __property IconOptions ;
    __property Items ;
    __property AllocBy ;
    __property MultiSelect ;
    __property OnChange ;
    __property OnChanging ;
    __property OnColumnClick ;
    __property OnCompare ;
    __property OnDeletion ;
    __property OnEdited ;
    __property OnEditing ;
    __property OnEnter ;
    __property OnExit ;
    __property OnInsert ;
    __property OnDragDrop ;
    __property OnDragOver ;
    __property DragCursor ;
    __property OnStartDrag ;
    __property OnEndDrag ;
    __property OnMouseDown ;
    __property OnMouseMove ;
    __property OnMouseUp ;
    __property ParentShowHint ;
    __property ShowHint ;
    __property PopupMenu ;
    __property ShowColumnHeaders ;
    __property SortType ;
    __property TabOrder ;
    __property TabStop ;
    __property ViewStyle ;
    __property Visible ;
    __property OnKeyDown ;
    __property OnKeyPress ;
    __property OnKeyUp ;
    __property LargeImages ;
    __property SmallImages ;
    __property StateImages ;
public:
    /* !! TCustomListView.Create */ __fastcall virtual TListView(Classes::TComponent *AOwner) : Comctrls::TCustomListView(
        AOwner) { }
    /* !! TCustomListView.Destroy */ __fastcall virtual ~TListView(void) { }

};

//-- var, const, procedure ---------------------------------------------------
#define ColumnHeaderWidth System::Shortint(-2)
#define ColumnTextWidth System::Shortint(-1)
//-- template instantiations -------------------------------------------------
template class TItemStates ;
template class Classes::TShiftState ;
template class THKInvalidKeys ;
template class THKModifiers ;
template class TSearchTypes ;
template class TConsistentAttributes ;
template class THitTests ;
template class SmallString<255> ;

}    /* namespace Comctrls */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Comctrls;
#endif
//-- end unit ----------------------------------------------------------------
#endif    // ComCtrls