FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Presumiendo un poco
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Presumiendo un poco
Posted: Tue Jan 22, 2008 01:44 PM
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
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Presumiendo un poco
Posted: Tue Jan 22, 2008 01:57 PM

Magnífico trabajo, Felicidades.

Manuel Mercado

manuelmercado at prodigy dot net dot mx
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Presumiendo un poco
Posted: Tue Jan 22, 2008 03:02 PM

Magnífico trabajo, Felicidades.

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

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

Gracias.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
albeiroval
Posts: 400
Joined: Tue Oct 16, 2007 05:51 PM
Re: Presumiendo un poco
Posted: Tue Jan 22, 2008 03:13 PM

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,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Presumiendo un poco
Posted: Tue Jan 22, 2008 03:14 PM

Excelente, el mejor diseño

Alfredo Arteaga
Posts: 326
Joined: Sun Oct 09, 2005 05:22 PM
Presumiendo un poco
Posted: Tue Jan 22, 2008 04:01 PM

Buen diseño Loren, felicidades!

sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Presumiendo un poco
Posted: Tue Jan 22, 2008 04:29 PM

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.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Presumiendo un poco
Posted: Tue Jan 22, 2008 04:34 PM
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 ?
Best Regards, Saludos



Falconi Silvio
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Presumiendo un poco
Posted: Tue Jan 22, 2008 06:34 PM

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

Lorenzo, es un excelente trabajo.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
manuelcalerosolis
Posts: 149
Joined: Mon Oct 10, 2005 09:30 AM
Presumiendo un poco
Posted: Tue Jan 22, 2008 08:41 PM
Esta es la nuestra, sin utilizar ninguna clase externa a FW.




http://www.apolosoftware.com
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Presumiendo un poco
Posted: Wed Jan 23, 2008 07:42 AM

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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Presumiendo un poco
Posted: Wed Jan 23, 2008 08:25 AM

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
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Presumiendo un poco
Posted: Wed Jan 23, 2008 10:57 AM

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

Best Regards, Saludos



Falconi Silvio
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Presumiendo un poco
Posted: Wed Jan 23, 2008 08:12 PM

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

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Presumiendo un poco
Posted: Thu Jan 24, 2008 11:19 AM

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

Static archive · New replies & topics via GitHub Discussions