BBjFontChooser::setFontsScaled

Description

In BBj 7.00 and higher, this method sets whether the BBjFontChooser should scale its fonts to match BBj behavior or use unscaled fonts to match Java behavior.

Syntax

Return Value	Method
void	setFontsScaled(boolean scale)

Parameters

Variable	Description
show	True if fonts should be scaled, otherwise false.

Return Value

None.

Example

rem 'setFontsScaled

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 "fonts scaled?" checkbox
myCheckBox! = myWindow!.addCheckBox(100,10,10,100,20,"Fonts scaled?")

rem 'Add a font chooser on the window
myFontChooser! = myWindow!.addFontChooser(101,0,30,WIDTH,HEIGHT-30)

rem 'Initialize the Fonts Scaled value
gosub fonts_scaled

rem 'Register the CALLBACK routines
CALLBACK(ON_CHECK_ON,FONTS_SCALED,mySysGui!.getContext(),myCheckBox!.getID())
CALLBACK(ON_CHECK_OFF,FONTS_SCALED,mySysGui!.getContext(),myCheckBox!.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

FONTS_SCALED:
    myFontChooser!.setFontsScaled(myCheckBox!.isSelected())
    print "Fonts scaled?",myFontChooser!.getFontsScaled()
return

RESIZE:
    myFontChooser!.setSize(myWindow!.getWidth(),myWindow!.getHeight()-30)
return

rem 'Callback routine called when the fontchooser's OK button is pressed
APPROVE:
    rem 'Display a message with the approprate font
    gosub FontInfo
    message$="<html><head><style type = 'text/css'>p{font:"+html$+"}</style></head><body><p>"+info$+"</p></body></html>"
    let X = MSGBOX(MESSAGE$,0,"Selected Font")
release

FontInfo:
    Font! = myFontChooser!.getSelectedFont()
    name$ = Font!.getName()
    style = Font!.getStyle()
    size = Font!.getSize()
    if (style = 0) then
        style$="Plain"
        html$ = str(size)+"px "+name$
    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)
        html$ = cvs(style$,8)+" "+str(size)+"px "+name$
    endif
    info$ = name$+" "+style$+" "+str(size)
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

BBjFontChooser::setFontsScaled

Description

Syntax

Parameters

Return Value

Example

See Also