...




Normalmente en los texbox para introducir los datos, se hace poniendole
en la propiedad format el simbolo !, esto no funciona en los editbox, por
lo que se propone aqui dos posibles soluciones para conseguir esto.

Vamos a aprovechar la propiedad format y por tanto solo se pondrá en
mayusculas, si hemos puesto el simbolo ! 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