|
|
|
|
|
|
|
|
|
version 6.0
dr_ZOOM (zone; zoom; horizontal; vertical; emplacement)
| Paramètre | Type | Description | |
| zone | Entier long |  | Zone 4D Draw |
| zoom | Numérique | | Pourcentage de zoom |
| horizontal | Numérique | | Coordonnée horizontale |
| vertical | Numérique | | Coordonnée verticale |
| emplacement | Entier | | 0 = HV est centré |
| 1 = HV est en haut à gauche |
Description
La commande dr_ZOOM permet d'effectuer un zoom, au pourcentage défini par le paramètre zoom, sur un point de coordonnées (horizontal, vertical).
• Si emplacement est égal à 0, le point sera placé au centre de la partie visible de zone.
• Si emplacement est égal à 1, le point sera placé en haut et à gauche de la partie visible de zone.
Exemple
Cette méthode permet d'effectuer un zoom sur la sélection, de façon à ce que celle-ci puisse s'inscrire en totalité dans la partie visible de la zone externe 4D Draw. Elle peut être placée dans la méthode objet d'un bouton ou dans une méthode projet appelée par dr_APPELER SUR EVENEMENT en cas de changement de sélection.
dr_ZOOM (MaZone;100;0;0;0) ` Réinitialisation du zoom à 100% ` Coordonnées de l'objet sélectionné dr_LIMITES OBJET (MaZone;0;ObjGauche;ObjHaut;ObjDroite;ObjBas) ObjLargeur:=ObjDroite-ObjGauche ` Calcul de la largeur de l'objet ObjHauteur:=ObjBas-ObjHaut ` Calcul de la hauteur de l'objet ` Coordonnées de la partie visible de la zone dr_LIMITES ZONE(MaZone;ZoneGauche;ZoneHaut;ZoneDroite;ZoneBas) ZoneLargeur:=ZoneDroite-ZoneGauche ` Calcul de la largeur de la zone ZoneHauteur:=ZoneBas-ZoneHaut ` Calcul de la hauteur de la zone ObjRatio:=ObjLargeur/ObjHauteur ` Calcul du ratio de l'objet ZoneRatio:=ZoneLargeur/ZoneHauteur ` Calcul du ratio de la zone Si (ObjRatio>ZoneRatio) ` Si le ratio de l'objet est supérieur à celui de la zone Zoom:=100*ZoneLargeur/ObjLargeur Si (Zoom>800) Zoom:=800 Fin de si Sinon Zoom:=100*ZoneHauteur/ObjHauteur Si (Zoom>800) Zoom:=800 Fin de si Fin de si CoordH:=(0,5*ObjLargeur)+ObjGauch CoordV:=(0,5*ObjHauteur)+ObjHaut ` Zoom sur un point se trouvant au centre de l'objet dr_ZOOM (MaZone;Zoom;CoordH;CoordV;0)
Référence
|
|
|
|
|
|
|
|
|