Class TCEOTabControl (unit ATabCtrl) |
Inherits from
TTabControl
TCEOTabControl
constructor Create (AOwner: TComponent);
- *****************************************************************} {* CLASS TCEOTabControl *} {
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.
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
event OnDrawTab : TCEODrawTabEvent
FCanvas : TCanvas;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FOnDrawTab : TCEODrawTabEvent;
FSheetColor : TColor;
FSheetStyle : TCEOSheetColor;
FStyle : TTabStyle;
FTabActiveColor : TColor;
FTabActiveFont : TFont;
constructor Create (AOwner: TComponent);
*****************************************************************} {* CLASS TCEOTabControl *} {
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)
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
event OnDrawTab : TCEODrawTabEvent
FCanvas : TCanvas;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FOnDrawTab : TCEODrawTabEvent;
FSheetColor : TColor;
FSheetStyle : TCEOSheetColor;
FStyle : TTabStyle;
FTabActiveColor : TColor;
FTabActiveFont : TFont;