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
[Componente] Programación de Formulario jmeza PowerCOBOL (ActiveX, v4 - v11) 4 25 de enero de 2018 20:54
[Componente] Formulario desplazable lfortuny PowerCOBOL (ActiveX, v4 - v11) 7 18 de enero de 2017 10:07
[Información] Adaptar formulario a distintos terminales BASA01 RM/COBOL 1 16 de junio de 2016 16:54
Respuesta
 
Herramientas

  #1
Antiguo 6 de enero de 2018, 23:06
IDENTIFICATION DIVISION
Breew
 Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Breew
DATA DIVISION
febrero 2015
Barcelona
57 años
25.03.2021 21:34
PROCEDURE DIVISION
Posts: 121
Enviado: 103
Recibido: 10
Soluiones: 0
Reputación: 8
Breew is on a distinguished road Breew is on a distinguished road
Form Descolocacion formulario en resolucion 1920x1080

Hola.

Siempre he programado en un portatil 1336x768 y no me daba nunca problemas al correr en otras resoluciones.

Ahora me he encontrado que tengo formularios que han perdido la estetica en un monitor mas apaisado 1920x1080.

Que opciones poneis en los formularios para que el cambio de definicion de pantalla no los desordene.


Saludos
Breew no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 7 de enero de 2018, 10:20
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.06.2021 09:06
PROCEDURE DIVISION
Posts: 1.754
Enviado: 552
Recibido: 721
Soluiones: 94
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

Breew, yo siempre lo hago a mano, recalculando posiciones en el evento "Resized"



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
Ha dicho Gracias : 1
Breew ( 7 de enero de 2018)
  #3
Antiguo 7 de enero de 2018, 10:43
IDENTIFICATION DIVISION
Breew
 Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Breew
DATA DIVISION
febrero 2015
Barcelona
57 años
25.03.2021 21:34
PROCEDURE DIVISION
Posts: 121
Enviado: 103
Recibido: 10
Soluiones: 0
Reputación: 8
Breew is on a distinguished road Breew is on a distinguished road
Predeterminado

Hola Kuk.

Ahora me lo mirare, pero no se como montarmelo porque al no poder programar con ese monitor, no se rectificarlo adecuadamente.
lo unico que veo es que esta muy descolocado en horizontal.

Tienes algun ejemplo a mano ?


Saludos.





Cita del post de Kuk Ver Mensaje
Breew, yo siempre lo hago a mano, recalculando posiciones en el evento "Resized"

Última edición por Breew fecha: 7 de enero de 2018 a las 10:45. Razón: completar
Breew no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 7 de enero de 2018, 15:59
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.06.2021 09:06
PROCEDURE DIVISION
Posts: 1.754
Enviado: 552
Recibido: 721
Soluiones: 94
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

Breew, en mi caso lo que hago es elegir algunos campos que se redimensionan y otros no. Luego en el evento "Resized", haces algo en plan:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-ARG-STATE        PIC S9(4) COMP-5.
  6.  01  POW-ARG-CLIENTWIDTH  PIC S9(9) COMP-5.
  7.  01  POW-ARG-CLIENTHEIGHT PIC S9(9) COMP-5.
  8.  PROCEDURE       DIVISION USING POW-ARG-STATE POW-ARG-CLIENTWIDTH POW-ARG-CLIENTHEIGHT.
  9.      
  10.      IF  POW-ARG-CLIENTWIDTH < 1270
  11.          MOVE 1270 TO POW-ARG-CLIENTWIDTH        
  12.      END-IF
  13.      
  14.      IF  POW-ARG-CLIENTHEIGHT < 712
  15.          MOVE 712 TO POW-ARG-CLIENTHEIGHT        
  16.      END-IF
  17.      COMPUTE "Width"  OF CmTab1 = POW-ARG-CLIENTWIDTH - "Width"  OF TreePanel
  18.      MOVE POW-ARG-CLIENTHEIGHT TO "Height" OF CmTab1
  19.      
  20.      COMPUTE "Width" OF GroupCONTEN = "Width" OF CmTab1 - 18
  21.      COMPUTE "Width" OF CmFrame45   = "Width" OF GroupCONTEN - 23
  22.      COMPUTE "Width" OF CmListView1 = "Width" OF CmFrame45 - 2    

Etc. Es decir, para los controles que se deben redimensionar, haces un cálculo basándote en otros controles y/o tamaño total del Form.



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
Ha dicho Gracias : 1
Breew (19 de enero de 2018)
  #5
Antiguo 7 de enero de 2018, 19:50
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: 221
Soluiones: 47
Reputación: 16
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

Breew,

A resolução que utilizaste 1336x768 tem uma relação 1336/768=1,739
A resolução que pretendes agora é de 1920x1080 que tem uma relação 1920/1080=1,777

Penso que isso é que provoca a colocação errada.
O tamanho que utilizaste não é 16:9.

Terias que programar num tamanho de ecran com relação 1,777
Talvez assim ao passar para o tamanho 16:9 16/9=1,77777) não provocasse a distorção.
Como diz o Kuk, nestas coisas o melhor e ser programado por nós.
Un saludo,
Rui Pinto
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Breew (19 de enero de 2018)
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 09:23.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.