23 de septiembre de 2000

Como introducir datos en un editbox en mayusculas

Normalmente en los texbox para introducir los datos, se hace poniéndole en la propiedad format el símbolo !, esto no funciona en los editbox, por lo que se propone aquí dos posibles soluciones para conseguir esto.

Vamos a aprovechar la propiedad format y por tanto solo se pondrá en mayúsculas, si hemos puesto el símbolo ! en el format, para así hacerlo igual que en los texbox.

Solución 1

Poner en el metodo Keypress del editbox:
LPARAMETERS nKeyCode, nShiftAltCtrl
*Brett Hobs & John Koziol
* convierte de a..z, y la ñ
IF '!' $ THIS.FORMAT AND (BETWEEN(nKeyCode,97,122) OR nKeyCode=241)
 nKeyCode=nKeyCode-32
 NODEFAULT
 KEYBOARD CHR(nKeyCode)
ENDIF
Solución 2

Poner en el método InteractiveChange del editbox:
* Mike Helland
local lnSelStart
IF '!' $ THIS.FORMAT
 lnSelStart = this.SelStart
 this.value = UPPER(this.value)
 this.SelStart = lnSelStart
ENDIF

Pablo Roca