Ver Mensaje Individual
  #3
Antiguo 12 de julio de 2015, 03:31
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por implicación en la vida del Foro 
Última Actividad 01.03.2022 02:59
Posts Posts: 323
Likes enviados Enviados: 102
Likes recibidos Recibidos: 120

Hola Amigo, yo incluyo estas lineas en el open de la pantalla

Código COBOL:
  1. 01  V-Width  PIC 9(006).
  2. 01  V-Height PIC 9(006).  
  3.      INVOKE POW-SELF "GetScreenSize" USING V-Width V-Height.
  4.      IF V-Height < 800 INVOKE POW-SELF "ShowForm" USING POW-SWSHOWMAXIMIZED.

También tengo una opción que si el operador digita F12 yo hago el MAXIMIZE.

Saludos
Hrmcobol is offline   Responder Con Cita