Nuevo SAY Sensible y Editable

[manuramos]

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][img]http://img154.imageshack.us/img154/6649/tgsay17lc.png[/img][/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][img]http://img458.imageshack.us/img458/3729/tgsay22dz.png[/img][/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...

[manuramos]

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( <nColor> )-<nVar> ) , ;
MAX(0,nRGBGreen( <nColor> )-<nVar> ) , ;
MAX(0,nRGBBlue( <nColor> )-<nVar> ) )

#xTranslate ACLARO( <nColor>,<nVar> ) => ;
RGB( MIN(255,nRGBRed( <nColor> )+<nVar> ) , ;
MIN(255,nRGBGreen( <nColor> )+<nVar> ) , ;
MIN(255,nRGBBlue( <nColor> )+<nVar> ) )

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.

[Antonio Linares]

Manuel,

buen trabajo!

[Taiwan]

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]

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)

[manuramos]

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

[Taiwan]

Hello manuramos

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

Regards,

Richard

[Silvio]

I CANNOT DOWNLOAD TGSAY

Can you send it me at private email ?

Regards

[toya]

I cannot download TGSay

[jose_murugosa]

I cannot download TGSay

Manu, estoy en la misma, me da "Bad URL" y no puedo bajarlo, podrías poner un nuevo link para bajar?

Muy buen trabajo!!!!!! y gracias desde ya

[jose_murugosa]

Alguien del foro que haya podido bajar esta clase , podría tener la bondad de enviármela a mi mail jmurugosa@hotmail.com, POR FAVOR!!

Sería muy apreciado.

[StefanHaupt]

here is a new link, it should work

http://hyperupload.com/download/02c35ea ... Y.zip.html

Stefan

[jose_murugosa]

here is a new link, it should work

http://hyperupload.com/download/02c35ea ... Y.zip.html

Stefan

Muchas Gracias Estefan