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