Seite 3 von 3 ErsteErste 123
Ergebnis 21 bis 28 von 28
  1. #21
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    Da einige Skins ihre eigene Standard.de_DE.xml haben mit wichtigen Änderungen tausche ich diese auch mit z. B. GoPalWorld und HePe .

    Ich glaube fasst da muss doch noch AHK herhalten , die Spagetti-Codes werden immer länger .

    Gruß Manni


    Mit Standard.de_DE.xml Unterstützung
     
    Code:
    #########################################
    #   Skin Version Auswahl by Navirunner  #
    #########################################
    Include( "IniReadWrite.mscr" )
    
    # Pfad\Name der ini-Datei
    iniDatei = "NR-Skin.ini"
    # Vorbelegungen einlesen
    Call("iniFile", "Read","Skin Version")
    #########################################	
    block = "Skin"
    vorbelegung = section[block]
    
    l=1 
    liste[l]="GoPal original Skin"
    
    If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml" )
      Copy ("\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml",1)
    EndIf 
     
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\TS\"))
      l=l+1
      liste[l]="Team_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\"))
      l=l+1
        liste[l]="Navirunner_Skin" 
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\Hepe\"))
      l=l+1
      liste[l]="HePe_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml",1)
    	    rename("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\H_Standard.de_DE.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\PS\"))
      l=l+1
      liste[l]="Pumuckel_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml",1)
        Endif
    EndIf
     If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
      l=l+1
      liste[l]="GoPalWorld_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml",1)
    	    rename("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\GPW_Standard.de_DE.xml",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]
    # Message(Skin)
    
    If (Skin eq "GoPal original Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
    	section[block] = auswahl
    ElseIf (Skin eq "Team_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.*")
    	section[block] = auswahl
    ElseIf (Skin eq "Navirunner_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.*")
    	section[block] = auswahl
    ElseIf (Skin eq "HePe_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	rename("\My Flash Disk\navigation\Skin480x272\Res\H_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.*")
    	section[block] = auswahl
    ElseIf (Skin eq "Pumuckel_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.*")
    	section[block] = auswahl
    ElseIf (Skin eq "GoPalWorld_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
     	rename("\My Flash Disk\navigation\Skin480x272\Res\GPW_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.*")
    	section[block] = auswahl
    EndIf
    
    
    # Gewählte Optionen zurückschreiben
    Call("iniFile", "Write", "Skin Version")
    #########################################
    Geändert von Manni 123 (07.08.2012 um 05:29 Uhr)
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  2. # ADS
    Werbeanzeige
    Registriert seit
    Immer
    Ort
    Werbewelt
    Beiträge
    Viele
     

  3. #22
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    Script noch mal neu .

    Es darf sich nur eine *_Standard.de_DE.xml im Order Res befingen , also nur die Standard.de_DE.xml , keine H_Standard.de_DE.xml und keine GPW_Standard.de_DE.xml , sonst werden sie alle eingelesen , in welcher Reihenfolge ist wohl ein Lotteriespiel .

    Also geht da nichts mit Rename .

    Ich habe auch nicht schlecht gestaunt .



    Gruß Manni


    neues Script , ohne rename
     
    Code:
    #########################################
    #   Skin Version Auswahl by Navirunner  #
    #########################################
    Include( "IniReadWrite.mscr" )
    
    # Pfad\Name der ini-Datei
    iniDatei = "NR-Skin.ini"
    # Vorbelegungen einlesen
    Call("iniFile", "Read","Skin Version")
    #########################################	
    block = "Skin"
    vorbelegung = section[block]
    
    l=1 
    liste[l]="GoPal original Skin" 
    
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\Hepe\"))
      If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml" )
          Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml",1) 
        EndIf  
      EndIf
    EndIf  
    
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
      If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml" )
          Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml",1) 
        EndIf  
      EndIf
    EndIf  
     
    If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml" )
      Copy ("\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml",1)
    EndIf
     
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\TS\"))
      l=l+1
      liste[l]="Team_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\"))
      l=l+1
        liste[l]="Navirunner_Skin" 
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\Hepe\"))
      l=l+1
      liste[l]="HePe_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\PS\"))
      l=l+1
      liste[l]="Pumuckel_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml",1)
        Endif
    EndIf
     If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
      l=l+1
      liste[l]="GoPalWorld_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml",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]
    # Message(Skin)
    
    If (Skin eq "GoPal original Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
    	section[block] = auswahl
    ElseIf (Skin eq "Team_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.*")
    	section[block] = auswahl
    ElseIf (Skin eq "Navirunner_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.*")
    	section[block] = auswahl
    ElseIf (Skin eq "HePe_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.*")
    	section[block] = auswahl
    ElseIf (Skin eq "Pumuckel_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.*")
    	section[block] = auswahl
    ElseIf (Skin eq "GoPalWorld_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
     	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.*")
    	section[block] = auswahl
    EndIf
    
    
    # Gewählte Optionen zurückschreiben
    Call("iniFile", "Write", "Skin Version")
    #########################################
    Geändert von Manni 123 (08.08.2012 um 06:35 Uhr)
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  4. #23
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    Habe jetzt alle Skin die für Build 94xxx zu bekommen sind .

    Original Skin ist übern TeamSkin , in dieser Stellung nicht zu sehen.

    Das umschalten geschieht in Sekundenschnelle , weil ja nur drei Dateien getauscht werden , das Script anklicken und bis es gestartet ist dauert spürbar länger .

    Jetzt wird es langsam Zeit für AHK , mir fehlt noch der richtige Anstoß .

    Gruß Manni


    6 Skins plus Original
     
    Code:
    #########################################
    #   Skin Version Auswahl by Navirunner  #
    #########################################
    Include( "IniReadWrite.mscr" )
    
    # Pfad\Name der ini-Datei
    iniDatei = "NR-Skin.ini"
    # Vorbelegungen einlesen
    Call("iniFile", "Read","Skin Version")
    #########################################	
    block = "Skin"
    vorbelegung = section[block]
    
    l=1 
    liste[l]="GoPal original Skin" 
    
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\Hepe\"))
      If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml" )
          Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml",1) 
        EndIf  
      EndIf
    EndIf  
    
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
      If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml" )
          Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml",1) 
        EndIf  
      EndIf
    EndIf  
     
    If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml" )
      MkDir( "\My Flash Disk\Navigation\Skin480x272\Elemente" )
       MkDir( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin" )
      Copy ("\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml",1)
    EndIf
     
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\TS\"))
      l=l+1
      liste[l]="Team_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\"))
      l=l+1
        liste[l]="Navirunner_Black_Pearl_Skin" 
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\"))
      l=l+1
        liste[l]="Navirunner_BP_New_Line_Skin" 
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\Hepe\"))
      l=l+1
      liste[l]="HePe_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml",1)
        Endif
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\PS\"))
      l=l+1
      liste[l]="Pumuckel_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml",1)
        Endif
    EndIf
     If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
      l=l+1
      liste[l]="GoPalWorld_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml",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]
     #Message(Skin)
    
    If (Skin eq "GoPal original Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
    	section[block] = auswahl
    	 #Message("Original")
    ElseIf (Skin eq "Team_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.*")
    	section[block] = auswahl
    	#Message("Team")
    ElseIf (Skin eq "Navirunner_Black_Pearl_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.*")
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP\"))
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL",1) 
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner",1) 
    EndIf   
    	section[block] = auswahl
    	 #Message("Navirunner BP ")
    ElseIf (Skin eq "Navirunner_BP_New_Line_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.*")
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL\"))
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP",1) 
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner",1) 
    EndIf 
    	section[block] = auswahl
    	 #Message("Navirunner BP New Line")	 
    ElseIf (Skin eq "HePe_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\H_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.*")
    	section[block] = auswahl
    	 Message("HePe")
    ElseIf (Skin eq "Pumuckel_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.*")
    	section[block] = auswahl
    	  #Message("Pumuckel")
    ElseIf (Skin eq "GoPalWorld_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
     	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_Standard.de_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.*")
    	section[block] = auswahl
    	 #Message("GPW")
    EndIf
    
    
    # Gewählte Optionen zurückschreiben
    Call("iniFile", "Write", "Skin Version")
    #########################################
    Miniaturansichten angehängter Grafiken Miniaturansichten angehängter Grafiken Klicke auf die Grafik für eine größere Ansicht 

Name:	Origi_or_Skin_Tausch-1.png 
Hits:	23 
Größe:	196,4 KB 
ID:	5675   Klicke auf die Grafik für eine größere Ansicht 

Name:	Origi_or_Skin_Tausch-2.png 
Hits:	26 
Größe:	9,0 KB 
ID:	5676  
    Geändert von Manni 123 (09.08.2012 um 20:56 Uhr)
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  5. #24
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    Habe das Script jetzt soweit das man damit die jeweilige Skin PFSkin dpitems und Standard.de_DE im Ordner Elemente\Skin\ bekommt .

    Falls ihr es selbst mal zusammen stellen wollt mit euren Skins die ihr nutzen möchtet .

    Mann muss nur nach jedem Skin installieren das Script NR_Skin-2.mscr starten aber bitte nichts auswählen , einfach mit Cancel wieder aussteigen , das Script hat dann schon das richtige erledigt .
    Und dann den nächsten Skin installieren , der letzte ist dann auch euer Starmenü .

    Das müsst ihr auch beim Original Skin machen bevor ihr ein Skin installiert , die Original Skin PFSkin dpitems und Standard.de_DE werden in Elemente\Skin gesichert und nie wieder ersetzt wie bei den Skin Dateien , die drei Original Dateien bleiben erhalten sie werden nur für den Tausch benutzt , sie brauchen auch nicht aufgefrischt werden so wie bei den Skin Dateien , wenn mal eine Höhere Build als 94xxx kommen sollte dann kommen auch neue Skins falls sich an den Original Skin Dateien was ändert aber davon kann man ausgehen .

    Wenn ihr die Skins nur installiert ohne zwischendurch zu Testen oder zu Tauschen nur eben nach jedem Skin das Script NR_Skin-2.mscr starten und mit Cancel aussteigt könnt ihr das im eine Stück durchziehen aber wenn ihr testet oder sogar tauscht dann müsst ihr wenn ihr neue Skins installieren wollt vorher auf Original Skin Tauschen .


    Gruß Manni




    Script mit Installation Auswertung

    Noch mal neu , ich hatte die Standard.de_DE.xml vergessen , diese Datei kann mit einem aktuellem Skin oder neuere Build auch geändert sein , also muss sie in Elemente\Skin\ auch aktualisiert werden .


    13.08.12 neu
     
    Code:
    #############################################
    #   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")
    #########################################	
    block = "Skin"
    vorbelegung = section[block]
    
    l=1 
    liste[l]="GoPal original Skin" 
    
    
    If  ( not DirExists("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\"))
      Kill ("mnavdce.exe")
      MkDir( "\My Flash Disk\Navigation\Skin480x272\Elemente" )
      MkDir( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin" )
      Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.bsf",1)
      Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.xml",1)
      Copy ("\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml",1)
    EndIf
     
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\TS\"))
      l=l+1
      liste[l]="Team_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf" )
         Kill ("mnavdce.exe")
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml",1)
        Endif
            If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml" )
            Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml",1) 
          EndIf        
    Endif
    
      If  ((DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\")) or  ( DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP\")))
        l=l+1
          liste[l]="Navirunner_Black_Pearl_Skin" 
          If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf" )
           Kill ("mnavdce.exe")
            If not FileExists ( "\My Flash Disk\navigation\Skin480x272\PPSkin\Navirunner\backgrounds\TMC_Warning.png" )
          	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf",1)
          	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml",1)
            EndIf
          Endif
          If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml" )
            Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml",1) 
          EndIf    
      Endif
    
      If  ((DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner\"))  or  ( DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL\")))
         l=l+1
          liste[l]="Navirunner_BP_New_Line_Skin" 
          If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf" )
           Kill ("mnavdce.exe")
            If FileExists ( "\My Flash Disk\navigation\Skin480x272\PPSkin\Navirunner\backgrounds\TMC_Warning.png" )
          	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf",1)
          	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.xml",1)
            EndIf
          Endif
          If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml" )
            Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml",1) 
          EndIf       
      Endif
    
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\Hepe\"))
      l=l+1
      liste[l]="HePe_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf" )
         Kill ("mnavdce.exe")
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml",1)
        Endif
          If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Hp_DE.xml" )
            Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Hp_DE.xml",1) 
          EndIf      
    Endif
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\PS\"))
      l=l+1
      liste[l]="Pumuckel_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf" )
         Kill ("mnavdce.exe")
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml",1)
        Endif
          If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml" )
            Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml",1) 
          EndIf       
    EndIf
     If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\GoPalWorld\"))
      l=l+1
      liste[l]="GoPalWorld_Skin"
        If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf" )
         Kill ("mnavdce.exe")
        	Copy ("\My Flash Disk\navigation\Skin480x272\PFSkin.bsf","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf",1)
        	Copy ("\My Flash Disk\navigation\Skin480x272\dpitems.xml","\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml",1)
        Endif
          If not FileExists ( "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_DE.xml" )
            Copy ("\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml", "\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_DE.xml",1) 
          EndIf      
    EndIf
    
    If not FileExists ( "\My Flash Disk\navigation\Skin480x272\PPSkin\Navirunner\backgrounds\TMC_Warning.png" )
       If  ( not DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL\"))
        rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP",1) 
       EndIf
    EndIf
    If FileExists ( "\My Flash Disk\navigation\Skin480x272\PPSkin\Navirunner\backgrounds\TMC_Warning.png" )
       If  ( not DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP\"))
        rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\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]
     #Message(Skin)
    
    If (Skin eq "GoPal original Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      section[block] = auswahl
    	 #Message("Original")
    ElseIf (Skin eq "Team_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\TS.*")
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.*")
    	section[block] = auswahl
    	#Message("Team")
    ElseIf (Skin eq "Navirunner_Black_Pearl_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\bp.*")
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.*")
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP\"))
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL",1) 
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner",1) 
    EndIf   
    	section[block] = auswahl
    	 #Message("Navirunner BP ")
    ElseIf (Skin eq "Navirunner_BP_New_Line_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\NL.*")
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.*")  
    If  (DirExists("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL\"))
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_BP",1) 
      rename("\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner_NL", "\My Flash Disk\Navigation\Skin480x272\PPSkin\Navirunner",1) 
    EndIf 
    	section[block] = auswahl
    	 #Message("Navirunner BP New Line")	 
    ElseIf (Skin eq "HePe_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\Hp_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\hp*.*")
    	section[block] = auswahl
    	 #Message("HePe")
    ElseIf (Skin eq "Pumuckel_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.xml","\My Flash Disk\Navigation\Skin480x272\res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\PS.*")
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\org_DE.*")  
    	section[block] = auswahl
    	  #Message("Pumuckel")
    ElseIf (Skin eq "GoPalWorld_Skin")
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.bsf","\My Flash Disk\navigation\Skin480x272\PFSkin.bsf",1)
    	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW.xml","\My Flash Disk\navigation\Skin480x272\dpitems.xml",1)
     	Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW_DE.xml", "\My Flash Disk\navigation\Skin480x272\Res\Standard.de_DE.xml",1)
      Delete("\My Flash Disk\Navigation\Skin480x272\Elemente\Skin\GPW*.*") 
    	section[block] = auswahl
    	 #Message("GPW")
    EndIf
    
    
    # Gewählte Optionen zurückschreiben
    Call("iniFile", "Write", "Skin Version")
    #########################################
    Geändert von Manni 123 (13.08.2012 um 18:13 Uhr)
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  6. #25
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    Optimiert , dadurch kürzere Ladezeit weil Script nur noch halb so groß .
    Edit:
    15.08.12 Noch eine kleine Verbesserung und mit BMW Navigators GPW

    26.08.12 Mit EASY Skin

    27.08.12 10 Skin´s
    jetzt auch aklasse170 Skin

    28.08.12
    Jetzt mit PFSpecial.skn Unterstützung , wenn die PFSkin.bsf nicht erneuert werden muss braucht ihr keine PFSpecial.skn , genauso wenig die PFSkin.skn .



     
    Code:
    ###########################################
    # 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"
    
    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%)
      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)
      origi = 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  ( not DirExists(%Pps%&"\Navirunner_NL\")))
      If (origi = 0)
        l=l+1
          liste[l]="Navirunner_Black_Pearl_Skin" 
          If not FileExists (%Ele%&"\bp.bsf" )
           Kill ("mnavdce.exe")
            If not FileExists (%Nrb%&"\TMC_Warning.png" )
          	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  ( not DirExists(%Pps%&"\Navirunner_BP\")))
       If (origi = 0)
         l=l+1
          liste[l]="Navirunner_BP_New_Line_Skin" 
          If not FileExists (%Ele%&"\NL.bsf" )
           Kill ("mnavdce.exe")
            If FileExists (%Nrb%&"\TMC_Warning.png" )
          	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%&"\BP_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)
      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)
      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)
      Delete(%Ele%&"\bp*.*")
      Delete(%Ele%&"\BP_DE.*")
    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%&"\BP_DE.xml",%res%&"\Standard.de_DE.xml",1)
      Delete(%Ele%&"\NL*.*")
      Delete(%Ele%&"\BP_DE.*")  
    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)
      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)
      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)
      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)
      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)
      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)
      Delete(%Ele%&"\ak*.*")
    	section[block] = auswahl	
    		
    EndIf
    
    
    # Gewählte Skin in INI zurückschreiben
    Call("iniFile", "Write", "Skin Version")


    Mit 10 Skin´s wird MortScript so langsam träge , da muss ich mich doch noch mit AHK ranmachen aber ob es mit AHK schneller wird ist auch fraglich .
    Miniaturansichten angehängter Grafiken Miniaturansichten angehängter Grafiken Klicke auf die Grafik für eine größere Ansicht 

Name:	aklasse170_Skin_und_alle.png 
Hits:	14 
Größe:	14,0 KB 
ID:	5729  
    Geändert von Manni 123 (28.08.2012 um 08:42 Uhr)
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  7. Folgende 4 Benutzer sagen Danke zu Manni 123 für den nützlichen Beitrag:

    aklasse170 (14.08.2012),brummi1844 (14.08.2012),Navirunner (15.08.2012),Pitter (14.08.2012)

  8. #26
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    Mit Anzeige welcher Skin aktiv ist.

    Gruß Manni

    Edit:
    04.09.12 Skipt korrigiert
     
    Code:
    ###########################################
    # 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")



    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/showth...ll=1#post88416

    Das sollte nur jenand machen der sein Navi neu aufsetzen kann wenn es mit dem Skintauscher nicht klappt !
    Miniaturansichten angehängter Grafiken Miniaturansichten angehängter Grafiken Klicke auf die Grafik für eine größere Ansicht 

Name:	Skintausch.jpg 
Hits:	42 
Größe:	54,0 KB 
ID:	5740  
    Angehängte Dateien Angehängte Dateien
    Geändert von Manni 123 (04.09.2012 um 03:40 Uhr)
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  9. Folgende 2 Benutzer sagen Danke zu Manni 123 für den nützlichen Beitrag:

    aklasse170 (02.09.2012),Navirunner (02.09.2012)

  10. #27
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    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
     
    Code:
    ###########################################
    # 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")
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  11. Folgender Benutzer sagt Danke zu Manni 123 für den nützlichen Beitrag:

    Hepe (06.09.2012)

  12. #28
    Avatar von Manni 123
    Registriert seit
    01.03.2007
    Ort
    58762 Altena
    Hardware
    315T + E4430 + E4460 & Doogee DG550
    Software
    GP6.1 + PW4 & App Movetracker
    Skin
    10 Skin´s in MFD
    Beiträge
    3.476
    Danke
    554
    Erhielt 729 Danke für 515 Beiträge
    Erstellt von

    Standard

    Video von 10 Skin Tauscher , auf 15 Minuten reduziert , Wartezeiten und Resetzeiten entfernt .

    http://youtu.be/D3mG-3uRx14

    Gruß Manni
    Bitte kein Support per PN , nur über das Forum , dann haben alle was davon !

    Link zum Wiki

    Sammlung von Icons/Buttons und mehr.

  13. Folgende 2 Benutzer sagen Danke zu Manni 123 für den nützlichen Beitrag:

    brummi1844 (14.09.2012),kurti66 (14.09.2012)

Seite 3 von 3 ErsteErste 123

Ähnliche Themen

  1. Mortscript aus dem GoPal Menü mit Parameter und Variablen Übergabe ausführen
    Von XXMrHyde im Forum GoPal 5.x Skinning / Skinvorstellung / Anpassungsfragen
    Antworten: 9
    Letzter Beitrag: 31.05.2011, 10:58
  2. MortScript .mscr starten ohne zugehörige .exe
    Von Manni 123 im Forum GoPal 5.x Skinning / Skinvorstellung / Anpassungsfragen
    Antworten: 0
    Letzter Beitrag: 20.03.2010, 05:07
  3. Navirunner Skin 6.5
    Von JoSy2 im Forum GoPal 4.0/4.1 Skinning / Skinvorstellung / Skins
    Antworten: 7
    Letzter Beitrag: 19.02.2009, 12:31
  4. Desktop: Mortscript ausführen
    Von G4RFiELD im Forum GoPal 4.0/4.1 Skinning / Skinvorstellung / Skins
    Antworten: 17
    Letzter Beitrag: 10.10.2008, 12:33
  5. V1 auf GopalAE4.5 Mortscript Backup
    Von ovid im Forum GoPal 4.3 - 4.7 Skinning / Skinvorstellung / Anpassungsfragen
    Antworten: 2
    Letzter Beitrag: 12.07.2008, 15:20

Lesezeichen

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •