Xailer. Primeros pasos

[Fernando Leal]

Hola Gente,
En las primeras 2 horas de haber instalado Xailer, he comenzado a modificar
el Edit.prg de los samples...
Agrege un segundo TEdit, lo muevo abajo del primero para que reciba el foco
despues del primero y.... no funciona el enter.
Busco en estas news y encuentro la solución, agregar
Application:lUseReturn := .T. en el procedure Main.
Bien ya funciona... a ver a colocar texto en el primer TEdit1... mayúscula
mayúscula. Minúscula minúscula... quiero que todo lo que intruduzca se vaya
a mayúsculas... después de un rato. Cambiar el TEdit por un TMasEdit y en la
propiedad cPicture colocar tantos ! como se necesite. Bien, todo bien.
Ahora a validar datos. Nuevamente recurro a la ayuda y... evento OnExit
if ::oEdit1:Value$"FM"
return .t.
endif
msgstop("Solo se aceptan los valores F y M")
¡¡¡Sorprendente!!! le estoy agarrando la onda al Xailer rápidamente.
Navegación entre los TEdit con Enter ya está. ¿¿Con flecha arriba y flecha
abajo??
¿¿Es posible moverse entre los TEdits con flecha arriba y abajo??
Una ayuda por favor. Mientras voy a bajarme todos los mensajes de las news
Señores de Xailer. Están haciendo un trabajo sorprendente.
¡¡Mis felicitaciones!!
Gracias
Fernando

[jrcpoli-quitar]

Fernando Leal escribió:
> Hola Gente,
> En las primeras 2 horas de haber instalado Xailer, he comenzado a modificar
> el Edit.prg de los samples...
> Agrege un segundo TEdit, lo muevo abajo del primero para que reciba el foco
> despues del primero y.... no funciona el enter.
> Busco en estas news y encuentro la solución, agregar
> Application:lUseReturn := .T. en el procedure Main.
> Bien ya funciona... a ver a colocar texto en el primer TEdit1... mayúscula
> mayúscula. Minúscula minúscula... quiero que todo lo que intruduzca se vaya
> a mayúsculas... después de un rato. Cambiar el TEdit por un TMasEdit y en la
> propiedad cPicture colocar tantos ! como se necesite. Bien, todo bien.
No huera echo falta que cambiaras de control a un TMasEdit para eso con
solo haber modificado en la propiedad "nCharCase" del control por
ecUPPERCASE el control cambia cada letra que introduzcas a mayúsculas.
> Ahora a validar datos. Nuevamente recurro a la ayuda y... evento OnExit
> if ::oEdit1:Value$"FM"
> return .t.
> endif
> msgstop("Solo se aceptan los valores F y M")
>
> ¡¡¡Sorprendente!!! le estoy agarrando la onda al Xailer rápidamente.
>
> Navegación entre los TEdit con Enter ya está. ¿¿Con flecha arriba y flecha
> abajo??
> ¿¿Es posible moverse entre los TEdits con flecha arriba y abajo??
Si capturas con el evento OnKeyDown del formulario y dentro del mismo
pones que cuando la tecla pulsada sea el valor de flecha arriba y le
pones GoPreviousControl y flecha abajo GoNextControl puede que tengas el
resultado que deseas, aunque la verdad en Windows para navegar por el
formulario se emplea mejor la tecla TAB para avanzar en los controles y
Shif+TAB para retroceder, esto sobre los controles que tengan la
propiedad lTabStop a TRUE.
>
> Una ayuda por favor. Mientras voy a bajarme todos los mensajes de las news
> Señores de Xailer. Están haciendo un trabajo sorprendente.
> ¡¡Mis felicitaciones!!
>
> Gracias
> Fernando
>
>
>
>

[Xevi]

Fernando,
Para poder conseguir cambiar de control al anterior/siguiente utilizando las flechas, debes de modificar el evento WMKeyDown() de la clase TEdit, derivando de ella.
Yo lo tengo hecho para que mis clientes no noten tanto el cambio de MSDos a Windows...
CLASS TEdit FROM xEdit
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
IF nKey == VK_UP
::GoPrevControl()
ELSEIF nKey == VK_DOWN
::GoNextControl()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Un Saludo,
Xevi.
"Fernando Leal" <visitante32@hotmail.com> ha escrit al missatge del grup de discussió: [email=459e7bb2@news.xailer.com...]459e7bb2@news.xailer.com...[/email]
> Hola Gente,
> En las primeras 2 horas de haber instalado Xailer, he comenzado a modificar
> el Edit.prg de los samples...
> Agrege un segundo TEdit, lo muevo abajo del primero para que reciba el foco
> despues del primero y.... no funciona el enter.
> Busco en estas news y encuentro la solución, agregar
> Application:lUseReturn := .T. en el procedure Main.
> Bien ya funciona... a ver a colocar texto en el primer TEdit1... mayúscula
> mayúscula. Minúscula minúscula... quiero que todo lo que intruduzca se vaya
> a mayúsculas... después de un rato. Cambiar el TEdit por un TMasEdit y en la
> propiedad cPicture colocar tantos ! como se necesite. Bien, todo bien.
> Ahora a validar datos. Nuevamente recurro a la ayuda y... evento OnExit
> if ::oEdit1:Value$"FM"
> return .t.
> endif
> msgstop("Solo se aceptan los valores F y M")
>
> ¡¡¡Sorprendente!!! le estoy agarrando la onda al Xailer rápidamente.
>
> Navegación entre los TEdit con Enter ya está. ¿¿Con flecha arriba y flecha
> abajo??
> ¿¿Es posible moverse entre los TEdits con flecha arriba y abajo??
>
> Una ayuda por favor. Mientras voy a bajarme todos los mensajes de las news
> Señores de Xailer. Están haciendo un trabajo sorprendente.
> ¡¡Mis felicitaciones!!
>
> Gracias
> Fernando
>
>
>
>
--

[ddupre]

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Xevi:<br>
<br>
Excelente idea, gracias por el aporte, solo una consulta Âdonde pones
este trozo de cÃdigo?, Âen el form pricipal?<br>
<br>
Gracias<br>
Daniel<br>
<br>
<br>
</tt><br>
Xevi escribiÃ:
<blockquote cite="mid459ebed8@news.xailer.com" type="cite">
<meta http-equiv="Content-Type" content="text/html; ">
<meta content="MSHTML 6.00.2900.3020" name="GENERATOR">
<style></style>
<div><font face="Arial" size="2">Fernando,</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Para poder conseguir cambiar de
control al anterior/siguiente utilizando las flechas, debes de
modificar el evento WMKeyDown() de la clase TEdit, derivando de ella.</font></div>
<div><font face="Arial" size="2">Yo lo tengo hecho para que mis
clientes no noten tanto el cambio de MSDos a Windows...</font></div>
<div>Â</div>
<div><font color="#0000ff" face="Arial" size="2">CLASS TEdit FROM
xEdit<br>
PUBLISHED:<br>
ÂÂ METHOD WMKeyDown( nKey, nFlags )<br>
ENDCLASS<br>
*<br>
**<br>
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit</font></div>
<div>Â</div>
<div><font color="#0000ff" face="Arial" size="2">ÂÂ IF nKey == VK_UP<br>
ÂÂÂÂÂ ::GoPrevControl()<br>
ÂÂ ELSEIF nKey == VK_DOWN<br>
ÂÂÂÂÂ ::GoNextControl()<br>
ÂÂ ELSE<br>
ÂÂÂÂÂ RETURN Super:WMKeyDown( nKey, nFlags )<br>
ÂÂ ENDIF</font></div>
<div>Â</div>
<div><font color="#0000ff" face="Arial" size="2">RETURN 0<br>
</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Un Saludo,</font></div>
<div><font face="Arial" size="2">Xevi.</font></div>
<div>Â</div>
<div>Â</div>
<div><font face="Arial" size="2">"Fernando Leal" <</font><a
href="mailto:visitante32@hotmail.com"><font face="Arial" size="2">visitante32@hotmail.com</font></a><font
face="Arial" size="2">> ha escrit al missatge del grup de
discussiÃ: </font><a href="mailto:459e7bb2@news.xailer.com"><font
face="Arial" size="2">459e7bb2@news.xailer.com</font></a><font
face="Arial" size="2">...</font></div>
<font face="Arial" size="2">> Hola Gente,<br>
> En las primeras 2 horas de haber instalado Xailer, he comenzado a
modificar <br>
> el Edit.prg de los samples...<br>
> Agrege un segundo TEdit, lo muevo abajo del primero para que
reciba el foco <br>
> despues del primero y.... no funciona el enter.<br>
> Busco en estas news y encuentro la soluciÃn, agregar <br>
> Application:lUseReturn := .T. en el procedure Main.<br>
> Bien ya funciona... a ver a colocar texto en el primer TEdit1...
mayÃscula <br>
> mayÃscula. MinÃscula minÃscula... quiero que todo lo que
intruduzca se vaya <br>
> a mayÃsculas... despuÃs de un rato. Cambiar el TEdit por un
TMasEdit y en la <br>
> propiedad cPicture colocar tantos ! como se necesite. Bien, todo
bien.<br>
> Ahora a validar datos. Nuevamente recurro a la ayuda y... evento
OnExit<br>
>Âif ::oEdit1:Value$"FM"<br>
>ÂÂÂÂÂ return .t.<br>
>ÂÂ endif<br>
>ÂÂ msgstop("Solo se aceptan los valores F y M")<br>
> <br>
> ÂÂÂSorprendente!!! le estoy agarrando la onda al Xailer
rÃpidamente.<br>
> <br>
> NavegaciÃn entre los TEdit con Enter ya estÃ. ÂÂCon flecha arriba
y flecha <br>
> abajo??<br>
> ÂÂEs posible moverse entre los TEdits con flecha arriba y abajo??<br>
> <br>
> Una ayuda por favor. Mientras voy a bajarme todos los mensajes de
las news<br>
> SeÃores de Xailer. EstÃn haciendo un trabajo sorprendente.<br>
> ÂÂMis felicitaciones!!<br>
> <br>
> Gracias<br>
> Fernando<br>
> <br>
> <br>
> <br>
></font></blockquote>
</body>
</html>

[Xevi]

Daniel,
El aporte se lo debo al grupo Xailer, especialmente a Jose F.,... un auténtico maestro y una excelente persona.
To tengo un módulo especí­fico para las clases derivadas... XClass.prg, pero lo puedes poner en cualquier prg o módulo.
Un Saludo,
Xevi.
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> ha escrit al missatge del grup de discussió: [email=459ed1f9@news.xailer.com...]459ed1f9@news.xailer.com...[/email]
Xevi:
Excelente idea, gracias por el aporte, solo una consulta ¿donde pones este trozo de código?, ¿en el form pricipal?
Gracias
Daniel
Xevi escribió:
Fernando,
Para poder conseguir cambiar de control al anterior/siguiente utilizando las flechas, debes de modificar el evento WMKeyDown() de la clase TEdit, derivando de ella.
Yo lo tengo hecho para que mis clientes no noten tanto el cambio de MSDos a Windows...
CLASS TEdit FROM xEdit
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
IF nKey == VK_UP
::GoPrevControl()
ELSEIF nKey == VK_DOWN
::GoNextControl()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Un Saludo,
Xevi.
"Fernando Leal" <visitante32@hotmail.com> ha escrit al missatge del grup de discussió: [email=459e7bb2@news.xailer.com...]459e7bb2@news.xailer.com...[/email]
> Hola Gente,
> En las primeras 2 horas de haber instalado Xailer, he comenzado a modificar
> el Edit.prg de los samples...
> Agrege un segundo TEdit, lo muevo abajo del primero para que reciba el foco
> despues del primero y.... no funciona el enter.
> Busco en estas news y encuentro la solución, agregar
> Application:lUseReturn := .T. en el procedure Main.
> Bien ya funciona... a ver a colocar texto en el primer TEdit1... mayúscula
> mayúscula. Minúscula minúscula... quiero que todo lo que intruduzca se vaya
> a mayúsculas... después de un rato. Cambiar el TEdit por un TMasEdit y en la
> propiedad cPicture colocar tantos ! como se necesite. Bien, todo bien.
> Ahora a validar datos. Nuevamente recurro a la ayuda y... evento OnExit
> if ::oEdit1:Value$"FM"
> return .t.
> endif
> msgstop("Solo se aceptan los valores F y M")
>
> ¡¡¡Sorprendente!!! le estoy agarrando la onda al Xailer rápidamente.
>
> Navegación entre los TEdit con Enter ya está. ¿¿Con flecha arriba y flecha
> abajo??
> ¿¿Es posible moverse entre los TEdits con flecha arriba y abajo??
>
> Una ayuda por favor. Mientras voy a bajarme todos los mensajes de las news
> Señores de Xailer. Están haciendo un trabajo sorprendente.
> ¡¡Mis felicitaciones!!
>
> Gracias
> Fernando
>
>
>
>
--

[ddupre]

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>Xevi.<br>
<br>
Gracias.</tt><br>
<br>
Saludos<br>
Daniel.<br>
<br>
Xevi escribiÃ:
<blockquote cite="mid459f5e8b$1@news.xailer.com" type="cite">
<meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
<meta content="MSHTML 6.00.2900.3020" name="GENERATOR">
<div><font face="Arial" size="2">Daniel,</font></div>
<div>Â</div>
<div><font face="Arial" size="2">El aporte se lo debo al grupo
Xailer, especialmente a Jose F.,... un autÃntico maestro y una
excelente persona.</font></div>
<div><font face="Arial" size="2">To tengo un mÃdulo especÃfico para
las clases derivadas... XClass.prg, pero lo puedes poner en cualquier
prg o mÃdulo.</font></div>
<div>Â</div>
<div>Â</div>
<div><font face="Arial" size="2">Un Saludo,</font></div>
<div><font face="Arial" size="2">Xevi.</font></div>
<div>Â</div>
<blockquote dir="ltr"
style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;">
<div>"Daniel Du PrÃ" <<a
href="mailto:ddupre@macrosistemas.com.uy">ddupre@macrosistemas.com.uy</a>>
ha escrit al missatge del grup de discussiÃ: <a
href="mailto:459ed1f9@news.xailer.com">459ed1f9@news.xailer.com</a>...</div>
<tt>Xevi:<br>
<br>
Excelente idea, gracias por el aporte, solo una consulta Âdonde pones
este trozo de cÃdigo?, Âen el form pricipal?<br>
<br>
Gracias<br>
Daniel<br>
<br>
<br>
</tt><br>
Xevi escribiÃ:
<blockquote cite="mid459ebed8@news.xailer.com" type="cite">
<meta content="MSHTML 6.00.2900.3020" name="GENERATOR">
<style></style>
<div><font face="Arial" size="2">Fernando,</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Para poder conseguir cambiar de
control al anterior/siguiente utilizando las flechas, debes de
modificar el evento WMKeyDown() de la clase TEdit, derivando de ella.</font></div>
<div><font face="Arial" size="2">Yo lo tengo hecho para que mis
clientes no noten tanto el cambio de MSDos a Windows...</font></div>
<div>Â</div>
<div><font color="#0000ff" face="Arial" size="2">CLASS TEdit FROM
xEdit<br>
PUBLISHED:<br>
ÂÂ METHOD WMKeyDown( nKey, nFlags )<br>
ENDCLASS<br>
*<br>
**<br>
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit</font></div>
<div>Â</div>
<div><font color="#0000ff" face="Arial" size="2">ÂÂ IF nKey ==
VK_UP<br>
ÂÂÂÂÂ ::GoPrevControl()<br>
ÂÂ ELSEIF nKey == VK_DOWN<br>
ÂÂÂÂÂ ::GoNextControl()<br>
ÂÂ ELSE<br>
ÂÂÂÂÂ RETURN Super:WMKeyDown( nKey, nFlags )<br>
ÂÂ ENDIF</font></div>
<div>Â</div>
<div><font color="#0000ff" face="Arial" size="2">RETURN 0<br>
</font></div>
<div>Â</div>
<div><font face="Arial" size="2">Un Saludo,</font></div>
<div><font face="Arial" size="2">Xevi.</font></div>
<div>Â</div>
<div>Â</div>
<div><font face="Arial" size="2">"Fernando Leal" <</font><a
href="mailto:visitante32@hotmail.com"><font face="Arial" size="2">visitante32@hotmail.com</font></a><font
face="Arial" size="2">> ha escrit al missatge del grup de
discussiÃ: </font><a href="mailto:459e7bb2@news.xailer.com"><font
face="Arial" size="2">459e7bb2@news.xailer.com</font></a><font
face="Arial" size="2">...</font></div>
<font face="Arial" size="2">> Hola Gente,<br>
> En las primeras 2 horas de haber instalado Xailer, he comenzado a
modificar <br>
> el Edit.prg de los samples...<br>
> Agrege un segundo TEdit, lo muevo abajo del primero para que
reciba el foco <br>
> despues del primero y.... no funciona el enter.<br>
> Busco en estas news y encuentro la soluciÃn, agregar <br>
> Application:lUseReturn := .T. en el procedure Main.<br>
> Bien ya funciona... a ver a colocar texto en el primer TEdit1...
mayÃscula <br>
> mayÃscula. MinÃscula minÃscula... quiero que todo lo que
intruduzca se vaya <br>
> a mayÃsculas... despuÃs de un rato. Cambiar el TEdit por un
TMasEdit y en la <br>
> propiedad cPicture colocar tantos ! como se necesite. Bien, todo
bien.<br>
> Ahora a validar datos. Nuevamente recurro a la ayuda y... evento
OnExit<br>
>Âif ::oEdit1:Value$"FM"<br>
>ÂÂÂÂÂ return .t.<br>
>ÂÂ endif<br>
>ÂÂ msgstop("Solo se aceptan los valores F y M")<br>
> <br>
> ÂÂÂSorprendente!!! le estoy agarrando la onda al Xailer
rÃpidamente.<br>
> <br>
> NavegaciÃn entre los TEdit con Enter ya estÃ. ÂÂCon flecha arriba
y flecha <br>
> abajo??<br>
> ÂÂEs posible moverse entre los TEdits con flecha arriba y abajo??<br>
> <br>
> Una ayuda por favor. Mientras voy a bajarme todos los mensajes de
las news<br>
> SeÃores de Xailer. EstÃn haciendo un trabajo sorprendente.<br>
> ÂÂMis felicitaciones!!<br>
> <br>
> Gracias<br>
> Fernando<br>
> <br>
> <br>
> <br>
></font></blockquote>
</blockquote>
</blockquote>
</body>
</html>

[Fernando Leal]

Xevi,
¡¡Funciona!!.
Por la navegación usando la telca ENTER y las teclas de flecha arriba y abajo. Mis usuarios no se van a quejar.
Gracias por ayudarme a entender más como se usa Xailer.
Fernando
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:459f5e8b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Daniel,
El aporte se lo debo al grupo Xailer, especialmente a Jose F.,... un auténtico maestro y una excelente persona.
To tengo un módulo especí­fico para las clases derivadas... XClass.prg, pero lo puedes poner en cualquier prg o módulo.
Un Saludo,
Xevi.
"Daniel Du Pré" <ddupre@macrosistemas.com.uy> ha escrit al missatge del grup de discussió: [email=459ed1f9@news.xailer.com...]459ed1f9@news.xailer.com...[/email]
Xevi:
Excelente idea, gracias por el aporte, solo una consulta ¿donde pones este trozo de código?, ¿en el form pricipal?
Gracias
Daniel
Xevi escribió:
Fernando,
Para poder conseguir cambiar de control al anterior/siguiente utilizando las flechas, debes de modificar el evento WMKeyDown() de la clase TEdit, derivando de ella.
Yo lo tengo hecho para que mis clientes no noten tanto el cambio de MSDos a Windows...
CLASS TEdit FROM xEdit
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
IF nKey == VK_UP
::GoPrevControl()
ELSEIF nKey == VK_DOWN
::GoNextControl()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Un Saludo,
Xevi.
"Fernando Leal" <visitante32@hotmail.com> ha escrit al missatge del grup de discussió: [email=459e7bb2@news.xailer.com...]459e7bb2@news.xailer.com...[/email]
> Hola Gente,
> En las primeras 2 horas de haber instalado Xailer, he comenzado a modificar
> el Edit.prg de los samples...
> Agrege un segundo TEdit, lo muevo abajo del primero para que reciba el foco
> despues del primero y.... no funciona el enter.
> Busco en estas news y encuentro la solución, agregar
> Application:lUseReturn := .T. en el procedure Main.
> Bien ya funciona... a ver a colocar texto en el primer TEdit1... mayúscula
> mayúscula. Minúscula minúscula... quiero que todo lo que intruduzca se vaya
> a mayúsculas... después de un rato. Cambiar el TEdit por un TMasEdit y en la
> propiedad cPicture colocar tantos ! como se necesite. Bien, todo bien.
> Ahora a validar datos. Nuevamente recurro a la ayuda y... evento OnExit
> if ::oEdit1:Value$"FM"
> return .t.
> endif
> msgstop("Solo se aceptan los valores F y M")
>
> ¡¡¡Sorprendente!!! le estoy agarrando la onda al Xailer rápidamente.
>
> Navegación entre los TEdit con Enter ya está. ¿¿Con flecha arriba y flecha
> abajo??
> ¿¿Es posible moverse entre los TEdits con flecha arriba y abajo??
>
> Una ayuda por favor. Mientras voy a bajarme todos los mensajes de las news
> Señores de Xailer. Están haciendo un trabajo sorprendente.
> ¡¡Mis felicitaciones!!
>
> Gracias
> Fernando
>
>
>
>
--