|
rem ' clearImageSizeAt
precision 16
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
mgr! = sysgui!.getImageManager()
modal = 1; rem msgbox("Modal dialog?",4+32,"Modal")=6
flags$ = iff(modal,$00090003$,$00010003$)
window! = sysgui!.addWindow(50,50,400,350,"BBjTabControl",flags$)
window!.setCallback(window!.ON_CLOSE,"eoj")
clearImageSizeAt! = window!.addToolButton(101,25,200,350,25,"clearImageSizeAt",$$)
clearImageSizeAt!.setCallback(clearImageSizeAt!.ON_TOOL_BUTTON_PUSH,"clearImageSizeAt")
imageWidth! = window!.addHorizontalSlider(102,25,250,350,50,$$)
imageWidth!.setPaintLabels(1)
imageWidth!.setToolTipText("Image Width")
imageWidth!.setCallback(imageWidth!.ON_CONTROL_SCROLL,"imageWidth")
imageHeight! = window!.addHorizontalSlider(103,25,300,350,50,$$)
imageHeight!.setPaintLabels(1)
imageHeight!.setToolTipText("Image Height")
imageHeight!.setCallback(imageHeight!.ON_CONTROL_SCROLL,"imageHeight")
tabctrl! = window!.addTabCtrl(100,25,25,350,150,$0000$)
tabctrl!.setCallback(tabctrl!.ON_TAB_SELECT,"tabSelect")
tab = 0
width! = bbjapi().makeVector()
height! = bbjapi().makeVector()
while 1
dread image$,end=*break
image! = mgr!.loadImageFromServerJar(image$)
child! = window!.addChildWindow(200+tab,0,25,340,100,"",$00000810$,200+tab,$$)
text! = child!.addStaticText(300,tab,tab,200,50,image$)
tabctrl!.addTab(""+str(tab),tab,child!)
width = image!.getWidth()
width!.add(width)
height = image!.getHeight()
height!.add(height)
tabctrl!.setToolTipTextAt(tab,"Tab #"+str(tab)+": "+image$+" ("+str(width)+","+str(height)+")")
max = 10
if height>max then
scale = max/height
print tab,width,height,scale,
width = round(width*scale,2)
height = round(height* scale,2)
print width,height
tabctrl!.setImageSizeAt(tab,width,height)
endif
tabctrl!.setImageAt(tab,image!)
print tabctrl!.getToolTipTextAt(tab)
tab = tab + 1
wend
tabctrl!.setVisible(0)
tabctrl!.setSelectedIndex(tab-1)
tabctrl!.setVisible(1)
tabctrl!.focus()
tabctrl!.setSelectedIndex(0)
process_events
eoj:
release
tabSelect:
event! = sysgui!.getLastEvent()
index = event!.getIndex()
clearImageSizeAt!.setText("clearImageSizeAt "+str(index))
gosub update
return
clearImageSizeAt:
index = tabctrl!.getSelectedIndex()
if index<0 then return
tabctrl!.clearImageSizeAt(index)
gosub update
return
imageWidth:
event! = sysgui!.getLastEvent()
width = event!.getPosition()
height = imageHeight!.getValue()
index = tabctrl!.getSelectedIndex()
print "imageSize",index,width,height
tabctrl!.setImageSizeAt(index,width,height)
return
imageHeight:
event! = sysgui!.getLastEvent()
width = imageWidth!.getValue()
height = event!.getPosition()
index = tabctrl!.getSelectedIndex()
print "imageSize",index,width,height
tabctrl!.setImageSizeAt(index,width,height)
return
update:
width = width!.get(index)
imageWidth!.setPaintTicks(width<100)
imageWidth!.setMajorTickSpacing(10^ept(width/10))
imageWidth!.setMaximum(width)
imageWidth!.setValue(tabctrl!.getImageWidthAt(index))
height = height!.get(index)
imageHeight!.setPaintTicks(height<100)
imageHeight!.setMajorTickSpacing(10^ept(height/10))
imageHeight!.setMaximum(height)
imageHeight!.setValue(tabctrl!.getImageHeightAt(index))
return
data "com/basis/bbj/images/splash.jpg"
data "com/basis/bbj/images/BBjIDE.gif"
rem data "com/basis/bbj/images/IndexPropClosed.gif"
rem data "com/basis/bbj/images/IndexPropClosedAni.gif"
rem data "com/basis/bbj/images/IndexPropOpened.gif"
rem data "com/basis/bbj/images/IndexPropOpenedAni.gif"
rem data "com/basis/bbj/images/NavigatorFirst.gif"
rem data "com/basis/bbj/images/NavigatorLast.gif"
rem data "com/basis/bbj/images/NavigatorNext.gif"
rem data "com/basis/bbj/images/NavigatorPrevious.gif"
rem data "com/basis/bbj/images/basis-b.gif"
rem data "com/basis/bbj/images/basis-b16.gif"
data "com/basis/bbj/images/bbjclient.gif"
data "com/basis/bbj/images/bbjserver.gif"
data "com/basis/bbj/images/broken.png"
data "com/basis/bbj/images/browser.gif"
data "com/basis/bbj/images/busyrow.gif"
data "com/basis/bbj/images/close.gif"
data "com/basis/bbj/images/copy.gif"
data "com/basis/bbj/images/cuidemo.gif"
data "com/basis/bbj/images/cursor_c_1616.gif"
data "com/basis/bbj/images/cursor_c_3232.gif"
data "com/basis/bbj/images/cut.gif"
data "com/basis/bbj/images/datadmin.gif"
data "com/basis/bbj/images/deleterow.gif"
data "com/basis/bbj/images/demoicons.gif"
data "com/basis/bbj/images/fieldtest.jpg"
data "com/basis/bbj/images/first.gif"
data "com/basis/bbj/images/fitheight.gif"
data "com/basis/bbj/images/fitwidth.gif"
data "com/basis/bbj/images/griddemo.gif"
data "com/basis/bbj/images/guicontrols.gif"
data "com/basis/bbj/images/helpbook.gif"
data "com/basis/bbj/images/insertrow.gif"
data "com/basis/bbj/images/jdbcdemo.gif"
data "com/basis/bbj/images/last.gif"
data "com/basis/bbj/images/leftarrow.gif"
data "com/basis/bbj/images/new.gif"
data "com/basis/bbj/images/next.gif"
data "com/basis/bbj/images/no-breakpoint.gif"
data "com/basis/bbj/images/open.gif"
data "com/basis/bbj/images/pagedown.gif"
data "com/basis/bbj/images/pageup.gif"
data "com/basis/bbj/images/paste.gif"
data "com/basis/bbj/images/prev.gif"
data "com/basis/bbj/images/print.gif"
data "com/basis/bbj/images/red-ball.gif"
data "com/basis/bbj/images/resconverter.gif"
data "com/basis/bbj/images/rightarrow.gif"
data "com/basis/bbj/images/save.gif"
data "com/basis/bbj/images/selBord.gif"
data "com/basis/bbj/images/sidebyside.gif"
data "com/basis/bbj/images/sqldemo.gif"
|
