begin sysgui = unt open (sysgui)"X0" sysgui! = bbjapi().getSysGui() rem ' BBjWindow window! = sysgui!.addWindow(50,50,415,450,"Edit Controls",$00090003$,$$) window!.setCallback(window!.ON_CLOSE,"eoj") rem ' BBjEditBox control! = window!.addEditBox(101,10,10,125,25,"EditBox",$$) control!.setToolTipText("BBjEditBox") gosub register rem ' Password BBjEditBox control! = window!.addEditBox(102,10,40,125,25,"Password",$0400$) control!.setToolTipText("Password BBjEditBox") gosub register rem ' BBjListEdit control! = window!.addListEdit(103,10,70,125,125,"ListEdit",$$) control!.setFieldHeight(25) control!.setToolTipText("BBjListEdit") gosub register rem ' BBjCEdit control! = window!.addCEdit(104,145,10,260,85,"BBjCEdit",$8184$) control!.setToolTipText("BBjCEdit") gosub register rem ' BBjInputE control! = window!.addInputE(105,10,100,125,25,$0000$,255," ",0,"","") control!.setToolTipText("BBjInputE len=255") gosub register mask$="000-00-0000" control! = window!.addInputE(106,10,130,125,25,$0000$,mask$," ",0,"","") control!.setToolTipText("BBjInputE mask="+mask$) gosub register mask$="XXX-000-AAA-aaa--ZZZ-zzz-UUU" control! = window!.addInputE(107,10,160,125,25,$0000$,mask$," ",0,"","") control!.setToolTipText("BBjInputE mask="+mask$) gosub register mask$=fill(32,"U") control! = window!.addInputE(108,10,190,125,25,$0000$,mask$," ",0,"","") control!.setToolTipText("BBjInputE mask="+mask$) gosub register mask$=fill(32,"Z") control! = window!.addInputE(109,10,220,125,25,$0000$,mask$,".",0,"","") control!.setToolTipText("BBjInputE mask="+mask$+" pad=.") gosub register mask$=fill(32,"0") control! = window!.addInputE(110,10,250,125,25,$0000$,mask$,"_",0,"","") control!.setToolTipText("BBjInputE mask="+mask$+" pad=_") gosub register rem ' BBjInputN mask$="-###,###,###" control! = window!.addInputN(111,145,100,125,25,$0000$,mask$,$00$,0,0) control!.setToolTipText("BBjInputN mask="+mask$) gosub register mask$="-###,###,###.##" control! = window!.addInputN(112,145,130,125,25,$0000$,mask$,$00$,0,0) control!.setToolTipText("BBjInputN mask="+mask$) gosub register mask$="-$###,###,###.##" control! = window!.addInputN(113,145,160,125,25,$0000$,mask$,$00$,0,0) control!.setToolTipText("BBjInputN mask="+mask$) gosub register mask$="$###,###,###.##CR" control! = window!.addInputN(114,145,190,125,25,$0000$,mask$,$00$,0,0) control!.setToolTipText("BBjInputN mask="+mask$) gosub register mask$="$###,###,###.##DR" control! = window!.addInputN(115,145,220,125,25,$0000$,mask$,$00$,0,0) control!.setToolTipText("BBjInputN mask="+mask$) gosub register mask$="($###,###,###.##)" control! = window!.addInputN(116,145,250,125,25,$0000$,mask$,$00$,0,0) control!.setToolTipText("BBjInputN mask="+mask$) gosub register rem ' BBjInputD locale$ = stbl("!LOCALE","en_US") control! = window!.addInputD(117,280,100,125,25,$0000$,"",$00$,0,0) control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask()) gosub register locale$ = stbl("!LOCALE","de_DE") control! = window!.addInputD(118,280,130,125,25,$0000$,"",$00$,0,0) control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask()) gosub register locale$ = stbl("!LOCALE","nl_NL") control! = window!.addInputD(119,280,160,125,25,$0000$,"",$00$,0,0) control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask()) gosub register locale$ = stbl("!LOCALE","sv_SE") control! = window!.addInputD(120,280,190,125,25,$0000$,"",$00$,0,0) control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask()) gosub register locale$ = stbl("!LOCALE","en_GB") control! = window!.addInputD(121,280,220,125,25,$0000$,"",$00$,0,0) control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask()) gosub register locale$ = stbl("!LOCALE","fr_CA") control! = window!.addInputD(122,280,250,125,25,$0000$,"",$00$,0,0) control!.setToolTipText("BBjInputD locale="+stbl("!LOCALE")+" mask="+control!.getMask()) gosub register rem ' Events events! = window!.addCEdit(100,10,280,395,160,$$,$8184$) events = 0, x$ = "" process_events eoj: release register: control!.setCallback(control!.ON_GAINED_FOCUS,"event") control!.setCallback(control!.ON_LOST_FOCUS,"event") return event: if events!.getNumberOfParagraphs()>10 then events!.setText("") e! = sysgui!.getLastEvent() e$ = str(e!), p=pos("@"=e$); if p then e$=e$(1,p-1) c! = e!.getControl() c$ = str(c!), p=pos("@"=c$); if p then c$=c$(1,p-1) events = events + 1 event$ = str(events)+" "+c$+" "+str(c!.getID())+" "+e$+" "+x$ events!.addParagraph(-1,event$) rem events!.highlight(-1,0,-1,0) x$ = "" return