Unit Thtabs

Description: Tab set component that supports Left, Right, Top and Bottom tab orientations. Also provides the following properties: Notebook - Associated Notbbok control, for automatic page synch Selected/Unselected Color of tabs TabRake and TabSpacing Accelerator characters supported on tabs Tab Focus supported Individual tab hints Automatic sizing of tab component to associated notebook Author: Thomas Hill, dba t.h.ink Software (hilt@ione.net) History : Version 0.1 - 0.45 Ancient history, best forgotten Version 0.5 - 01/11/96 Total rewrite. Version : 0.52, 01/14/96 Added Style property, for future OwnerDraw methods Added MainHintIsZero, to handle tab hints (ugly kludge!) Wrote help file for properties Added TabShadow property, for future 3D effects Rewrote tab dimensioning to use font size to compute tab sizes. Version 0.6, 1/16/96 Surfaced OnChange property, identical to TTabSet operation (I hope) Added About box disguised as a component editor, adds an 'About...' item to the right-click menu.

Classes

TThTabSet -

Functions

Register -

Types

TOrientation
TTabChangeEvent
TTabStyle

Constants

Variables


Functions


procedure Register;


Types


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

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

TTabStyle = (tsStandard,tsOwnerDraw);

Constants


Variables