Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL V3L10
Cocina PowerCOBOL V3L10 Código listo para usar en el IDE PowerCOBOL V3L10
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Error MOVE "Parent" de un nodo "Root" en TreeView dmosca PowerCOBOL (ActiveX, v4 - v11) 1 23 de agosto de 2017 08:47
[Sintaxis] Problema en el evento "Return" en TextBox (CmEdit) dmosca PowerCOBOL (ActiveX, v4 - v11) 8 3 de agosto de 2017 23:40
[Sintaxis] Filtro con CmEdit y evento "change" Roger PowerCOBOL (ActiveX, v4 - v11) 4 26 de febrero de 2017 14:09
[Sintaxis] Imprimir PDF desde DOS (CALL "SYSTEM") Roger RM/COBOL 1 1 de julio de 2016 16:40
[Información] Evento "Resized" del Form (Sheet) Kuk PowerCOBOL V3L10 (Win32) 4 27 de julio de 2015 17:09
Respuesta
 
Herramientas

  #1
Antiguo 22 de diciembre de 2015, 16:32
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.11.2019 11:00
PROCEDURE DIVISION
PostsPosts: 1.421
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 541
Mejores respuestasSoluiones: 87
ReputaciónReputació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
Form Añadir evento "Resized" al SHEET

Amigos, aquí os dejo el código para poder reposicionar/redimensionar los controles en caso de redimensionamiento del Sheet.

Para ver el ejemplo en funcionamiento, cread un SHEET, poned un PUSH en el centro del SHEET. Luego añadid un TIMER estableciendo el intervalo de ejecución en 10 y activadlo.

En el evento el TIMER poned lo siguiente:

Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  WS-SCR.
  5.      05  WS-POS.
  6.          10  WS-X       PIC S9(4) COMP-5.
  7.          10  WS-Y       PIC S9(4) COMP-5.
  8.      05  WS-DIM.
  9.          10  WS-W       PIC S9(4) COMP-5.
  10.          10  WS-H       PIC S9(4) COMP-5.
  11.          
  12.  01  SV-SCR.
  13.      05  SV-POS.
  14.          10  SV-X       PIC S9(4) COMP-5.
  15.          10  SV-Y       PIC S9(4) COMP-5.
  16.      05  SV-DIM.
  17.          10  SV-W       PIC S9(4) COMP-5.
  18.          10  SV-H       PIC S9(4) COMP-5.              
  19.          
  20.  01  BTN-SCR.
  21.      05  BTN-POS.
  22.          10  BTN-X       PIC S9(4) COMP-5.
  23.          10  BTN-Y       PIC S9(4) COMP-5.
  24.      05  BTN-DIM.
  25.          10  BTN-W       PIC S9(4) COMP-5.
  26.          10  BTN-H       PIC S9(4) COMP-5.    
  27.              
  28.  PROCEDURE   DIVISION.
  29.      
  30.      MOVE POW-POSITION OF SHEET1 TO WS-SCR
  31.      
  32.      IF  WS-DIM NOT = SV-DIM
  33.          MOVE WS-SCR  TO SV-SCR
  34.          
  35.          MOVE POW-POSITION OF PUSH1 TO BTN-SCR
  36.          
  37.          COMPUTE BTN-X = (WS-W - BTN-W) / 2
  38.      
  39.          MOVE BTN-SCR TO POW-POSITION OF PUSH1        
  40.      END-IF    

Compilad y ejecutad el programa. Al rediemnsionar el SHEET el PUSH se desplazará quedándose siempre en el centro horizontalmente.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Josber (22 de diciembre de 2015), Rmcostar ( 9 de abril de 2016)
Respuesta

Tags
evento resized , form , powercobol 3 , resized , sheet


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 14:09.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.