Page 1 sur 1
[..] Bug visuel avec GUICtrlOnHover.au3
Posté : ven. 03 avr. 2015 15:12
par pumilio
Bonjour,
Je souhaiterais réaliser une interface en utilisant l'UDF GUICtrlOnHover.au3 mais cela me crée une bizarrerie visuelle que je n'arrive pas à supprimer.
Voici un exemple sans l'UDF qui fonctionne bien :
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GuiOnEventMode", 1)
Global $a[7][2]
$GUI = GUICreate("GUI",500, 200, -1, -1)
$label = GUICtrlCreateLabel("A", 216, 5, 68, 70)
GUICtrlSetbkColor(-1, 0xBDC6CF)
$image = GUICtrlCreatePic(@ScriptDir&"\images.jpg",221, 10, 58, 60)
$ok = GUICtrlCreateButton("ok", 210, 160, 80, 30)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
GUICtrlSetOnEvent($ok, "_ok")
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc
Func _ok()
For $i = 0 To 6
$a[$i][0] = GUICtrlCreateLabel($i, $i*72, 80, 68, 70)
GUICtrlSetbkColor(-1, 0xBDC6CF)
$a[$i][1] = GUICtrlCreatePic("",$i*72+5, 85, 58, 60)
GuiCtrlSetImage($a[$i][1], @ScriptDir&"\images.jpg")
Sleep(500)
Next
EndFunc
Voici l'exemple avec GUICtrlOnHover.au3 qui est étrange visuellement (lorsqu'on clic sur "ok") :
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUICtrlOnHover.au3>
Opt("GuiOnEventMode", 1)
Global $a[7][2]
$GUI = GUICreate("GUI",500, 200, -1, -1)
$label = GUICtrlCreateLabel("A", 216, 5, 68, 70)
GUICtrlSetbkColor(-1, 0xBDC6CF)
$image = GUICtrlCreatePic(@ScriptDir&"\images.jpg",221, 10, 58, 60)
$bSuivant = GUICtrlCreateLabel(@TAB&"OK", 210, 160, 90, 30, $SS_CENTERIMAGE)
GUICtrlSetBkColor(-1, 0xdddddd)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
_GUICtrlSetOnHover($bSuivant, "_In", "_Out", "_Clic", "_Relache")
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc
Func _In($CtrlID, $Param, $Param2)
GUICtrlSetBkColor($CtrlID, 0xffffff)
EndFunc
Func _Out($CtrlID, $Param, $Param2)
GUICtrlSetBkColor($CtrlID, 0xdddddd)
EndFunc
Func _Clic($CtrlID, $Param, $Param2)
For $i = 0 To 6
$a[$i][0] = GUICtrlCreateLabel($i, $i*72, 80, 68, 70)
GUICtrlSetbkColor(-1, 0xBDC6CF)
$a[$i][1] = GUICtrlCreatePic("",$i*72+5, 85, 58, 60)
GuiCtrlSetImage($a[$i][1], @ScriptDir&"\images.jpg")
Sleep(500)
Next
EndFunc
Comment est-il possible d'éviter ça ?
Merci pour votre aide.
Re: [..] Bug visuel avec GUICtrlOnHover.au3
Posté : mar. 07 avr. 2015 11:11
par pumilio
Personne n'a d'idée ?
Si ce n'est pas possible existe t-il une autre solution qui puisse remplacer GUICtrlOnHover.au3 ?
Merci pour votre aide