25 de enero de 2006

Mantener centrada una imagen en la pantalla principal


Ya en un artículo anterior se publicó como centrar una imagen en la pantalla principal de VFP:

-- Centrar una imagen en la pantalla principal (_Screen) --
http://comunidadvfp.blogspot.com/2002/03/centrar-una-imagen-en-la-pantalla.html

Esta vez enlazaremos el evento Resize de la pantalla principal para mantener siempre centrada la imagen, aunque la pantalla se redimensione. Para ello utilizaremos la función BINDEVENT() disponible desde VFP8.

_SCREEN.ADDOBJECT("oImagen","MiImagen")
WITH _Screen.oImagen
  .PICTURE = "C:\MiImagen.jpg"
  .LEFT = INT(_SCREEN.WIDTH  - .WIDTH)/ 2
  .TOP = INT(_SCREEN.HEIGHT - .HEIGHT)/ 2
  .VISIBLE = .T.
ENDWITH

BINDEVENT(_SCREEN,"Resize",_SCREEN.oImagen,"MiMetodo")

DEFINE CLASS MiImagen AS IMAGE
  PROCEDURE MiMetodo
    WITH THIS
      .LEFT = INT(_SCREEN.WIDTH  - .WIDTH)/ 2
      .TOP = INT(_SCREEN.HEIGHT - .HEIGHT)/ 2
    ENDWITH
  ENDPROC
  PROCEDURE DESTROY
    UNBINDEVENT(THIS)
  ENDPROC
ENDDEFINE

Luis María Guayán

No hay comentarios. :

Publicar un comentario