On Header Click

Code	Pode ser chamado por	Definição
42	Área 4D View Pro - List Box - Columna de List Box	Ocorre um clique no cabeçalho de uma coluna

Descrição

List Box

Esse evento é gerado quando ocorre um clique no cabeçalho de uma coluna de list box. Nesse caso, o comando Self permite que você descubra o cabeçalho da coluna clicada.

Se a propriedade Sortable tiver sido selecionada para o list box, você poderá decidir se autoriza ou não uma classificação padrão da coluna passando o valor 0, ou -1 na variável $0:

• Se $0 for igual a 0, é efetuada uma ordenação padrão.
• Se $0 for igual a -1, uma classificação padrão não será executada e o cabeçalho não exibirá a seta de classificação. O desenvolvedor ainda pode gerar uma classificação de coluna com base em critérios de classificação personalizados usando a linguagem 4D.

Se a propriedade Sortable não estiver selecionada para o list box, a variável $0 não será usada.

4D View Pro

Esse evento é gerado quando o usuário clica em um cabeçalho de coluna ou linha em um documento 4D View Pro. Nesse contexto, o objeto evento retornado pelo comando FORM Event contém:

Propriedade	Tipo	Descrição
code	inteiro longo	42
description	text	"On Header Click"
objectName	text	Nome da área 4D View Pro
sheetName	text	Nome da folha do evento
range	object	Intervalo de células
sheetArea	inteiro longo	A localização da planilha onde o evento ocorreu: 0: A área de cruzamento entre os cabeçalhos de números/letras das colunas (canto superior esquerdo da planilha) 1: os cabeçalhos de coluna (área que indica os números/letras das colunas) 2: Os cabeçalhos de linha (área que indica os números da linha)

Exemplo

 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