Class TExPageControl (unit ExPage) |
Inherits from
TPageControl
constructor Create (AOwner : TComponent);
- republish Multiline as read only
constructor must create a TControlCanvas for the owner draw style
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
property Canvas : TControlCanvas
canvas published
property Glyphs : TImageList
for owner draw link to TImageList
property Styles : TTabStyles
tab styles property
property MultiLine : boolean
event OnDrawItem : TDrawItemEvent
owner draw event
event OnGlyphMap : TGlyphMapEvent
glyph map event
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
constructor Create (AOwner : TComponent);
republish Multiline as read only
constructor must create a TControlCanvas for the owner draw style
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
property Canvas : TControlCanvas
canvas published
property Glyphs : TImageList
for owner draw link to TImageList
property Styles : TTabStyles
tab styles property
property MultiLine : boolean
event OnDrawItem : TDrawItemEvent
owner draw event
event OnGlyphMap : TGlyphMapEvent
glyph map event
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