| Class TExPageControl (unit ExPage) |
TPageControl
| Constructors |
constructor Create (AOwner : TComponent);constructor must create a TControlCanvas for the owner draw style
| Functions |
destructor Destroy;
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DrawItem (Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure UpdateGlyphs;
procedure CNDrawItem (var Msg : TWMDrawItem);
function GetMultiline : boolean;
procedure GlyphsChanged (Sender : TObject);
procedure SetGlyphs (Value : TImageList);link the tabs to the glyph list nil parameter removes link
procedure SetTabStyles (Value : TTabStyles);| Properties |
property Canvas : TControlCanvas
property Glyphs : TImageList
property Styles : TTabStyles
property MultiLine : boolean| Events |
event OnDrawItem : TDrawItemEvent
event OnGlyphMap : TGlyphMapEvent| Variables |
FCanvas : TControlCanvas;
FGlyphs : TImageList;
FOnDrawItem : TDrawItemEvent;
FOnGlyphMap : TGlyphMapEvent;
FTabStyles : TTabStyles;| 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 : TControlCanvascanvas published
property Glyphs : TImageListfor owner draw link to TImageList
property Styles : TTabStylestab styles property
property MultiLine : boolean| Events |
event OnDrawItem : TDrawItemEventowner draw event
event OnGlyphMap : TGlyphMapEventglyph 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