Here you can preview both, she and msstyles:
Code: Select all
#NoEnv
#SingleInstance force
OnExit, GetOut
stylearray:=Object()
Loop,%A_ScriptDir%\styles\*.msstyles
stylearray.insert(A_LoopFilename)
Loop,%A_ScriptDir%\styles_she\*.she
stylearray.insert(A_LoopFilename)
for key, value in stylearray
{
derzeitstyle:=value
SkinForm(Apply, A_ScriptDir . "\styles\" . derzeitstyle)
Gosub, Gui
SkinForm("0", A_ScriptDir . "\styles\" . derzeitstyle)
}
GetOut:
GuiClose:
Gui, Hide
SkinForm(0)
ExitApp
return
SkinForm(Param1 = "Apply", SkinName = ""){
IfInstring,SkinName,`.she
{
Dll:=A_ScriptDir . "\SkinH_El.dll"
if(Param1 = Apply){
DllCall("LoadLibrary", str, DLL)
DllCall(DLL . "\SkinH_AttachEx", AStr,SkinName, Str,"mhgd")
}else if(Param1 = 0){
DllCall(DLL . "\USkinExit")
}
}
else
{
Dll:=A_ScriptDir . "\USkin.dll"
if(Param1 = Apply){
DllCall("LoadLibrary", str, DLL)
DllCall(DLL . "\USkinInit", Int,0, Int,0, AStr, SkinName)
}else if(Param1 = 0){
DllCall(DLL . "\USkinExit")
}
}
}
Gui:
Gui, add, button,xm w100 h40 gweiter, Style ändern
Gui, add, edit, xm y+20 w100 h20, Edit
Gui, add, listbox,xm y+20, ListBox
Gui, add, checkbox,xm y+20, checkbox
Gui, add, DDL, xm y+20, DropDownList
Gui, Show, w300, %derzeitstyle%
WinWaitClose,%derzeitstyle%
Return
Weiter:
Gui, Destroy
Return
All .she and msstyles have to be in A_Scriptdir\styles.
Both dlls Uskin.dll and SkinH_El.dll have to be in A_Scriptdir.