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 (http://cobolforo.es/showthread.php?t=185)
:susto:

[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