Class TThTabSet (unit Thtabs) |
Inherits from
TCustomControl
constructor Create(AOwner : TComponent);
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);
property Align :
inherited properties
property AutoSize : boolean
Public 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 :
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 :
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;
constructor Create(AOwner : TComponent);
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);
property Align :
inherited properties
property AutoSize : boolean
Public 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 :
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 :
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;