| Class TCEOTabControl (unit ATabCtrl) |
TTabControl
TCEOTabControl
| Constructors |
constructor Create (AOwner: TComponent);| Functions |
procedure DefaultDrawTab (RectFg, RectBg: TRect;
Index: Integer; ActiveTab: Boolean);
destructor Destroy;
procedure DrawTab (TabCanvas: TCanvas; const RectFg, RectBg: TRect;
Index: Integer; ActiveTab: Boolean);
function GetSheetRect: TRect;
procedure Change;
procedure CreateParams(var Params: TCreateParams);
procedure Invalidate;
procedure CMParentColorChanged(var Message: TMessage);
procedure CMParentFontChanged(var Message: TMessage);
procedure CNDrawTab(var Message: TWMDrawItem);
function GetImage (Index: Integer): Integer;
procedure ImageListChange (Sender: TObject);
procedure SetImage (Index: Integer; imIndex: Integer);
procedure SetImages (Value: TImageList);
procedure SetSheetStyle (Value: TCEOSheetColor);
procedure SetStyle (Value: TTabStyle);
procedure SetTabActiveColor (Value: TColor);
procedure SetTabActiveFont (Value: TFont);
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);| 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;