Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
¿Cómo cambiar el cursor de un TextBox
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00659662
Message ID:
00660009
Views:
19
>Lo que quiero es cambiar, el cursor de una caja de texto o caja de edición, aca en méxico, existe una aplicación llamada MegaPAQ que fue hecha en FOXPRO en una de las primeras versiones visuales (imaginate) y en una clase tipo Textbox, ellos cambiar el cursor clasico de windows por otro caracter...
>
>No se trata de una tonteria, espero haberme explicado...
>
Perfecto. Queda entendido, por supuesto no minimizaba tu necesidad. Sólo quería estar seguro.

Personalmente no me gusta alterar estos comportamientos estándar, pero si tienes usuarios que ya están acostumbrados a eso, se justifica plenamente.

Para hacerlo puramente con VFP, te doy una alternativa que puedes trabajar:

Podrías incluir este comportamiento en tus clases textbox y editbox. Lo que se me ocurre es en primer lugar apagar el cursor "real" para estos controles, poniendo la propiedad MousePointer en 13 (Hide pointer).

Luego deberías jugar en el Interactive change con el value del control, insertando un caracter especial en la posición necesaria según las propiedades SelStart, SelLenght y SelText. seguramente deberás pelearte un poco con el mecanismo al principio para lograr un efecto que no resulte confuso, pero una vez resuelto, te olvidas del problema.

Sólo deberás tener cuidado en adelante de no sobreescribir los métodos utilizados sin el DoDefault correspondiente.

Igual podrías tratar de buscar alternativas a través de la API de Windows, que no te implican ningún requerimiento externo a VFP. Para ello te recomiendo que busquen un poco en la sección API de UT (puedes accederla desde el menú "More:" en la barra superior de la página.

Mucha suerte, y no dudes en consultarme si te pudeo ser útil.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform