Aller au contenu principal
Version: 20

On Header Click

CodePeut être appelé parDéfinition
42Zone 4D View Pro - List Box - Colonne de List BoxUn clic se produit dans un en-tête de colonne

Description

List Box

Cet événement est généré lorsqu'un clic se produit sur l'en-tête d'une colonne de list box. Dans ce cas, la commande Self vous permet d'identifier l'en-tête de la colonne sur laquelle vous avez cliqué.

Si la propriété Sortable a été sélectionnée pour la list box, vous pouvez décider d'autoriser ou non un tri standard de la colonne en passant la valeur 0 ou -1 dans la variable $0 :

  • Si $0 est égal à 0, un tri standard est effectué.
  • Si $0 est égal à -1, un tri standard n'est pas effectué et l'en-tête n'affiche pas la flèche de tri. Le développeur peut toujours générer un tri de colonne basé sur des critères de tri personnalisés à l'aide du langage 4D.

Si la propriété Sortable n'est pas sélectionnée pour la list box, la variable $0 n'est pas utilisée.

4D View Pro

Cet événement est généré lorsque l'utilisateur clique sur un en-tête de colonne ou de ligne dans un document 4D View Pro. Dans ce contexte, l'objet événement retourné par la commande FORM Event contient :

PropriétéTypeDescription
codeentier long42
Descriptiontext"On Header Click"
objectNametextNom de la zone 4D View Pro
sheetNametextNom de la feuille de l'événement
rangeobjectPlage de cellule
sheetAreaentier longL'emplacement de la feuille où l'événement a eu lieu :
  • 0 : la zone de croisement entre le numéro de colonne/les en-têtes de lettre (en haut à gauche de la feuille)
  • 1 : les en-têtes de colonne (zone indiquant les numéros/lettres de colonnes)
  • 2 : les en-têtes de ligne (zone indiquant les numéros de ligne)
  • Exemple

     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