LARGO_BBJINPUTE.src - Calcula ancho de un objeto BBjInputE según texto

rem "[LARGO_BBJINPUTE.src] DETERMINA ANCHO DE UN BBjInputE

rem "MundoBBx

rem

INPUT "Ingrese largo del Texto: ",lar:(99)

X0=UNT; OPEN (X0)"X0"

win!=BBjAPI().getSysGui().addWindow(BBjAPI().getSysGui().getAvailableContext(),10,10,500,100,$00000000$,$00000000$)

campo!=win!.addInputE(100,10,10,100,20,$0000$)

win!.setFont(campo!.getFont())

campo!.setText(fill(lar,"O"))

print (X0)'measure'(fill(lar,"O"))

lartxt=dec(ctrl(X0,0,11))

campo!.setSize(lartxt,campo!.getHeight())

print "Ancho calculado : ",lartxt

input 'focus',"(Enter) para continuar... ",*

stop