GAbo248,
Código:
Display standard graphical window, action action-maximize, title "el título que quieras", SCREEN LINE 1 SCREEN COL 1, lines 42, size 113.5, background-low, resizable.
El caso de este ejemplo, es la pantalla inicial de un sistema.
La pantalla tiene una medida de 42 líneas x 113.5 columnas (calza justo en una resolución de 800 x 600 - algo viejita la pobre).
La frese ACTION con el parámetro ACTION-MAXIMIZE hace que inicialmente ocupe toda la pantalla, independientemente del tamaño y resolución de ésta. (Para que funcione, la ventana tiene que ser "RESIZABLE".
ACTION-MAXIMIZE tiene el valor 21 y lo podés encontrar en el archivo de definiciones : ACUGUI.DEF.
Pero si se restaura, la pantalla quedaría con las medidas inicialmente especificadas.
-----------------------------------------------------------------------------------------
Para mostrar imágenes :
Código COBOL:
call "W$BITMAP" using wbitmap-display "tu-imagen.jpg", 1, 1.
Esto carga el archivo "tu-imagen.jpg" en la fila 1 columna 1 de la pantalla.
En el caso de este ejemplo, la imagen se encuentra en el mismo directorio que el programa, por esa razón no se indicó la ruta.
Espero te sea de utilidad.