|
rem ' BBjPrintPreview::fitToHeight
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=800
HEIGHT=600
TITLE$="BBjPrintPreview::fitToHeight"
REM Set the current context
mySysGui!.setContext(0)
REM Create a window
myWindow! = mySysGui!.addWindow(X,Y,WIDTH,HEIGHT,TITLE$,$00010003$)
REM Add a print preview control to the window
myPreview! = myWindow!.addPrintPreview(101,50,100,700,450,"",$$)
myImageManager! = mySysGui!.getImageManager()
fitWidth! = myWindow!.addMenuButton(102,50,50,24,24,"")
width$ = "com/basis/bbj/images/fitwidth.gif"
width! = myImageManager!.loadImageFromServerJar(width$)
fitWidth!.setImage(width!)
fitWidth!.setToolTipText("Fit to width")
fitHeight! = myWindow!.addMenuButton(103,75,50,24,24,"")
height$ = "com/basis/bbj/images/fitheight.gif"
height! = myImageManager!.loadImageFromServerJar(height$)
fitHeight!.setImage(height!)
fitHeight!.setToolTipText("Fit to height")
sideBySide! = myWindow!.addMenuButton(104,100,50,24,24,"")
twopage$ = "com/basis/bbj/images/sidebyside.gif"
twopage! = myImageManager!.loadImageFromServerJar(twopage$)
sideBySide!.setImage(twopage!)
sideBySide!.setToolTipText("Fit two pages")
myMessage! = myWindow!.addStaticText(107,650,50,100,24,"Fit to height",$8000$)
form! = myAPI!.getBBjPrinter(0).getForm(0)
for page = 0 to 9
page! = form!.createPage()
for para = 0 to 19
para! = page!.newParagraph()
para!.setPosition(para,para*20)
para!.setHorizontalFill(1)
para$ = "Sample text for print job "+str(para)
para!.setText(para$)
page!.add(para!)
next para
next page
form!.preview(myPreview!)
REM Register the CALLBACK routines
CALLBACK(ON_CLOSE,APP_CLOSE,mySysGui!.getContext())
CALLBACK(ON_BUTTON_PUSH,WIDTH,mySysGui!.getContext(),fitWidth!.getID())
CALLBACK(ON_BUTTON_PUSH,HEIGHT,mySysGui!.getContext(),fitHeight!.getID())
CALLBACK(ON_BUTTON_PUSH,TWO,mySysGui!.getContext(),sideBySide!.getID())
REM Process Events
PROCESS_EVENTS
REM Callback routine called when the user closes the application window
APP_CLOSE:
RELEASE
WIDTH:
myPreview!.fitToWidth()
myMessage!.setText("Fit to width")
return
HEIGHT:
myPreview!.fitToHeight()
myMessage!.setText("Fit to height")
return
TWO:
myPreview!.twoPage()
myMessage!.setText("Fit two pages")
return
|
