Class TIndexTabs (unit IndexTabs)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure CreateParams (var Params: TCreateParams);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;

Since the automatic erase/redraw is disabled when it is resized, it must manually repaint it

procedure CalculateButtonsArray;


procedure DrawButton(Index: integer; Sunken: boolean);

Add the first character

function GetBtnCaption(const BtnID, NumOfBtn: integer):string;


procedure SetBorderWidth(AValue:integer);


procedure SetBtnGap(AValue:integer);


procedure SetUpperCase(AValue: boolean);


procedure WMSize (var Message: TWMSize);


Properties

property Align :


property BorderWidth : integer


property ButtonGap : integer


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property UpperCase : boolean


property Visible :


Events

event OnButtonClick : TButtonClickEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FBorderWidth : integer;


FBtnGap : integer;


FBtnHeight : integer;


FButtons : array[0..26] of TRect;


FClicked : boolean;


FCurrBtn : integer;


FOnButtonClick : TButtonClickEvent;


FTotBtn : integer;


FUpperCase : boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure CreateParams (var Params: TCreateParams);


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure Paint;

Since the automatic erase/redraw is disabled when it is resized, it must manually repaint it


procedure CalculateButtonsArray;


procedure DrawButton(Index: integer; Sunken: boolean);

Add the first character


function GetBtnCaption(const BtnID, NumOfBtn: integer):string;


procedure SetBorderWidth(AValue:integer);


procedure SetBtnGap(AValue:integer);


procedure SetUpperCase(AValue: boolean);


procedure WMSize (var Message: TWMSize);


Properties


property Align :


property BorderWidth : integer


property ButtonGap : integer


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property TabOrder :


property TabStop :


property UpperCase : boolean


property Visible :


Events


event OnButtonClick : TButtonClickEvent


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FBorderWidth : integer;


FBtnGap : integer;


FBtnHeight : integer;


FButtons : array[0..26] of TRect;


FClicked : boolean;


FCurrBtn : integer;


FOnButtonClick : TButtonClickEvent;


FTotBtn : integer;


FUpperCase : boolean;