Hallo klappstuhl_65
Bebilderte Tauscher für 480x272
http://www.gopal-navigator.de/downloads.php?do=cat&id=49
Gruß Manni
Hallo klappstuhl_65
Bebilderte Tauscher für 480x272
http://www.gopal-navigator.de/downloads.php?do=cat&id=49
Gruß Manni
Hallo Passat29
Habe mal eine Klicksperre eingebaut , auf der Battery-Anzeige zwischen TMC und GPS lag noch keine Funktion , es handelt sich um die AHK Klicksperre , sie beinhaltet unter anderem auch eine Backlight Funktion
Ist die neuste Klicksperre die noch nicht veröffentlicht wurde ( aber jetzt ) , sie behält den Backlight-Wert , ist INI gesichert , nach einem GoPal-Neustart ist zwar wieder die GoPal eigene Helligkeit eingestellt aber wenn die Klicksperre aufgerufen wird ist der zuletzt gewählte Wert voreingestellt und man muss nur mit dem Slider die Klicksperre verlassen .
Ist nur für diesen Navirunner Skin V5.9 , die Klicksperre könnt ihr für euch in andere Skins benutzen , wenn euer Skin schon eine Klicksperre hat wie fast alle Skin , dann braucht ihr nur das Mort-Script in euer Skin anpassen.
Diese MFD nach dem Navirunner Skin V.5.9 aufs Navi kopieren .
Klicksperre ist gut wenn das Navi beim Wandern in der Jackentasche steckt .:icon_mrgreen:
Edit:
Wenn die Klickperre aktiv ist also Display richtig aus ist , durch Klick auf dem roten Schriftzug Klicksperre ( ist in diesem Zustand auch nicht zu sehen ) geht das Display wieder an für ein paar Sekunden , in diesem Moment den Slider von links nach rechts schieben .
Gruß Manni
Hat sich wohl schon erledigt aber hier ist der GoPal 4 Skin vor Navirunner.
Navirunner Skin V5.9 für GoPal 4 , ganz unten .
http://www.gopal-navigator.de/downloads.php?do=cat&id=17
Ich weiß jetzt aber nicht ob der Skin in der Kartenansicht einen Helligkeit-Button hat aber Sonnenbrille hat er bestimmt .
Gruß Manni
Auf meinen Zweiten PC mit Win7 Ulti 64Bit geht das Tool auch einwandfrei .
Wie ich schon schrieb bin ich mir nicht sicher ob Framework überhaupt für das Tool gebraucht wird , auf Win7 habe ich auch nur Framework 4 .
Edit:
Ich habe das Tool einfach mit Doppelklick gestartet , also nicht im XP-Komp.-modus oder als Admin , aber wie Ralf25 schreibt , versuche es im XP-Komp.-modus oder als Admin.
Gruß Manni
Ich komme jetzt im TeamSkin V3.4 ( nicht veröffentlicht ) ohne diese LUA und AHK ( Skin-Tausch-Start.exe ) aus .
Wenn GoPal und TeamSkin V.3.4 in einem Rutsch neu aufgesetzt werden ist der TeamSkin nicht sofort aktiv , es bleibst solange Original GoPal-Skin aktiv bis der Skin-Tauscher gestartet wird , dann werden sofort ohne das man was auswählt die Original Skin-Dateien in Elemente\Skin gesichert , wenn ich die Original Skin-Dateien mitliefern würde wäre es ja eine bestimmte Build , so ist es die Build die tatsächlich installiert ist , den Exit-Button bringt unser GoPal-Starter ins Original GoPal-Menü , beim beenden von Original GoPal landet man in Extra-Menü weil ich das Extra-Menü aktiv lasse solange GoPal-Skin aktiv ist , beim aktiven TeamSkin oder andere Skins wird das Extra-Menü geschlossen wenn GoPal gestartet wird .
Es kann natürlich beim ersten Skin-Tauscher Aufruf sofort auf TeamSkin geschaltet werden , die Sicherung der Original Skin-Dateien ist dann schon längst im Hintergrund erledigt .
Mit dem TeamSkin V3.4. hat man erstmals wie beim Navirunner Skin die Möglichkeit zwischen Original GoPal-Skin und TeamSkin um zu schallten , und weitere Skin zu installieren die ihre PNG Bilder in einem eigenen Ordner haben .
Interessant ist auch der Vergleich memory free , ich habe im TeamSkin V.3.4 gegenüber dem Original GoPal-Skin fasst 600 KB mehr frei , das wird dem 64er Navi gut tun , dem 128er Navi wahrscheinlich nur ein müdes Lächeln kosten .
Hier mal das MortScript wenn ihr was nachschauen oder das Script benutzen möchtet .
Gruß Manni
Script
###########################################
# Skin Version Auswahl by Navirunner Modi #
###########################################
Include( "IniReadWrite.mscr" )
# Pfad\Name der ini-Datei
iniDatei = "NR-Skin.ini"
# Vorbelegungen einlesen
Call("iniFile", "Read","Skin Version")
####
Ele = "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin"
Ski = "\My Flash Disk\navigation\Skin480x272"
Pps = "\My Flash Disk\Navigation\Skin480x272\PPSkin"
Nrb = "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\backgrounds"
res = "\My Flash Disk\navigation\Skin480x272\res"
Prg = "\My Flash Disk\Programme\Mortscript"
Ele2 = "\My Flash Disk\Navigation\Skin480x272\Elemente\Skiner"
Ski2 = "\My Flash Disk\Navigation\extra\Skin480x272\PPSkin\ExtraShell\480x272"
origi = 0
block = "Skin"
vorbelegung = section[block]
l=1
liste[l]="GoPal original Skin"
If ( not DirExists(%Ele%))
Kill ("mnavdce.exe")
MkDir(%Ski%&"\Elemente" )
MkDir(%Ele%)
origi = 1
EndIf
If not FileExists (%Ele%&"\org.bsf" )
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\org.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\org.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\org_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\org_DE.xml",1)
EndIf
If ((DirExists(%Pps%&"\TS\")) and (origi = 0))
l=l+1
liste[l]="Team_Skin"
If not FileExists (%Ele%&"\TS.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\TS.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\TS.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\TS_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\org_DE.xml",1)
Endif
Endif
If ((DirExists(%Pps%&"\Navirunner\")) or (DirExists(%Pps%&"\Navirunner_BP\")))
If ((not FileExists(%Nrb%&"\TMC_Warning.png")) or (DirExists(%Pps%&"\Navirunner_BP\")))
If (origi = 0)
l=l+1
liste[l]="Navirunner_Black_Pearl_Skin"
Kill ("mnavdce.exe")
If not FileExists (%Ele%&"\bp.bsf" )
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\bp.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\bp.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\bp_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\bp_DE.xml",1)
EndIf
Endif
EndIf
Endif
If ((DirExists(%Pps%&"\Navirunner\")) or (DirExists(%Pps%&"\Navirunner_NL\")))
If ((FileExists(%Nrb%&"\TMC_Warning.png")) or (DirExists(%Pps%&"\Navirunner_NL\")))
If (origi = 0)
l=l+1
liste[l]="Navirunner_BP_New_Line_Skin"
Kill ("mnavdce.exe")
If not FileExists (%Ele%&"\NL.bsf" )
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\NL.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\NL.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\NL_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\NL_DE.xml",1)
EndIf
Endif
EndIf
Endif
If ((DirExists(%Ski%&"\Hepe\")) and (origi = 0))
l=l+1
liste[l]="HePe_Skin"
If not FileExists (%Ele%&"\hp.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\hp.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\hp.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\hp_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\Hp_DE.xml",1)
Endif
Endif
If ((DirExists(%Pps%&"\PS\")) and (origi = 0))
l=l+1
liste[l]="Pumuckel_Skin"
If not FileExists (%Ele%&"\PS.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\PS.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\PS.xml",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\PS_DE.xml",1)
Endif
EndIf
If ((DirExists(%Pps%&"\GoPalWorld\")) and (origi = 0))
l=l+1
liste[l]="GoPalWorld_Skin"
If not FileExists (%Ele%&"\GPW.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\GPW.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\GPW.xml",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\GPW_DE.xml",1)
Endif
EndIf
If ((DirExists(%Pps%&"\GoPalWorld\")) and (origi = 0))
l=l+1
liste[l]="BMW_Navigators_GPW"
If not FileExists (%Ele%&"\BMW.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\BMW.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\GPW.xml",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\GPW_DE.xml",1)
Endif
EndIf
If ((DirExists(%Pps%&"\EASY\")) and (origi = 0))
l=l+1
liste[l]="EASY_Skin"
If not FileExists (%Ele%&"\EY.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\EY.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\EY.xml",1)
Endif
Endif
If ((DirExists(%Pps%&"\aklasse170\")) and (origi = 0))
l=l+1
liste[l]="aklasse170_Skin"
If not FileExists (%Ele%&"\ak.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\ak.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\ak.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\ak_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\ak_DE.xml",1)
Endif
Endif
If not FileExists (%Nrb%&"\TMC_Warning.png" )
If ( not DirExists(%Pps%&"\Navirunner_NL\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_BP",1)
EndIf
EndIf
If FileExists (%Nrb%&"\TMC_Warning.png" )
If ( not DirExists(%Pps%&"\Navirunner_BP\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_NL",1)
EndIf
EndIf
SetChoiceEntryFormat ( 30 , 20 , Arial )
auswahl=Choice ("Version","Wähle aus:^NL^ Welchen Skin du benutzen möchtest!",vorbelegung,0,liste)
####
Skin=liste[auswahl]
If (Skin eq "GoPal original Skin")
Copy (%Ele%&"\org.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\org.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\org_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\org.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\M_Close.mscr" )
rename(%Prg%&"\M_Close.mscr",%Prg%&"\xM_Close.mscr",1)
EndIf
section[block] = auswahl
ElseIf (Skin eq "Team_Skin")
Copy (%Ele%&"\TS.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\TS.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\TS_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\org_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\TS.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\TS*.*")
Delete(%Ele%&"\org_DE.*")
section[block] = auswahl
ElseIf (Skin eq "Navirunner_Black_Pearl_Skin")
Copy (%Ele%&"\bp.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\bp.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\bp_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\BP_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\BP.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\bp*.*")
If (DirExists(%Pps%&"\Navirunner_BP\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_NL",1)
rename(%Pps%&"\Navirunner_BP",%Pps%&"\Navirunner",1)
EndIf
section[block] = auswahl
ElseIf (Skin eq "Navirunner_BP_New_Line_Skin")
Copy (%Ele%&"\NL.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\NL.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\NL_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\NL_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\NL.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\NL*.*")
If (DirExists(%Pps%&"\Navirunner_NL\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_BP",1)
rename(%Pps%&"\Navirunner_NL",%Pps%&"\Navirunner",1)
EndIf
section[block] = auswahl
ElseIf (Skin eq "HePe_Skin")
Copy (%Ele%&"\hp.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\hp.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\hp_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\hp_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\HP.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\hp*.*")
section[block] = auswahl
ElseIf (Skin eq "Pumuckel_Skin")
Copy (%Ele%&"\PS.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\PS.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\PS_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\PS.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\PS*.*")
section[block] = auswahl
ElseIf (Skin eq "GoPalWorld_Skin")
Copy (%Ele%&"\GPW.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\GPW.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\GPW_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\GPW.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\GPW*.*")
section[block] = auswahl
ElseIf (Skin eq "BMW_Navigators_GPW")
Copy (%Ele%&"\BMW.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\GPW.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\GPW_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\BMW.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\BMW*.*")
Delete(%Ele%&"\GPW.xml")
Delete(%Ele%&"\GPW_DE.xml")
section[block] = auswahl
ElseIf (Skin eq "EASY_Skin")
Copy (%Ele%&"\EY.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\EY.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\org_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\EY.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\EY.*")
Delete(%Ele%&"\org_DE.*")
section[block] = auswahl
ElseIf (Skin eq "aklasse170_Skin")
Copy (%Ele%&"\ak.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\ak.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\ak_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\ak_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\AK.png",%Ski2%&"\Logo.png",1)
If FileExists ("\my flash Disk\programme\mortscript\xM_Close.mscr" )
rename(%Prg%&"\xM_Close.mscr",%Prg%&"\M_Close.mscr",1)
EndIf
Delete(%Ele%&"\ak*.*")
section[block] = auswahl
EndIf
# Gewählte Skin in INI zurückschreiben
Call("iniFile", "Write", "Skin Version")
Alles anzeigen
4.5 habe ich auch noch drauf .
Ich habe mir mal sagen lassen das es möglich ist das man trotzdem Framework 2.0 – 3.0 – 3.5 haben muss .
Ich habe sie alle drauf und das mit dem jeweiligen Service Pack für Framework .
Gruß Manni
Ich weis es nicht mehr genau ob man Framework mindestens 3.0 installiert haben muss .
Framework 3.5 habe ich eh drauf .
Gruß Manni
Man sucht das Ziel im Fenster des geöffneten ZaK Menü...
Zumal in der normalen Kartenansicht kein Fadenkreuz ist .
Gruß Manni
Alles anzeigenHallo,
es geht nicht nur um die Zoomstufe sondern auch (oder vor allem) um den Kartenausschnitt. Bei Menuaufruf von ZaK wird immer auf die jetzige, bzw. letzte GPS Position zentriert. Das Ziel welches man auswählen will ist dort i.d.R. nicht. Beispiel:
Ich benutze die ZaK funktion oft im Urlaub. Bin am Campingplatz und suche Campingplatz für den nächsten Tag (100+km enfernt) der irgendwo an der Küste sein soll, also Zoom entsprechend setzen und schön die Küste langscrollen, scrollen, scrollen, ... , irgendwann dann was passendes gefunden, Menu -> ZaK: Bam! Kartenausschnitt zurückgesetzt. Bitte beginnen sie von vorne...
Also wenn ich dich richtig verstanden habe, geschieht das bei deinem unsichtbar ZaK Button auch, da ja der selbe Aufruf erfolgt?
![]()
Oder liegt die Karten-"Rückstellung" daran dass man auf das Routenmenu klickt.![]()
Vlt. kannst du (oder jmd. anderes mit Hepe-Skin) das mal kurz testen und hier berichten...
Danke & Gruß
Tom
PS:
Nee, ich bin langjährige Benutzer nicht "Skinner", zum Skinnen habe ich mir erst vor ein paar Tagen zum erstenmal Sachen angeschaut...
Hallo Tom
Wenn Du beim Scrollen in der Kartenansicht das gewünschte ZaK gefunden hast , was meist Du mit ( Menu -> ZaK: Bam! ) ?
Warum nicht auf Detailinformation klicken ?
Bilder aus HePe Skin über unsichtbaren ZaK , ist das selbe wie im Menü ZaK .
Gruß Manni
Das Tool funktioniert wie immer , auch mit der Build 94809 .
Wenn Du deine MapFarben geändert hast musst Du vom Exportieren deine Änderungen Speichern , sonst Exportierst Du deine Original ***.mxf wenn Du noch nie Speichern betätigst hast , oder Du Exportierst deine Änderung der letzten Sitzung wo deine jetzige Sitzung noch nicht gesichert war .
Adolar hat da weiter gedacht als wir normalen User , man könnte ja meinen warum Sichert er es nicht selbst vorm Export , aber wenn Du die jetzige Sitzung doch nicht haben möchtest weil dir mit einmal doch was missfällt , dann startest Du das Tool neu und hast die vorherige Sitzung .
Im Bild Autobahn mal Farben die schon weh tun .
Gruß Manni
Mit Anzeige welcher Skin aktiv ist.
Gruß Manni
Edit:
04.09.12 Skipt korrigiert
###########################################
# Skin Version Auswahl by Navirunner Modi #
###########################################
Include( "IniReadWrite.mscr" )
# Pfad\Name der ini-Datei
iniDatei = "NR-Skin.ini"
# Vorbelegungen einlesen
Call("iniFile", "Read","Skin Version")
####
Ele = "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin"
Ski = "\My Flash Disk\navigation\Skin480x272"
Pps = "\My Flash Disk\Navigation\Skin480x272\PPSkin"
Nrb = "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\backgrounds"
res = "\My Flash Disk\navigation\Skin480x272\res"
Ele2 = "\My Flash Disk\Navigation\Skin480x272\Elemente\Skiner"
Ski2 = "\My Flash Disk\Navigation\extra\Skin480x272\PPSkin\ExtraShell\480x272"
origi = 0
block = "Skin"
vorbelegung = section[block]
l=1
liste[l]="GoPal original Skin"
If ( not DirExists(%Ele%))
Kill ("mnavdce.exe")
MkDir(%Ski%&"\Elemente" )
MkDir(%Ele%)
origi = 1
EndIf
If not FileExists (%Ele%&"\org.bsf" )
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\org.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\org.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\org_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\org_DE.xml",1)
EndIf
If ((DirExists(%Pps%&"\TS\")) and (origi = 0))
l=l+1
liste[l]="Team_Skin"
If not FileExists (%Ele%&"\TS.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\TS.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\TS.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\TS_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\org_DE.xml",1)
Endif
Endif
If ((DirExists(%Pps%&"\Navirunner\")) or (DirExists(%Pps%&"\Navirunner_BP\")))
If ((not FileExists(%Nrb%&"\TMC_Warning.png")) or (DirExists(%Pps%&"\Navirunner_BP\")))
If (origi = 0)
l=l+1
liste[l]="Navirunner_Black_Pearl_Skin"
Kill ("mnavdce.exe")
If not FileExists (%Ele%&"\bp.bsf" )
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\bp.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\bp.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\bp_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\bp_DE.xml",1)
EndIf
Endif
EndIf
Endif
If ((DirExists(%Pps%&"\Navirunner\")) or (DirExists(%Pps%&"\Navirunner_NL\")))
If ((FileExists(%Nrb%&"\TMC_Warning.png")) or (DirExists(%Pps%&"\Navirunner_NL\")))
If (origi = 0)
l=l+1
liste[l]="Navirunner_BP_New_Line_Skin"
Kill ("mnavdce.exe")
If not FileExists (%Ele%&"\NL.bsf" )
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\NL.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\NL.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\NL_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\NL_DE.xml",1)
EndIf
Endif
EndIf
Endif
If ((DirExists(%Ski%&"\Hepe\")) and (origi = 0))
l=l+1
liste[l]="HePe_Skin"
If not FileExists (%Ele%&"\hp.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\hp.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\hp.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\hp_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\Hp_DE.xml",1)
Endif
Endif
If ((DirExists(%Pps%&"\PS\")) and (origi = 0))
l=l+1
liste[l]="Pumuckel_Skin"
If not FileExists (%Ele%&"\PS.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\PS.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\PS.xml",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\PS_DE.xml",1)
Endif
EndIf
If ((DirExists(%Pps%&"\GoPalWorld\")) and (origi = 0))
l=l+1
liste[l]="GoPalWorld_Skin"
If not FileExists (%Ele%&"\GPW.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\GPW.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\GPW.xml",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\GPW_DE.xml",1)
Endif
EndIf
If ((DirExists(%Pps%&"\GoPalWorld\")) and (origi = 0))
l=l+1
liste[l]="BMW_Navigators_GPW"
If not FileExists (%Ele%&"\BMW.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\BMW.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\GPW.xml",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\GPW_DE.xml",1)
Endif
EndIf
If ((DirExists(%Pps%&"\EASY\")) and (origi = 0))
l=l+1
liste[l]="EASY_Skin"
If not FileExists (%Ele%&"\EY.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\EY.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\EY.xml",1)
Endif
Endif
If ((DirExists(%Pps%&"\aklasse170\")) and (origi = 0))
l=l+1
liste[l]="aklasse170_Skin"
If not FileExists (%Ele%&"\ak.bsf" )
Kill ("mnavdce.exe")
Copy (%Ski%&"\PFSkin.bsf",%Ele%&"\ak.bsf",1)
Copy (%Ski%&"\dpitems.xml",%Ele%&"\ak.xml",1)
Copy (%Ski%&"\PFSpecial.skn",%Ele%&"\ak_Special.skn",1)
Copy (%res%&"\Standard.de_DE.xml",%Ele%&"\ak_DE.xml",1)
Endif
Endif
If not FileExists (%Nrb%&"\TMC_Warning.png" )
If ( not DirExists(%Pps%&"\Navirunner_NL\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_BP",1)
EndIf
EndIf
If FileExists (%Nrb%&"\TMC_Warning.png" )
If ( not DirExists(%Pps%&"\Navirunner_BP\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_NL",1)
EndIf
EndIf
SetChoiceEntryFormat ( 30 , 20 , Arial )
auswahl=Choice ("Version","Wähle aus:^NL^ Welchen Skin du benutzen möchtest!",vorbelegung,0,liste)
####
Skin=liste[auswahl]
If (Skin eq "GoPal original Skin")
Copy (%Ele%&"\org.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\org.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\org_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\org.png",%Ski2%&"\Logo.png",1)
section[block] = auswahl
ElseIf (Skin eq "Team_Skin")
Copy (%Ele%&"\TS.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\TS.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\TS_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\org_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\TS.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\TS*.*")
Delete(%Ele%&"\org_DE.*")
section[block] = auswahl
ElseIf (Skin eq "Navirunner_Black_Pearl_Skin")
Copy (%Ele%&"\bp.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\bp.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\bp_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\BP_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\BP.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\bp*.*")
If (DirExists(%Pps%&"\Navirunner_BP\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_NL",1)
rename(%Pps%&"\Navirunner_BP",%Pps%&"\Navirunner",1)
EndIf
section[block] = auswahl
ElseIf (Skin eq "Navirunner_BP_New_Line_Skin")
Copy (%Ele%&"\NL.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\NL.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\NL_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\NL_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\NL.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\NL*.*")
If (DirExists(%Pps%&"\Navirunner_NL\"))
rename(%Pps%&"\Navirunner",%Pps%&"\Navirunner_BP",1)
rename(%Pps%&"\Navirunner_NL",%Pps%&"\Navirunner",1)
EndIf
section[block] = auswahl
ElseIf (Skin eq "HePe_Skin")
Copy (%Ele%&"\hp.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\hp.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\hp_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\hp_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\HP.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\hp*.*")
section[block] = auswahl
ElseIf (Skin eq "Pumuckel_Skin")
Copy (%Ele%&"\PS.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\PS.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\PS_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\PS.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\PS*.*")
section[block] = auswahl
ElseIf (Skin eq "GoPalWorld_Skin")
Copy (%Ele%&"\GPW.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\GPW.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\GPW_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\GPW.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\GPW*.*")
section[block] = auswahl
ElseIf (Skin eq "BMW_Navigators_GPW")
Copy (%Ele%&"\BMW.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\GPW.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\GPW_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\BMW.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\BMW*.*")
Delete(%Ele%&"\GPW.xml")
Delete(%Ele%&"\GPW_DE.xml")
section[block] = auswahl
ElseIf (Skin eq "EASY_Skin")
Copy (%Ele%&"\EY.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\EY.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\org_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\org_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\EY.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\EY.*")
Delete(%Ele%&"\org_DE.*")
section[block] = auswahl
ElseIf (Skin eq "aklasse170_Skin")
Copy (%Ele%&"\ak.bsf",%Ski%&"\PFSkin.bsf",1)
Copy (%Ele%&"\ak.xml",%Ski%&"\dpitems.xml",1)
Copy (%Ele%&"\ak_Special.skn",%Ski%&"\PFSpecial.skn",1)
Copy (%Ele%&"\ak_DE.xml",%res%&"\Standard.de_DE.xml",1)
Copy (%Ele2%&"\AK.png",%Ski2%&"\Logo.png",1)
Delete(%Ele%&"\ak*.*")
section[block] = auswahl
EndIf
# Gewählte Skin in INI zurückschreiben
Call("iniFile", "Write", "Skin Version")
Alles anzeigen
Und eine MFD zum Anfangen , die Original Build 94xxx Skindateien leicht modiviziert ist schon drin , 94xxx Skindateien sind nur soweit geändert das man nach beenden von GoPal im Extra-Menue landet anstatt ins nichts .
Diese MFD auf Original GoPal 94xxx kopieren und dann erst Stück für Stück eure Lieblings - Skins , siehe Beschreibung .
http://www.gopal-navigator.de/…8416&viewfull=1#post88416
Das sollte nur jenand machen der sein Navi neu aufsetzen kann wenn es mit dem Skintauscher nicht klappt !
Bei 50 Downloads der einzige zu sein der eine Rückmeldung bringt und sich bedankt ist nicht grad motivierend .
Als einziger wird es langsam peinlich .
Entschuldigung , ich konnte nicht anders .
Gruß Manni
Du hast aber den neusten Assi Ver. 5.05.013 ?
Gruß Manni
Einige Skin´s arbeiten trotzdem mit SD Karte und einige lassen ohne SD Karte eine Installation erst gar nicht zu .
Gruß Manni
Im Assi die AE ´s gehen erst seit gestern , ob alle weiß ich nicht , AE 6 Build 93378 geht laut Navirunner , dann müsste deine AE 6 Build 93659 jetzt auch gehen , PE ´s gehen bis jetzt alle noch nicht .
Gruß Manni