OK - ich bin jetzt hier raus. :006:
mikee
OK - ich bin jetzt hier raus. :006:
mikee
OK - ich bin jetzt hier raus. :006:
mikee
Das sagt mir jetzt gar nichts .:017:
Gruß Manni
Ein Skin für die 128er und 64er würde Einbussen im Grafikaussehen für den 128er bedeuten .
Gruß Manni
nein, würde es nicht : wenn die Sparbutton nicht zu schlecht aussehen würden auch 128er sie benutzen
und mikee meint ja eine Version , welche durch einstellen der Button und Kartengrösse nochmal angepasst werden kann
ich finde den Skin schon sehr gut, und habe mit der mikee-Version auf meinem P4440 keine Probleme , wenn da noch die Sparbutton eingebaut werden ( zum tauschen per Einstellung ), dann ist der Skin doch für 64 und 128 geeignet ???
Stefan
Hallo,
mal auf die Schnelle, kleine Tests habe keine Probleme ans Tageslicht gebracht
(bis auf den Blitzerwarner--> hat aber nichts mit den Skin zu tun).
Klasse Arbeit :top_001:, somit steht einer Cab nichts im Wege, wenn es nach mir ginge :002::icon_mrgreen:
Ich bräuchte mal von euch Hilfe .
Wie bekomme ich die drei Farben ins MortFenster ?
Kann als Icon oder als Schrifthintergrund oder die Schifft selbst sein .
Das obere GoPal Standard Parameter brauch keine Farbe , vielleicht fällt mir dafür später noch was ein .
Wenn da nichts geht wovon ich fast ausgehe muss ich halt die Farbe in Buchstaben dahinter schreiben , schöner wäre mit Farbe .
@ Libero Es kommt immer was neues hinzu .:icon_mrgreen:
Gruß Manni
Oder mit Koord als Server ein Bild drauf legen lassen ?
Gruß Manni
... Manni nur kein Stress...ach so und ich kann dir natürlich nicht helfen :icon_mrgreen::102::occasion14:
So geht es ja auch , ist letztendlich nur Gewöhnungssache .
Gruß Manni
Manni, wenn, dann geht's nur mit Tricks, die mir auch nicht bekannt sind. Selbst Änderungen an der Schrift sind nur außerhalb der Box möglich.
Danke Ralf
Laut Handbuch pdf geht da nichts mit Schrift in Farbe , habe jedenfalls nichts gefunden.
Ich habe mal bei Sokobana gefragt , die haben glaube ich reichlich so Sachen in Skin , ich kann es aber nicht herauslesen .
Gruß Manni
Soweit ich die Dialoge kenne, geht da nichts mit Farbe.
Aber was hast du denn vor ?
Eventuell baust du dir ein Dialogfenster mit "Mortscript" für "Systeminformation".
Ich hab da ja mal im Nachbarforum geschrieben, wie man mit Mortscript die
Inis von Systeminformation manipuliert bzw. neu baut.
Auch im Outlister wird die Ansicht, selbst mit Buttons und deren Sprungzielen und Argumenten, komplett mit Mortscript generiert.
Hier ändert sich die Farbe je nach gewählte TMC-MenldeArt .
Gruß Manni
#########################################
# TMC Einstellung by Navirunner #
#########################################
Sound = "\Storage Card\Changer\sounds"
Include( "IniReadWrite.mscr" )
# Pfad\Name der ini-Datei
iniDatei = "NR-Skin.ini"
# Vorbelegungen einlesen
Call("iniFile", "Read","TMC Einstellung")
#########################################
block = "TMC Setting"
vorbelegung = section[block]
liste[1]="GoPal Standard Parameter - grau"
liste[2]="Alle Störungen anzeigen - rot"
liste[3]="Alle Staus umfahren - blau"
liste[4]="Alle Störungen umfahren - grün"
SetChoiceEntryFormat ( 25 , 20 , Arial )
auswahl=Choice ("TMC Einstellung","Wählen Sie aus:^NL^Achtung: Die Änderungen werden erst nach einem Neustart aktiv !",vorbelegung,0,liste)
if(auswahl > 0)
#########################################
# Einstellung und Eintrag anlegen
If (auswahl=(1))
#Call ("Warten")
sleep (300)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\tti_A.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\TMC_Warnart-_Origi.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\480x272\PPSkin\TMC_Warnart.png",1)
section[block] = auswahl
Call ("Wert1")
Message("Sie haben die Gopal original TMC Einstellungen gewählt.^NL^^NL^Es werden alle TMC Meldungen wie im original Skin behandelt.^NL^^NL^Nutzbar mit automatischer oder manueller Stauumfahrung.")
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
If (auswahl=(2))
#Call ("Warten")
sleep (300)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\tti_B.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\TMC_Warnart-_StoerA.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\480x272\PPSkin\TMC_Warnart.png",1)
section[block] = auswahl
Call ("Wert2")
Message("Sie haben gewählt das alle Störungen angezeigt werden sollen.^NL^^NL^Es werden alle TMC Meldungen wie im original Skin behandelt und zusätzlich weitere TMC Meldungen angezeigt.^NL^^NL^Nutzbar mit automatischer oder manueller Stauumfahrung.")
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
If (auswahl=(3))
#Call ("Warten")
sleep (300)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\tti_C.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\TMC_Warnart-_StauU.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\480x272\PPSkin\TMC_Warnart.png",1)
section[block] = auswahl
Call ("Wert3")
Message("Sie haben gewählt das alle Staus umfahren werden sollen.^NL^^NL^Es werden alle TMC Meldungen mit höheren Zeitverlusten berechnet.^NL^^NL^Nutzbar mit automatischer oder manueller Stauumfahrung (manuell empfohlen).")
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
If (auswahl=(4))
#Call ("Warten")
sleep (300)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\\tti_D.teb","\My Flash Disk\navigation\TTI\default\tti.teb",1)
Copy ("\My Flash Disk\Navigation\Skin480x272\Elemente\TTI\TMC_Warnart-_StoerU.png","\My Flash Disk\Navigation\Skin480x272\PPSkin\480x272\PPSkin\TMC_Warnart.png",1)
section[block] = auswahl
Call ("Wert4")
Message("Sie haben gewählt das alle Störungen umfahren werden sollen.^NL^^NL^Es werden alle TMC Meldungen mit sehr hohen Zeitverlusten berechnet.^NL^^NL^Diese Einstellung bitte nur mit manueller Stauumfahrung nutzen, da man sonst auch für kleinste Störungen von der AB geholt wird.")
Playsound(%Sound%&"\INFBEG.WAV")
EndIf
Else
Exit
EndIf
# Gewählte Optionen zurückschreiben
Call("iniFile", "Write", "TMC Einstellung")
#########################################
# Schließt GoPal
Run ("\My Flash Disk\programme\koord465.exe" , "window=0 SendKey=\0x80\|")
If WndExists ("GoPal Navigator")
sleep (2000)
Kill ("GoPal Navigator")
While (WndExists ("GoPal Navigator"))
EndWhile
EndIf
If not (ProcExists ("koord465.exe"))
Run ("\My Flash Disk\programme\koord465.exe" , "window=0 KoordServ=0")
EndIf
#########################################
Sub Wert1
file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml"
Wert1 = "<item id=""2139000029"""
Wert2 = " value="
Wert3 = " type=""INT"" />"
Text1 = """0"""
String= ReadFile( file )
gefunden1=Find(String,Wert1)
If(gefunden1)
gefunden2=Find(String,Wert2,gefunden1)
gefunden3=Find(String,Wert3,gefunden2)
NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3)
WriteFile(file,NeuString,FALSE,"standard")
EndIf
EndSub
#########################################
Sub Wert2
file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml"
Wert1 = "<item id=""2139000029"""
Wert2 = " value="
Wert3 = " type=""INT"" />"
Text1 = """1"""
String= ReadFile( file )
gefunden1=Find(String,Wert1)
If(gefunden1)
gefunden2=Find(String,Wert2,gefunden1)
gefunden3=Find(String,Wert3,gefunden2)
NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3)
WriteFile(file,NeuString,FALSE,"standard")
EndIf
EndSub
#########################################
Sub Wert3
file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml"
Wert1 = "<item id=""2139000029"""
Wert2 = " value="
Wert3 = " type=""INT"" />"
Text1 = """2"""
String= ReadFile( file )
gefunden1=Find(String,Wert1)
If(gefunden1)
gefunden2=Find(String,Wert2,gefunden1)
gefunden3=Find(String,Wert3,gefunden2)
NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3)
WriteFile(file,NeuString,FALSE,"standard")
EndIf
EndSub
#########################################
Sub Wert4
file = "\My Flash Disk\navigation\Skin480x272\dpitems.xml"
Wert1 = "<item id=""2139000029"""
Wert2 = " value="
Wert3 = " type=""INT"" />"
Text1 = """3"""
String= ReadFile( file )
gefunden1=Find(String,Wert1)
If(gefunden1)
gefunden2=Find(String,Wert2,gefunden1)
gefunden3=Find(String,Wert3,gefunden2)
NeuString=Substr(String,1,gefunden2+6)&Text1 &Substr(String,gefunden3)
WriteFile(file,NeuString,FALSE,"standard")
EndIf
EndSub
#########################################
Sub Warten
# Bildschirmanzeige während der Inst
StatusListEntryFormat ( 50 , 26 , Arial )
StatusInfo( "Bitte warten. Nicht ausschalten!" )
StatusMessage( "Änderungen werden vorgenommen!", ST_LIST, false )
StatusShow()
EndSub
#########################################
Alles anzeigen
:Respekt: Manni! Vlt. ist ja am WE wieder so ein bescheidenes Wetter, wo man ohne schlechtes Gewissen am PNA rumskinnen kann! :top_001:
Nee nee das ist vorwiegend von Stefan und Mikee , ich habe nur auf 8 Bit gedrückt .
Und gefühlte 1000 Falten ausgebügelt .:icon_mrgreen:
Gruß Manni
So langsam kommen wir dahin das die 64er mit GP6 einigermaßen zurecht kommen .
Kartenhöhe 207 .
Obere und untere Panel nicht mehr transparent , die 64er müssen mit transparent vorsichtig sein .
Mir ist eine flotte Routenführung wichtiger als ein paar schicke Button oder Pushed Effekte .
POI-Warner mit poiwz_10 und 11 , und die TS Buttons , also nicht die schwarzen 8 Bit Sparbuttons .
Gruß Manni