|
rem ' BBjDrawPanel::getPenColor
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
x = 50, y = 50, w = 400, h = 250
title$ = "BBjDrawPanel::getPenColor"
window! = sysgui!.addWindow(x,y,w,h,title$,$00090883$,$$)
window!.setCallback(window!.ON_CLOSE,"eoj")
window!.setTrack(0)
menu! = window!.addMenuBar()
file! = menu!.addMenu(100,"&File")
wipe! = file!.addMenuItem(101,"&New")
wipe!.setCallback(wipe!.ON_MENU_ITEM_SELECT,"wipe")
save! = file!.addMenuItem(102,"Save &As...")
save!.setCallback(wipe!.ON_MENU_ITEM_SELECT,"save")
exit! = file!.addMenuItem(199,"E&xit")
exit!.setCallback(exit!.ON_MENU_ITEM_SELECT,"eoj")
pen! = menu!.addMenu(200,"&Pen")
black! = pen!.addMenuItem(201,"Blac&k")
black!.setCallback(black!.ON_MENU_ITEM_SELECT,"black")
blue! = pen!.addMenuItem(202,"&Blue")
blue!.setCallback(black!.ON_MENU_ITEM_SELECT,"blue")
red! = pen!.addMenuItem(203,"&Red")
red!.setCallback(red!.ON_MENU_ITEM_SELECT,"red")
magenta! = pen!.addMenuItem(204,"&Magenta")
magenta!.setCallback(magenta!.ON_MENU_ITEM_SELECT,"magenta")
green! = pen!.addMenuItem(205,"&Green")
green!.setCallback(green!.ON_MENU_ITEM_SELECT,"green")
random! = pen!.addMenuItem(206,"Ra&ndom")
random!.setCallback(random!.ON_MENU_ITEM_SELECT,"random")
drawpanel! = window!.getDrawPanel()
drawpanel!.setScribble(1)
color! = sysgui!.makeColor(255,255,240)
drawpanel!.clearDrawing(color!)
drawpanel!.setPenWidth(3)
format$ = "png"
process_events
eoj:
release
wipe:
drawpanel!.clearDrawing()
return
black:
drawpanel!.setPenColor(BBjColor.BLACK)
print "BBjDrawPanel::getPenColor: ",
print drawpanel!.getPenColor()
return
blue:
drawpanel!.setPenColor(BBjColor.BLUE)
print "BBjDrawPanel::getPenColor: ",
print drawpanel!.getPenColor()
return
red:
drawpanel!.setPenColor(BBjColor.RED)
print "BBjDrawPanel::getPenColor: ",
print drawpanel!.getPenColor()
return
magenta:
drawpanel!.setPenColor(BBjColor.MAGENTA)
print "BBjDrawPanel::getPenColor: ",
print drawpanel!.getPenColor()
return
green:
drawpanel!.setPenColor(BBjColor.GREEN)
print "BBjDrawPanel::getPenColor: ",
print drawpanel!.getPenColor()
return
random:
color! = sysgui!.makeColor(rnd(255),rnd(255),rnd(255))
drawpanel!.setPenColor(color!)
print "BBjDrawPanel::getPenColor: ",
print drawpanel!.getPenColor()
return
save:
file$ = "Signature."+format$
file$ = filesave("Save Signature",dsk("")+dir(""),file$,"")
if pos("::"=file$) then return
file! = new java.io.File(file$)
file$ = file!.getCanonicalPath()
path! = file!.getCanonicalPath().toLowerCase()
if path!.endsWith(".gif") then format$ = "gif"
if path!.endsWith(".png") then format$ = "png"
if path!.endsWith(".jpg") then format$ = "jpg"
if path!.endsWith(".jpeg") then format$ = "jpeg"
image! = window!.getDrawPanelImage()
image$ = image!.getBytes(format$,err=failed)
image = unt
open (image,mode="O_CREATE,O_TRUNC")file$
writerecord (image)image$
close (image)
i = msgbox(file$,0,"Signature image file created")
return
failed:
i = msgbox(errmes(-1),16,"Signature image file failed")
return
|
