BBjTabCtrl::setImageAt

rem 'Set the image to be displayed on a tab in a tab control

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

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

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

rem 'Set addWindow param values
let X = 10
let Y = 10
let WIDTH = 400
let HEIGHT = 400
let TITLE$ = "BBj Window"

rem 'Create a window, initialy invisible
let myWindow! = mySysGui!.addWindow(X,Y,WIDTH,HEIGHT,TITLE$,$00000012$)

rem 'Add a tab control to the window
let myTabCtrl! = myWindow!.addTabCtrl(101,50,50,200,200)

rem 'Create a child window
let myChildWindow! = myWindow!.addChildWindow(200,75,75,100,100,"",$$,1,$$)

rem 'Add a static text control on the child window
CHILD_TEXT$ = "Child Window "
let myStaticText! = myChildWindow!.addStaticText(300,X,Y,WIDTH,HEIGHT,CHILD_TEXT$)

rem 'Add a tab to the tab control using the child window object
myTabCtrl!.addTab("Tab 1",myChildWindow!)

rem 'Obtain an instance of the BBjImageManager object
myImageManager! = mySysGui!.getImageManager()

rem 'Load an image from a file
myImage! = myImageManager!.loadImageFromFile("tab.bmp")

rem 'Add an image from the image list to the tab
myTabCtrl!.setImageAt(0,myImage!)

rem 'Set the top level window visible
myWindow!.setVisible(1)

rem 'Register the CALLBACK routines
CALLBACK(ON_CLOSE,APP_CLOSE,0)

rem 'Process Events
process_events

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