| Class TCustomTabControl98 (unit TabControl98) |
TCustomTabControl
| Constructors |
constructor Create (AOwner: TComponent);| Functions |
destructor Destroy;
procedure AssociateImages;
procedure CreateParams(var Params: TCreateParams);
procedure DrawTab(TabNdx: Integer; const Rect: TRect);
function InternalHint(TabNdx: Integer): String;
procedure SetTabPosition (Value: TTabPosition);
procedure SetTransparent(Value: Boolean);
procedure CMRecreateWnd(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);
procedure CNMeasureItem(var Message: TWMMeasureItem);
procedure CNNotify(var Message: TWMNotify);
function GetImage (Index: Integer): Integer;
procedure ImageListChange (Sender: TObject);
procedure SetColor(Value: TColor);
procedure SetDefaultDrawing(Value: TDefaultDrawingType);
procedure SetDrawStyle (Value: TTabDrawStyle);
procedure SetImage (Index: Integer; imIndex: Integer);
procedure SetImages (Value: TImageList);
procedure SetMultiSelect (Value: Boolean);
procedure SetTabIconJustification (Value: TTabIconJustification);
procedure SetTabJustification (Value: TTabJustification);
procedure SetTabStyle (Value: TTabStyle);
procedure WMNotify(var Message: TWMNotify);| Properties |
property Canvas : TCanvas
property Color : TColor
property DefaultDrawing : TDefaultDrawingType
property DrawStyle : TTabDrawStyle
property Image : Integer
property Images : TImageList
property MultiSelect : Boolean
property TabIconJustification : TTabIconJustification
property TabIndex :
property TabJustification : TTabJustification
property TabPosition : TTabPosition
property Tabs :
property TabStyle : TTabStyle
property Transparent : Boolean| Events |
event OnDrawTab : TDrawTabEvent
event OnGetHint : TGetHintEvent
event OnGetImageIndex : TGetImageIndexEvent
event OnGetTabColor : TGetTabColorEvent
event OnMeasureTab : TMeasureTabEvent| Variables |
FCanvas : TCanvas;
FColor : TColor;
FDefaultDrawing : TDefaultDrawingType;
FDrawStyle : TTabDrawStyle;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FMultiSelect : Boolean;
FOnDrawTab : TDrawTabEvent;
FOnGetHint : TGetHintEvent;
FOnGetImageIndex : TGetImageIndexEvent;
FOnGetTabColor : TGetTabColorEvent;
FOnMeasureTab : TMeasureTabEvent;
FTabIconJustification : TTabIconJustification;
FTabJustification : TTabJustification;
FTabPosition : TTabPosition;
FTabStyle : TTabStyle;
FTransparent : Boolean;| Constructors |
constructor Create (AOwner: TComponent);| Functions |
destructor Destroy;
procedure AssociateImages;
procedure CreateParams(var Params: TCreateParams);
procedure DrawTab(TabNdx: Integer; const Rect: TRect);
function InternalHint(TabNdx: Integer): String;Var Pt: TSmallPoint;
procedure SetTabPosition (Value: TTabPosition);
procedure SetTransparent(Value: Boolean);MessageBeep(MB_Ok);
procedure CMRecreateWnd(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);
procedure CNMeasureItem(var Message: TWMMeasureItem);if Assigned(fOnGetTabColor) then FOnGetTabColor(Self, itemID, TabColor, FontColor); else begin FCanvas.Font.Color:=FontColor; FCanvas.Brush.Color:= TabColor; end;
procedure CNNotify(var Message: TWMNotify);MessageBeep(MB_Ok);
function GetImage (Index: Integer): Integer;
procedure ImageListChange (Sender: TObject);
procedure SetColor(Value: TColor);
procedure SetDefaultDrawing(Value: TDefaultDrawingType);
procedure SetDrawStyle (Value: TTabDrawStyle);
procedure SetImage (Index: Integer; imIndex: Integer);
procedure SetImages (Value: TImageList);
procedure SetMultiSelect (Value: Boolean);
procedure SetTabIconJustification (Value: TTabIconJustification);
procedure SetTabJustification (Value: TTabJustification);
procedure SetTabStyle (Value: TTabStyle);
procedure WMNotify(var Message: TWMNotify);MessageBeep(Mb_Ok);
| Properties |
property Canvas : TCanvas
property Color : TColor
property DefaultDrawing : TDefaultDrawingType
property DrawStyle : TTabDrawStyle
property Image : Integer
property Images : TImageList
property MultiSelect : Boolean
property TabIconJustification : TTabIconJustification
property TabIndex :
property TabJustification : TTabJustification
property TabPosition : TTabPosition
property Tabs :
property TabStyle : TTabStyle
property Transparent : Boolean| Events |
event OnDrawTab : TDrawTabEvent
event OnGetHint : TGetHintEvent
event OnGetImageIndex : TGetImageIndexEvent
event OnGetTabColor : TGetTabColorEvent
event OnMeasureTab : TMeasureTabEvent| Variables |
FCanvas : TCanvas;
FColor : TColor;
FDefaultDrawing : TDefaultDrawingType;
FDrawStyle : TTabDrawStyle;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FMultiSelect : Boolean;
FOnDrawTab : TDrawTabEvent;
FOnGetHint : TGetHintEvent;
FOnGetImageIndex : TGetImageIndexEvent;
FOnGetTabColor : TGetTabColorEvent;
FOnMeasureTab : TMeasureTabEvent;
FTabIconJustification : TTabIconJustification;
FTabJustification : TTabJustification;
FTabPosition : TTabPosition;
FTabStyle : TTabStyle;
FTransparent : Boolean;