BBjFontChooser::setControlButtonsAreShown

Description

In BBj 7.00 and higher, this method with show or hide the text of the BBjFontChooser's [OK] and [Cancel] button.

Syntax

Return Value	Method
void	setControlButtonsAreShown(boolean show)

Parameters

Variable	Description
show	True if OK and Cancel buttons should be shown, otherwise false.

Return Value

None.

Remarks

This can be used when using the BBjFontChooser in a palette-like window instead of as a dialog.

Example

rem 'setControlButtonsAreShown

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 = 100
Y = 100
WIDTH = 400
HEIGHT = 300
TITLE$="BBjFontChooser"

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

rem 'Add a font chooser on the window
myFontChooser! = myWindow!.addFontChooser(101,0,0,myWindow!.getWidth(),myWindow!.getHeight()-50)

rem 'Instead of OK/Cancel, create a different UI
myFontChooser!.setControlButtonsAreShown(0)
SHOW = myFontChooser!.getControlButtonsAreShown()

rem 'Create a MenuButton to track recent fonts
myMenuButton! = myWindow!.addMenuButton(102,50,height-40,width-100,30,"Add font to MRU Dropdown")

rem 'Font menu
prev! = null()
item = 1000

rem 'Register the CALLBACK routines
CALLBACK(ON_BUTTON_PUSH,APPROVE,mySysGui!.getContext(),myMenuButton!.getID())
CALLBACK(ON_FONTCHOOSER_APPROVE,APPROVE,mySysGui!.getContext(),myFontChooser!.getID())
CALLBACK(ON_FONTCHOOSER_CANCEL,CANCEL,mySysGui!.getContext(),myFontChooser!.getID())
CALLBACK(ON_RESIZE,RESIZE,mySysGui!.getContext())
CALLBACK(ON_CLOSE,CANCEL,mySysGui!.getContext())

rem 'Process Events
process_events

RESIZE:
    if (myWindow!.getHeight()>100 and myWindow!.getWidth()>100) then
        myMenuButton!.setLocation(50,myWindow!.getHeight()-40)
        myMenuButton!.setSize(myWindow!.getWidth()-100,30)
        myFontChooser!.setSize(myWindow!.getWidth(),myWindow!.getHeight()-50)
    endif
return

rem 'Callback routine called when the fontchooser's OK button is pressed
APPROVE:
    Font! = myFontChooser!.getSelectedFont()
    name$ = Font!.getName()
    style = Font!.getStyle()
    size = Font!.getSize()
    if (style = 0) then
        style$="Plain"
    else
        style$=""
        if (fnIsBitSet(style,Font!.FONT_BOLD)) then
            style$ = style$+"Bold "
        endif
        if (fnIsBitSet(style,Font!.FONT_ITALIC)) then
            style$ = style$+"Italic "
        endif
        style$ = cvs(style$,3)
    endif
    info$ = name$+" "+style$+" "+str(size)
    if font!<>prev!
        dropdown! = myMenuButton!.getDropdownMenu()
        if dropdown! = null()
            dropdown! = myMenuButton!.addDropdownMenu()
        endif
        item = item+1
        item! = dropdown!.addMenuItem(item,info$)
        item!.setUserData(font!)
        CALLBACK(ON_POPUP_ITEM_SELECT,menu_item,dropdown!.getID(),item!.getID())
    endif
    prev! = font!
return

rem 'Callback routine called when the user selected an item from the dropdown menu
MENU_ITEM:
    item! = mySysGui!.getLastEvent().getMenuItem()
    font! = item!.getUserData()
    myFontChooser!.setSelectedFont(font!)
return

def fnIsBitSet(value,bit)
return sgn(dec(and(bin(value,4),bin(bit,4))))
fnend

rem 'Callback routine called when the fontchooser's Cancel button is
rem 'pressed or the window is closed without selecting a font
CANCEL:
release