XProfan

Italia

Web
Scanner

Meine Zeichnung lässt sich jetzt wunderbar verschieben.
Da ich faul bin, möchte ich nicht jedesmal die Richtungstaste neu drücken, um 10 Pixel weiterzuspingen.
Also habe ich mir überlegt, ich frage die Richtungstaste im Hauptprogramm mit elsif clicked ab, und springe dann in
eine Prozedur und solange die Taste eben gedrückt ist, fährt das Bild spazieren.
Geht leider nicht...

Sieht jemand den Fehler?
Wenn ich die Taste loslasse, soll die Prozedur beendet werden.
Ich habe bestimmt wieder was nicht richtig verstanden bei dem ISKEY Befehl?

Grüße

Web
Kompilieren Markieren Separieren

proc Raufschieben_Vektoren

    SetTimer 50
    test% = 1

    while 1 = test%

        if @IsKey(1)

            schieby% = schieby% + 10

            IF schieby% > 1200

                schieby% = 1200

            ENDIF

            MCopyBmp schiebx%,schieby%-800,600>0,0;0
            test% = 1

        else

            test% = 0

        endif

    Endwhile

    KillTimer

endproc

Xprofan X3.1

Win7 auf AMDX6

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

if @IsKey(1), Taste mit Keycode 1? Schau Dir die Tastaturcodes in der Aiuto zu isKey an.

iskey(65) per A, 66 per B...

Übrigens reicht vlt. while isKey(38) 38=vk_up ohne test%

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Web
Scanner

Hmm hab ich falsch ausgedrückt, sorry.
Taste ist keine Tastaturtaste, ich meine einen Button den ich mit der Maus betätige...

Scancode: 1$01Linke MaustasteVK_LBUTTON

Xprofan X3.1

Win7 auf AMDX6

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Brauchst clicked bzw. getFocus und gug %mousePressed.

21.07.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Web
Scanner

Grrrrrr....Es ist nicht hinzubkommen. Ich habe habe möglichen Tasten und Mausabfragen ausprobiert.
Wenn irgendwann eine Maustaste auf einen Button gedrückt wird, wird die Schleife automatisch ohne Beendigungsmöglichkeit abgearbeitet.

Ich muß aber mitbekommen, wenn die Maustaste losgelassen wird, damit die Verschiebung aufhört. Dazu müsste man die gedrückte Taste irgendwie zurücksetzen, oder sowas.

Auch mit zustätzlichen Waitinputs gehts nicht.
Wenn einmal ein Button gedrückt ist, ist der gedrückt, bis eine anderer Button gedrückt wird.

Gibts denn da gar keine Lösung?