Class TCEOTabControl (unit ATabCtrl)

Inherits from

TTabControl

TCEOTabControl

Constructors


constructor Create (AOwner: TComponent);

*****************************************************************} {* CLASS TCEOTabControl *} {


Functions

procedure DefaultDrawTab (RectFg, RectBg: TRect; Index: Integer; ActiveTab: Boolean);

*********** * Name.

destructor Destroy;


procedure DrawTab (TabCanvas: TCanvas; const RectFg, RectBg: TRect; Index: Integer; ActiveTab: Boolean);

*********** * Name.

function GetSheetRect: TRect;

*********** * Name.

procedure Change;

*********** * Name.

procedure CreateParams(var Params: TCreateParams);

*********** * Name.

procedure Invalidate;

*********** * Name.

procedure CMParentColorChanged(var Message: TMessage);

*********** * Name.

procedure CMParentFontChanged(var Message: TMessage);

*********** * Name.

procedure CNDrawTab(var Message: TWMDrawItem);

*********** * Name.

function GetImage (Index: Integer): Integer;

*********** * Name.

procedure ImageListChange (Sender: TObject);

*********** * Name.

procedure SetImage (Index: Integer; imIndex: Integer);

*********** * Name.

procedure SetImages (Value: TImageList);

*********** * Name.

procedure SetSheetStyle (Value: TCEOSheetColor);

*********** * Name.

procedure SetStyle (Value: TTabStyle);

*********** * Name.

procedure SetTabActiveColor (Value: TColor);

*********** * Name.

procedure SetTabActiveFont (Value: TFont);

*********** * Name.

procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);

*********** * Name.

Properties

property Color :


property Images : TImageList


property ParentColor :


property SheetStyle : TCEOSheetColor


property Style : TTabStyle


property TabActiveColor : TColor


property TabActiveFont : TFont


property Canvas : TCanvas


property Image : Integer


Events

event OnDrawTab : TCEODrawTabEvent


Variables

FCanvas : TCanvas;


FImageChangeLink : TChangeLink;


FImages : TImageList;


FOnDrawTab : TCEODrawTabEvent;


FSheetColor : TColor;


FSheetStyle : TCEOSheetColor;


FStyle : TTabStyle;


FTabActiveColor : TColor;


FTabActiveFont : TFont;



Constructors


constructor Create (AOwner: TComponent);

*****************************************************************} {* CLASS TCEOTabControl *} {


Functions


procedure DefaultDrawTab (RectFg, RectBg: TRect; Index: Integer; ActiveTab: Boolean);

*********** * Name.......: DefaultDrawTab


destructor Destroy;


procedure DrawTab (TabCanvas: TCanvas; const RectFg, RectBg: TRect; Index: Integer; ActiveTab: Boolean);

*********** * Name.......: DrawTab * Description: Call event handler if was set, * or use default draw method to draw tab


function GetSheetRect: TRect;

*********** * Name.......: GetSheetRect * Description: Return sheet rectangle


procedure Change;

*********** * Name.......: Change * Description: Redraw sheet area if we have AsTabColot setting.


procedure CreateParams(var Params: TCreateParams);

*********** * Name.......: CreateParams * Description: Set Owner Draw style if we have to


procedure Invalidate;

*********** * Name.......: Invalidate


procedure CMParentColorChanged(var Message: TMessage);

*********** * Name.......: CMParentColorChanged (Message CM_PARENTCOLORCHANGED)


procedure CMParentFontChanged(var Message: TMessage);

*********** * Name.......: CMParentFontChanged (Message CM_PARENTFONTCHANGED)


procedure CNDrawTab(var Message: TWMDrawItem);

*********** * Name.......: CNDrawTab (Message CN_DRAWTAB) * Description: This message is sent when eacth tab needs to be repainted.


function GetImage (Index: Integer): Integer;

*********** * Name.......: GetImage


procedure ImageListChange (Sender: TObject);

*********** * Name.......: ImageListChange * Description: Be called whenever a change in the ImageList occurs to * notify TabControl about the changes.


procedure SetImage (Index: Integer; imIndex: Integer);

*********** * Name.......: SetImage * Description: Display image from ImageList on Index tab.


procedure SetImages (Value: TImageList);

*********** * Name.......: SetImages * Description: Assign ImageList to internal class variable and register * TChangeLink object.


procedure SetSheetStyle (Value: TCEOSheetColor);

*********** * Name.......: SetSheetColor


procedure SetStyle (Value: TTabStyle);

*********** * Name.......: SetStyle


procedure SetTabActiveColor (Value: TColor);

*********** * Name.......: SetTabActiveColor


procedure SetTabActiveFont (Value: TFont);

*********** * Name.......: SetTabActiveFont


procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);

*********** * Name.......: WMEraseBkgnd (Message WM_ERASEBKGND)


Properties


property Color :


property Images : TImageList


property ParentColor :


property SheetStyle : TCEOSheetColor


property Style : TTabStyle


property TabActiveColor : TColor


property TabActiveFont : TFont


property Canvas : TCanvas


property Image : Integer


Events


event OnDrawTab : TCEODrawTabEvent


Variables


FCanvas : TCanvas;


FImageChangeLink : TChangeLink;


FImages : TImageList;


FOnDrawTab : TCEODrawTabEvent;


FSheetColor : TColor;


FSheetStyle : TCEOSheetColor;


FStyle : TTabStyle;


FTabActiveColor : TColor;


FTabActiveFont : TFont;