Posts: 219

Joined: Mon Dec 26, 2005 07:25 PM

Nuevo SAY Sensible y Editable
Posted: Mon Feb 20, 2006 07:43 PM

Acabo de terminar una clase que puede que le guste a alguién. Se trata de la clase TGSAY, un SAY Sensible y editable.

Se puede utilizar tanto para Say normal, como para titulos, como si fuera un botón o crear un dialogo de menus con items TGSAY's, o como un GET.

Viene con diferentes bordes: SHADOW, RAISED, BOX, SQUARE o 3DBOX (como un botón), además tienen la opción TRANSPARENTE por si no quieres fondo, y COLORSOMBRA para pintar una pequeña sombra detrás, o todo a la vez. Por ejemplo un say transparente con sombra y con borde BOX que cuando lo pinchas se convierte en un GET que si es WS_TABSTOP entra dentro de la rueda de GET's normales.

Link: http://hyperupload.com/download/c35ea648/TGSAY.zip.html

EJEMPLO VISUAL:

[img]http://img154.imageshack.us/img154/6649/tgsay17lc.png" alt="" loading="lazy">[/img]
Todos los datos numéricos son TGSAY's, en esta primera figura se está editando el Precio Venta. (Observa la sombra del PRECIO DEL VENDEDOR)

[img]http://img458.imageshack.us/img458/3729/tgsay22dz.png" alt="" loading="lazy">[/img]
En esta segunda figura, se ha editado el TGSAY recuadrado de COMISION COMERCIAL SIN IVA.

Si alguién lo perfecciona, por favor comuniquemelo a mi e-mail personal (ramosframit@ono.com) gracias.

Espero que os guste...

Nos Gusta Programar

manuramos

Posts: 219

Joined: Mon Dec 26, 2005 07:25 PM

Nuevo SAY Sensible y Editable
Posted: Mon Feb 20, 2006 07:56 PM

Se me olvidaba, en la clase TGSAY utilizo un par de funciones preprocesadas, que no están incluidas en la propia clase porque las tengo en un fichero de cabecera propio, éstas son:

xTranslate OSCURO( <nColor>,<nVar> ) => ;

    RGB( MAX(0,nRGBRed(   &lt;nColor&gt; )-&lt;nVar&gt; ) , ;
     MAX(0,nRGBGreen( &lt;nColor&gt; )-&lt;nVar&gt; ) , ;
     MAX(0,nRGBBlue(  &lt;nColor&gt; )-&lt;nVar&gt; ) )

xTranslate ACLARO( <nColor>,<nVar> ) => ;

    RGB( MIN(255,nRGBRed(   &lt;nColor&gt; )+&lt;nVar&gt; ) , ;
     MIN(255,nRGBGreen( &lt;nColor&gt; )+&lt;nVar&gt; ) , ;
     MIN(255,nRGBBlue(  &lt;nColor&gt; )+&lt;nVar&gt; ) )

Copialas al TGSAY.CH

Por cierto, notarán que utilizo la función DRAWTEXT en lugar de otra cualquiera que también pudiera funcionar. El objeto es poder darle alineación vertical, y porque en un futuro quiero implementarle un método para poder cambiarle la alineación horizontal sobre la marcha, que no creo que sea muy complicado, lo que pasa es que aún no me ha hecho falta.

Nos Gusta Programar

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Nuevo SAY Sensible y Editable
Posted: Tue Feb 21, 2006 09:22 AM

Manuel,

buen trabajo!

regards, saludos

Antonio Linares
www.fivetechsoft.com

Taiwan

Posts: 218

Joined: Fri Oct 07, 2005 01:55 AM

Nuevo SAY Sensible y Editable
Posted: Thu Mar 09, 2006 03:06 AM

hello manuramos

I compile your TGSay and get error message.
I need this function SPPICT() and
Error description: Error BASE/1068 Argument error: array access
Called from TGSAY:PINTAR(366)
Called from TGSAY:PAINT(358)
Called from TGSAY:REPINTAR(431)
Called from TGSAY:REFRESH(459)

Regards,

Richard

manuramos

Posts: 219

Joined: Mon Dec 26, 2005 07:25 PM

Nuevo SAY Sensible y Editable
Posted: Thu Mar 09, 2006 04:04 PM

Sorry Taiwan, I forgot to include it in the header:

TRANSLATE SPPICT( <cVar> ) => STRTRAN(STRTRAN(STRTRAN( <cVar> ,",","#"),".",","),"#",".")

It's only for number's pictures in spanish format. You can delete it in the prg.
HowEver, you can modifi the class as you want. (excuse my english)

Nos Gusta Programar

manuramos

Posts: 219

Joined: Mon Dec 26, 2005 07:25 PM

Nuevo SAY Sensible y Editable
Posted: Thu Mar 09, 2006 08:50 PM

Taiwan, I sugest you to translate, in TGSAY.CH, the worlds COLORSOMBRA with SHADOWCOLOR and HACER with DOGET, ACTIVATE GET or some think like that, to make it easyer for you.

Regards

Nos Gusta Programar

Taiwan

Posts: 218

Joined: Fri Oct 07, 2005 01:55 AM

Nuevo SAY Sensible y Editable
Posted: Fri Mar 10, 2006 05:47 AM

Hello manuramos

Thank you. I will try it for my ap.
Your solution very nice.

Regards,

Richard

Silvio

Posts: 3107