Presumiendo un poco
Presumiendo un poco
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.
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.
- albeiroval
- Posts: 323
- Joined: Tue Oct 16, 2007 5:51 pm
- Location: Barquisimeto - Venezuela
Re: Presumiendo un poco
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,
felicitaciones,
El sButton que refieres es una clase de FWH o es una libreria de tercero ?
donde lo puedo encontar ?
gracias
saludos,
Albeiro,
- Alfredo Arteaga
- Posts: 326
- Joined: Sun Oct 09, 2005 5:22 pm
- Location: Mexico
- Contact:
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.
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 "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
Que suerte tener buen gusto para diseñar esas "peaso" pantallas...
Lorenzo, es un excelente trabajo.
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
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 9:30 am
- Location: Huelva - Spain
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.
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.
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
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 "
SysCtrl Software
Mexico
' Sin +- FWH es mejor "
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
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