XProfan

Jac
de
Lad

Vor nicht einmal 24 Stunden wurde was dazu in der Babyklappe gepostet...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Kompilieren Markieren Separieren

Baby-Klappe

Source wurde am 07.01.2008 in die Babyklappe auf XProfan.Com abgelegt:
//Mausradunterstützung per usermessages
const WM_MOUSEWHEEL=$20A
userMessages WM_MOUSEWHEEL

caseof WM_MOUSEWHEEL

if hiword(uwparam)==120 {

} else {

}

Thomas
Freier

Ich kann suchen und lesen. Wenn ich c++,VB oder Xpse hätte umsetzen könnte, hätte ich nicht hier gepostet.

Gruß Thomas
Windows XP SP2, XProfan X2

Dietmar
Horn

Hallo Thomas,

Lasse doch über solchen iF-Kauderwelsch-XPSE-Code einfach mal XPSE drüberlaufen.

Zum Beispiel: XPSE TEST.PRF von der Kommandozeile (z.B. vom Total-Commander aus gestartet).

Danach schaust Du Dir die TEST.ENH im selben Ordner an und formatierst sie noch ggf. entsprechend Deiner Vorstellungen. Somit hast Du 1-2-fix reinen XProfan-Code.

Denn weil XPSE sein Kauderwelsch zum Interpretieren und Compilieren sowieso nur in XProfan-Syntax an den XProfan-Compiler übergeben kann, dürfte das kein Problem sein, solche Codes abzufangen.

Aus genau diesem Grunde hatte ich für meinen XProfan-Manager ein Mini-Tool geschrieben und integriert, welches sowas 1-2-fix automatisch erledigt.

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Hier reicht lesen, die Konstante ist klar mit $20A beschrieben und es ist ersichtlich das diese als userMessage deklariert wird. Die userMessage kannste abfragen, und über den hiWord vom uWParam ermitteln ob hoch oder runter gedrückt wurde.

Kompilieren Markieren Separieren

 {$cleq}
const wm_mousewheel=$20A
userMessages wm_mousewheel
cls

do {

    waitInput

    select uMessage

        caseof wm_mousewheel

        locate 1,1

        if hiword(uwparam)==120 {

            print getTickcount,hoch

        } else {

            print getTickcount,runter

        }

    endSelect

}

end

Kompilieren Markieren Separieren

USERMESSAGES $20A
CLS

WHILE 1

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF $20A

        LOCATE 1,1

        IF HIWORD(&UWPARAM)=120

            PRINT &GETTICKCOUNT,hoch

        ELSE

            PRINT &GETTICKCOUNT,runter

        ENDIF

    ENDSELECT

ENDWHILE

Dietmar
Horn

Falsch:

und hier die Kauderwelschvariante

Richtiger wäre:

... und hier die Non-Kauderwelschvariante ...

iF scheint evtl. leicht genervt zu sein ...

Gruß
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Dietmar
Horn

Das ist unfair, daß Du Dein Posting nachträglich editiert hast, so daß mein Zitat nun zusammenhanglos im Raum steht ...

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

>> iF scheint evtl. leicht genervt zu sein ...

Keines Wegs.

Thomas
Freier

Danke für die Hilfe. Ich vermute auch, dass die letzten Serverprobleme iF aufgerieben haben könnten oder er hat es doch mit berlinerischer Gelassenheit weggesteckt.
@iF: sind die +/-120 verbindlich? Habe auch von +/-60 gelesen. In einem VB-Code erfolgt die Abfrage nur, ob wParam + oder - ist?
Kompilieren Markieren Separieren

Alle Messages durchlassen bis auf WM_MOUSEWHEEL!

If uMsg = WM_MOUSEWHEEL Then

    Mausrad wurde gedreht!
    nValue = HiWord(wParam)
    nEvent = LoWord(wParam)
    x = LoWord(lParam)
    y = HiWord(lParam)

    If wParam < 0 Then

        SendKeys {down}

    Else

        SendKeys {up}
        End If
        Exit Function
        End If

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

@iF: bei den HIWORD(&UWPARAM)=120 wird ja vor und rück abgefragt. Könnte es sich bei HIWORD(&UWPARAM)=60 um das zweite Scrollrad = links/rechts handeln? Ich habe z.Z. noch keine derartige Maus zum Testen.

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2008 ▲