diff options
Diffstat (limited to 'apps/X11/VCL/TPageControl.h')
-rw-r--r-- | apps/X11/VCL/TPageControl.h | 113 |
1 files changed, 0 insertions, 113 deletions
diff --git a/apps/X11/VCL/TPageControl.h b/apps/X11/VCL/TPageControl.h deleted file mode 100644 index 447efec..0000000 --- a/apps/X11/VCL/TPageControl.h +++ /dev/null @@ -1,113 +0,0 @@ - -#ifndef TPAGECONTROL_H -#define TPAGECONTROL_H - -#include <TCustomTabControl.h> - -class TPageControl : public TCustomTabControl { -private: -/* - FPages: TList; - FActivePage: TTabSheet; - FNewDockSheet: TTabSheet; - FUndockingPage: TTabSheet; - procedure ChangeActivePage(Page: TTabSheet); - procedure DeleteTab(Page: TTabSheet; Index: Integer); - function GetDockClientFromMousePos(MousePos: TPoint): TControl; - function GetPage(Index: Integer): TTabSheet; - function GetPageCount: Integer; - procedure InsertPage(Page: TTabSheet); - procedure InsertTab(Page: TTabSheet); - procedure MoveTab(CurIndex, NewIndex: Integer); - procedure RemovePage(Page: TTabSheet); - procedure SetActivePage(Page: TTabSheet); - procedure UpdateTab(Page: TTabSheet); - procedure UpdateActivePage; - procedure CMDesignHitTest(var Message: TCMDesignHitTest); message CM_DESIGNHITTEST; - procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY; - procedure CMDockClient(var Message: TCMDockClient); message CM_DOCKCLIENT; - procedure CMDockNotification(var Message: TCMDockNotification); message CM_DOCKNOTIFICATION; - procedure CMUnDockClient(var Message: TCMUnDockClient); message CM_UNDOCKCLIENT; - procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; - procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK; -*/ -protected: -/* - function CanShowTab(TabIndex: Integer): Boolean; override; - procedure Change; override; - procedure DoAddDockClient(Client: TControl; const ARect: TRect); override; - procedure DockOver(Source: TDragDockObject; X, Y: Integer; - State: TDragState; var Accept: Boolean); override; - procedure DoRemoveDockClient(Client: TControl); override; - procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; - function GetImageIndex(TabIndex: Integer): Integer; override; - function GetPageFromDockClient(Client: TControl): TTabSheet; - procedure GetSiteInfo(Client: TControl; var InfluenceRect: TRect; - MousePos: TPoint; var CanDock: Boolean); override; - procedure SetChildOrder(Child: TComponent; Order: Integer); override; - procedure ShowControl(AControl: TControl); override; -*/ -public: - TPageControl(TComponent *AOwner); - virtual ~TPageControl(); -/* - function FindNextPage(CurPage: TTabSheet; - GoForward, CheckTabVisible: Boolean): TTabSheet; - procedure SelectNextPage(GoForward: Boolean); - property PageCount: Integer read GetPageCount; - property Pages[Index: Integer]: TTabSheet read GetPage; - published - property ActivePage: TTabSheet read FActivePage write SetActivePage; - property Align; - property Anchors; - property BiDiMode; - property Constraints; - property DockSite; - property DragCursor; - property DragKind; - property DragMode; - property Enabled; - property Font; - property HotTrack; - property Images; - property MultiLine; - property OwnerDraw; - property ParentBiDiMode; - property ParentFont; - property ParentShowHint; - property PopupMenu; - property RaggedRight; - property ScrollOpposite; - property ShowHint; - property Style; - property TabHeight; - property TabOrder; - property TabPosition; - property TabStop; - property TabWidth; - property Visible; - property OnChange; - property OnChanging; - property OnDockDrop; - property OnDockOver; - property OnDragDrop; - property OnDragOver; - property OnDrawTab; - property OnEndDock; - property OnEndDrag; - property OnEnter; - property OnExit; - property OnGetImageIndex; - property OnGetSiteInfo; - property OnMouseDown; - property OnMouseMove; - property OnMouseUp; - property OnResize; - property OnStartDock; - property OnStartDrag; - property OnUnDock; - end; -*/ -}; - -#endif |