Page 1 sur 1
[R] Définir des zones de l'écran à partir d'un fichier
Posté : sam. 07 mai 2011 21:47
par pierrotm777
Bonjour,
J'essai de créer un petit script qui me permettrait de définir des zones à l'écran.
Si la souris passe sur l'une de ces zones, une bulle d'info apparait au centre de cette zone comme peut le faire la commande 'GUICtrlSetTip(-1, "Text")' lorsque l'on passe sur un item .
La taille des zones est définie dans un fichier 'test.skin' joins.
Chaque zone étant définies par les lignes commençant par un 'B' ou un 'b'.
ex:
Code : Tout sélectionner
B01,[color=#FF0000]681,38,114,31[/color],"RUN;$SKINPATH$SCRIPTS\FlytoMenu\FlytoMenu.exe|gta_fl_menuV.skin",
où:
left=681
top=38
right=681+114
bottom=38+31
le titre dans la bulle est définie par la huitième position sur la ligne lu
voici donc mon essai, la bulle est remplacée par un tooltip qui n'est pas ce que je veux bien sûr !
► Afficher le texte
Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=checkzone.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <File.au3>
Dim $avArray, $var, $mousepos=MouseGetPos()
AdlibRegister("checkZone",1000)
while 1
sleep(100)
Wend
Func checkZone()
_FileReadToArray(@ScriptDir&"\test.skin",$avArray)
For $i = 0 to UBound( $avArray ) - 1
If StringLeft($avArray[$i],1) = "B" Then
$var = stringsplit($avArray[$i],",")
$top=$var[3]
$bottom=$var[3]+$var[5]
$left=$var[2]
$right=$var[2]+$var[4]
$title=$var[8]
; MsgBox(0,"","Top :"&$top&@crlf&"Bottom :"&$bottom&@crlf&"Left :"&$left&@crlf&"Right :"&$right&"Title :"&$title)
If $mousepos[0] > $left Then
If $mousepos[0] < $right Then
If $mousepos[1] < $top Then
If $mousepos[1] > $bottom Then
ToolTip($title,$var[2]+($var[4]/2),$var[3]+($var[5]/2),2)
EndIf
EndIf
EndIf
EndIf
EndIf
Next
EndFunc
Merci de votre aide !
Re: [..] Définir des zones de lécran à partir d'un fichier
Posté : sam. 07 mai 2011 23:04
par Strofe
Bonjour
1°) $mousepos=MouseGetPos() --> A lire à chaque fois, les coordonnées de la souris ne sont pas constantes
2°) charger le fichier une seule fois pour gagner en fluidité
3°) les coodonnées se lisent de gauchet à droite (0 --> 1024) et du haut en bas (0, 768)
Bonne continuation
PS : il y avait un erreur dans le fichier test.skin --> B16,10,561,57,39,"MUTE"
,"","Zone 21"
► Afficher le texte
Code : Tout sélectionner
#include <Array.au3>
#include <File.au3>
Dim $avArray, $var
_FileReadToArray(@ScriptDir&"\test.skin",$avArray)
AdlibRegister("checkZone",1000)
while 1
sleep(100)
Wend
Func checkZone()
For $i = 1 to UBound( $avArray ) - 1
If StringLeft($avArray[$i],1) = "B" Then
$var = stringsplit($avArray[$i],",")
$top=$var[3]
$bottom=$var[3]+$var[5]
$left=$var[2]
$right=$var[2]+$var[4]
$title=$var[8]
$mousepos=MouseGetPos()
If $mousepos[0] > $left Then
If $mousepos[0] < $right Then
If $mousepos[1] > $top Then
If $mousepos[1] < $bottom Then
ToolTip($title,$var[2]+($var[4]/2),$var[3]+($var[5]/2),2)
EndIf
EndIf
EndIf
EndIf
EndIf
Next
EndFunc
Re: [..] Définir des zones de lécran à partir d'un fichier
Posté : dim. 08 mai 2011 12:49
par pierrotm777
Exact pour , l'erreur.
Merci encore, je n'était pas bien loin. C'est exactement ce que je voulais.
J'ai juste modifié le Tootip ainsi:
Code : Tout sélectionner
ToolTip($title,$var[2]+($var[4]/2),$var[3]+($var[5]/2),"",0,1)
Merci encore
