!********************************************************************
! RDctrl.Inc                            Copyright 1997 by Allerup EDB
!********************************************************************
! Declaration of the RDCtrl CLASS
!********************************************************************

RDCtrl            CLASS,TYPE
CtrlNo              Long            !Window control number
CtrlType            Short           !Control type see CREATE:xxx
Xpos                Long            !X-position
Ypos                Long            !Y-position
Width               Long            !Width  (-1=default)
Height              Long            !Height (-1=default)
WinXpos             Long            !Window x-position
WinYpos             Long            !Window y-position
WinWidth            Long            !Window width
WinHeight           Long            !Window height

Init                Procedure (Long pCtrlNo, Short pType)
IsMouseIn           Function (), Long   !Returns 0 (mouse not in),
                                        !or size of control (min 1)
Kill                Procedure
SetSize             Procedure (Long pRelX, Long pRelY, |
                               Long pX, Long pY, Long pW, Long pH, |
                               Long pDefaultW, Long pDefaultH)
PlaceCtrl           Procedure (Long pNewX, Long pNewY, |
                               Long pNewW, Long pNewH, Short pDirection)
                  END
