Nuevo SAY Sensible y Editable

Nuevo SAY Sensible y Editable

Postby manuramos » Mon Feb 20, 2006 7: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][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...
Nos Gusta Programar
manuramos
 
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby manuramos » Mon Feb 20, 2006 7: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( <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.
Nos Gusta Programar
manuramos
 
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby Antonio Linares » Tue Feb 21, 2006 9:22 am

Manuel,

buen trabajo! :)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Taiwan » Thu Mar 09, 2006 3: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
User avatar
Taiwan
 
Posts: 218
Joined: Fri Oct 07, 2005 1:55 am
Location: Taipei, Taiwan

Postby manuramos » Thu Mar 09, 2006 4: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 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby manuramos » Thu Mar 09, 2006 8: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
manuramos
 
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby Taiwan » Fri Mar 10, 2006 5:47 am

Hello manuramos

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

Regards,

Richard
User avatar
Taiwan
 
Posts: 218
Joined: Fri Oct 07, 2005 1:55 am
Location: Taipei, Taiwan

Postby Silvio » Tue Oct 10, 2006 9:19 am

I CANNOT DOWNLOAD TGSAY

Can you send it me at private email ?

Regards
Best Regards, Saludos

Falconi Silvio
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Postby toya » Tue Oct 10, 2006 10:27 am

I cannot download TGSay
toya
Ahora en la version 6.6
Consultoria e Desenvolvimento - NF-e/NFC-e
http://www.toyanet.com.br
https://www.facebook.com/profile.php?id=100009195956044
toyasis@gmail.com
FWH 10.8+PellesC+xHarbour.org 1.2.1
User avatar
toya
 
Posts: 38
Joined: Sat Dec 31, 2005 10:08 am
Location: Brasil

Postby jose_murugosa » Tue Oct 10, 2006 11:30 pm

toya wrote: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 :D
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1134
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Clase TGSay

Postby jose_murugosa » Thu Oct 12, 2006 6:34 pm

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

Sería muy apreciado. :wink:
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1134
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Postby StefanHaupt » Fri Oct 13, 2006 7:51 am

here is a new link, it should work

http://hyperupload.com/download/02c35ea639/TGSAY.zip.html

Stefan
StefanHaupt
 
Posts: 824
Joined: Thu Oct 13, 2005 7:39 am
Location: Germany

Postby jose_murugosa » Fri Oct 13, 2006 3:07 pm

StefanHaupt wrote:here is a new link, it should work

http://hyperupload.com/download/02c35ea639/TGSAY.zip.html

Stefan


Muchas Gracias Estefan
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1134
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay


Return to Utilities / Utilidades

Who is online

Users browsing this forum: No registered users and 6 guests