|
Procedimiento GML ENABLE
Sintaxis
CALL "GML::ENABLE"
Propósito:
Habilitar el grid control
Nota:
El valor en GML_TPL.MEMBER% determina cual set de grid control se habilitará.
Ejemplo:
2400 GML.SET%=1
2410 CALL "GML::TPL_PREP"
2420 CALL "GML::ENABLE"
Opción:
Fijar el valor de GML_TPL.OPTION% a 1 habilitará todos los grid control
(principal, encabezado de fila y columna) en el set de grid.
Procedimiento GML END_EDIT
Sintaxis
CALL "GML::END_EDIT"
Propósito:
Terminar el modo de edición de una celda grid principal y actualizar
la celda grid texto del array de datos.
Nota:
Este procedimiento es ejecutado después que el programa ha recibido un
GML.NOTIFY% valor de 6, el cual indica que una tecla especial fue presionada
por el usuario durante el proceso de edición de la celda. Cuando el programa
GML_M localiza el valor de 6 en la variable GML.NOTIFY también localiza
la fila de datos presente dentro de la plantilla GML_TPL$ con el texto recientemente
entrado en la variable de plantilla GML_TPL.TEXT$. En adición, un valor
correspondiente a la tecla que fue presionada es localizado en la variable
GML_TPL.FLAG% Esos valores son como los siguientes:
| <Enter> = 1 |
|
<F1> = 11 |
| <Tab> = 2 |
|
<F2> = 12 |
| <Shift> + <Tab> = 3 |
|
<F3> = 13 |
|
<Up Arrow> = 4
|
|
<F4> = 14 |
| <Down Arrow> = 5 |
|
<F5> = 15 |
| <Page Up> = 6 |
|
<F6> = 16 |
| <Page Down> = 7 |
|
<F7> = 17 |
| <Esc> = 8 |
|
|
| <F8> = 18 |
|
|
| <F9> = 19 |
|
|
Ejemplo:
4720 SWITCH GML.NOTIFY%
4730 REM +----------------------+
4740 REM ! SPECIAL KEY PRESSED !
4750 REM +----------------------+
4760 CASE 6
4770 SWITCH GML_TPL.FLAG%
4780 REM +-------------+
4790 REM ! ENTER KEY !
4800 REM +-------------+
4810 CASE 1
4820 CALL "GML::END_EDIT"
4830 BREAK
Opción:
Si, previo a ejecutar el procedimiento END_EDIT, una máscara es localizada
en la plantilla GML_TPL$ en la variable de plantilla GML_TPL.MASK$[c] (donde [c]
es el valor GML_TPL.COL_N%) será usada para formatear el texto que
es contenido en el grid de celda del array de datos.
|
