Kann man den Style von WIndows XP mit AutoIt ändern? Also z.B. vom Klassischen Style zum XP Style und umgekert?
Windows Style
-
- [ offen ]
-
Jam00 -
26. April 2009 um 21:08 -
Geschlossen -
Erledigt
-
-
So gehts bei mir.
Spoiler anzeigen
[autoit];~ ShellExecute(@WindowsDir &'\Resources\Themes\Luna.theme') ;XP-Style
[/autoit] [autoit][/autoit] [autoit]
ShellExecute(@WindowsDir &'\Resources\Themes\Windows Classic.theme') ;2000er-StyleWinWait('Eigenschaften von Anzeige')
[/autoit]
ControlClick('Eigenschaften von Anzeige', '', 'Button3') -
Bei Vista gibt es folgendes:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Style-Test", 274, 38, 250, 164)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Normal (Vista)", 0, 0, 69, 17)
$Progress1 = GUICtrlCreateProgress(112, 1, 100, 15)
$Checkbox1 = GUICtrlCreateCheckbox("", 224, 0, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
$Label2 = GUICtrlCreateLabel("alt", 0, 16, 15, 17)
$Progress2 = GUICtrlCreateProgress(112, 17, 100, 15)
GUICtrlSetColor(-1, 0x0000FF)
$Checkbox2 = GUICtrlCreateCheckbox("", 224, 16, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 1)
GUISetState()
Local $n = 1
Do
Sleep(100)
If GUICtrlRead($Progress1) = 100 Then $n = 0
If GUICtrlRead($Progress1) = 0 Then $n = 1
If $n = 1 Then
GUICtrlSetData($Progress1, GUICtrlRead($Progress1) + 5)
ElseIf $n = 0 Then
Sleep(200)
$n = -1
GUICtrlSetData($Progress1, GUICtrlRead($Progress1) - 5)
Else
GUICtrlSetData($Progress1, GUICtrlRead($Progress1) - 5)
EndIf
GUICtrlSetData($Progress2, GUICtrlRead($Progress1))
If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
GUICtrlSetState($Checkbox2, $GUI_CHECKED)
Else
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
EndIf
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete($Form1)DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0)
[/autoit]
$Form1 = GUICreate("Style-Test", 274, 38, 250, 164)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Normal (Vista)", 0, 0, 69, 17)
$Progress1 = GUICtrlCreateProgress(112, 1, 100, 15)
$Checkbox1 = GUICtrlCreateCheckbox("", 224, 0, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Label2 = GUICtrlCreateLabel("alt", 0, 16, 15, 17)
$Progress2 = GUICtrlCreateProgress(112, 17, 100, 15)
GUICtrlSetColor(-1, 0x0000FF)
$Checkbox2 = GUICtrlCreateCheckbox("", 224, 16, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 1)
GUISetState()
Local $n = 1
Do
Sleep(100)
If GUICtrlRead($Progress1) = 100 Then $n = 0
If GUICtrlRead($Progress1) = 0 Then $n = 1
If $n = 1 Then
GUICtrlSetData($Progress1, GUICtrlRead($Progress1) + 5)
ElseIf $n = 0 Then
Sleep(200)
$n = -1
GUICtrlSetData($Progress1, GUICtrlRead($Progress1) - 5)
Else
GUICtrlSetData($Progress1, GUICtrlRead($Progress1) - 5)
EndIf
GUICtrlSetData($Progress2, GUICtrlRead($Progress1))
If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
GUICtrlSetState($Checkbox2, $GUI_CHECKED)
Else
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
EndIf
Until GUIGetMsg() = $GUI_EVENT_CLOSE -
funkey
Jo das gehts@MatthiasG.
Ne, so war das nicht gemeint, ich mein nicht den Style von einem Fenster sondern vom Betribsystem -
-
Zitat von MatthiasG.
funkey: Heißt das Von Vista dann aero.theme?
Hab kein Vista. Da musst du selber schauen, ob es überhaupt auf die gleiche Art geht. -
Ja, heißt aero.theme. Danke!
-
und wie schaut es bei anderen windows-themen, wie z.b. ZuneXP aus?
Kann ich machen, dass nur mein Fenster dieses Theme hat? -
Schau dir XTheme mal an (Englisches Forum)