Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Petición] Control para poner la pantalla degradada FabioYeyo Controles y Componentes (DLL/OCX) 3 1 de julio de 2017 00:41
[Sintaxis] Activar pantalla de busqueda de Windows Roger PowerCOBOL (ActiveX, v4 - v11) 19 22 de septiembre de 2016 16:40
[Sintaxis] Maximizar pantalla Grafica Anthony AcuCobol 2 9 de agosto de 2016 23:58
[Información] Tamaño de campo Josber PowerFORM 2 16 de diciembre de 2015 18:47
[Sintaxis] Posición de DisplayMessage en pantalla Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 3 5 de julio de 2015 22:20
Respuesta
 
Herramientas

  #1
Antiguo 11 de julio de 2015, 18:58
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluciones: 5
Reputación: 14
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Question Tamaño de pantalla

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?
Roger no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 11 de julio de 2015, 22:19
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluciones: 47
Reputación: 17
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Roger,

Experimenta isto:
Código COBOL:
  1. WORKING-STORAGE SECTION.
  2. 01 ScreenWidth   PIC S9(9) COMP-5.
  3. 01 ScreenHeight  PIC S9(9) COMP-5.
  4. 01 ScreenScale   PIC S9(4) COMP-5.
  5. PROCEDURE DIVISION.
  6. * Specify the scale desired -
  7. *  Pixels in this example
  8.     MOVE 0 To ScreenScale
  9.     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)

Código:
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:

Código COBOL:
  1. Example:
  2. WORKING-STORAGE SECTION.
  3. 01 ScreenLeft     PIC S9(9) COMP-5.
  4. 01 ScreenTop      PIC S9(9) COMP-5.
  5. 01 ScreenWidth    PIC S9(9) COMP-5.
  6. 01 ScreenHeight   PIC S9(9) COMP-5.
  7. 01 ScreenScale    PIC S9(4) COMP-5.
  8. PROCEDURE       DIVISION.
  9. * Specify the scale desired -
  10. *  Pixels in this example
  11.    MOVE 0 TO ScreenScale
  12.    INVOKE MainForm "GetWorkArea" USING ScreenLeft  ScreenTop ScreenWidth
  13.            ScreenHeight ScreenScale
  14.  

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

Última edición por Rapinto fecha: 11 de julio de 2015 a las 22:27. Razón: Post añadido
Rapinto no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 12 de julio de 2015, 02:31
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
70 años
01.03.2022 01:59
PROCEDURE DIVISION
Posts: 327
Enviado: 107
Recibido: 118
Soluciones: 10
Reputación: 19
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

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 no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 12 de julio de 2015, 21:44
IDENTIFICATION DIVISION
Roger
 Senior
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 81
Soluciones: 5
Reputación: 14
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

Rui
da un un error en "MainForm" reeplazo esto por el nombre del form??
probare las opciones.
Roger no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 12 de julio de 2015, 22:51
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
26.06.2022 11:57
PROCEDURE DIVISION
Posts: 1.998
Enviado: 701
Recibido: 852
Soluciones: 100
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Roger, en vez de MainForm mete POW-SELF



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 08:58.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.