Ver Mensaje Individual
  #4
Antiguo 7 de enero de 2018, 16:59
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

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 is offline   Responder Con Cita