[R] Bug graphique.

[theAvenger]

Salut à tous !!
Après avoir réussi à faire ma boucle fermée, je me suis rendu compte que lorsque les icône rentraient en contact l'une avec l'autre, les couleurs se mélangeaient, ce qui créé des formes certes jolies mais totalement inadaptées au programme (ColorKiller) :

► Afficher le texteImage

Si quelqu'un a une idée pour remettre à jour les icônes après chaque déplacement, je suis preneur.

[TommyDDR]

Je me souvient avoir eu le même problème, celui-ci se produisait lorsque l'image était en "contact" direct avec la fenêtre.
Pour corriger le problème, je mettais une image de la taille de la fenêtre au fond. (Mettez une image noir par exemple)

[theAvenger]

Je fais remarquer qu'il y a déjà une image de fond. Et ce sont les icônes (les carrés au centre) qui sont modifiées.

[TommyDDR]

Humm, dans ce cas, pouvez vous faire une archive de votre code/images pour pouvoir tester ?

Merci.

[mikell]

ça vaudrait pas le coup d'essayer un _WinAPI_RedrawWindow après chaque déplacement ?

[theAvenger]

Merci !
J'essaye ça et si ça ne marche pas, je fais un code simplifié et je l'envoie.

edit : Ca marche mais ça fait "clignoter" la fenêtre et c'est très moche.

Un code de test où ça le fait aussi (avec les boutons) :

► Afficher le texteCode

Code : Tout sélectionner

Dim $bouton[9] = [""], $direction[9]

$direction[1] = "X"
$direction[2] = "-Y"
$direction[3] = "-Y"
$direction[4] = "-X"
$direction[5] = "-X"
$direction[6] = "Y"
$direction[7] = "Y"
$direction[8] = "X"

$gui = GUICreate("test", 100, 100)
$bouton[1] = GUICtrlCreateButton("1", 10, 10, 20, 20)
$bouton[2] = GUICtrlCreateButton("2", 10, 30, 20, 20)
$bouton[3] = GUICtrlCreateButton("3", 10, 50, 20, 20)
$bouton[4] = GUICtrlCreateButton("4", 30, 50, 20, 20)
$bouton[5] = GUICtrlCreateButton("5", 50, 50, 20, 20)
$bouton[6] = GUICtrlCreateButton("6", 50, 30, 20, 20)
$bouton[7] = GUICtrlCreateButton("7", 50, 10, 20, 20)
$bouton[8] = GUICtrlCreateButton("8", 30, 10, 20, 20)

GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg == "-3" Then
        Exit
    EndIf
    $direction[1] = _Direction($gui, $bouton[1], $direction[1])
    _Move($gui, $bouton[1], $direction[1])
    $direction[2] = _Direction($gui, $bouton[2], $direction[2])
    _Move($gui, $bouton[2], $direction[2])
    $direction[3] = _Direction($gui, $bouton[3], $direction[3])
    _Move($gui, $bouton[3], $direction[3])
    $direction[4] = _Direction($gui, $bouton[4], $direction[4])
    _Move($gui, $bouton[4], $direction[4])
    $direction[5] = _Direction($gui, $bouton[5], $direction[5])
    _Move($gui, $bouton[5], $direction[5])
    $direction[6] = _Direction($gui, $bouton[6], $direction[6])
    _Move($gui, $bouton[6], $direction[6])
    $direction[7] = _Direction($gui, $bouton[7], $direction[7])
    _Move($gui, $bouton[7], $direction[7])
    $direction[8] = _Direction($gui, $bouton[8], $direction[8])
    _Move($gui, $bouton[8], $direction[8])
    Sleep(50)
WEnd

Func _Direction($gui, $control, $direction)
    $pos = ControlGetPos($gui, "", $control)
    If $pos[0] == "50" And $direction == "X" Then
        $direction = "Y"
    ElseIf $pos[1] == "50" And $direction == "Y" Then
        $direction = "-X"
    ElseIf $pos[0] == "10" And $direction == "-X" Then
        $direction = "-Y"
    ElseIf $pos[1] == "10" And $direction == "-Y" Then
        $direction = "X"
    EndIf
    Return $direction
EndFunc   ;==>_Direction

Func _Move($gui, $control, $direction)
    Local $pos = ControlGetPos($gui, "", $control)
    If $direction == "X" Then
        ControlMove($gui, "", $control, $pos[0] + 1, $pos[1])
    ElseIf $direction == "Y" Then
        ControlMove($gui, "", $control, $pos[0], $pos[1] + 1)
    ElseIf $direction == "-X" Then
        ControlMove($gui, "", $control, $pos[0] - 1, $pos[1])
    ElseIf $direction == "-Y" Then
        ControlMove($gui, "", $control, $pos[0], $pos[1] - 1)
    Else
        Return 0
    EndIf
EndFunc   ;==>_Move
 

[mikell]

Sur l'exemple ça clignote pas, mais avec les images ....

► Afficher le texte

Code : Tout sélectionner

#include <WindowsConstants.au3>
Dim $bouton[9] = [""], $direction[9]

$direction[1] = "X"
$direction[2] = "-Y"
$direction[3] = "-Y"
$direction[4] = "-X"
$direction[5] = "-X"
$direction[6] = "Y"
$direction[7] = "Y"
$direction[8] = "X"

$gui = GUICreate("test", 100, 100)
$bouton[1] = GUICtrlCreateButton("1", 10, 10, 20, 20)
$bouton[2] = GUICtrlCreateButton("2", 10, 30, 20, 20)
$bouton[3] = GUICtrlCreateButton("3", 10, 50, 20, 20)
$bouton[4] = GUICtrlCreateButton("4", 30, 50, 20, 20)
$bouton[5] = GUICtrlCreateButton("5", 50, 50, 20, 20)
$bouton[6] = GUICtrlCreateButton("6", 50, 30, 20, 20)
$bouton[7] = GUICtrlCreateButton("7", 50, 10, 20, 20)
$bouton[8] = GUICtrlCreateButton("8", 30, 10, 20, 20)

GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg == "-3" Then
        Exit
    EndIf
    $direction[1] = _Direction($gui, $bouton[1], $direction[1])
    _Move($gui, $bouton[1], $direction[1])
    $direction[2] = _Direction($gui, $bouton[2], $direction[2])
    _Move($gui, $bouton[2], $direction[2])
    $direction[3] = _Direction($gui, $bouton[3], $direction[3])
    _Move($gui, $bouton[3], $direction[3])
    $direction[4] = _Direction($gui, $bouton[4], $direction[4])
    _Move($gui, $bouton[4], $direction[4])
    $direction[5] = _Direction($gui, $bouton[5], $direction[5])
    _Move($gui, $bouton[5], $direction[5])
    $direction[6] = _Direction($gui, $bouton[6], $direction[6])
    _Move($gui, $bouton[6], $direction[6])
    $direction[7] = _Direction($gui, $bouton[7], $direction[7])
    _Move($gui, $bouton[7], $direction[7])
    $direction[8] = _Direction($gui, $bouton[8], $direction[8])
    _Move($gui, $bouton[8], $direction[8])
    Sleep(50)
WEnd

Func _Direction($gui, $control, $direction)
    $pos = ControlGetPos($gui, "", $control)
    If $pos[0] == "50" And $direction == "X" Then
        $direction = "Y"
    ElseIf $pos[1] == "50" And $direction == "Y" Then
        $direction = "-X"
    ElseIf $pos[0] == "10" And $direction == "-X" Then
        $direction = "-Y"
    ElseIf $pos[1] == "10" And $direction == "-Y" Then
        $direction = "X"
    EndIf
    Return $direction
EndFunc   ;==>_Direction

Func _Move($gui, $control, $direction)
    Local $pos = ControlGetPos($gui, "", $control)
    If $direction == "X" Then
        ControlMove($gui, "", $control, $pos[0] + 1, $pos[1])
    ElseIf $direction == "Y" Then
        ControlMove($gui, "", $control, $pos[0], $pos[1] + 1)
    ElseIf $direction == "-X" Then
        ControlMove($gui, "", $control, $pos[0] - 1, $pos[1])
    ElseIf $direction == "-Y" Then
        ControlMove($gui, "", $control, $pos[0], $pos[1] - 1)
    Else
        Return 0
    EndIf
   _WinAPI_RedrawWindow($gui, "", "", BitOR($RDW_INVALIDATE, $RDW_UPDATENOW))
EndFunc   ;==>_Move


Func _WinAPI_RedrawWindow($hWnd, $tRect = 0, $hRegion = 0, $iFlags = 5)
    Local $pRect = 0
    If $tRect <> 0 Then $pRect = DllStructGetPtr($tRect)
    Local $aResult = DllCall("user32.dll", "bool", "RedrawWindow", "hwnd", $hWnd, _ 
        "ptr", $pRect, "handle", $hRegion, "uint", $iFlags)
    If @error Then Return SetError(@error, @extended, False)
    Return $aResult[0]
EndFunc   ;==>_WinAPI_RedrawWindow
 

[TommyDDR]

Ah, marrant, c'est à cause de ControlSetPos, voici votre nouvelle fonction Move flambant neuf :

Code : Tout sélectionner

Func _Move($gui, $control, $direction)
    Local $pos = ControlGetPos($gui, "", $control)
    If $direction == "X" Then
        GUICtrlSetPos($control, $pos[0] + 1, $pos[1])
    ElseIf $direction == "Y" Then
        GUICtrlSetPos($control, $pos[0], $pos[1] + 1)
    ElseIf $direction == "-X" Then
        GUICtrlSetPos($control, $pos[0] - 1, $pos[1])
    ElseIf $direction == "-Y" Then
        GUICtrlSetPos($control, $pos[0], $pos[1] - 1)
    Else
        Return 0
    EndIf
EndFunc   ;==>_Move

(En règle générale, préférez GUICtrlXXX à ControlXXX pour tout ce qui est "votre fenêtre")

Normalement cela devrait marcher aussi avec les images.

[theAvenger]

Ca marche !
Les icônes clignotent légèrement, mais si je le compile, ça devrait aller.
Merci !!!!

Etrange : J'ai réussi à faire un détecteur de déplacement du curseur avec ce code :

► Afficher le texteCode

Code : Tout sélectionner

Dim $bouton[9] = [""], $direction[9]

$direction[1] = "X"
$direction[2] = "-Y"
$direction[3] = "-Y"
$direction[4] = "-X"
$direction[5] = "-X"
$direction[6] = "Y"
$direction[7] = "Y"
$direction[8] = "X"

$gui = GUICreate("test", 100, 100)
$bouton[1] = GUICtrlCreateButton("1", 10, 10, 20, 20)
$bouton[2] = GUICtrlCreateButton("2", 10, 30, 20, 20)
$bouton[3] = GUICtrlCreateButton("3", 10, 50, 20, 20)
$bouton[4] = GUICtrlCreateButton("4", 30, 50, 20, 20)
$bouton[5] = GUICtrlCreateButton("5", 50, 50, 20, 20)
$bouton[6] = GUICtrlCreateButton("6", 50, 30, 20, 20)
$bouton[7] = GUICtrlCreateButton("7", 50, 10, 20, 20)
$bouton[8] = GUICtrlCreateButton("8", 30, 10, 20, 20)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case "-3"
            Exit
        Case $bouton[1] Or $bouton[2] Or $bouton[3] Or $bouton[4] Or $bouton[5] Or $bouton[6] Or $bouton[7] Or $bouton[8]
            MsgBox(0, "test", "ok")
    EndSwitch
    $direction[1] = _Direction($gui, $bouton[1], $direction[1])
    _Move($gui, $bouton[1], $direction[1])
    $direction[2] = _Direction($gui, $bouton[2], $direction[2])
    _Move($gui, $bouton[2], $direction[2])
    $direction[3] = _Direction($gui, $bouton[3], $direction[3])
    _Move($gui, $bouton[3], $direction[3])
    $direction[4] = _Direction($gui, $bouton[4], $direction[4])
    _Move($gui, $bouton[4], $direction[4])
    $direction[5] = _Direction($gui, $bouton[5], $direction[5])
    _Move($gui, $bouton[5], $direction[5])
    $direction[6] = _Direction($gui, $bouton[6], $direction[6])
    _Move($gui, $bouton[6], $direction[6])
    $direction[7] = _Direction($gui, $bouton[7], $direction[7])
    _Move($gui, $bouton[7], $direction[7])
    $direction[8] = _Direction($gui, $bouton[8], $direction[8])
    _Move($gui, $bouton[8], $direction[8])
    Sleep(50)
WEnd

Func _Direction($gui, $control, $direction)
    $pos = ControlGetPos($gui, "", $control)
    If $pos[0] == "50" And $direction == "X" Then
        $direction = "Y"
    ElseIf $pos[1] == "50" And $direction == "Y" Then
        $direction = "-X"
    ElseIf $pos[0] == "10" And $direction == "-X" Then
        $direction = "-Y"
    ElseIf $pos[1] == "10" And $direction == "-Y" Then
        $direction = "X"
    EndIf
    Return $direction
EndFunc   ;==>_Direction

Func _Move($gui, $control, $direction)
    Local $pos = ControlGetPos($gui, "", $control)
    If $direction == "X" Then
        GUICtrlSetPos($control, $pos[0] + 1, $pos[1])
    ElseIf $direction == "Y" Then
        GUICtrlSetPos($control, $pos[0], $pos[1] + 1)
    ElseIf $direction == "-X" Then
        GUICtrlSetPos($control, $pos[0] - 1, $pos[1])
    ElseIf $direction == "-Y" Then
        GUICtrlSetPos($control, $pos[0], $pos[1] - 1)
    Else
        Return 0
    EndIf
EndFunc   ;==>_Move