bei mir gehts auch, mit der "_MouseHover.au3"; liegt im archiv bei.
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.2.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;############## CHANGE ################################################
[/autoit] [autoit][/autoit] [autoit]#include <_MouseHover.au3> ; nötiger include
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_ErstelleNeuBearbeitenGUI("Sender hinzufügen", "Name", "www.www.www")
[/autoit] [autoit][/autoit] [autoit]Func _ErstelleNeuBearbeitenGUI($xiTitel, $xiSendername = "", $xiSenderadresse = "", $xiGenre = "", $xiBewertung = "")
Opt("GUIOnEventMode", 0)
Global $xProgrammOrdner = @ScriptDir
Local $xGenreListe = IniRead($xProgrammOrdner & "\Settings.ini", "Radio Station Manager", "GenreList", "")
Global $AltePos[1]
Global $SenderGUI_Handle = GUICreate($xiTitel, 406, 186)
GUISetBkColor(0xFFFFFF)
WinSetOnTop($SenderGUI_Handle, "", 1)
[/autoit] [autoit][/autoit] [autoit]GUICtrlCreateLabel("Sie haben hier die Möglichkeit, Desktop Radio mit weiteren Sendern zu ergänzen.", 8, 8, 389, 17)
GUICtrlSetColor(-1, 0x005ACE)
GUICtrlCreateLabel("Sendername:", 8, 40, 67, 17)
$xSendername = GUICtrlCreateInput($xiSendername, 96, 32, 265, 21)
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 32, 16, 16)
GUICtrlSetTip(-1, "FGVFDGDFG"&@LF&"DXFDSVFGDSGD")
GUICtrlCreateLabel("Senderadresse:", 8, 64, 78, 17)
$xSenderadresse = GUICtrlCreateInput($xiSenderadresse, 96, 64, 265, 21)
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 64, 16, 16)
GUICtrlCreateLabel("Genre:", 8, 96, 36, 17)
$xGenre = GUICtrlCreateCombo("", 96, 96, 265, 25)
GUICtrlSetData(-1, $xGenreListe, "Mix")
GUICtrlCreateIcon($xProgrammOrdner & "\Images\Icons\Application\Radio Station Manager\Info.ico", -1, 376, 96, 16, 16)
GUICtrlCreateLabel("Sender bewerten:", 8, 128, 88, 17)
[/autoit] [autoit][/autoit] [autoit]Global $xPicArray[6] = [5, _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 104, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 120, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 136, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 152, 128, 16, 16), _
GUICtrlCreatePic($xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif", 168, 128, 16, 16)]
;############## CHANGE ################################################
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To UBound($xPicArray)-1 Step +1
_HoverAddCtrl($xPicArray[$i]) ; Controls zum Hovern "registrieren"
Next
$xAbbrechen = GUICtrlCreateButton("Abbrechen", 320, 152, 75, 25, $WS_GROUP)
$xOk = GUICtrlCreateButton("Ok", 240, 152, 75, 25, $WS_GROUP)
$xSenderTesten = GUICtrlCreateLabel("Sender testen", 8, 160, -1, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
AdlibRegister("_SenderGUIHoverFunktion", 70)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Opt("GUIOnEventMode", 1)
Return 0
Case $xAbbrechen
Opt("GUIOnEventMode", 1)
Return 0
Case $xOk
Opt("GUIOnEventMode", 1)
Return 0
EndSwitch
WEnd
EndFunc
Func _SenderGUIHoverFunktion()
[/autoit] [autoit][/autoit] [autoit];############## CHANGE ################################################
[/autoit] [autoit][/autoit] [autoit]$hv = _HoverCheck() ; Hover-Informationen
If IsArray($hv) Then
If $hv[0] = "LostHover" Then ; wenn Hover verloren alle Sterne zurücksetzen, keine If-Abfrage nötig da die Sterne die einzigen Controls zum Hovern sind
For $i = 1 To UBound($xPicArray)-1 Step +1
GUICtrlSetImage($xPicArray[$i], $xProgrammOrdner & "\Images\Radio Station Manager\StarOff.gif")
Next
ElseIf $hv[0] = "AcquiredHover" Then ; wenn Hover erhalten dann checken welcher Stern un bis zu diesem alle aktivieren
Switch $hv[1]
Case $xPicArray[1]
$to = 1
Case $xPicArray[2]
$to = 2
Case $xPicArray[3]
$to = 3
Case $xPicArray[4]
$to = 4
Case $xPicArray[5]
$to = 5
EndSwitch
For $i = 1 To $to Step +1
GUICtrlSetImage($xPicArray[$i], $xProgrammOrdner & "\Images\Radio Station Manager\StarOn.gif")
Next
EndIf
EndIf
EndFunc