Procedimiento GML SET_COLUMN_WITDH

Sintaxis
CALL "GML::SET_COLUMN_WIDTH"

Propósito:
Fija el ancho de una columna en el grid.

Nota:
El valor en la variable GML_TPL.COL$[c] es usado para indicar el ancho de cada columna individual en el grid.

Ejemplo:
Fija las primeras 2 columnas en el grid a un ancho de 50 pixeles, y deja 2 columnas en 20 pixeles.

2400 GML.SET%=1
2410 CALL "GML::TPL_PREP"
2420 GML_TPL.COL$[1]="50"
2430 GML_TPL.COL$[2]="50"
2440 GML_TPL.COL$[3]="20"
2450 GML_TPL.COL$[4]="20"
2460 CALL "GML::SET_COLUMN_WIDTH"

Procedimiento GML SET_DEFAULT

Sintaxis
CALL "GML::SET_DEFAULT"

Propósito:
Fija los atributos default al grid.

Nota:
Este procedimiento es válido solo cuando aplica al grid principal o control de encabezado de columna (GML_TPL.MEMBER%=1 o GML_TPL.MEMBER%=2) y es usado para fijar atributos default; el procedimiento RESET es usado para establecer todas las celdas grid a los valores default, limpiar y redibujar el grid después de la ejecución del procedimiento SET_DEFAULT.

Ejemplo:
El color de fondo y alineamiento del texto default para una columna 1 en el grid principal en el set grid 2 es cambiado por el uso del procedimiento SET_DEFAULT. El grid es redibujado por el uso del procedimiento RESET.

2400 GML.SET%=2
2410 CALL "GML::TPL_PREP"
2420 GML_TPL.B_COLOR$[1]=GML.LTGRAY$

2430 GML_TPL.ALIGN%[1]=0
2440 CALL "GML::SET_DEFAULT"
2450 CALL "GML::TPL_PREP"
2460 CALL "GML::RESET"