BBjCEdit::setHorizontalScrollable

Description

Sets whether a horizontal scroll bar will appear when the text is too large to fit within the BBjCEdit control area.

Syntax

Return Value

Method

void

setHorizontalScrollable(boolean scroll)

Parameters

Variable

Description

scroll

Specifies whether a horizontal scroll bar will appear when the text is too large to fit within control area.

0 = No Horizontal Scroll

1 = Horizontal Scroll

Return Value

None.

Remarks

A horizontal scroll bar will not appear if line wrap is set.

By default, there is no horizontal scroll.

Example

rem 'Set a custom edit box to be horizontally scrollable

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 CEDIT control on the window
myCEdit! = myWindow!.addCEdit(101,30,100,80,30,"")

rem 'Create a BBjVector store paragraphs
myVector! = myAPI!.makeVector()

rem 'Add paragraphs to the BBjVector
FOR I = 1 TO 4
    PARAGRAPH$ = "This is paragraph " + STR(I)
    myVector!.addItem(PARAGRAPH$)
NEXT I

rem 'Add the paragraphs stored in the vector at index 0 to the CEDIT control
myCEdit!.addParagraphs(0,myVector!)

rem 'Set a custom edit box to be horizontally scrollable
myCEdit!.setHorizontalScrollable(mySysGui!.TRUE)

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

BBjControl

Object Variables

EVENTMASK Mnemonic - Change Event Mask

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