Unit Tabs95

***************************************************************************** tTabSet95 v2.1 Derived from tCustomControl Properties AutoSize : Calculate tabs size & position automatically. BackColor : Background color for Tabs. ColorSelected : Color for selected Tab. UnColorSelected : Color for unselected Tab. MainHintIsZero : If true, first hint in list is main hint. Notebook : Notebook associed to these tabs. NotebookColor : If true, colors are the same that associed notebook. NotebookFont : If true, font is the same that associed notebook. Orientation : Orientation of tabset - Top, Left, Right or Bottom Style : Style of tabs (Standard or OwnerDraw). Tabs : List of Tabs in this TabSet. TabHeight : Height of Tabs when Autosize is false. TabHints : Hints for each Tab. TabIndex : Active tab. TabMargin : Margin before first Tab. TabsJustified : Set if tabs must be justified (use full width). TabSpacing : Space between each Tab. Inherited properties Align, DragMode, DragCursor, Font, Height, Hint, ParentShowHint, ShowHint, TabOrder, TabStop, Visible, Width Events OnChange, OnClick, OnDragDrop, OnDragOver, OnEndDrag, OnEnter, OnExit, OnKeyDown, OnKeyPress, OnKeyUp, OnMouseDown, OnMouseMove, OnMouseUp; ******************************************************************************** tTabbedNotebook95 Derived from tCustomControl Properties MainHintIsZero : If true, first hint in list is main hint. Orientation : Orientation & position of tabset - Top, Left, Right or Bottom TabHeight : Height of Tabs when Autosize is false. TabHints : Hints for each Tab. TabFrontSize : Difference (in pixels) between normal tabs & active tab. TabSpacing : Space between each Tab. ******************************************************************************** Author name=BOURMAD Mehdi Author E-mail=bourmad@mygale.org Author URL=www.mygale.org/~bourmad

Classes

TAboutMeProperty - ********* tAboutMeProperty
tTabbedNotebook95 - ************ tTabbedNotebook95
tTabSet95 - ************ tTabSet95

Functions

Register -

Types

pTabInfo
TOrientation
TTabChangeEvent
tTabInfo
TTabStyle

Constants

Variables


Functions


procedure Register;


Types


pTabInfo = ^tTabInfo

TOrientation = (toBottom, toRight, toTop, toLeft);

TTabChangeEvent = procedure (Sender: TObject; NewTab: Integer;
                               var AllowChange: Boolean) of object

tTabInfo = record
Pos : tRect;
Line : integer;
TextWidth : integer;
TextHeight : integer;
end;

TTabStyle = (tsStandard,tsOwnerDraw);

Constants


Variables