[Duda] Tamaño de pantalla

[Roger]

Amigos del foro
Tengo diseñado mis sistemas con un forma 14000 x 900 cuando la pantalla es más grande, Tengo activado escalable en true Windows state maximize y se adapta al tamaño de pantalla el problema Surge cuando se visualiza en una pantalla de menor tamaño solo me sale una parte del programa
¿Se puede hacer que el programa reconozca el tamaño del monitor y se adapte a esa medida?

[Rapinto]

Roger,

Experimenta isto:

WORKING-STORAGE SECTION.
01 ScreenWidth   PIC S9(9) COMP-5.
01 ScreenHeight  PIC S9(9) COMP-5.
01 ScreenScale   PIC S9(4) COMP-5.
PROCEDURE DIVISION.
* Specify the scale desired - 
*  Pixels in this example
    MOVE 0 To ScreenScale
    INVOKE MainForm "GetScreenSize" USING ScreenWidth ScreenHeight ScreenScale

As variáveis são:
ScreenWidth: Returns the width of the screen.
ScreenHeight: Returns the height of the screen.
ScaleMode: The units to be used. If omitted, PowerCOBOL uses the ScaleMode value. Use the values (with equivalent constants)

0 – Pixels  (POW-SCALEPIXELS)
1 - 1/100mm (POW-SCALEHIMETRIC)
2 - 1/1000inch  (POW-SCALEHIENGLISH)
3 - 1/20Points   (POW-SCALETWIPS)

Un Saludo,
Rui

Añadido despues de 8 minutos
Roger,
Se quiseres a área disponível:

Example:
WORKING-STORAGE SECTION.
01 ScreenLeft     PIC S9(9) COMP-5.
01 ScreenTop      PIC S9(9) COMP-5.
01 ScreenWidth    PIC S9(9) COMP-5.
01 ScreenHeight   PIC S9(9) COMP-5.
01 ScreenScale    PIC S9(4) COMP-5.
PROCEDURE       DIVISION.
* Specify the scale desired - 
*  Pixels in this example
   MOVE 0 TO ScreenScale
   INVOKE MainForm "GetWorkArea" USING ScreenLeft  ScreenTop ScreenWidth 
           ScreenHeight ScreenScale
 

Acquires the dimensions of the available display area on the screen - the screen size, less areas occupied by the task bar(s). Uses the units defined in the ScaleMode parameter.

Saludos,
Rui

[Hrmcobol]

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

01  V-Width  PIC 9(006).
01  V-Height PIC 9(006).  
     INVOKE POW-SELF "GetScreenSize" USING V-Width V-Height.
     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

[Roger]

Rui
da un un error en "MainForm" reeplazo esto por el nombre del form??
probare las opciones.

[Kuk]

Roger, en vez de MainForm mete POW-SELF