!********************************************************************
! RDband.Inc                            Copyright 1997 by Allerup EDB
!********************************************************************
! Declaration of the RDBand CLASS
!********************************************************************

RDBand            CLASS,TYPE
Ctrl                &RDCtrl     !Pointer to window control object
Present             Byte        !True=Band is present
BandType            Short       !Band type: RptDes::PageForm, RptDes::PageHeader,
                                !           RptDes::PageFooter, RptDes::Detail
Bandname            String(32)  !Name of band
DetailNo            Byte        !If detail detail sequencenumber
Absolute            Byte        !True=Band is absolute
PageBefore          Byte        !True=New page before print
PageAfter           Byte        !True=New page after print
WithPrior           Byte        !0-9: Number of details before to be
                                !printed with this on same page
WithNext            Byte        !0-9: Number of details after to be
                                !printed with this on same page
BandControls        &RDControlQueueType

Init                Procedure (String pBName, Short pBType, Short pDetailNo, |
                               Long pBCtrl)
Kill                Procedure
IsMouseIn           Function (), Long   !Returns 0 (mouse not in),
                                        !or size of control (min 1)
IsMouseInCtrl       Function (), Long   !Returns 0 (mouse not in),
                                        !or size of control (min 1)
LocateControl       Procedure (Long pCtrlNo)
Bandprop            Procedure
SwitchScaleTo       Procedure (String pNewScale)
RemoveBand          Procedure
InsertBand          Procedure
InsertControl       Procedure (Long pCtrlNo)
PlaceControls       Procedure (Short pDisplayMode)
RemoveControl       Procedure (Long pCtrlNo)
DefaultHeight       Function (), Long
ControlProp         Procedure
HasControl          Function (Long pCtrlNo), Short
                  END

RDBandQueueType   QUEUE,TYPE
OneBand             &RDBand
                  END
