!********************************************************************
! RDreport.Inc                          Copyright 1997 by Allerup EDB
!********************************************************************
! Declaration of the RptDesReport CLASS
!********************************************************************

RptDesReport      CLASS,TYPE
DesignerWindow      &Window             !Pointer to designer window
DesignChanged       Byte                !True=Layout has changed
PaperScale          String(1)           !M=Milimeter otherwise 1/1000 inch
CurrentView         String(1)           !B=Band view otherwise Form view
Orientation         String(1)           !L=Landscape otherwise Portrait
PaperCtrl           &RDCtrl             !Pointer to paper window control
DetailArea          &RDCtrl             !Pointer to detail area window control
FontName            String(64)          !Name of default font
FontStyle           Short               !Style for default font
FontSize            Short               !Size of default font
FontColor           Long                !Color of default font
DFontName           String(64)          !Name of default font
DFontStyle          Short               !Style for default font
DFontSize           Short               !Size of default font
NextCtrl            Long                !Next window control number to use
FirstTagCtrl        Long                !First window control number of tag-controls
CurrentBand         Long                !Number in bandqueue
CurrentControl      Long                !Window control number
SelectedCtrl        Byte                !RptDes::Paper, RptDes::DetailArea,
                                        !RptDes::Band, RptDes::Control
SelectedTag         &RDTags             !Pointer to tags for currently selected item
Bands               &RDBandQueueType    !Pointer to band queue - all bands are present
IsInserting         Byte                !Inserting a new control is in progress
TaggedCtrls         &RDTagQueue
IsDragging          Short               !0=Dragging is not in progress
                                        !Bitmapped: RptDes::N, RptDes::S, RptDes::E,
                                        !   RptDes::W, RptDes::Move, RptDes::Place
DragStartX          Long                !Mouse x-position when start dragging
DragStartY          Long                !Mouse y-position when start dragging
LastMouseX          Long                !Last mouse x-position
LastMouseY          Long                !Last mouse y-position
StepSize            Long

Init                Procedure (Window pW, Long pTypeNumber)   !Initiate a layout
Kill                Procedure               !Terminate a layout
ResetReport         Procedure (Long pResetFlags)
NewLayout           Procedure               !Start a new layout
SelectIt            Procedure
RedrawLayout        Procedure
SelectedProp        Procedure
ReportProp          Procedure
BandProp            Procedure
InsertBand          Procedure
RemoveBand          Procedure
ControlProp         Procedure
InsertControl       Procedure
SetInsertControl    Procedure
RemoveControl       Procedure
RemoveTagged        Procedure
SwitchView          Procedure (String pSetViewTo)
SwitchScale         Procedure (String pSetScaleTo)
AnyTagged           Function (),Long
HasChanged          Function (),Short
ThisView            Function (),String
ThisScale           Function (),String
IsBandSelected      Function (),Short
IsControlSelected   Function (),Short
GetStepSize         Function (),Long
SetStepSize         Procedure (Long pStepSize)
MayBandBeInserted   Function (),Short
EventAction         Function (),Short
LocateControl       Function (*Long pCtrlNo, *Long pBandNo), Short
AlignTop            Procedure
AlignBottom         Procedure
AlignLeft           Procedure
AlignRight          Procedure
SameSize            Procedure
SameWidth           Procedure
SameHeight          Procedure
ReadLayout          Procedure(Long pDesignNumber)
WriteLayout         Procedure(Long pDesignNumber)
                  END

