| Class TArrowButton (unit arrowbtn) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure DrawDownArrow;
procedure DrawLeftArrow;
procedure DrawRightArrow;
procedure DrawUpArrow;
procedure MoveButton;
procedure Paint;
procedure WMLButtonDown(var Message: TWMLButtonDown);
procedure WMLButtonUp(var Message: TWMLButtonUp);
procedure FreeRegion;
procedure SetButtonColor(value: TColor);
procedure SetDirection(value: TButtonDirection);| 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;