Class TCustomTabControl98 (unit TabControl98)

Inherits from

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;

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.

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;



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;