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 ;)