[R] Modifier la couleur du pointeur souris

[Yann]

bonjours ,
je suis a la recherche d une fonction pour modifier la couleur du pointeur de souris ou du fond d'un tooltip.
je récupère la couleur avec pixelgetcolor pour info mais après je ne sais plus quoi en faire.

amicalement.

[mikell]

Pour le curseur, il s'agit plutôt d'utiliser un curseur différent selon les circonstances

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <winapiex.au3>
#include <WinAPIRes.au3>

InetGet("http://curseursgogo.free.fr/curcartoon/Asmurf.cur", @tempdir & "\Asmurf.cur")

Global $Flag
$hold_cursor = _WinAPI_CopyCursor(_WinAPI_LoadCursor (0, $OCR_NORMAL))
$hnew_Cursor = _WinApi_LoadCursorFromFile(@tempdir & "\Asmurf.cur")

$hGUI = GUICreate("Assing Cursor to my GUI", 300, 200, -1, -1)
$Label = GUICtrlCreateLabel("Label", 8, 8, 36, 17)
$Button = GUICtrlCreateButton("Button", 70, 8, 75, 25)
GUISetState(@SW_SHOW)

While 1
    $aMPos = MouseGetPos()
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            _WinAPI_SetSystemCursor($hold_Cursor, $OCR_NORMAL)
            _WinAPI_DestroyCursor($hnew_Cursor)
            _WinAPI_DestroyCursor($hold_cursor )
            Exit
    EndSwitch

    If _CheckMouseOver() = True Then
        If $Flag Then
            _WinAPI_SetSystemCursor($hnew_Cursor, $OCR_NORMAL, 1)
            $Flag = False
        EndIf
    Else
        If Not $Flag Then
            _WinAPI_SetSystemCursor($hold_Cursor, $OCR_NORMAL, 1)
            $Flag = True
        EndIf
    EndIf
WEnd


Func _CheckMouseOver()
    Local $RET = False
    If WinActive($hGUI) Then
        Local $aMousePos = MouseGetPos()
        Local $aGuiPos = WinGetPos($hGUI)
        If ($aMousePos[0] > $aGuiPos[0]) And ($aMousePos[0] < ($aGuiPos[0] + $aGuiPos[2])) And _
                ($aMousePos[1] > $aGuiPos[1]) And ($aMousePos[1] < ($aGuiPos[1] + $aGuiPos[3])) Then
            $RET = True
        EndIf
    EndIf
    Return $RET
EndFunc   ;==>_CheckMouseOver
 

Idem pour le tooltip, tu ne peux pas le modifier mais tu peux construire un tooltip custom

[Yann]

merci pour ce script mais ce n'est pas ma recherche exactement
même si il y a de l idée ....
je voudrais arriver à colorer le pointeur de souris avec la couleur donnée par la fonction pixelgetcolor.
ci joint mon script

[mikell]

Ah ok, tu veux changer la couleur dynamiquement
Là je ne vois pas d'autre moyen que de masquer le curseur - GuiSetCursor(16) - et de te faire une mini-gui qui suivra le pointeur de souris

[Yann]

aie la tu commence a me perdre
je veux bien apprendre mais je suis déjà au taquet avec mon script

[Yann]

bon je viens de trouver sur l'aide GuiSetCursor(16) et ok ça masque le curseur de souris mais après je ne vois pas comment coder mini gui pour obtenir le résultat escompté ??????
Je vais essayer de plancher la dessus demain. merci encore pour ton aide.

[orax]

Peut-être une piste ici : How To Create an Alpha Blended Cursor or Icon

[Yann]

Bonjour,
je viens d'essayer une modif mais c'est pas concluent mais il y a de l'idee.

Code : Tout sélectionner

GUICreate("c", 40, 40, $pos[0] + $decalagex , $pos[1] + $decalagey)
   GUICtrlSetBkColor (-1, $var)
   GUISetState(@SW_SHOW)
   sleep (1000)
   GUIDelete()

help svp

[Yann]

Au fait merci de vos recherches,
merci orax mais cette piste me parait trop compliquée pour moi :'-(