Citación del post de
Begoguay
|
❞
Hola
Para resolverlo, me he creado una 'columna fantasma' en la tabla que no muestro y a la que mando el foco siempre que se pincha en cualquier celda de la tabla o bien se va a alguna celda con las teclas de arriba / abajo.
Gracias por vuestras respuestas
|
Este es un sencillo truco que también he utilizado alguna vez en PowerCOBOL 3.0. ¡Me encantan las soluciones sencillas!
Otra solución que he implementado para poder recorrer las celdas sin entrar en modo edición es incluir éste código en el evento EDIT de la tabla:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 FILA PICTURE 9.
77 FILA-O PICTURE 9.
77 COLUMNA PICTURE 9.
PROCEDURE DIVISION.
MOVE POW-ROW OF MATRIZ TO FILA-O, FILA.
MOVE POW-COL OF MATRIZ TO COLUMNA.
IF FILA < 8 THEN
ADD 1 TO FILA
ELSE
MOVE 1 TO FILA
END-IF
MOVE POW-OFF TO POW-ENABLE OF MATRIZ.
CALL SELECTCELL OF MATRIZ USING FILA, COLUMNA.
CALL SELECTCELL OF MATRIZ USING FILA-O, COLUMNA.
MOVE POW-ON TO POW-ENABLE OF MATRIZ.
MOVE SPACES TO POW-STRING OF LISTA-RASGOS.
MOVE POW-OFF TO POW-VISIBLE OF L-DIANA.
MOVE SPACES TO POW-TEXT OF L-COMENTARIO.
CALL "CARGA-IMAGEN".
* Con esta operación evitamos entrar en el modo de edición al hacer doble-click o enter sobre una celda
Si alguien quiere verlo funcionando (recuerdo que es PowerCOBOL 3.0) que le eche un vistazo al programa "Mapa lunar" que mandé a la sección de rutinas de ESCOBOL
http://www.escobol.com/modules.php?n...p=getit&lid=78