; Script Pfeiltauscher WinCE
Gosub, ReadPreprocs ;Sprünge zu diversen Unterprogrammen
Gosub, ReadVars
Gosub, FormStart
ReadPreprocs:
#Persistent ;bewirkt das permanente Laufen eines Scriptes
#NoEnv ;verhindert Prüfung von leeren Variablen
#SingleInstance force ;bewirkt die Einzelinstanz eines Scriptes
#NoTrayIcon ;Verhindert das Erscheinen des Tools im Tray(Trayicon)
Return ;Rücksprung aus der Routine
ReadVars: ;Voreinstellung von Variablen
AppName = Pfeiltauscher_WinCE
Version = 3
Language = DE
inipfad = %A_WorkingDir%\%AppName%.ini
bildnummer :=
Seite_aktuell := 1
Bild_Pfeil := 1
sourcefolder_bmp = \My Flash Disk\Programme\Tauscher_Bilder\Pfeil_Auto\Pfeil_bmp\
sourcefolder_bmp2 = \My Flash Disk\Programme\Tauscher_Bilder\Pfeil_Auto\Pfeil_bmp2\
sourcefolder_vcb = \My Flash Disk\Programme\Tauscher_Bilder\Pfeil_Auto\vcb-skn\
sourcefolder = \My Flash Disk\Programme\Tauscher_Bilder\Pfeil_Auto\
savefolder = \My Flash Disk\Navigation\VehicleIcon\
savefolder5= \My Flash Disk\Navigation\gui\
Return
FormStart:
bildnummer := 0
SendMode Input
SetBatchLines, -1
Gui +LastFound -MinimizeBox ;+AlwaysOnTop
Gui, font, s9, Arial
Gui, Destroy
pos_x := 1
Loop, 8
{
Gui, Cancel
Gui, Add, Picture, x%pos_x% y=24 w48 h247 gklick_Pfeil vbild%Bild_Pfeil%, %sourcefolder_bmp%%Bild_Pfeil%.bmp
Bild_Pfeil := Bild_Pfeil + 1
pos_x := pos_x + 61
}
Gui, font, s14, Arial
Gui, Add, Button, x32 y223 w30 h25 vSeite1 gSeite1 -wrap,<
Gui, Add, Button, x0 y223 w30 h25 vSeite4 gSeite4 -wrap,<<
Gui, Add, Button, x417 y223 w30 h25 vSeite2 gSeite2 -wrap,>
Gui, Add, Button, x448 y223 w30 h25 vSeite3 gSeite3 -wrap,>>
Gui, Submit, NoHide
FileGetSize, 8bit_gr, \My Flash Disk\Navigation\VehicleIcon\vehicle_medion_3D_day.png, K
if ( 8bit_gr < "2" )
{
GuiControl, Disable, Seite3,
GuiControl, Disable, Seite4,
}
if Seite_aktuell = 2
{
if ( 8bit_gr < "2" )
Gui, Show, x0 y0 w478 h247, Pfeiltauscher V.3 Seite 2 8-Bit Sparauto aktiv keine Scheinwerfer
else
Gui, Show, x0 y0 w478 h247, Pfeiltauscher V.3 Seite 2
return
}
if ( 8bit_gr < "2" )
Gui, Show, x0 y0 w478 h247, Pfeiltauscher V.3 Seite 1 8-Bit Sparauto aktiv keine Scheinwerfer
Else
Gui, Show, x0 y0 w478 h247, Pfeiltauscher V.3 Seite 1
return
Eizelauto:
bildnummer := 1
Gui, Destroy
SendMode Input
SetBatchLines, -1
Gui +LastFound -MinimizeBox ;+AlwaysOnTop
Gui, font, s9, Arial
Gui -MinimizeBox
pos_x := 1
Loop, 3
{
Gui, Add, Picture, x%pos_x% y0 w159 h112 gklick_Pfeil vbild%Bild_Pfeil%, %sourcefolder_bmp2%%Bild_Pfeil%.bmp
Bild_Pfeil := Bild_Pfeil + 1
pos_x := pos_x + 159
}
pos_x := 1
Bild_Pfeil := 4
If Seite_aktuell = 2
{
Bild_Pfeil := 10
Gui, Show, x0 y0 w478 h247, Pfeiltauscher V.1.2 Seite 4
}
Loop, 3
{
Gui, Add, Picture, x%pos_x% y112 w159 h112 gklick_Pfeil vbild%Bild_Pfeil%, %sourcefolder_bmp2%%Bild_Pfeil%.bmp
Bild_Pfeil := Bild_Pfeil + 1
pos_x := pos_x + 159
}
Gui, font, s14, Arial
Gui, Add, Button, x32 y223 w30 h25 vSeite1 gSeite1 -wrap,<
Gui, Add, Button, x0 y223 w30 h25 vSeite4 gSeite4 -wrap,<<
Gui, Add, Button, x417 y223 w30 h25 vSeite2 gSeite2 -wrap,>
Gui, Add, Button, x448 y223 w30 h25 vSeite3 gSeite3 -wrap,>>
Gui, Submit, NoHide
If Seite_aktuell = 1
{
Gui, Show, x0 y0 w478 h247, Pfeiltauscher V.1.2 Seite 3
}
return
Seite1:
gosub, Seitenwechsel
Return
Seite2:
gosub, Seitenwechsel
Return
Seite3:
gosub, Seitenwechsel2
Return
Seite4:
gosub, Seitenwechsel2
Return
Seitenwechsel2:
if Seite_aktuell = 1
{
Seite_aktuell := 2
Bild_Pfeil := 7
}
else
{
Seite_aktuell := 1
Bild_Pfeil := 1
}
pos_x := 1
gosub, Eizelauto
Return
Seitenwechsel:
if Seite_aktuell = 1
{
Seite_aktuell := 2
Bild_Pfeil := 9
}
else
{
Seite_aktuell := 1
Bild_Pfeil := 1
}
pos_x := 1
GoSub, FormStart
return
klick_Pfeil:
if(RegExMatch(A_GuiControl,"(\d*)$", out))
;// Control Nummer (index) aus A_GuiControl extrahieren
imgIndex := out1 + ((Seite_aktuell-1) * 20 ) ; und in imgIndex schreiben
if Seite_aktuell = 2
{
imgIndex := imgIndex - 20
}
msgbox, 262145 , , Pfeil %imgIndex%
IfMsgBox Cancel
{
Return
}
imgIndex2 := 1
IfNotExist, %savefolder%vehicle_medion_2D_day.png
{
FileCopy, %sourcefolder%%imgIndex%_%imgIndex2%*.png, %savefolder5%vehicle_arrow_car.png, 1 ; Kopieren und überschreiben.
imgIndex2 := imgIndex2 + 2
FileCopy, %sourcefolder%%imgIndex%_%imgIndex2%*.png, %savefolder5%vehicle_arrow_car_3D.png, 1
FileCopy, %sourcefolder_vcb%GP5.skn, %savefolder5%bitmap.skn, 1
If bildnummer = 1
{
imgIndex := imgIndex + 16
FileCopy, %sourcefolder%%imgIndex%_*.png, %savefolder5%vehicle_arrow_car_3D.png, 1
FileCopy, %sourcefolder_vcb%GP5_einzel.skn, %savefolder5%bitmap.skn, 1
}
Return
}
If bildnummer = 1
{
imgIndex := imgIndex + 16
FileCopy, %sourcefolder%%imgIndex%*.png, %savefolder%vehicle_medion_3D_day.png, 1
;FileCopy, %sourcefolder_vcb%32bit_einzel_day.vcb, %savefolder%vi_default_0_0.vcb, 1
FileCopy, %sourcefolder_vcb%32bit_einzel_day.vc, %savefolder%vi_default_0_0.vc, 1
FileDelete, %savefolder%vi_default_0_0.vcb
return
}
FileCopy, %sourcefolder%%imgIndex%_%imgIndex2%*.png, %savefolder%vehicle_medion_2D_day.png, 1
imgIndex2 := imgIndex2 + 1
FileCopy, %sourcefolder%%imgIndex%_%imgIndex2%*.png, %savefolder%vehicle_medion_2D_night.png, 1
imgIndex2 := imgIndex2 + 1
FileCopy, %sourcefolder%%imgIndex%_%imgIndex2%*.png, %savefolder%vehicle_medion_3D_day.png, 1
imgIndex2 := imgIndex2 + 1
FileCopy, %sourcefolder%%imgIndex%_%imgIndex2%*.png, %savefolder%vehicle_medion_3D_night.png, 1
FileGetSize, 8bit_gr, \My Flash Disk\Navigation\VehicleIcon\vehicle_medion_3D_day.png, K
if ( 8bit_gr < "2" )
{
FileCopy, %sourcefolder_vcb%8bit_einzel.vc, %savefolder%vi_default_0_0.vc, 1
FileDelete, %savefolder%vi_default_0_0.vcb
Return
}
FileCopy, %sourcefolder_vcb%32bit.vc, %savefolder%vi_default_0_0.vc, 1
FileDelete, %savefolder%vi_default_0_0.vcb
Return
GuiClose: ; Aktionen beim Schließen des Tools
ExitApp
Alles anzeigen