rem ' BBjListEdit setTextAt
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(100,100,200,200,"listedit",$00090003$)
window!.setCallback(window!.ON_CLOSE,"eoj")
list$ = ""; for i = 0 to 9; list$ = list$ + str(i) + $0a$; next i
listedit! = window!.addListEdit(101,25,25,150,150,list$,$0000$)
im! = sysgui!.getImageManager()
amex! = im!.loadImageFromFile("amex.png")
listedit!.setImageAt(0,amex!)
listedit!.setTextAt(0,"Amex")
mastercard! = im!.loadImageFromFile("mastercard.png")
listedit!.setImageAt(1,mastercard!)
listedit!.setTextAt(1,"MasterCard")
visa! = im!.loadImageFromFile("visa.png")
listedit!.setImageAt(2,visa!)
listedit!.setTextAt(2,"Visa")
first$ = "com/basis/bbj/images/NavigatorFirst.gif"
first! = im!.loadImageFromServerJar(first$)
listedit!.setImageAt(4,first!)
listedit!.setTextAt(4,"First")
prev$ = "com/basis/bbj/images/NavigatorPrevious.gif"
prev! = im!.loadImageFromServerJar(prev$)
listedit!.setImageAt(5,prev!)
listedit!.setTextAt(5,"Previous")
next$ = "com/basis/bbj/images/NavigatorNext.gif"
next! = im!.loadImageFromServerJar(next$)
listedit!.setImageAt(6,next!)
listedit!.setTextAt(6,"Next")
last$ = "com/basis/bbj/images/NavigatorLast.gif"
last! = im!.loadImageFromServerJar(last$)
listedit!.setImageAt(7,last!)
listedit!.setTextAt(7,"Last")
process_events
eoj:
release
|
