4D Write v16WR GET CURSOR POSITION |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v16
WR GET CURSOR POSITION
|
WR GET CURSOR POSITION ( zone ; page ; colonne ; ligne ; position ) | ||||||||
Paramètre | Type | Description | ||||||
zone | Entier long |
![]() |
Zone 4D Write | |||||
page | Entier long |
![]() |
Numéro de la page où est le curseur | |||||
colonne | Entier long |
![]() |
Numéro de la colonne où est le curseur | |||||
ligne | Entier long |
![]() |
Numéro de la ligne dans la colonne | |||||
position | Entier long |
![]() |
Position horizontale du curseur dans la ligne | |||||
La commande WR LIRE POSITION CURSEUR retourne la position du point d’insertion dans le document.
Si la sélection comporte plusieurs caractères, c'est la position de la première lettre qui est retournée. Vous pouvez revenir à cette position avec la commande WR FIXER POSITION CURSEUR en passant les mêmes paramètres.
Vous pouvez utiliser WR Lire cadre pour savoir dans quelle partie précise du document se trouve le curseur.
Vous voulez permettre à un utilisateur d'insérer à tout moment votre logo en en-tête du document sans que cela ne modifie la saisie en cours. Pour cela, vous associez la méthode objet suivante à un bouton :
C_LONGINT($nCdre;$Colonne;$Ligne;$Pos)
C_REAL($LargImage;$HautImage;$LargOrig;$HauteurOrig;$EntMargeHaut)
`Dans quelle partie du document se trouve le curseur ?
$nCdre:=WR Get frame(LaZone)
`On récupère la position du curseur
WR GET CURSOR POSITION(LaZone;$Page;$Colonne;$Ligne;$Pos)
`On se place dans l'en-tête du document
WR SET FRAME(LaZone;wr right header)
`On charge l'enregistrement dans lequel se trouve le logo à inclure dans l'en-tête
ALL RECORDS([Interface])
`Insertion du logo
WR INSERT PICTURE(LaZone;[Interface]Logo;0)
`Sélection du logo et lecture de sa taille
WR SELECT(LaZone;4;1)
WR GET PICTURE SIZE(LaZone;$LargImage;$HautImage;$LargOrig;$HauteurOrig)
`On descend le haut du texte pour retailler l'entête
$EntMargeHaut:=WR Get doc property(LaZone;wr header top margin)
WR SET DOC PROPERTY(LaZone;wr text top margin;$EntMargeHaut+$HautImage)
`On ajuste la hauteur de l'en-tête
WR SET DOC PROPERTY(LaZone;wr header bottom margin;$HautImage)
`On se replace dans la partie du document ou l'on était au départ
WR SET FRAME(LaZone;$nCdre)
`On replace le curseur où il était au départ
WR SET CURSOR POSITION(LaZone;$Page;$Colonne;$Ligne;$Pos)
WR GET CURSOR COORDINATES
WR Get frame
WR SET CURSOR POSITION
Produit : 4D Write
Thème : WR Options de la zone
Numéro :
89461
Créé : 4D Write 6.5
4D Write - Langage ( 4D Write v16)