4aumozgi,
SkinChanger mit Zeitschleife:
Voraussetzung:
- samue´s PMB V2.1.1
Vorgehensweise:
Änderung im "Main.ini" :
###Reihe1###Button1:BeckerNavi-Verknüpfung###
ICONXPBUTTON
x = 10
y = 10
#Command = \Storage Card\PmB\SkinWechsel\Changer.exe
Command = \Storage Card\PmB\SkinWechsel\MortScript\SkinChanger.mscr
SizeNormal = 48
SizePushed = 52
ScaleAlpha = 100
IconNormal = ..\Icons\Becker.ico
ScaleAlpha = 100
AddGray = 30
IconPushed = ..\Icons\Becker.ico
QuitOnExecute = no
Änderung im "SkinChanger.mscr" :
Folgende rot markierte Zeilen hinzufügen!
#Skin Absuchen und im Auswahlmenü Anzeigen!
###########################################
Sleep( 1000 )
skinN= "StandardSkin-name"
sliste[0] = skinN
ForEach Design in Files ( "\My Flash Disk\Igo8\content\skin\*.*" )
sliste[MaxIndex(sliste)+1] = FileBase(Design)
EndForEach
SetChoiceEntryFormat( 48, 24, Tahoma )
ChoiceDefault( "Design Auswählen?", "My Lord, Möchten Sie das aktuelle Skin ändern? Wenn Sie aber keine Lust dazu haben, werde ich weiter mit dem alten Skin in 5 Sek. fortfahren!", 2, 5, "ja", "nein" )
Case( 1 )
skinN =Choice( "Designauswahl", "Bitte Design auswählen",0,0, sliste )
skinN = """skin\" &sliste[skinN]&".zip"""
IniWrite( "\My Flash Disk\Igo8\sys.txt", "interface", "theme", skinN )
EndChoice
###Staren von Igo8###################
Sleep( 500 )
Run( "\My Flash Disk\Igo8\igo8.exe" )
Exit
Wie immer, auf eigene Gefahr!!!
Gruß
CN