AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 ! ZooMa ! Zoom sur image

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: ! ZooMa ! Zoom sur image   2006-11-30, 21:56

Voilà un script très basique qui permet de zoomer sur une image, mais pas trop parcequ'il y a des bugs quand on est trop près.

De plus à chaque zoom l'image disparaît pendant quelques ms(millisecondes), ce qui est un peu gênant.

Si vous avez des proposotions pour l'améliorer (il y en a pleins j'en suis sur:cheers: ) , n'hésitez pas à les transmettre!

Il vous faut cette image, mais vous pouvez en prendre une autre, mais c'est celle que j'ai utilisé pour le script, une belle vue par satellite de la terre en 2048×2048 donc avec pleins de détails :
[url=http://veimages.gsfc.nasa.gov/2429/globe_east_2048.jpg]http://veimages.gsfc.nasa.gov/2429/globe_east_2048.jpg[/url]

Il faut renommer la photo en terre.jpg (ou modifiez le script à votre aise) et la mettre dans le même dossier que le script, puis executez-le .



[list]
[*]la touche Z pour zoomer
[*]la touche S pour dézoomer
[*]la flèche droite pour bouger l'image à droite, la gauche pour...flèche haut pour monter l'image, la flèche bas pour.....
[/list]

Le lien vers mon topic sur le forum officiel: [url=http://www.autoitscript.com/forum/index.php?showtopic=37122]http://www.autoitscript.com/forum/index.php?showtopic=37122[/url]

Le script:

#include <GUIConstants.au3>

[code]; 8--8 888-8-888-88-88 8--8
;88-8-88-888-888-8888-888-888888888888--8888888
; 8
; -
; ZooMa-ZooMa-ZooMa-ZooMa-ZooMa-ZooMa-ZooMa 8
; 8
; Script to zoom on images -
; by Clearguy 8
; V. -
; 8
;88888-88-888-88-88-88-8888-888888-8-8-88-8888
; 8-8- 8-88-8-888-8-88-8 88--

#include
$hGUI=GUICreate("Zoomah",500,500)
GUISetState()
Global $CoordGUI2[2]
$CoordGUI2[0]=40
$CoordGUI2[1]=60
Global $Center[2]
$Center[0]=200
$Center[1]=200
$h_cGUI=GUICreate("Child GUI", 400, 400, 40, 60, $WS_CHILD+$WS_HSCROLL+$WS_VSCROLL, $WS_EX_CLIENTEDGE, $hGUI)
$n=GUICtrlCreatePic(@WorkingDir&'terre.jpg',0,0, 2048,2048)
GUICtrlSetPos($n,0,0,400,400)
GUISetState()
GUISwitch($hGUI)
HotKeySet("z", "zoom")
HotKeySet("s", "unzoom")
HotKeySet("{DOWN}", "down")
HotKeySet("{UP}", "up")
HotKeySet("{LEFT}", "left")
HotKeySet("{RIGHT}", "right")
Global $Size=400,$rl=0,$top=0,$ZoomPercent=1.1
Global $x,$X,$y,$Y,$DeltaX,$DeltaY,$Abscisse=0,$Ordonnee=0
While 1
$GUIMsg = GUIGetMsg()
Switch $GUIMsg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Func unzoom()
$Cursor=GUIGetCursorInfo()
$X=$Cursor[0]
$Y=$Cursor[1]

$x=$X-$CoordGUI2[0]
$y=$Y-$CoordGUI2[1]

$x=$ZoomPercent*$x
$z=$ZoomPercent*$y

$DeltaX=$Center[0]-$x
$DeltaY=$Center[1]-$y

$Size=($ZoomPercent-(2*($ZoomPercent-1)))*$Size

$Abscisse=$Abscisse+$DeltaX
$Ordonnee=$Ordonnee+$DeltaY

GUICtrlSetPos($n,$Abscisse,$Ordonnee,$Size,$Size)
EndFunc
Func zoom()
$Cursor=GUIGetCursorInfo()
$X=$Cursor[0]
$Y=$Cursor[1]

$x=$X-$CoordGUI2[0]
$y=$Y-$CoordGUI2[1]

$x=$ZoomPercent*$x
$z=$ZoomPercent*$y

$DeltaX=$Center[0]-$x
$DeltaY=$Center[1]-$y

$Size=$ZoomPercent*$Size

$Abscisse=$Abscisse+$DeltaX
$Ordonnee=$Ordonnee+$DeltaY

GUICtrlSetPos($n,$Abscisse,$Ordonnee,$Size,$Size)

EndFunc
Func down()
$top=$top-10
GUICtrlSetPos($n,$rl,$top,$Size,$Size)
EndFunc
Func up()
$top=$top+10
GUICtrlSetPos($n,$rl,$top,$Size,$Size)
EndFunc
Func left()
$rl=$rl+10
GUICtrlSetPos($n,$rl,$top,$Size,$Size)
EndFunc
Func right()
$rl=$rl-10
GUICtrlSetPos($n,$rl,$top,$Size,$Size)
EndFunc[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: ! ZooMa ! Zoom sur image   2006-12-01, 10:30

sympa ton script, il manquait juste un "\" lors de la création de l'image. Ce qui aurait été bien c'était d'avoir un bouton permettant l'ouverture d'autre fichiers images. Dautres part il est domage que tes barres de défilement ne fonctionnent pas ça aurait été bien utile... ou alors il faudrais ragrandir la taille de la fenêtre.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
! ZooMa ! Zoom sur image
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» une image arrive en zoom
» Image cliquable qui "zoom" au survol
» Problème d'image de fond lors de zoom
» Agrandire une image au passage de la souris
» Effet zoom sur les liens de la Navbar

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: