Class TArrowButton (unit arrowbtn)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

offset from border of control to corner of button


Functions

destructor Destroy;


procedure DrawDownArrow;


procedure DrawLeftArrow;


procedure DrawRightArrow;

draw button

procedure DrawUpArrow;


procedure MoveButton;


procedure Paint;


procedure WMLButtonDown(var Message: TWMLButtonDown);


procedure WMLButtonUp(var Message: TWMLButtonUp);

if mouse is clicked on the arrowbutton make it appear sunken

procedure FreeRegion;


procedure SetButtonColor(value: TColor);


procedure SetDirection(value: TButtonDirection);

draw lines around button for sunken look

Properties

property ButtonColor : TColor


property Direction : TButtonDirection


property Enabled :


property ParentShowHint :


property ShowHint :


property Visible :


Events

event OnClick :


Variables

kButtonColor : TColor;


kButtonDown : boolean;


kDirection : TButtonDirection;


kpnts : array[1..3] of TPoint;


kRgn : HRgn;



Constructors


constructor Create(AOwner: TComponent);

offset from border of control to corner of button


Functions


destructor Destroy;


procedure DrawDownArrow;


procedure DrawLeftArrow;


procedure DrawRightArrow;

draw button


procedure DrawUpArrow;


procedure MoveButton;


procedure Paint;


procedure WMLButtonDown(var Message: TWMLButtonDown);


procedure WMLButtonUp(var Message: TWMLButtonUp);

if mouse is clicked on the arrowbutton make it appear sunken


procedure FreeRegion;


procedure SetButtonColor(value: TColor);


procedure SetDirection(value: TButtonDirection);

draw lines around button for sunken look


Properties


property ButtonColor : TColor


property Direction : TButtonDirection


property Enabled :


property ParentShowHint :


property ShowHint :


property Visible :


Events


event OnClick :


Variables


kButtonColor : TColor;


kButtonDown : boolean;


kDirection : TButtonDirection;


kpnts : array[1..3] of TPoint;


kRgn : HRgn;