| Class TThTabSet (unit Thtabs) |
TCustomControl
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
procedure AdjustSize;
procedure Click;say we handled it, even if AllowChange is false
procedure CMDialogChar(var Msg : TCMDialogChar);
procedure CreateParams(var Params : TCreateParams);
procedure DrawTabs;
procedure MouseMove(Shift : TShiftState; X, Y : integer);
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure Paint;
procedure SetAutoSize(Value : boolean);
procedure SetBackColor(Value : TColor);
procedure SetCtrl3D(Value : boolean);
procedure SetMainHintIsZero(Value : boolean);
procedure SetNoteBook(NB : TNoteBook);
procedure SetNoteColor(Value : boolean);
procedure SetOrientation(Value : TOrientation);
procedure SetSelColor(Value : TColor);
procedure SetStyle(Value : TTabStyle);
procedure SetTabHeight(Value : integer);
procedure SetTabHints(List : TStrings);
procedure SetTabIndex(Value : integer);
procedure SetTabList(List : TStrings);
procedure SetTabMargin(Value : integer);
procedure SetTabRake(Value : integer);
procedure SetTabShadow(Value : boolean);
procedure SetTabSpacing(Value : integer);
procedure SetUnSelColor(Value : TColor);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);| Properties |
property Align :
property AutoSize : boolean
property BackColor : TColor
property Ctrl3D : boolean
property DragCursor :
property DragMode :
property Font :
property Height :
property Hint :
property MainHintIsZero : boolean
property Notebook : TNoteBook
property NotebookColor : boolean
property Orientation : TOrientation
property ParentShowHint :
property SelectedColor : TColor
property ShowHint :
property Spacing : integer
property Style : TTabStyle
property TabHeight : integer
property TabHints : TStrings
property TabIndex : integer
property TabMargin : integer
property TabOrder :
property TabRake : integer
property Tabs : TStrings
property TabShadow : boolean
property TabStop :
property UnSelectedColor : TColor
property Visible :
property Width : | Events |
event OnChange : TTabChangeEvent
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
AllowChange : boolean;
FAutoSize : boolean;
FBackColor : TColor;
FChangeEvent : TTabChangeEvent;
FCtrl3D : boolean;
FMainHintisZero : boolean;
FNoteBook : TNoteBook;
FNoteColor : boolean;
FOrientation : TOrientation;
FSelectedColor : TColor;
FStyle : TTabStyle;
FTabFont : TFont;
FTabHeight : integer;
FTabHints : TStrings;
FTabIndex : integer;
FTabList : TStrings;
FTabMargin : integer;
FTabRake : integer;
FTabRects : array[0..20] of TRect;
FTabShadow : boolean;
FTabSpacing : integer;
FUnSelectedColor : TColor;| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
procedure AdjustSize;component specific procedures
procedure Click;overridden parent procedures
say we handled it, even if AllowChange is false
procedure CMDialogChar(var Msg : TCMDialogChar);This provides entry to accel chars from the main form keyboard loop
procedure CreateParams(var Params : TCreateParams);
procedure DrawTabs;
procedure MouseMove(Shift : TShiftState; X, Y : integer);
procedure Notification(AComponent: TComponent; Operation: TOperation);this is important in order to safely remove the reference to the associated notebook component if it disappears
procedure Paint;Orientation case
procedure SetAutoSize(Value : boolean);
procedure SetBackColor(Value : TColor);
procedure SetCtrl3D(Value : boolean);
procedure SetMainHintIsZero(Value : boolean);
procedure SetNoteBook(NB : TNoteBook);
procedure SetNoteColor(Value : boolean);
procedure SetOrientation(Value : TOrientation);
procedure SetSelColor(Value : TColor);
procedure SetStyle(Value : TTabStyle);
procedure SetTabHeight(Value : integer);
procedure SetTabHints(List : TStrings);
procedure SetTabIndex(Value : integer);
procedure SetTabList(List : TStrings);
procedure SetTabMargin(Value : integer);
procedure SetTabRake(Value : integer);
procedure SetTabShadow(Value : boolean);
procedure SetTabSpacing(Value : integer);
procedure SetUnSelColor(Value : TColor);
procedure WMKillFocus(var Message: TWMKillFocus);message handlers
procedure WMSetFocus(var Message: TWMSetFocus);| Properties |
property Align : inherited properties
property AutoSize : booleanPublic declarations
property BackColor : TColor
property Ctrl3D : boolean
property DragCursor :
property DragMode :
property Font :
property Height :
property Hint :
property MainHintIsZero : boolean
property Notebook : TNoteBook
property NotebookColor : boolean
property Orientation : TOrientation
property ParentShowHint :
property SelectedColor : TColor
property ShowHint :
property Spacing : integer
property Style : TTabStyle
property TabHeight : integer
property TabHints : TStrings
property TabIndex : integer
property TabMargin : integer
property TabOrder :
property TabRake : integer
property Tabs : TStrings
property TabShadow : boolean
property TabStop :
property UnSelectedColor : TColor
property Visible :
property Width : | Events |
event OnChange : TTabChangeEvent
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
AllowChange : boolean;stuff that is component internal
FAutoSize : boolean;Stuff that is published
FBackColor : TColor;
FChangeEvent : TTabChangeEvent;
FCtrl3D : boolean;
FMainHintisZero : boolean;
FNoteBook : TNoteBook;
FNoteColor : boolean;
FOrientation : TOrientation;
FSelectedColor : TColor;
FStyle : TTabStyle;
FTabFont : TFont;
FTabHeight : integer;
FTabHints : TStrings;
FTabIndex : integer;
FTabList : TStrings;
FTabMargin : integer;
FTabRake : integer;
FTabRects : array[0..20] of TRect;
FTabShadow : boolean;
FTabSpacing : integer;
FUnSelectedColor : TColor;