Imagen principal de la Aplicacion

http://www.portalfox.com/article.php?sid49

Para un formulario, utiliza un control Image y lo ubicas donde deseas.

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Alberto" escribió en el mensaje
news:%

Que tal foxeros. Disculpen mi ignorancia.
Deseo que mi aplicación tenga una imagen como fondo, pero al ponerla con
el comando MODIFY WINDOW SCREEN TITLE 'SISTEMA DE CONTROL DE
INVENTARIOS' NOCLOSE FILL FILE 'LOGO.JPG' la pantalla se llena con la
misma imagen muchas veces y yo sólo la quiero una vez en el centro. Lo
mismo sucede con la propiedad picture de un formulario.
Ya estuve buscando una respuesta a mi pregunta pero ya llegué hasta la
página 20 de foros y no veo ninguna. Si conocen una solución se las
agradecería mucho.
Alberto..


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

On Fri, 24 Sep 2004 10:06:38 -0700, "Alberto"
wrote:

Que tal foxeros. Disculpen mi ignorancia.
Deseo que mi aplicación tenga una imagen como fondo, pero al ponerla con
el comando MODIFY WINDOW SCREEN TITLE 'SISTEMA DE CONTROL DE
INVENTARIOS' NOCLOSE FILL FILE 'LOGO.JPG' la pantalla se llena con la
misma imagen muchas veces y yo sólo la quiero una vez en el centro. Lo
mismo sucede con la propiedad picture de un formulario.
Ya estuve buscando una respuesta a mi pregunta pero ya llegué hasta la
página 20 de foros y no veo ninguna. Si conocen una solución se las
agradecería mucho.

Colaboracion de Fred Taylor [MP] y Eric Den Doop [MVP]:

_screen.addobject("oSH","ScreenHook")
_screen.addobject("oImage", "Image")
WITH _screen.oImage
.picture = GETPICT()
.stretch = 0
.left = (_screen.width / 2) - (.width / 2)
.top = (_screen.height / 2) - (.height / 2)
.visible = .T.
ENDWITH

*
* ScreenMethods.PRG
*
* Fred Taylor - ElZorro 4/10/2001 www.elzorro.org
*
* Use the following to modify _SCREEN methods:
*
* For VFP6 & 7:
*
* _SCREEN.NewObject("oSH","ScreenHook","screenmethods.prg")
*
* For VFP3 & 5:
*
* SET PROCEDURE TO screenmethods ADDITIVE
* _SCREEN.AddObject("oSH","ScreenHook")
*
* Any of the main VFP screen methods can be hooked into in this
manner.
*
DEFINE CLASS ScreenHook AS CUSTOM
oScr = _SCREEN
PROCEDURE oScr.Resize()
*
* Code to handle the main VFP screen being resized
*
WITH this.oImage
.left = (_screen.width / 2) - (.width / 2)
.top = (_screen.height / 2) - (.height / 2)
ENDWITH
ENDPROC
PROCEDURE oScr.RightClick
*
* Code to do a "shortcut" menu on main VFP screen RightClick
*
DO testmenu.mpr
ENDPROC
*
* Custom methods work, too.
*
PROCEDURE oScr.MyMethod
wait window "my method fired!"
ENDPROC
ENDDEFINE



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net