Click above to get retro games delivered to your door ever month!

WArrowButton:Init() Method
Construct an arrow button control object
------------------------------------------------------------------------------

Syntax
WArrowButton{ <oParent>, [ <nId> ] , [ <oHelp> ] , [ <lCreate> ] }
             -->   SELF

Arguments
<oParent> is the parent (owner) window object.  Just as
<oParent> is the owner of the control object, the parent's
hWnd will be the actual owner of the control's window (if it
has a window on the screen).

<nId> is an optional number.  It will (eventually) default to
self:CreateId(), but you normally specify it as the same
value as in a dialog containing the control.

<oHelp> can be used to specify a help object.

<lCreate> specifies whether the window object's Create()
method is to be invoked immediately.  Usually you want the
default (.F.).

Returns
SELF.

Description
This method initialises an arrow button control that displays
an arrow pointing up, down, left, or right.  By default, this
method will NOT create a window on the screen (because controls
are usually automatically created in dialogs).

As this is implemented using an owner-drawn button, to put
this control in a dialog you should use a button with the
BS_OWNERDRAW style.

Example
// From SOURCE\OO\CLASSES\SPINBTN.PRG:
oBtn = WArrowButton{::oParent, , , .f.}
if  lHoriz
     oBtn:Left = .t.
else
     oBtn:Up = .t.
endif
::oUp = oBtn:Create( , ::CreateId(), nX, nY, nW, nH)
::oParent:Add(oBtn, {| | ::ClickUp()})