Presumiendo un poco

[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.


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.

[mmercado]

Magnífico trabajo, Felicidades.

Manuel Mercado

[karinha]

Magnífico trabajo, Felicidades.


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

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

Gracias.

[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,

[horacio]

Excelente, el mejor diseño

[Alfredo Arteaga]

Buen diseño Loren, felicidades!

[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.

[Silvio]

I had something of it ( thanks to GABO)

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



But I have some problems for show and print the ticket

Have you an Idea or small an sample ?

[JmGarcia]

Que suerte tener buen gusto para diseñar esas "peaso" pantallas...

Lorenzo, es un excelente trabajo.

[manuelcalerosolis]

Esta es la nuestra, sin utilizar ninguna clase externa a FW.




http://www.apolosoftware.com

[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.

[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.

[Silvio]

And show and print the ticket ?
have you an sample ?

[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

[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