RESPUESTA A LA PREGUNTA NUMERO 688

P: ¿Como poner una imagen de fondo en la pantalla principal de VFP? 
R: *----------------------------------------------------------------------
* Por ejemplo si queremos poner como fondo de la pantalla principal el
* archivo "MiImagen.BMP" que esta en C:\BITMAPS\ ejecutamos:
*----------------------------------------------------------------------
   _Screen.Picture = "C:\BITMAPS\MiImagen.BMP"

*---------------------------------------------------------------------- 

P: ¿Como cambiar el ícono de la ventana principal de VFP? 
R: *----------------------------------------------------------------------
* Por ejemplo si queremos cambiar el ícono de la ventana principal por
* archivo "MiIcono.ICO" que esta en C:\ICONS\ ejecutamos:
*----------------------------------------------------------------------
   _Screen.Icon = "C:\ICONS\MiIcono.ICO"

*---------------------------------------------------------------------- 

P: ¿Como eliminar la barra de titulos y maximizar la ventana principal de VFP para que ocupe todo el área del monitor? 
R: *----------------------------------------------------------------------
WITH _Screen
  .WindowState = 2
  .Caption = ""
  .Closable = .F.
  .ControlBox = .F.
  .MaxButton = .F.
  .MinButton = .F.
  .Movable = .F.
ENDWITH

*---------------------------------------------------------------------- 

P: ¿Como puedo saber la configuración del tamaño de la pantalla donde se está ejecutando mi aplicación VFP? 
R: *----------------------------------------------------------------------
DO CASE
   CASE SYSMETRIC(1)=640 AND SYSMETRIC(2)=480
      *--- Resolución de 640*480
   CASE SYSMETRIC(1)=800 AND SYSMETRIC(2)=600
      *--- Resolución de 800*600
   CASE SYSMETRIC(1)=1024 AND SYSMETRIC(2)=768
      *--- Resolución de 1024*768
   CASE SYSMETRIC(1)=1280 AND SYSMETRIC(2)=1024
      *--- Resolución de 1280*1024
   OTHER
      *--- Desconocido
ENDCASE


Jose Samper
buzo@polbox.com