|
GML LUM PROCEDIMIENTO LUM_DISPLAY
Sintaxis
CALL "GML::LUM_DISPLAY"
Propósito:
Sobreponer un look-up control en un grid de celda principal.
Nota:
Cuando este procedimiento es ejecutado, la posición del control será
determinada por los valores de las variables contenidas en la plantilla GML_LUM$
que será inicializada al start-up de la aplicación.
Ejemplo 1:
En el siguiente ejemplo GML.NOTIFY% 18 ha sido usado como el evento que activa
(muestra) el lookup control. Si hay un control asociado con la información
contenida en la plantilla GML_TPL$, ese control es desplegado. Sin embargo,
si no hay lookup control asociado con la información GML_TPL$, el llamado
a LUM_DISPLAY no tendrá efecto.
7170 REM +------------------+
7180 REM ! RIGHT CLICK !
7190 REM ! GML.NOTIFY%=18 !
7200 REM +------------------+
7210 CASE 18
7220 SWITCH GML_TPL.MEMBER%
7230 CASE 1
7240 IF GML_TPL.FLAG%=1 THEN CALL "GML::LUM_DISPLAY"
7250 BREAK
Opción:
Cuando GML_TPL.DEF_FLAG% es fijado a 0, el lookup
control es posicionado y desplegado basado en
parámetros reportados en el grid notify
events 15 o 18 (ejemplo 1).
Si GML_TPL.DEF_FLAG% es fijada a 1, el lookup control será posicionado
y desplegado basado en el número de columna y fila contenido en la plantilla
GML_TPL$ variables GML_TPL.COL_N% y GML_TPL.ROW_N% (ejemplo 2)
Si el lookup control es un listbutton y GML_TPL.OPTION% es fijada a 0, el LUM
manager ejecutará un LISTSEL basado en el valor en GML_TPL.ARG% cuando
el control es desplegado.
Si el lookup control es un list control y GML_TPL.OPTION% es fijado a 1 y el
texto es localizado dentro del GML_TPL.TEXT$, el texto será localizado
en el listedit área seleccionada (edit) cuando el control es desplegado.
Fijando la variable GML_TPL.SUP% a 1 será habilitado el LUM auto-oculto
para el lookup control, mientras fijando GML_TPL.SUP% a 2 dehabilitará
el auto-oculto. EL modo LUM auto-oculto puede ser cambiado ejecutando el procedimiento
LUM_MODE.
Ejemplo 2:
Un lookup es desplegado en el grid de las celdas principal localizado en la
columna 2, fila 8 (el look up ha sido previamente definido como asociado con
la columna 2):
4310 GML.SET%=1
4320 CALL "GML::TPL_PREP"
4330 GML_TPL.COL_N%=2
4340 GML_TPL.ROW_N%=8
4350 GML_TPL.DEF_FLAG%=1
4360 CALL "GML::LUM_DISPLAY"
|
