Interface TextControl::getHighlightOnFocus

REM Demonstration of the values for TextControl::get/setHighlightOnFocus()
REM DECLARE variables

DECLARE BBjAPI myAPI!
DECLARE BBjSysGui mySysGui!
DECLARE BBjTopLevelWindow myWindow!
DECLARE BBjStaticText myLabel!
DECLARE BBjFont font!
DECLARE BBjEditBox myEditBox!
DECLARE BBjToolButton myToolButton!
DECLARE BBjControl myControl!
DECLARE EventHandler myEventHandler!

REM Open sysgui channel

sysgui = UNT
OPEN(sysgui)"X0"

REM Initialize variables
myAPI! = BBJAPI()
mySysGui! = myAPI!.getSysGui()

REM Create demonstration window

myWindow! = mySysGui!.addWindow(100, 100, 250, 350, "Highlight On Focus", $00010002$)

REM Create column label describing row labels.

myLabel! = myWindow!.addStaticText(101, 10, 10, 120, 30, "KEY/MOUSE/FOCUS")
font! = myLabel!.getFont()
font! = mySysGui!.makeFont(font!.getName(), font!.getSize() + 1, mySysGui!.BOLD)
myLabel!.setFont(font!)

REM Create edit box for TextControl.getHighlightOnFocus() name.
myEditBox! = myWindow!.addEditBox(100, 140, 10, 100, 25, $$)

REM Create EventHandler custom object
myEventHandler! = new EventHandler(myWindow!, myEditBox!)

REM
REM Create individual row labels
REM

myWindow!.addStaticText(102, 10, 45, 40, 25, "&1. 0/0/0")
myWindow!.addStaticText(104, 10, 80, 40, 25, "&2. 0/0/1")
myWindow!.addStaticText(106, 10, 115, 40, 25, "&3. 0/1/0")
myWindow!.addStaticText(108, 10, 150, 40, 25, "&4. 0/1/1")
myWindow!.addStaticText(110, 10, 185, 40, 25, "&5. 1/0/0")
myWindow!.addStaticText(112, 10, 220, 40, 25, "&6. 1/0/1")
myWindow!.addStaticText(114, 10, 255, 40, 25, "&7. 1/1/0")
myWindow!.addStaticText(116, 10, 290, 40, 25, "&8. 1/1/1")

REM
REM Create edit boxes, set highlight on focus values, and set callbacks to event handler
REM

myEditBox! = myWindow!.addEditBox(103, 60, 45, 100, 25, "None")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_NONE)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

myEditBox! = myWindow!.addEditBox(105, 60, 80, 100, 25, "Focus")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_FOCUS)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

myEditBox! = myWindow!.addEditBox(107, 60, 115, 100, 25, "Mouse")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_MOUSE)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

myEditBox! = myWindow!.addEditBox(109, 60, 150, 100, 25, "Mouse/Focus")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_MOUSE + TextControl.HIGHLIGHT_FOCUS)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

myEditBox! = myWindow!.addEditBox(111, 60, 185, 100, 25, "Key")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_KEY)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

myEditBox! = myWindow!.addEditBox(113, 60, 220, 100, 25, "Key/Focus")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_KEY + TextControl.HIGHLIGHT_FOCUS)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

myEditBox! = myWindow!.addEditBox(115, 60, 255, 100, 25, "Key/Mouse")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_KEY + TextControl.HIGHLIGHT_MOUSE)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

myEditBox! = myWindow!.addEditBox(117, 60, 290, 100, 25, "Key/Mouse/Focus")
myEditBox!.setHighlightOnFocus(TextControl.HIGHLIGHT_KEY + TextControl.HIGHLIGHT_MOUSE + TextControl.HIGHLIGHT_FOCUS)
myEditBox!.setCallback(myEditBox!.ON_GAINED_FOCUS, myEventHandler!, "editFocusGained")

REM
REM Create tool buttons to do programmatic focus and set callbacks
REM

myToolButton! = myWindow!.addToolButton(203, 170, 45, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

myToolButton! = myWindow!.addToolButton(205, 170, 85, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

myToolButton! = myWindow!.addToolButton(207, 170, 115, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

myToolButton! = myWindow!.addToolButton(209, 170, 150, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

myToolButton! = myWindow!.addToolButton(211, 170, 185, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

myToolButton! = myWindow!.addToolButton(213, 170, 220, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

myToolButton! = myWindow!.addToolButton(215, 170, 255, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

myToolButton! = myWindow!.addToolButton(217, 170, 290, 40, 25, "Focus")
myToolButton!.setCallback(myToolButton!.ON_TOOL_BUTTON_PUSH, myEventHandler!, "toolButtonPushed")

REM
REM Set callback for window close box
REM

myWindow!.setCallback(myWindow!.ON_CLOSE, myEventHandler!, "windowClose")

REM Begin processing events
PROCESS_EVENTS

REM EventHandler class has methods for custom object event callbacks
CLASS PUBLIC EventHandler
    FIELD PUBLIC BBjTopLevelWindow Window!
    FIELD PUBLIC BBjEditBox Status!

    REM Constructor needs the window and the status edit box
    METHOD PUBLIC EventHandler(BBjTopLevelWindow p_window!, BBjEditBox p_status!)
        #Window! = p_window!
        #Status! = p_status!
    METHODEND

    REM Callback method for window close.
    METHOD PUBLIC VOID windowClose(BBjCloseEvent p_ev!)
        RELEASE
    METHODEND

    REM Callback method for an edit box gaining focus
    METHOD PUBLIC VOID editFocusGained(BBjGainedFocusEvent p_ev!)
        DECLARE BBjEditBox myEditBox!
        DECLARE BBjString text$
        DECLARE BBjString hofString$

        myEditBox! = p_ev!.getEditBox()

        REM Produce binary string from the getHighlightOnFocus() value
        hofString$ = BIN(myEditBox!.getHighlightOnFocus(), 1)
        text$ = $$

        REM Check the values in the binary string and set up the text$ variable
        IF DEC(AND(BIN(TextControl.HIGHLIGHT_KEY, 1), hofString$))
            text$ = "Key"
        ENDIF
        IF DEC(AND(BIN(TextControl.HIGHLIGHT_MOUSE, 1), hofString$))
            IF LEN(text$) <> 0
                text$ = text$ + "/"
            ENDIF
            text$ = text$ + "Mouse"
        ENDIF
        IF DEC(AND(BIN(TextControl.HIGHLIGHT_FOCUS, 1), hofString$))
            IF LEN(text$) <> 0
                text$ = text$ + "/"
            ENDIF
            text$ = text$ + "Focus"
        ENDIF

        REM Add a special case for none, since text$ is empty.
        IF (LEN(text$) = 0)
            text$ = "(None)"
       ENDIF

        REM Set the text on the status edit box
        #Status!.setText(text$)
    METHODEND

    REM Callback method for a tool button being pushed
    METHOD PUBLIC VOID toolButtonPushed(BBjToolButtonPushEvent p_ev!)
        DECLARE BBjControl myControl!
        myControl! = p_ev!.getControl()

        REM Programmatically focus the appropriate edit box.
        #Window!.getControl(myControl!.getID() - 100).focus()
    METHODEND
CLASSEND