Class tTabSet95 (unit Tabs95) |
Inherits from
TCustomControl
************ tTabSet95
constructor Create(AOwner : TComponent);
- ************ tTabSet95
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.
procedure WMSize(var Message: TWMSize);
message handlers
property About : TAboutMeProperty
Public 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 :
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 :
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;
constructor Create(AOwner : TComponent);
************ tTabSet95
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
property About : TAboutMeProperty
Public 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 :
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 :
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;