Class TExPageControl (unit ExPage)

Inherits from

TPageControl

Constructors


constructor Create (AOwner : TComponent);

republish Multiline as read only

constructor must create a TControlCanvas for the owner draw style



Functions

destructor Destroy;

remove link with glyphs and free the canvas

procedure CreateParams(var Params: TCreateParams);

CreateParams called to set the additional style bits

procedure CreateWnd;

CreateWnd also must set links to the glyphs

procedure DrawItem (Index: Integer; Rect: TRect; State: TOwnerDrawState);

default DrawItem method

procedure UpdateGlyphs;

update the glyphs linked to the tab

procedure CNDrawItem (var Msg : TWMDrawItem);

called when Owner Draw style is selected: retrieve the component style, set up the canvas and call the DrawItem method

function GetMultiline : boolean;

multiline property redefined as readonly, this makes it disappear from the object inspector

procedure GlyphsChanged (Sender : TObject);

if the glyphs should change then update the tabs

procedure SetGlyphs (Value : TImageList);

glyph mapping event

link the tabs to the glyph list nil parameter removes link


procedure SetTabStyles (Value : TTabStyles);

determine properties whenever the tab styles are changed

Properties

property Canvas : TControlCanvas

canvas published

property Glyphs : TImageList

for owner draw link to TImageList

property Styles : TTabStyles

tab styles property

property MultiLine : boolean


Events

event OnDrawItem : TDrawItemEvent

owner draw event

event OnGlyphMap : TGlyphMapEvent

glyph map event

Variables

FCanvas : TControlCanvas;


FGlyphs : TImageList;

canvas for drawing on with tabOwnerDraw

FOnDrawItem : TDrawItemEvent;

tab style

FOnGlyphMap : TGlyphMapEvent;

Owner draw event

FTabStyles : TTabStyles;

link to a TImageList component


Constructors


constructor Create (AOwner : TComponent);

republish Multiline as read only

constructor must create a TControlCanvas for the owner draw style


Functions


destructor Destroy;

remove link with glyphs and free the canvas


procedure CreateParams(var Params: TCreateParams);

CreateParams called to set the additional style bits


procedure CreateWnd;

CreateWnd also must set links to the glyphs


procedure DrawItem (Index: Integer; Rect: TRect; State: TOwnerDrawState);

default DrawItem method


procedure UpdateGlyphs;

update the glyphs linked to the tab


procedure CNDrawItem (var Msg : TWMDrawItem);

called when Owner Draw style is selected: retrieve the component style, set up the canvas and call the DrawItem method


function GetMultiline : boolean;

multiline property redefined as readonly, this makes it disappear from the object inspector


procedure GlyphsChanged (Sender : TObject);

if the glyphs should change then update the tabs


procedure SetGlyphs (Value : TImageList);

glyph mapping event

link the tabs to the glyph list nil parameter removes link


procedure SetTabStyles (Value : TTabStyles);

determine properties whenever the tab styles are changed


Properties


property Canvas : TControlCanvas

canvas published


property Glyphs : TImageList

for owner draw link to TImageList


property Styles : TTabStyles

tab styles property


property MultiLine : boolean


Events


event OnDrawItem : TDrawItemEvent

owner draw event


event OnGlyphMap : TGlyphMapEvent

glyph map event


Variables


FCanvas : TControlCanvas;


FGlyphs : TImageList;

canvas for drawing on with tabOwnerDraw


FOnDrawItem : TDrawItemEvent;

tab style


FOnGlyphMap : TGlyphMapEvent;

Owner draw event


FTabStyles : TTabStyles;

link to a TImageList component