| Class TIndexTabs (unit IndexTabs) |
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;
procedure CalculateButtonsArray;
procedure DrawButton(Index: integer; Sunken: boolean);
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;