| Class tTabSet95 (unit Tabs95) |
TCustomControl
************ tTabSet95
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
procedure AdjustSize;
procedure BringToFront;
procedure CalculateTabs;
procedure Click;say we handled it, even if AllowChange is false
procedure CMDialogChar(var Msg : TCMDialogChar);
procedure CreateParams(var Params : TCreateParams);
procedure DrawBorder (aRect : tRect; BackColor : tColor);
procedure DrawTabs (TabCnt : Integer; RDraw : pRect);
procedure DrawTextHV (S : String; aRect: TRect);
function GetCorrectRect (TabInfo : tTabInfo) : tRect;
procedure JustifyLines;
procedure KeyDown(var Key: Word; Shift: TShiftState);
function LengthExt (aStr : String ) : integer;
procedure MouseMove(Shift : TShiftState; X, Y : integer);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Paint;
procedure SetAutoSize(Value : boolean);
procedure SetColorBack(Value : TColor);
procedure SetColorSel(Value : TColor);
procedure SetColorUnSel(Value : TColor);
procedure SetMainHintIsZero(Value : boolean);
procedure SetNoteBook(NB : TNoteBook);
procedure SetNoteColor(Value : boolean);
procedure SetNoteFont(Value : boolean);
procedure SetOrientation(Value : TOrientation);
procedure SetStyle(Value : TTabStyle);
procedure SetTabFrontSize(Value : integer);
procedure SetTabHeight(Value : integer);
procedure SetTabHints(List : TStrings);
procedure SetTabIndex(Value : integer);
procedure SetTabList(List : TStrings);
procedure SetTabsJustified(Value : boolean);
procedure SetTabSpacing(Value : integer);
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);
procedure WMSize(var Message: TWMSize);| Properties |
property About : TAboutMeProperty
property Align :
property AutoSize : boolean
property ColorBack : TColor
property ColorSelected : TColor
property ColorUnSelected : TColor
property DragCursor :
property DragMode :
property Font :
property Height :
property Hint :
property MainHintIsZero : boolean
property Notebook : TNoteBook
property NotebookColor : boolean
property NotebookFont : boolean
property Orientation : TOrientation
property ParentShowHint :
property ShowHint :
property Style : TTabStyle
property TabFrontSize : integer
property TabHeight : integer
property TabHints : TStrings
property TabIndex : integer
property TabOrder :
property Tabs : TStrings
property TabsJustified : boolean
property TabSpacing : integer
property TabStop :
property Visible :
property Width : | Events |
event OnChange : TTabChangeEvent
event OnClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
AllowChange : boolean;
FAbout : TAboutMeProperty;
FAutoSize : boolean;
FChangeEvent : TTabChangeEvent;
FColorBack : TColor;
FColorSelected : TColor;
FColorUnSelected : TColor;
FMainHintisZero : boolean;
FNbLines : integer;
FNoteBook : TNoteBook;
FNoteColor : boolean;
FNoteFont : boolean;
FOrientation : TOrientation;
FStyle : TTabStyle;
FTabDrawRects : tList;
FTabFont : TFont;
FTabFrontSize : integer;
FTabHeight : integer;
FTabHints : TStrings;
FTabIndex : integer;
FTabList : TStrings;
FTabsJustified : Boolean;
FTabSpacing : integer;| Constructors |
constructor Create(AOwner : TComponent);************ tTabSet95
| Functions |
destructor Destroy;
procedure AdjustSize;Orientation case
procedure BringToFront;Orientation case
procedure CalculateTabs;
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 DrawBorder (aRect : tRect; BackColor : tColor);
procedure DrawTabs (TabCnt : Integer; RDraw : pRect);rect for drawing and for showing activated this tab
procedure DrawTextHV (S : String; aRect: TRect);change assigned notebook page
function GetCorrectRect (TabInfo : tTabInfo) : tRect;with PolyLine, last pixel isn't drawn...
procedure JustifyLines;end for
procedure KeyDown(var Key: Word; Shift: TShiftState);
function LengthExt (aStr : String ) : integer;
procedure MouseMove(Shift : TShiftState; X, Y : integer);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Paint;
procedure SetAutoSize(Value : boolean);
procedure SetColorBack(Value : TColor);component specific procedures
procedure SetColorSel(Value : TColor);
procedure SetColorUnSel(Value : TColor);
procedure SetMainHintIsZero(Value : boolean);
procedure SetNoteBook(NB : TNoteBook);
procedure SetNoteColor(Value : boolean);
procedure SetNoteFont(Value : boolean);
procedure SetOrientation(Value : TOrientation);
procedure SetStyle(Value : TTabStyle);
procedure SetTabFrontSize(Value : integer);
procedure SetTabHeight(Value : integer);
procedure SetTabHints(List : TStrings);
procedure SetTabIndex(Value : integer);
procedure SetTabList(List : TStrings);
procedure SetTabsJustified(Value : boolean);
procedure SetTabSpacing(Value : integer);
procedure WMGetDlgCode(var Message: TWMGetDlgCode);
procedure WMKillFocus(var Message: TWMKillFocus);
procedure WMSetFocus(var Message: TWMSetFocus);if PtInRect(tTabInfo(FTabDrawRects.Items[i]^).Pos, Point(X,Y
procedure WMSize(var Message: TWMSize);message handlers
| Properties |
property About : TAboutMePropertyPublic declarations
property Align : inherited properties
property AutoSize : boolean
property ColorBack : TColor
property ColorSelected : TColor
property ColorUnSelected : TColor
property DragCursor :
property DragMode :
property Font :
property Height :
property Hint : TabHeight+2
property MainHintIsZero : boolean
property Notebook : TNoteBook
property NotebookColor : boolean
property NotebookFont : boolean
property Orientation : TOrientation
property ParentShowHint :
property ShowHint :
property Style : TTabStyle
property TabFrontSize : integer
property TabHeight : integer
property TabHints : TStrings
property TabIndex : integer
property TabOrder :
property Tabs : TStrings
property TabsJustified : boolean
property TabSpacing : integer
property TabStop :
property Visible :
property Width : | Events |
event OnChange : TTabChangeEvent
event OnClick :
event OnDragDrop : : TNotifyEvent read FOnClick write FOnClick
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnMouseDown : property OnKeyDown; property OnKeyPress; property OnKeyUp;
event OnMouseMove :
event OnMouseUp : | Variables |
AllowChange : boolean;FOnClick: TNotifyEvent;} { stuff that is component internal
FAbout : TAboutMeProperty;Stuff that is published
FAutoSize : boolean;
FChangeEvent : TTabChangeEvent;
FColorBack : TColor;
FColorSelected : TColor;
FColorUnSelected : TColor;
FMainHintisZero : boolean;
FNbLines : integer;
FNoteBook : TNoteBook;
FNoteColor : boolean;
FNoteFont : boolean;
FOrientation : TOrientation;
FStyle : TTabStyle;
FTabDrawRects : tList;
FTabFont : TFont;
FTabFrontSize : integer;
FTabHeight : integer;
FTabHints : TStrings;
FTabIndex : integer;
FTabList : TStrings;
FTabsJustified : Boolean;
FTabSpacing : integer;