Nabend zusammen
Also ich stehe im Moment vor folgendem Problem: Ich habe eine Art Music-Player der über ein GUI bedient wird und normal im Fnester offen ist... Nun möchte ich aber, dass wenn ich auf dem Desktop bin, die Bedienoberfläche praktisch so hier aussehen soll... Das Fenster ansich also transparent, aber die verschiedenen Button (.png) und Labels sichtbar (Buttons sind im Moment noch nicht transparent angepasst, aber das ist ja kein Problem)...
Nur da auch eine Anzeige im Intervall aktualisiert wird, hab ich mein Script etwas verändert, um den Effekt deutlich zu machen...
Was ich da machen möchte, geht nur leider über meine Kenntnisse drüber hinaus, aber ich hoffe auf Hilfe
Der Quellcode (auch im File mit drin):
[autoit];#NoTrayIcon
[/autoit][autoit][/autoit][autoit]#include <GUIConstants.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
If WinExists("test") Then Exit
AutoItWinSetTitle("test")
Opt("GUIOnEventMode", 1)
$GUI_Handle = GUICreate("test", 208, 45, 0, 0, $WS_POPUPWINDOW)
GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Icons (Musik)\Back 1.bmp", 1, 2, 24, 25), "test")
GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Icons (Musik)\Pause 1.bmp", 28, 1, 26, 27), "test")
GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Icons (Musik)\Next 1.bmp", 57, 2, 24, 25), "test")
$1 = GUICtrlCreateLabel("test", 85, 1, 96, 26)
GUICtrlSetFont(-1,
$2 = GUICtrlCreateLabel("test", 85, 14, 96)
GUICtrlSetFont(-1,
GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Icons (Musik)\Mini 1.bmp", 184, 1, 11, 11), "Mini_Fenster")
GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Icons (Musik)\Exit 1.bmp", 196, 1, 11, 11), "Exit_Fenster")
GUICtrlSetOnEvent(GUICtrlCreatePic(@ScriptDir & "\Icons (Musik)\Ordner 1.bmp", 184, 14, 11, 11), "test")
;GUICtrlCreateLabel("", 195, 12, 13, 16, -1, $GUI_WS_EX_PARENTDRAG)
;GUICtrlSetCursor (-1, 0)
GUICtrlCreateCheckbox("", 3, 29, 13, 13)
GUICtrlSetData(-1, 100)
GUICtrlSetOnEvent(GUICtrlCreateSlider(16, 27, 192, 20, $TBS_NOTICKS), "test")
GUICtrlSetLimit(-1, 100, 1) ; 3. Parameter auf 1, damit noch was zu hören ist
GUICtrlSetData(-1, 96) ; 2. Parameter nicht auf 100, damit Slider nicht ganz rechts ist
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WinSetTitle($GUI_Handle, "", @SEC)
GUICtrlSetData($1, @SEC)
GUICtrlSetData($2, @SEC)
Maus_Koordinaten_Abfrage()
WEnd
Func Exit_Fenster()
Exit
EndFunc
Func Mini_Fenster()
GUISetState(@SW_MINIMIZE)
EndFunc
Func test()
MsgBox(0, "", "test")
EndFunc
Func Maus_Koordinaten_Abfrage()
$Maus = GUIGetCursorInfo($GUI_Handle)
If $Maus[0] >= 1 and $Maus[0] < 25 and $Maus[1] >= 2 and $Maus[1] < 27 Then ; Back-Button
GUICtrlSetImage(3, @ScriptDir & "\Icons (Musik)\Back 2.bmp")
Else
GUICtrlSetImage(3, @ScriptDir & "\Icons (Musik)\Back 1.bmp")
EndIf
If $Maus[0] >= 28 and $Maus[0] < 54 and $Maus[1] >= 1 and $Maus[1] < 28 Then ; Play/Pause-Button
If 1 Then ; playing
GUICtrlSetImage(4, @ScriptDir & "\Icons (Musik)\Pause 2.bmp")
Else
GUICtrlSetImage(4, @ScriptDir & "\Icons (Musik)\Play 2.bmp")
EndIf
Else
If 1 Then ; paused
GUICtrlSetImage(4, @ScriptDir & "\Icons (Musik)\Play 1.bmp")
Else
GUICtrlSetImage(4, @ScriptDir & "\Icons (Musik)\Pause 1.bmp")
EndIf
EndIf
If $Maus[0] >= 57 and $Maus[0] < 81 and $Maus[1] >= 2 and $Maus[1] < 27 Then ; Next-Button
GUICtrlSetImage(5, @ScriptDir & "\Icons (Musik)\Next 2.bmp")
Else
GUICtrlSetImage(5, @ScriptDir & "\Icons (Musik)\Next 1.bmp")
EndIf
If $Maus[0] >= 184 and $Maus[0] < 195 and $Maus[1] >= 1 and $Maus[1] < 12 Then ; Mini-Button
GUICtrlSetImage(8, @ScriptDir & "\Icons (Musik)\Mini 2.bmp")
Else
GUICtrlSetImage(8, @ScriptDir & "\Icons (Musik)\Mini 1.bmp")
EndIf
If $Maus[0] >= 196 and $Maus[0] < 207 and $Maus[1] >= 1 and $Maus[1] < 12 Then ; Exit-Button
GUICtrlSetImage(9, @ScriptDir & "\Icons (Musik)\Exit 2.bmp")
Else
GUICtrlSetImage(9, @ScriptDir & "\Icons (Musik)\Exit 1.bmp")
EndIf
If $Maus[0] >= 184 and $Maus[0] < 195 and $Maus[1] >= 14 and $Maus[1] < 25 Then ; Ordner-Button
GUICtrlSetImage(10, @ScriptDir & "\Icons (Musik)\Ordner 2.bmp")
Else
GUICtrlSetImage(10, @ScriptDir & "\Icons (Musik)\Ordner 1.bmp")
EndIf
EndFunc
PS: Mit GDI/GDI+ kenn ich mich wirklich gar nicht aus und würde mich da auch ungern hineinarbeiten (hatte es mal veruscht, aber kam net weiter)...