Formularios Redondos

Alex Taya Yactayo

Relativamente es fácil hacer estos tipos de formularios pero primero necesitamos utilizar una librería que viene con Visual Studio que se llama FOXTOOLS.FLL que detallo a continuación.

¿FLL?

Es una biblioteca de vínculos de FoxPro, una versión compatible de VFP de una DLL creada en C y que realmente nos permite ampliar la funcionalidad de VFP.

¿FOXTOOLS.FLL?

Foxtools es una biblioteca API de Visual FoxPro que ofrece archivos DLL de Windows para su utilización en Visual FoxPro.

Las funciones de la biblioteca Foxtools le permiten establecer y obtener información de archivo, manipular rutas de acceso y nombres de archivo, usar avisos del sistema y realizar muchas otras funciones.

Para mayor detallen pueden ver el archivo de ayuda:

C:\Archivos de programa\Microsoft Visual Studio\Vfp98\Tools\foxtools.chm

Ok. Entonces mas a la obra..............

Primero en el Procedimiento LOAD del Form escribimos lo siguiente:

local varwh, varw, varnh, varhr, varrad, varrat

DECL Integer CreateEllipticRgn IN gdi32 integer,integer,integer,integer
DECL Integer SetWindowRgn IN user32 integer,integer,integer

set library to ( HOME(1)+'foxtools.fll' ) &&Se utiliza para llamar al archivo de recursos

varwh = _WhToHWnd(_WFindTitl(this.caption))

varrad=1.1 &&Determina la forma del form
varw = this.width / varrad
varnh = this.height / varrat
varhr = CreateEllipticRgn(0, 0, varw, varnh)
SetWindowRgn(varwh, varhr, 1)

Adjunto la fuente para que lo puedan utilizar.

Espero les pueda servir de ayuda, nos vemos líneas de código más adelante.

alextaya@hotmail.com