1 files changed, 103 insertions, 0 deletions
diff --git a/apps/X11/VCL/TCustomTabControl.h b/apps/X11/VCL/TCustomTabControl.h
new file mode 100644
index 0000000..0b1e2b7
--- /dev/null
+++ b/apps/X11/VCL/TCustomTabControl.h
@@ -0,0 +1,103 @@
+#ifndef TCUSTOMTABCONTROL_H
+#define TCUSTOMTABCONTROL_H
+
+#include <TWinControl.h>
+
+class TCustomTabControl : public TWinControl {
+
+private:
+/*
+    FCanvas: TCanvas;
+    FHotTrack: Boolean;
+    FImageChangeLink: TChangeLink;
+    FImages: TCustomImageList;
+    FMultiLine: Boolean;
+    FMultiSelect: Boolean;
+    FOwnerDraw: Boolean;
+    FRaggedRight: Boolean;
+    FSaveTabIndex: Integer;
+    FSaveTabs: TStringList;
+    FScrollOpposite: Boolean;
+    FStyle: TTabStyle;
+    FTabPosition: TTabPosition;
+    FTabs: TStrings;
+    FTabSize: TSmallPoint;
+    FUpdating: Boolean;
+    FOnChange: TNotifyEvent;
+    FOnChanging: TTabChangingEvent;
+    FOnDrawTab: TDrawTabEvent;
+    FOnGetImageIndex: TTabGetImageEvent;
+    function GetDisplayRect: TRect;
+    function GetTabIndex: Integer;
+    procedure ImageListChange(Sender: TObject);
+    function InternalSetMultiLine(Value: Boolean): Boolean;
+    procedure SetHotTrack(Value: Boolean);
+    procedure SetImages(Value: TCustomImageList);
+    procedure SetMultiLine(Value: Boolean);
+    procedure SetMultiSelect(Value: Boolean);
+    procedure SetOwnerDraw(Value: Boolean);
+    procedure SetRaggedRight(Value: Boolean);
+    procedure SetScrollOpposite(Value: Boolean);
+    procedure SetStyle(Value: TTabStyle);
+    procedure SetTabHeight(Value: Smallint);
+    procedure SetTabIndex(Value: Integer);
+    procedure SetTabPosition(Value: TTabPosition);
+    procedure SetTabs(Value: TStrings);
+    procedure SetTabWidth(Value: Smallint);
+    procedure TabsChanged;
+    procedure UpdateTabSize;
+    procedure CMFontChanged(var Message); message CM_FONTCHANGED;
+    procedure CMSysColorChange(var Message: TMessage); message CM_SYSCOLORCHANGE;
+    procedure CMTabStopChanged(var Message: TMessage); message CM_TABSTOPCHANGED;
+    procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;
+    procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR;
+    procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
+    procedure WMDestroy(var Message: TWMDestroy); message WM_DESTROY;
+    procedure WMNotifyFormat(var Message: TMessage); message WM_NOTIFYFORMAT;
+    procedure WMSize(var Message: TMessage); message WM_SIZE;
+  protected
+    procedure AdjustClientRect(var Rect: TRect); override;
+    function CanChange: Boolean; dynamic;
+    function CanShowTab(TabIndex: Integer): Boolean; virtual;
+    procedure Change; dynamic;
+    procedure CreateParams(var Params: TCreateParams); override;
+    procedure CreateWnd; override;
+    procedure DestroyWnd; override;
+    procedure DrawTab(TabIndex: Integer; const Rect: TRect; Active: Boolean); virtual;
+    function GetImageIndex(TabIndex: Integer): Integer; virtual;
+    procedure Loaded; override;
+    procedure UpdateTabImages;
+    property DisplayRect: TRect read GetDisplayRect;
+    property HotTrack: Boolean read FHotTrack write SetHotTrack default False;
+    property Images: TCustomImageList read FImages write SetImages;
+    property MultiLine: Boolean read FMultiLine write SetMultiLine default False;
+    property MultiSelect: Boolean read FMultiSelect write SetMultiSelect default False;
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+    property OwnerDraw: Boolean read FOwnerDraw write SetOwnerDraw default False;
+    property RaggedRight: Boolean read FRaggedRight write SetRaggedRight default False;
+    property ScrollOpposite: Boolean read FScrollOpposite
+      write SetScrollOpposite default False;
+    property Style: TTabStyle read FStyle write SetStyle default tsTabs;
+    property TabHeight: Smallint read FTabSize.Y write SetTabHeight default 0;
+    property TabIndex: Integer read GetTabIndex write SetTabIndex default -1;
+    property TabPosition: TTabPosition read FTabPosition write SetTabPosition
+      default tpTop;
+    property Tabs: TStrings read FTabs write SetTabs;
+    property TabWidth: Smallint read FTabSize.X write SetTabWidth default 0;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property OnChanging: TTabChangingEvent read FOnChanging write FOnChanging;
+    property OnDrawTab: TDrawTabEvent read FOnDrawTab write FOnDrawTab;
+    property OnGetImageIndex: TTabGetImageEvent read FOnGetImageIndex write FOnGetImageIndex;
+*/
+public:
+	TCustomTabControl(TComponent *AOwner);
+	~TCustomTabControl();
+/*
+    property Canvas: TCanvas read FCanvas;
+    property TabStop default True;
+  end;
+*/
+};
+
+#endif
+