ShipZoneTouch.bbj

if INFO(3,6)<>"5" then 
    ::components/util/Util.bbj::Util.runAsBui(pgm(-1))
fi

use ::components/ui/unbound/WindowStack.bbj::WindowStack
use ::ui/ShipZoneTouchScreenCombo.bbj::ShipZoneTouchScreenCombo
use ::bl/ShipZoneBusinessComponent.bbj::ShipZoneBusinessComponent


rem * this sample shows a touch version of a search grid + form
rem * embedded in a child window
rem * note that WindowStack by default can be used
rem * to achieve a full screen display of the screen


listpagesize$ = stbl("!LIST_PAGE_SIZE","10")
BBjAPI().getConfig().setOptionSetting("FAST_TOUCH_CLICK", 1)

sg!         = BBjAPI().openSysGui("X0")
screenSize! = BBjAPI().getSysGui().getSystemMetrics().getScreenSize()

wnd!        = sg!.addWindow(0,0,screenSize!.width,screenSize!.height,"",$01081010$ )
wnd!.setCallback(BBjAPI.ON_SCREEN_RESIZE,"resize")
wnd!.setCallback(wnd!.ON_CLOSE,"byebye")

frame!      = wnd!.addChildWindow(100,0,40,screenSize!.width,screenSize!.height-80,"",$00000800$,BBjAPI().getSysGui().getAvailableContext())

WindowStack.setContainerWnd(frame!)
bc!         = new ShipZoneBusinessComponent()
cw!         = WindowStack.openWindow(bc!.getTitle())
ctc!        = new ShipZoneTouchScreenCombo(cw!, bc!)
WindowStack.setWidget(ctc!)

myTopBar!   = wnd!.addStaticText(110, 0, 0, w, 40, "")
myTopBar!.setName("topGradientBar")
wnd!.addImage(111,0,0,2500,40,"components/css/banner.png")

myStatusBar! = wnd!.addStaticText(112, 0, h-20, w, 20, "") 
myStatusBar!.setName("topGradientBar")

myExit!     = wnd!.addButton(200, screenSize!.width-24-8, 8, 30, 30, "")
myExit!.setName("exitButton")
myExit!.setCallback(BBjAPI.ON_BUTTON_PUSH, "byebye")

wnd!.setVisible(1)

process_events

byebye:
    bye

resize:
    ev! = BBjAPI().getLastEvent()
    w = ev!.getWidth()
    h = ev!.getHeight()
    myTopBar!.setSize(w,40)
    myStatusBar!.setSize(w,20)
    myStatusBar!.setLocation(0, h-20)
    myExit!.setLocation(w-24-8,8)
    frame!.setSize(w,h-80)
    WindowStack.resize(w,h-80)
return