Saltar al contenido principal
Versión: 19

On Header Click

CodePuede ser llamado porDefinició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:

PropiedadTipoDescripción
codeentero largo42
descriptiontext"On Header Click"
objectNametextNombre del área 4D View Pro
sheetNametextNombre de la hoja del evento
rangeobjectRango de celdas
sheetAreaentero largoLa 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