Class TThTabSet (unit Thtabs)

Inherits from

TCustomControl

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 : 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 :


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;



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 : 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 :


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;