Pic-Control ändern, während angeklickt.

  • Ich bin mir jetzt nicht ganz sicher, aber ist es das, was du meinst?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Patcher", 600, 400, -1, -1, $WS_POPUP)
    $Pic7 = GUICtrlCreatePic(@ScriptDir & "/main.bmp", 0, 0, 600, 400)
    GUICtrlSetState( -1, $GUI_DISABLE)
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "/btn_up.bmp", 467, 46, 123, 36)
    $Dummy = GUICtrlCreateLabel ("", 0, 0, 600, 400, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor( -1, $GUI_BKCOLOR_TRANSPARENT)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While Sleep (30)
    $nMsg = GUIGetMsg()
    $Cursor = GUIGetCursorInfo($Form1)

    [/autoit] [autoit][/autoit] [autoit]

    If $nMsg == $GUI_EVENT_CLOSE Then Exit

    [/autoit] [autoit][/autoit] [autoit]

    If $Cursor[4] = $Pic1 Then
    Switch $nMsg
    Case $GUI_EVENT_PRIMARYDOWN
    GUICtrlSetImage($Pic1,@ScriptDir & "/btn_dn.bmp")

    [/autoit] [autoit][/autoit] [autoit]

    Case $GUI_EVENT_PRIMARYUP
    GUICtrlSetImage($Pic1,@ScriptDir & "/btn_up.bmp")
    EndSwitch
    Else
    GUICtrlSetImage($Pic1,@ScriptDir & "/btn_fs.bmp")
    EndIf
    WEnd

    [/autoit]


    Gruss Shadowigor

  • Ja so meine ich das, funktioniert aber so auch nicht :(

    Ich erklärs nochmal richtig:
    -Bild1 <- Normalzustand Pic-Control; Wenn Maus wieder losgelassen wird
    -Bild2 <- Zeit, wenn Maus über Pic-Control
    -Bild3 <- Zeit, wenn Button geklickt wird

  • Ok ich glaube so sollte es funktionieren:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Patcher", 600, 400, -1, -1, $WS_POPUP)
    $Pic7 = GUICtrlCreatePic(@ScriptDir & "/main.bmp", 0, 0, 600, 400)
    GUICtrlSetState( -1, $GUI_DISABLE)
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "/btn_up.bmp", 467, 46, 123, 36)
    $Dummy = GUICtrlCreateLabel ("", 0, 0, 600, 400, -1, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor( -1, $GUI_BKCOLOR_TRANSPARENT)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit]

    While Sleep (30)
    $nMsg = GUIGetMsg()
    $Cursor = GUIGetCursorInfo($Form1)

    [/autoit] [autoit][/autoit] [autoit]

    If $nMsg == $GUI_EVENT_CLOSE Then Exit

    [/autoit] [autoit][/autoit] [autoit]

    If $Cursor[4] = $Pic1 Then
    If $Cursor[2] Then
    GUICtrlSetImage($Pic1,@ScriptDir & "/btn_dn.bmp")
    Else
    GUICtrlSetImage($Pic1,@ScriptDir & "/btn_up.bmp")
    EndIf
    Else
    GUICtrlSetImage($Pic1,@ScriptDir & "/btn_fs.bmp")
    EndIf
    WEnd

    [/autoit]
  • Arbeite mit eine Schleife, frag einfach ab, ob _IsPressed('01') = False ist. (aus der Misc.au3)

    [autoit]

    Do
    Sleep(10)
    Until _IsPressed('01') = False

    [/autoit]

    Edit:
    Ich habe ein altes Script von mir auf dem Rechner gefunden. Vielleicht hilft es dir ja:
    (Bilder sind mit dabei :O)