Saltar para o conteúdo principal
Versão: 20 R5

On Header Click

CodePode ser chamado porDefiniçã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] (overview.md#event-object) retornado pelo comando FORM Event contém:

PropriedadeTipoDescrição
codeinteiro longo42
descriptiontext"On Header Click"
objectNametextNome da área 4D View Pro
sheetNametextNome da folha do evento
rangeobjectIntervalo de células
sheetAreainteiro longoA 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