sysgui! = bbjapi().openSysGui("X0")
window! = sysgui!.addWindow(50,50,800,600,"Gutters",$00090083$)
window!.setCallback(window!.ON_CLOSE,"eoj")
window!.setCallback(window!.ON_RESIZE,"resize")
grid! = window!.addGrid(101,25,25,750,500,$81ce$,32,4)
rem grid!.setFitToGrid(1)
grid!.setRowHeight(25)
grid!.setSnapToRowHeight(0)
grid!.setLineColor(BBjColor.LIGHT_GRAY)
rowtext! = window!.addStaticText(201,25,555,160,25,"setRowGutter:",$8000$)
row! = window!.addInputNSpinner(202,200,550,100,25,$$,"000",$$,0,0,0,256)
row!.setToolTipText("setRowGutter")
row!.setCallback(row!.ON_SPIN,"row")
row!.setCallback(row!.ON_EDIT_MODIFY,"row")
coltext! = window!.addStaticText(203,325,555,160,25,"setColumnGutter:",$8000$)
col! = window!.addInputNSpinner(204,500,550,100,25,$$,"000",$$,0,0,0,256)
col!.setToolTipText("setColumnGutter")
col!.setCallback(row!.ON_SPIN,"col")
col!.setCallback(col!.ON_EDIT_MODIFY,"col")
status! = window!.addStatusBar(99)
process_events
eoj:
release
resize:
event! = sysgui!.getLastEvent()
w = event!.getWidth()
h = event!.getHeight()
rowtext!.setLocation(rowtext!.getX(),h-45)
row!.setLocation(row!.getX(),h-50)
coltext!.setLocation(coltext!.getX(),h-45)
col!.setLocation(col!.getX(),h-50)
grid!.setSize(w-50,h-100)
return
row:
event! = sysgui!.getLastEvent()
value = num(event!.getText())
grid!.setRowGutter(value)
status$ = "setRowGutter " + str(value)
status$ = status$ + " getRowGutter " + str(grid!.getRowGutter())
status$ = status$ + " getColumnGutter " + str(grid!.getColumnGutter())
status!.setText(status$)
return
col:
event! = sysgui!.getLastEvent()
value = num(event!.getText())
grid!.setColumnGutter(value)
status$ = "setColumnGutter " + str(value)
status$ = status$ + " getRowGutter " + str(grid!.getRowGutter())
status$ = status$ + " getColumnGutter " + str(grid!.getColumnGutter())
status!.setText(status$)
return
|