Interface CommonGrid::setDefaultGridStyle

rem 'Set the cells in a BBjGrid object to be text field style cells

rem 'Obtain the instance of the BBjAPI object
let myAPI! = BBjAPI()

rem 'Open the SysGui device
SYSGUI = UNT
OPEN (SYSGUI) "X0"

rem 'Obtain the instance of the BBjSysGui object
let mySysGui! = myAPI!.getSysGui()

rem 'Create the main window and control objects
GOSUB CreateCalendar

rem 'Display the initial data
GOSUB DisplayMonth

rem 'Set the cells in the calendar to be text field cells
Calendar!.setDefaultGridStyle(mySysGui!.GRID_STYLE_TEXT)

rem 'Display the main window
MainWindow!.setVisible(mySysGui!.TRUE)

rem 'Register the CALLBACK routines
CALLBACK(ON_CLOSE,DoAppClose,CalendarContext)

rem 'Process Events
process_events

rem 'Callback routine called when the user closes the application window
DoAppClose:
release


rem 'Subroutine called to display the days in the current selected month/year
DisplayMonth:
    let DayNum = 0
    let FirstDayOfMonth = DayTable!.get(DATE(JUL(CurrentYear,CurrentMonth,1):"%Ds"))
    let DaysInMonth = FNDaysInMonth(CurrentYear,CurrentMonth)
    MonthVector!.clear()
    if (CurrentDay>DaysInMonth+1) then
        CurrentDay = DaysInMonth+1
    endif
    let CurrentJul = JUL(CurrentYear,CurrentMonth,CurrentDay)

    rem 'Week 0
    for DayOfWeek = 0 TO 6
        if (FirstDayOfMonth>DayOfWeek) then
            let Item$ = STR(0:DayMask$)
        else
            let Item$ = STR(DayNum+1:DayMask$)
            let DayNum = DayNum+1
        endif
        MonthVector!.addItem(Item$)
    next DayOfWeek

    rem 'Week 1-3
    for Week = 1 TO 3
        for DayOfWeek = 0 TO 6
            let Item$ = STR(DayNum+1:DayMask$)
            let DayNum = DayNum+1
            MonthVector!.addItem(Item$)
        next DayOfWeek
    next Week

    rem 'Week 4-5
    for week = 4 TO 5
        for DayOfWeek = 0 TO 6
            if (DayNum>DaysInMonth) then
                let Item$ = STR(0:DayMask$)
            else
                let Item$ = STR(DayNum+1:DayMask$)
                let DayNum = DayNum+1
            endif
            MonthVector!.addItem(Item$)
        next DayOfWeek
    next week

    rem 'Set the current information
    Calendar!.setCellText(MonthVector!)
    let CurrRow = INT((FirstDayOfMonth+CurrentDay-1)/7)
    let CurrCol = MOD(FirstDayOfMonth+CurrentDay-1,7)
    Calendar!.setSelectedCell(CurrRow,CurrCol)
    let CurrentMonthYear$ = DATE(CurrentJul:"%Ml %Y")
    CurrDate!.setText(CurrentMonthYear$)
    Calendar!.setCellText(5,5,"  To")
    Calendar!.setCellText(5,6,"day ")
return

rem 'Function called to return the number of days in the passed year and month
DEF FNDaysInMonth(fYear,fMonth)
    rem 'calculate the number of days in a month - zero based
    let DaysInMonth = 30
    if (fMonth<>12) then
        let DaysInMonth = NUM(DATE(JUL(fYear,fMonth+1,1)-1:"%D"))-1
    endif
    return DaysInMonth
FNEND

rem 'Subroutine called to create the calendar
CreateCalendar:
    rem 'Create the vector to hold month info
    let MonthVector! = mySysGui!.makeVector()

    rem 'Create a java hash table to hold day names
    let DayTable! = new java.util.Hashtable()

    rem 'Get standard date info from the STRING table
    DIM DateInfo$:"Mask:C(32* = 0),SM[12]:C(3* = 0),M[12]:C(32* = 0),SD[7]:C(3* = 0),D[7]:C(32* = 0)"
    let DateInfo$ = STBL("!DATE")

    rem 'Build the masks for the dates
    let dateMask$ = DateInfo.Mask$
    let M = POS("%M"=dateMask$),dateMask$ = dateMask$(1,M+1)+"l"+dateMask$(M+3)
    let M = POS("%Y"=dateMask$),dateMask$ = dateMask$(1,M+1)+dateMask$(M+3)
    while POS("/"=dateMask$)
        let M = POS("/"=dateMask$),dateMask$(M,1)=" "
    wend

    rem 'Build the day table
    for X = 0 TO 6
        let Item$ = DateInfo.SD$[x+1]
        DayTable!.put(Item$,x)
    next X

    rem 'Get current date info
    let CurrentDate$ = DATE(CurrentJul:dateMask$)
    let CurrentMonthYear$ = DATE(CurrentJul:"%Ml %Y")
    let CurrentDay = NUM(DATE(CurrentJul:"%Dz"))
    let CurrentMonth = NUM(DATE(CurrentJul:"%Mz"))
    let CurrentYear = NUM(DATE(CurrentJul:"%Y"))

    rem 'Misc
    let TITLE$="BBjGrid"
    let DayMask$="##B"
    let CurrentJul = 0,CalX = 400,CalY = 400

    rem 'Get the next available context
    let CalendarContext = mySysGui!.getAvailableContext()
    mySysGui!.setContext(CalendarContext)

    rem 'Create the main window
    let MainWindow! = mySysGui!.addWindow(100,100,202,160,TITLE$,$00010013$)

    rem 'Add the calendar (grid) to the main window
    let Calendar! = MainWindow!.addGrid(100,3,26,198,121)

    rem 'Set the attributes of the grid
    Calendar!.setGridEditable(1)
    blueColor! = mySysGui!.makeColor(mySysGui!.BLUE)
    Calendar!.setColumnHeaderForeColor(blueColor!)
    Calendar!.setNumRows(6)
    Calendar!.setRowHeight(20)
    Calendar!.setNumColumns(7)
    Calendar!.setMaxColumns(255)
    Calendar!.setHasColumnHeader(mySysGui!.TRUE)
    Calendar!.setVerticalLinesVisible(mySysGui!.TRUE)
    Calendar!.setHorizontalLinesVisible(mySysGui!.TRUE)
    Calendar!.setClientEdge(mySysGui!.TRUE)
    Calendar!.setSelectionMode(Calendar!.GRID_SELECT_CELL)

    rem 'Set the attributes for the grid's columns
    for COL = 0 TO 6
        Calendar!.setColumnWidth(COL, 25)
        Calendar!.setColumnAlignment(COL, Calendar!.GRID_ALIGN_RIGHT)
        Calendar!.setColumnForeColor(COL, blueColor!)
    next COL
    Calendar!.setColumnHeaderStyle(Calendar!.GRID_STYLE_BUTTON_UP)

    rem 'Set the attributes for the grid's column headers
    myVector! = mySysGui!.makeVector()
    myVector!.addItem("S")
    myVector!.addItem("M")
    myVector!.addItem("T")
    myVector!.addItem("W")
    myVector!.addItem("T")
    myVector!.addItem("F")
    myVector!.addItem("S")
    Calendar!.setColumnHeaderText(myVector!)
    Calendar!.setColumnHeaderForeColor(blueColor!)

    rem 'Set the attributes for the current date (static text control)
    let CurrDate! = MainWindow!.addStaticText(101,45,3,90,20,"")
    CurrDate!.setClientEdge(mySysGui!.TRUE)
    CurrDate!.setForeColor(blueColor!)

return