Unit ATabCtrl

*********** * * Project....: Experiences and Examples * File.......: ATabCtrl.pas * Created by : Anton A. Mints * Date.......: 1 December 1996 * Purpose....: Tab Control with glyph on the tabs. * * $Archive: /delphi experiences/tcontrol with pictures/atabctrl.pas $ * * $History: atabctrl.pas $ * * ***************** Version 1 ***************** * User: Anton Date: 12/21/96 Time: 8:37p * Created in $/delphi experiences/tcontrol with pictures * My own developed cool component *

Classes

TCEOTabControl - TCEOTabControl

Functions

Register -

Types

TCEODrawTabEvent
TCEOSheetColor

Constants

Variables


Functions


procedure Register;


Types


TCEODrawTabEvent = procedure (Sender: TObject;
    TabCanvas: TCanvas; const RectFg, RectBg: TRect;
    Index: Integer; ActiveTab: Boolean) of object

TCEOSheetColor = (scDefault, scSameAsTab);

Constants


Variables