XProfan

Jac
de
Lad

to not even 24 hours watts what moreover in the Babyklappe posted...

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

baby-tab

Compile Mark Separation

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 {

font>

Thomas
Freier

I can Search and reading. If I c++,VB or Xpse had umsetzen could, had I do not here posted.

Gruß Thomas
Windows XP SP2, XProfan X2

Dietmar
Horn

Hello Thomas,

let still over such iF-Kauderwelsch-XPSE-code simply time XPSE drüberlaufen.

to that example: XPSE TEST.PRF from the Kommandozeile (z.B. of utterly-Commander from launched).

thereafter schaust You you The TEST.ENH in the same Ordner on and format tappt im dunkeln yet ggf. properly your imaginations. accordingly have You 1-2-fix reinen XProfan-code.

because because XPSE his Kauderwelsch to that interpret and Compilieren anyway just in XProfan-Syntax on whom XProfan-Compiler transfer can, might the no trouble his, such Codes abzufangen.

from very this Grunde I had for my XProfan-manager one Mini-Tool written and integrate, which something like 1-2-fix automatically Done.

Greeting
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: [...]

here reicht reading, The Constant is clear with $20A described and its obviously thats as userMessage declared becomes. The userMessage kannste inquire, and over the hiWord of uWParam detect whether high or down pressed watts.

Compile Mark Separation

 {$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

Compile Mark Separation

USERMESSAGES $20A
CLS

WHILE 1

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF $20A

        LOCATE 1,1

        IF HIWORD(&UWPARAM)=120

            PRINT &GETTICKCOUNT,high

        ELSE

            PRINT &GETTICKCOUNT,down

        ENDIF

    ENDSELECT

ENDWHILE

Dietmar
Horn

wrong:

and here The Kauderwelschvariante

Richtiger would:

... and here The Non-Kauderwelschvariante ...

iF shining evtl. slight genervt To his ...

Greeting
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

this is unfair, that You your Posting as an afterthought edited have, so that my Quote now zusammenhanglos in the space standing ...

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 shining evtl. slight genervt To his ...

Keines Wegs.

Thomas
Freier

thanks for Help. I suspect too, that The last Serverprobleme iF aufgerieben having could or he's it still with berlinerischer Gelassenheit weggesteckt.
@iF: are The +/-120 verbindlich? have too of +/-60 red. In one VB-code results The request only, whether wParam + or - is?
Compile Mark Separation

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: with whom HIWORD(&UWPARAM)=120 becomes Yes to and back quizzed. might it itself with HIWORD(&UWPARAM)=60 around the second Scrollrad = left/right deal? I have z.Z. yet no derartige mouse to that testing.

Gruß Thomas
Windows XP SP2, XProfan X2

01/08/08 ▲