Hallo liebe Freunde,
ich habe folgendes Problem:
ich habe mir mit der ModernMenu UDF ein Traymenü erstellt aus dem ich meine Aero Farbe und mein Hintergrund ändern kann.
Erstes funktioniert auch Prima! Nur den Hintergrund kann ich irgendwie nicht ändern
Hier mein Code:
Spoiler anzeigen
#include <GuiConstants.au3>
#include <TreeViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <Misc.au3>
#include <ModernMenu.au3>
Opt("TrayIconHide",1)
Opt("TrayAutoPause",0)
Opt("TrayMenuMode",1)
Global Const $hDwmApiDll = DllOpen("dwmapi.dll")
Global Const $version = "v.1.0026"
Global Const $tagCOLORIZATIONPARAMS = 'dword Color;dword AftGlow;uint Intensity;uint AftGlowBal;uint BlurBal;uint GlassReflInt; uint Opaque'
$traymenu = _TrayIconCreate("Mooody's Stimmungs-Anpasser " & $version, @ScriptDir & "\Icons\Images.ico")
_TrayIconSetClick(-1, 16)
_TrayIconSetState() ; Show the tray icon
$nTrayMenu1 = _TrayCreateContextMenu() ; is the same like _TrayCreateContextMenu(-1) or _TrayCreateContextMenu($nTrayIcon1)
$nSideItem3 = _CreateSideMenu($nTrayMenu1)
$traymenu1_00 = _TrayCreateMenu("Stimmungen")
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\dark-mood.ico")
;-----------------------------------------------------------------------
$traymenu2_00 = _TrayCreateMenu("Bildposition")
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\fichier-images-PNG-v2.ico")
;-----------------------------------------------------------------------
$traymenu2_01 = _TrayCreateItem("Gestreckt",$traymenu2_00)
$traymenu2_02 = _TrayCreateItem("Gefüllt",$traymenu2_00)
$traymenu2_03 = _TrayCreateItem("Angepasst",$traymenu2_00)
$traymenu2_04 = _TrayCreateItem("Nebeneinander",$traymenu2_00)
$traymenu2_05 = _TrayCreateItem("Zentriert",$traymenu2_00)
;-----------------------------------------------------------------------
_TrayCreateItem("")
;-----------------------------------------------------------------------
$traymenu3_00 = _TrayCreateItem("Standard Wiederherstellen")
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\Folders-OS-System-Restore-Metro.ico")
$traymenu4_00 = _TrayCreateItem("Über")
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\Actions-help-about.ico")
;-----------------------------------------------------------------------
_TrayCreateItem("")
;-----------------------------------------------------------------------
$traymenu5_00 = _TrayCreateItem("Optionen")
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\options.ico")
;-----------------------------------------------------------------------
_TrayCreateItem("")
;-----------------------------------------------------------------------
$traymenu6_00 = _TrayCreateItem("Beenden")
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\Actions-window-close.ico")
;-----------------------------------------------------------------------
$traymenu1_01 = _TrayCreateItem("Standard",$traymenu1_00)
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\Adobe-Acrobat-Standard.ico")
$traymenu1_02 = _TrayCreateItem("Traurig",$traymenu1_00)
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\Emotes-face-sad.ico")
$traymenu1_03 = _TrayCreateItem("Fröhlich",$traymenu1_00)
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\Emotes-face-smile-big.ico")
$traymenu1_04 = _TrayCreateItem("Verliebt",$traymenu1_00)
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\love-heart.ico")
$traymenu1_05 = _TrayCreateItem("Verletzt",$traymenu1_00)
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\You-make-me-hurt.ico")
$traymenu1_06 = _TrayCreateItem("Windows-7",$traymenu1_00)
_TrayItemSetIcon(-1,@ScriptDir & "\Icons\Windows.ico")
_Load_Color()
[/autoit] [autoit][/autoit] [autoit]$Art = "Stretch"
[/autoit] [autoit][/autoit] [autoit]while Sleep(10)
Switch GUIGetMsg()
Case $traymenu1_01
_SetStyle($Color_Standard)
$Picture = $Pic_Standard
_BildPos($Picture,$Art)
Case $traymenu1_02
_SetStyle($Color_Traurig)
$Picture = $Pic_Traurig
_BildPos($Picture,$Art)
Case $traymenu1_03
_SetStyle($Color_Frohlich)
$Picture = $Pic_Frohlich
_BildPos($Picture,$Art)
Case $traymenu1_04
_SetStyle($Color_Verliebt)
$Picture = $Pic_Verliebt
_BildPos($Picture,$Art)
Case $traymenu1_05
_SetStyle($Color_Verletzt)
$Picture = $Pic_Verletzt
_BildPos($Picture,$Art)
Case $traymenu1_06
_SetStyle($Color_Windows)
$Picture = $Pic_Windows
_BildPos($Picture,$Art)
Case $traymenu2_01
_BildPos($Picture,"Stretch")
$Art = "Stretch"
Case $traymenu2_02
_BildPos($Picture,"Fill")
$Art = "Fill"
Case $traymenu2_03
_BildPos($Picture,"Fit")
$Art = "Fit"
Case $traymenu2_04
_BildPos($Picture,"Tile")
$Art = "Tile"
Case $traymenu2_05
_BildPos($Picture,"Center")
$Art = "Center"
Case $traymenu3_00
_Reset()
Case $traymenu4_00
_Uber()
Case $traymenu5_00
_Optionen()
Case $traymenu6_00
Exit
EndSwitch
WEnd
Func _BildPos($Picture,$Stile)
Select
Case $Stile="Center"
$Stile="0"
$Stile2="0"
Case $Stile="Fit"
$Stile="1"
$Stile2="0"
Case $Stile="Stretch"
$Stile="2"
$Stile2="0"
Case $Stile="Fill"
$Stile="-1"
$Stile2="0"
Case $Stile="Tile"
$Stile="0"
$Stile2="1"
EndSelect
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", "REG_SZ", $Stile)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", "REG_SZ", $Stile2)
DllCall("user32.dll", "int", "SystemParametersInfo","uint",20,"uint",0,"str",$Picture,"uint",3)
EndFunc
Func _SetStyle($Color)
$tCP = DllStructCreate($tagCOLORIZATIONPARAMS)
$Ret = DllCall('dwmapi.dll', 'uint', 127, 'ptr', DllStructGetPtr($tCP))
DllStructSetData($tCP, 'Color', $Color) ; Set a new color
DllStructSetData($tCP, 'Intensity', -1) ; Set a new Intensity
DllStructSetData($tCP, 'Opaque', 0) ; Set a new Opaque
$Ret = DllCall('dwmapi.dll', 'uint', 131, 'ptr', DllStructGetPtr($tCP), 'uint', 0)
EndFunc
Func _Load_Color()
Global $Color_Standard = IniRead("settings.ini","Color","$Color_Standard","0xFFFFFF")
Global $Color_Traurig = IniRead("settings.ini","Color","$Color_Traurig","0xFEFEFE")
Global $Color_Frohlich = IniRead("settings.ini","Color","$Color_Frohlich","0xFF9999")
Global $Color_Verliebt = IniRead("settings.ini","Color","$Color_Verliebt","0xCC3300")
Global $Color_Verletzt = IniRead("settings.ini","Color","$Color_Verletzt","0x000000")
Global $Color_Windows = IniRead("settings.ini","Color","$Color_Windows","0x0066FF")
Global $Pic_Standard = IniRead("settings.ini","Pic","$Pic_Standard","")
Global $Pic_Traurig = IniRead("settings.ini","Pic","$Pic_Traurig","")
Global $Pic_Frohlich = IniRead("settings.ini","Pic","$Pic_Frohlich","")
Global $Pic_Verliebt = IniRead("settings.ini","Pic","$Pic_Verliebt","")
Global $Pic_Verletzt = IniRead("settings.ini","Pic","$Pic_Verletzt","")
Global $Pic_Windows = IniRead("settings.ini","Pic","$Pic_Windows","")
Global $Stile = IniRead("settings.ini","Pic","$Stile","Center")
EndFunc
Vielen Dank schonmal für die Hilfe