Splashimage mit Taste wechseln Topic is solved

[rollwand]

Hallo zusammen,

ist es möglich mit einem Tastendruck ein Splashimage zu wechseln?

Habe es mal hiermit probiert ohne Erfolg.

Danke für eure Hilfe

--------------------------------------------------------------------
Pic1 := "test.bmp"
Pic2 := "test1.bmp"

F1::
Count++
SplashImage, % (Mod(Count,2) ? %Pic1% : %Pic2%), b FS18
SetTimer, DestroySplash, 1000
Return
DestroySplash:
SplashImage, Off
Return

[rollwand]

Mit Textausgabe funktioniert das (Script by Krogdor)

Ich würde das aber gerne mit Grafiken machen.

F1::
Count++
SplashImage, , , , % "SCRIPT " (Mod(Count,2) ? "ON!" : "OFF!")
SetTimer, DestroySplash, 4000
Return
DestroySplash:
SplashImage, Off
Return

[KHA]

Hallo, den Script von Krogdor verstehe ich es nicht. (bin selber noch Anfänger) Habe mir vor einiger Zeit, ein Script zusammengestellt, der mit Pfeiltasten Links und Rechts zwischen SplashImage wechselt. Vlt. hilft es dir weiter.

Code: Select all

pfad = pic\ ;Pfad ein geben

Dateiliste =
Loop, Files, %pfad%\*.bmp
Dateiliste = %Dateiliste%%A_LoopFileName%`n

Dateiliste := RTrim(Dateiliste, "`n")

Dname := StrSplit(Dateiliste, "`n")
MaxN := Dname.MaxIndex()
i = 0

Right:: ;Tastenkombination Vorwärts

i++
if (i> MaxN)
i = 1

SplashImage, Off
SplashImage, % pfad . Dname[i], ZH-1 ZW300 X800 Y200 B
return


Left:: ;Tastenkombination Rückwärts
if (i = 0)
i = % MaxN

SplashImage, Off
SplashImage, % pfad . Dname[i], ZH-1 ZW300 X800 Y200 B
i--
return

[garry]

danke, hier ein Versuch

Code: Select all

#warn
setworkingdir,%a_scriptdir%
wa:=A_screenwidth
ha:=A_screenHeight
xx:=101
hx:=(ha*95)/xx
count:=""

Pic1 = %a_scriptdir%\test1.jpg
Pic2 = %a_scriptdir%\test2.jpg

$F1::
Count++
a:=Mod(Count,2)
if a=0
Splashimage,%pic1%,x10 y10 zw-1 zh%hx% B
else
Splashimage,%pic2%,x10 y10 zw-1 zh%hx% B
SetTimer, DestroySplash, 3000
Return
DestroySplash:
SplashImage, Off
Return
esc::exitapp

[rollewand]

Danke schön. Sowas hab ich gesucht Danke
THX. Thats what i kooking for THX