Class tTabSet95 (unit Tabs95)

Inherits from

TCustomControl

************ tTabSet95

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.

procedure WMSize(var Message: TWMSize);

message handlers

Properties

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 :


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;



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


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;