4D Doc Center : WR LIRE COORDONNEES CURSEUR

4D Write v14

WR LIRE COORDONNEES CURSEUR


WR LIRE COORDONNEES CURSEUR ( zone ; posHoriz ; posVert ; hauteur )

Paramètre	Type	Description
zone	Entier long	4D Write area
posHoriz	Réel	Coordonnée horizontale dans la page
posVert	Réel	Coordonnée verticale dans la page
hauteur	Réel	Hauteur du curseur

Description

La commande WR LIRE COORDONNEES CURSEUR retourne les coordonnées du curseur par rapport à l'angle supérieur gauche de la page. Les valeurs sont exprimées dans l'unité courante définie dans les préférences du document.

Lorsque la commande est exécutée alors que du texte ou une image est sélectionné(e) dans la zone 4D, deux cas peuvent se produire:

Si la sélection a été créée par programmation, on considère que le curseur est situé à la fin de la sélection.
Si la sélection est issue d'une action de l'utilisateur, on considère que le curseur est situé à l'emplacement où le bouton de la souris a été relâché. Par exemple, si l'utilisateur a sélectionné manuellement un paragraphe en partant de la dernière ligne et en remontant vers la première, le curseur sera placé au début de la sélection.

Le paramètre hauteur retourne la hauteur du curseur, c'est-à-dire la taille du caractère situé à sa droite. Si une image est sélectionnée, la hauteur de l'image est retournée.

Exemple

Depuis la version 2004.5 de 4D, la commande Imprimer ligne permet d'imprimer des zones 4D Write. En principe, ces zones sont imprimées en hauteur fixe. L'exemple suivant montre comment utiliser les commandes d'impression de 4D et la commande WR LIRE COORDONNEES CURSEUR pour faire varier la hauteur d'impression de la zone 4D Write en fonction de son contenu.

Voici la méthode du formulaire appelé par la commande Imprimer ligne :

 Si(Evenement formulaire=Sur impression corps)

    LIRE RECT OBJET(zone4Dwrite;$gauche;$haut;$droit;$bas)

    $postaquet:=Lire taquet impression(Corps formulaire)

    $hauteurzone:=$bas-$haut   ` hauteur de la zone 4D Write

    $nouvhauteur:=calcultaille

  ` calcultaille retourne la hauteur de la zone 4D Write en fonction de son contenu

  ` cette méthode est présentée ci-dessous

    $décalage:=$nouvhauteur-$hauteurzone

    DEPLACER OBJET(zone4Dwrite;0;0;0;$décalage) ` on redimensionne la zone 4D Write

    FIXER TAQUET IMPRESSION(Corps formulaire;$postaquet+$décalage) ` on déplace le taquet

 Fin de si

La méthode calcultaille est la suivante :

 $zone:=WR Hors ecran

 WR BLOB VERS ZONE($zone;[Table 1]Write_)

 WR FIXER PROPRIETE DOCUMENT($zone;wr unité;wr pixels) ` On travaille en pixels

 

 WR FIXER SELECTION($zone;1;1) ` Début du texte

 WR LIRE COORDONNEES CURSEUR($zone;$hor;$debutver;$curseur1)

 WR FIXER SELECTION($zone;1000000;1000000) ` Fin du texte

 WR LIRE COORDONNEES CURSEUR($zone;$hor;$ver;$curseur2)

 

 WR DETRUIRE HORS ECRAN($zone)

 $0:=Troncature(($ver-$debutver+$curseur1+$curseur2)*0,75;0)