Ha desaparecido código en un Tema

[Roger]

KUK
Que paso con los codigo cobol que se mostraban en este mensaje desaparecieron?? : [Otra duda] Tamaño de pantalla - COBOL Foro

[Kuk]

@Roger, donde? No ha desaparecido nada que yo sepa? No será que te estas confundiendo y era otro mensaje al que te refieres?

[Rapinto]

Kuk

Realmente o código desapareceu. Eu repito:


Tamanho total do ecran:

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


Tamanho da área útil:

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


Saludos,
Rui

[Hrmcobol]

Hola Kuk, si desaparecieron las lineas de código que había en los mensajes yo escribí algo así

01  V-Width  pic 9(6).
01  V-Height pic 9(6).
 
     INVOKE POW-SELF "GetScreenSize" USING V-Width V-Height.
     
     IF V-Width <= 800 INVOKE POW-SELF "ShowForm" USING POW-SWSHOWMAXIMIZED.

Saludos

[Kuk]

@Hrmcobol, @Rapinto, @Roger, ya está arreglado. Modifiqué el tema para el prefijo y hubo error de base de datos (el hosting gratuito a veces falla). Ya está arreglado.

[Hrmcobol]

Gracias Kuk !!
Saludos