Mantener centrada una imagen en la pantalla principal

Por Luis María Guayán, Tucumán, Argentina

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://www.portalfox.com/article.php?sid=349

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