On Header Click

Code	Puede ser llamado por	Definición
42	Área 4D View Pro - List Box - Columna de List Box	Se produce un clic en el encabezado de columna

Descripción

List Box

Este evento se genera cuando se hace clic en el encabezado de una columna de list box. En este caso, el comando Self permite identificar el encabezado de la columna sobre la que se ha hecho clic.

Si se seleccionó la propiedad Sortable para el list box, se puede decidir si se autoriza o no una ordenación estándar de la columna pasando el valor 0 o -1 en la variable $0:

• Si $0 es igual a 0, se realiza una ordenación estándar.
• Si $0 es igual a -1, no se realiza una ordenación estándar y el encabezado no muestra la flecha de ordenación. El desarrollador puede seguir generando una ordenación de columnas basada en criterios de ordenación personalizados utilizando el lenguaje 4D.

Si la propiedad Sortable no está seleccionada para el list box, la variable $0 no se utiliza.

4D View Pro

Este evento se genera cuando el usuario hace clic en el encabezado de una columna o línea en un documento 4D View Pro. En este contexto, el objeto evento devuelto por el comando FORM Event contiene:

Propiedad	Tipo	Descripción
code	entero largo	42
description	text	"On Header Click"
objectName	text	Nombre del área 4D View Pro
sheetName	text	Nombre de la hoja del evento
range	object	Rango de celdas
sheetArea	entero largo	La ubicación de la hoja donde tuvo lugar el evento: 0: el área de cruce entre el número de columna/encabezado de letra (parte superior izquierda de la hoja) 1: los encabezados de las columnas (área que indica los números/letras de las columnas) 2: los encabezados de línea (área que indica los números de línea)

Ejemplo

 If(FORM Event.code=On Header Click)
    Case of
       :(FORM Event.sheetArea=1)
          $values:=VP Get values(FORM Event.range)
       :(FORM Event.sheetArea=2)
          VP SET CELL STYLE(FORM Event.range;New object("backColor";"gray"))
       :(FORM Event.sheetArea=0)
          VP SET CELL STYLE(FORM Event.range;New object("borderBottom";\
          New object("color";"#800080";"style";vk line style thick)))
    End case
 End if