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

ID

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

See Also

BBjAPI

BBjSysGui

BBjControl

'STATBAR' Mnemonic

See the BBj Object Diagram for an illustration of the relationship between BBj Objects.