OT - Nuevo Estilo de Boton Personalizado - Beta

366 views
Skip to first unread message

Jean Pierre Adonis De La Cruz Garcia

unread,
Feb 14, 2017, 7:03:22 PM2/14/17
to Comunidad de Visual Foxpro en Español

Estuve un poco aburrido y me puse a crear un tipo de boton personalizado, para salir del clasico boton gris.

Simplemente es codigo puro, sin librerias externas, espero que sea de su agrado, es codigo abierto, asi que pueden meterle la mano nomas, por dia de San Valletin, si alguien les hace mejoras pueda ir subiendola en este hilo, hay mas ideas para agregarle, pero al momento eso fue un avance.

Claro que quedaria mejor en una clase VCX pero ya me dio flojera hacerlo.



cmboton._ar

Irwin Rodriguez

unread,
Feb 14, 2017, 8:05:35 PM2/14/17
to Comunidad de Visual Foxpro en Español

Gracias por compartir amigo. Y feliz noche de la amistad pos ya el dia terminó. :-)

Saludos desde Ecuador...!!!

larue...@yahoo.com

unread,
Feb 14, 2017, 8:50:39 PM2/14/17
to publice...@googlegroups.com

--------------------------------------------
On Wed, 2/15/17, Irwin Rodriguez <rodrigu...@gmail.com> wrote:

Subject: Re: [vfp] OT - Nuevo Estilo de Boton Personalizado - Beta
To: "Comunidad de Visual Foxpro en Español" <publice...@googlegroups.com>
Date: Wednesday, February 15, 2017, 3:05 AM

Gracias por
compartir amigo. Y feliz noche de la amistad pos ya el dia
terminó. :-)
Saludos desde Ecuador...!!!

El mar, feb
14, 2017 19:03, Jean Pierre Adonis De La Cruz Garcia <elconsultor...@gmail.com>
escribió:
Estuve un poco
aburrido y me puse a crear un tipo de boton personalizado,
para salir del clasico boton gris.Simplemente es codigo
puro, sin librerias externas, espero que sea de su agrado,
es codigo abierto, asi que pueden meterle la mano nomas, por
dia de San Valletin, si alguien les hace mejoras pueda ir
subiendola en este hilo, hay mas ideas para agregarle, pero
al momento eso fue un avance.Claro que quedaria
mejor en una clase VCX pero ya me dio flojera hacerlo.

eritoriu unde mai pulsa inca fiinta statului roman era dupa campania din 1916 obiectivul principal al autoritatilor militare romanesti. Printr-un urias efort militar s-a refacut o forta militara ce grupa 460 000 de soldati si ofiteri. A contribuit la aceasta si inzestrarea cu armament modern cumparat din strainatate ca si misiunea militara franceza condusa de generalul Henri Berthelot. Regina Maria a organizat sub patronajul sau Crucea Rosie pentru a alina suferintele ranitilor si

Edwin Duran

unread,
Feb 15, 2017, 6:31:50 AM2/15/17
to Comunidad de Visual Foxpro en Español
Gracias por el gran trabajo.

Antonio Meza

unread,
Feb 15, 2017, 9:42:06 AM2/15/17
to Comunidad de Visual Foxpro en Español
Gracias por compartir!!

Puedes agregar un botón invisible para que funcione el tab, así lo uso en foxyRb.

saludos
Antonio Meza

Jean Pierre Adonis De La Cruz Garcia

unread,
Feb 15, 2017, 10:06:26 AM2/15/17
to Comunidad de Visual Foxpro en Español
Con respecto al boton se le puede hacer muchas mejoras.
Pueden cambiar el modo del degrade en una direccion distinta, tambien el color, ademas se le puede agregar imagenes tambien al boton si se desea y muchas cosas mas,.
No solo puede ser un trapezoide, pueden hcerlo redondo a un extremo y rectangular al otro lado y muchas formas mas, la idea ya la tiene, yo lo uso para mis modulos de skin que tengo en mis sistemas y me va de maravillas.

Jean Pierre Adonis De La Cruz Garcia

unread,
Feb 15, 2017, 1:08:24 PM2/15/17
to Comunidad de Visual Foxpro en Español
Aqui les traigo un boton mas, con un pequeño efecto adicional, y como mencione, codigo puro en VFP sin librerias.


cmboton1.2._ar

Fredy Mora

unread,
Feb 17, 2017, 7:20:01 AM2/17/17
to Comunidad de Visual Foxpro en Español
Hola Jean Pierre Adonis De La Cruz Garcia.  "GRACIAS POR TU APORTE"

Daba errores en los Inits de los Containers (*ThisForm.ConTAINER1.Init*):
 le coloqué  en el Load del Form lo siguiente:

*Thisform.Load*

PUBLIC m.xonerror, m.error
m.xonerror=on('error')
on error m.error=.t.
m.error=.f.

y Funciona correctamente (No muestra los errores..)

Además, Complemento con:

*Thisform.Activate*
on error &xonerror

*Thisform.Destroy*

RELEASE m.xonerror, m.error



Jean Pierre Adonis De La Cruz Garcia

unread,
Feb 17, 2017, 10:25:43 AM2/17/17
to Comunidad de Visual Foxpro en Español
perfecto mi estimado, y en que version de VFP estaba trabajando y que windows para tomar en cuenta eso, no me habia percatado.
De todos modos aquellos que creen nuevos botones vayan subiendo sus avances existen cantidad de modelos, espero ver sus aportes tambien.
Reply all
Reply to author
Forward
0 new messages