Page 1 of 2

Presumiendo un poco

PostPosted: Tue Jan 22, 2008 1:44 pm
by Loren
Estimados compañeros:
La potencia de FWH + Sbutton es inigualable. Aquí os dejo una de las pantallas de venta del modulo Touch que estoy diseñando (ya lo tengo casi listo). En dos semanas se lo entrego a mi cliente.

Quiero dar las gracias publicamente a Antonio Linares, Manuel Mercado y a GABO, asiduo de este foro.
Image

Los Sbutton son totalmente configurables por el usuario, incluso puede incluir BMP (como el caso del botón "cafes"), cambiar los colores e incluso el diseño. Todo se hace desde la opción de Utilidades del programa.

Los huecos que se ven en la esquina inferior derecha, son botones ocultos que se muestra/ocultan dependiendo de lo que se esté haciendo en cada momento.

Mil gracias a todos
LORENZO.

PostPosted: Tue Jan 22, 2008 1:57 pm
by mmercado
Magnífico trabajo, Felicidades.

Manuel Mercado

PostPosted: Tue Jan 22, 2008 3:02 pm
by karinha
Magnífico trabajo, Felicidades.


Como fijestes?? És posible muestrar algo via codigo?

Y si tiene más productos? Como se muestra?

Gracias.

Re: Presumiendo un poco

PostPosted: Tue Jan 22, 2008 3:13 pm
by albeiroval
Buen trabajo Loren,

felicitaciones,

El sButton que refieres es una clase de FWH o es una libreria de tercero ?

donde lo puedo encontar ?

gracias

saludos,

Albeiro,

PostPosted: Tue Jan 22, 2008 3:14 pm
by horacio
Excelente, el mejor diseño

PostPosted: Tue Jan 22, 2008 4:01 pm
by Alfredo Arteaga
Buen diseño Loren, felicidades!

PostPosted: Tue Jan 22, 2008 4:29 pm
by sysctrl2
Lorenzo buen trabajo,

felicidades,,

yo tengo que hacer algo similar para un hotel

puedes compartir algun ejemplo ?

este es mi correo ccc_3_ccc@hotmail.com

sysctrl@prodigy.net.mx

sin (+- ) saludos cordiales.

PostPosted: Tue Jan 22, 2008 4:34 pm
by Silvio
I had something of it ( thanks to GABO)

I use Sbutton also to create Table rooms as U can see here

Image

But I have some problems for show and print the ticket

Have you an Idea or small an sample ?

PostPosted: Tue Jan 22, 2008 6:34 pm
by JmGarcia
Que suerte tener buen gusto para diseñar esas "peaso" pantallas... :oops: :oops:

Lorenzo, es un excelente trabajo.

PostPosted: Tue Jan 22, 2008 8:41 pm
by manuelcalerosolis
Esta es la nuestra, sin utilizar ninguna clase externa a FW.

Image


http://www.apolosoftware.com

PostPosted: Wed Jan 23, 2008 7:42 am
by FiveWiDi
Que nivel teneis la gente de este foro !

Muy bueno y bonito.

Saludos
Carlos G.

Nota: Sólo falta que al del bar le convenzais para que nos invite.

PostPosted: Wed Jan 23, 2008 8:25 am
by Loren
Compañeros:

La clase Sbutton es de terceros (de manuel mercado) y la podeis encontrar en las Utilidades de este foro.
En cuanto al código es relativamente simple:
Con photoshop creo los BMP que luego me servirán de BRUSH en los SButton:
DEFINE BRUSH OFamilia FILE ltrim(Camino+'\graficos\botones\brush\'+botonfam->nombre)
DEFINE BRUSH OArticulo FILE ltrim(Camino+'\graficos\botones\brush\'+botonart->nombre)
De esta manera el usuario puede crear sus propias presentaciones de botones.

Luego defino los sbutton de las familias:
REDEFINE SBUTTON obtnF[ 1] ID 4005 OF oDialog brush ofamilia NOBOXTR COLORS { |oBtnF| If( ! oBtnF:lActive, CLR_WHITE, If( oBtnF:lMouseOver, CLR_HRED, If( oBtnF:lPressed, CLR_HRED, CLR_WHITE ) ) ) }
REDEFINE SBUTTON obtnF[ 2] ID 4008 OF oDialog brush ofamilia NOBOXTR COLORS { |oBtnF| If( ! oBtnF:lActive, CLR_WHITE, If( oBtnF:lMouseOver, CLR_HRED, If( oBtnF:lPressed, CLR_HRED, CLR_WHITE ) ) ) }
REDEFINE SBUTTON obtnF[ 3] ID 4011 OF oDialog brush ofamilia NOBOXTR COLORS { |oBtnF| If( ! oBtnF:lActive, CLR_WHITE, If( oBtnF:lMouseOver, CLR_HRED, If( oBtnF:lPressed, CLR_HRED, CLR_WHITE ) ) ) }
...
Luego defino los Sbutton de los articulos:
REDEFINE SBUTTON obtnA[ 1] ID 4018 OF oDialog brush oarticulo NOBOXTR COLORS { |oBtnA| If( ! oBtnA:lActive, CLR_WHITE, If( oBtnA:lMouseOver, CLR_HRED, If( oBtnA:lPressed, CLR_HRED, CLR_WHITE ) ) ) }
REDEFINE SBUTTON obtnA[ 2] ID 4021 OF oDialog brush oarticulo NOBOXTR COLORS { |oBtnA| If( ! oBtnA:lActive, CLR_WHITE, If( oBtnA:lMouseOver, CLR_HRED, If( oBtnA:lPressed, CLR_HRED, CLR_WHITE ) ) ) }
REDEFINE SBUTTON obtnA[ 3] ID 4024 OF oDialog brush oarticulo NOBOXTR COLORS { |oBtnA| If( ! oBtnA:lActive, CLR_WHITE, If( oBtnA:lMouseOver, CLR_HRED, If( oBtnA:lPressed, CLR_HRED, CLR_WHITE ) ) ) }
...
Luego defino los sbutton de la calculadora:
REDEFINE SBUTTON ocal [ 1] ID 4053 OF oDialog prompt '0' brush ocalculadora font oFont2 ROUNDRECT NOBOXTR COLOR { |oCal| If( oCal:lPressed, CLR_HRED, CLR_BLACK ) } action calc('0')
REDEFINE SBUTTON ocal [ 2] ID 4052 OF oDialog prompt '1' brush ocalculadora font oFont2 ROUNDRECT NOBOXTR COLOR { |oCal| If( oCal:lPressed, CLR_HRED, CLR_BLACK ) } action calc('1')
...

Luego hay que asignarle el bAction, el cCaption de las familias/articulos y en mi caso también el brush a cada botton porque el usuario puede asignarle solo texto o texto y BMP a cada boton:
" Parte del codigo lo teneis publicado en http://fivetechsoft.com/forums/viewtopi ... light=gabo

... el resto es codigo simple...

Un saludo y mil gracias a todos
LORENZO.

PostPosted: Wed Jan 23, 2008 10:57 am
by Silvio
And show and print the ticket ?
have you an sample ?

PostPosted: Wed Jan 23, 2008 8:12 pm
by sysctrl2
Loren

gracias,,

me queda claro lo de los botones y como dibujarlos

tiejes un ejemplo de como hacer los scrolls ?

gracias por tu apoyo.

mi correo ccc_3_ccc@hotmail.com

PostPosted: Thu Jan 24, 2008 11:19 am
by Loren
Silvio,
para imprimir ticket yo utilizo siempre la clase TDosprn. La puedes encontrar en las Utilidades de este foro. Viene con ejemplos incluido.

Los codigos de escape son casi siempre genericos para todas las impresoras de ticket:

Activar letra grande: CHR(27)+CHR(33)+CHR(25)
Desact letra grande: CHR(27)+CHR(33)+CHR(4)
Letra tamaño normal: CHR(27)+CHR(105)
Activar letra comprimida: CHR(27)+CHR(64)
Desact. letra comprimida: CHR(27)+CHR(33)+CHR(4)
Apertura cajon portamonedas: CHR(27)+"P"+CHR(0)+CHR(25)+CHR(250)
Corte automatico de papel: CHR(27)+CHR(105)

Un saludo.
LORENZO