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 |
Functions |
Register -
Types |
TOrientation
TTabChangeEvent
TTabStyle
Constants |
Variables |
Functions |
Types |
TOrientation = (toBottom,toRight,toTop,toLeft);
TTabChangeEvent = procedure(Sender: TObject; NewTab: Integer; var AllowChange: Boolean) of object
TTabStyle = (tsStandard,tsOwnerDraw);
Constants |
Variables |