BBjWindow::addStatusBar

Description

Adds a status bar on the BBjWindow.

Syntax

Return Value	Method
BBjStatusBar	addStatusBar()
BBjStatusBar	addStatusBar(int ID)
BBjStatusBar	addStatusBar(int ID, string flags)
BBjStatusBar	addStatusBar(int ID, string title, string flags)
BBjStatusBar	addStatusBar(string flags)
BBjStatusBar	addStatusBar(string title, string flags)

Parameters

Variable

Description

Control ID number. It must be an integer between 1 and 32767 and be unique within a given top-level window.

title

Status bar text.

flags

Control flags, as follows:

Flag	Description
$0001$	Sets the control to be initially disabled.
$0010$	Sets the control to be initially invisible.
$0020$	Displays the status bar on top of the window.
$2000$	Left justifies status bar text.
$4000$	Centers status bar text.
$8000$	Right justifies status bar text.

Return Value

Returns the created BBjStatusBar object.

Remarks

If the ID parameter is not specified, a control ID is assigned dynamically using getAvailableControlID().

Example

rem 'Add a status bar control to a window

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

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

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

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

rem 'Set the current context
mySysGui!.setContext(0)

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

rem 'Add a status bar on the window
myStatusBar! = myWindow!.addStatusBar(1,$0020$)

rem 'Set the text of the status bar
myStatusBar!.setTextAt(0, "This is a status bar at the top of the window")

rem 'Register the CALLBACK routines
CALLBACK(ON_CLOSE,APP_CLOSE,mySysGui!.getContext())

rem 'Process Events
process_events

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

BBjWindow::addStatusBar

Description

Syntax

Parameters

Return Value

Remarks

Example

See Also