[R] Définir des zones de l'écran à partir d'un fichier

[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 !

[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

 

[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