!********************************************************************
! RDcontrl.Inc                          Copyright 1997 by Allerup EDB
!********************************************************************
! Declaration of the RDControl CLASS
!********************************************************************

RDControl         CLASS,TYPE
Ctrl                &RDCtrl     !Pointer to window control object
UserFieldName       String(32)  !Username for control
FieldName           String(32)  !Variablename
ControlType         Byte        !Type of control
Justification       String(1)   !R=Right L=Left C=Center otherwise default
Resizable           Byte        !True=Textfield is resizable
Picture             String(256) !Picture, filename or text
Transparent         Byte        !True=Transparent
LineColor           Long        !Line color
BoxColor            Long        !Fill color
BoxRound            Byte        !True=Box has round corners
FontName            String(64)  !Name of control font
FontStyle           Short       !Style for control font
FontSize            Short       !Size of control font
FontColor           Long        !Color of control font

Init                Procedure
Kill                Procedure
ControlProp         Procedure (Long pMouseX, Long pMouseY, |
                               Long pCtrlNo, Short pBandType)
CheckProporties     Function(), Short
CreateControl       Procedure
SetProporties       Procedure
PlaceControl        Procedure (Short pDisplayMode)
IsMouseIn           Function (), Long
SwitchScaleTo       Procedure (String pNewScale)
ControlSelected     Function (), String
FormatPicture       Function (*String pPicture), String
RedrawControl       Procedure
                  END

RDControlQueueType  QUEUE,TYPE
OneControl            &RDControl
                    END
