XProfan

Jac
de
Lad

Vor no una vez 24 Stunden wurde qué dazu en el Babyklappe Nuevo...

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 Marca Separación

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 {

font>

Thomas
Freier

Puedo suchen y lesen. Wenn Yo c++,VB oder Xpse hätte umsetzen podría, hätte Yo no hier Nuevo.

Gruß Thomas
Windows XP SP2, XProfan X2

Dietmar
Horn

Hola Tomás,

Lasse doch encima solchen IF-Kauderwelsch-XPSE-Code simplemente veces XPSE drüberlaufen.

Zum Ejemplo: XPSE TEST.PRF de el Kommandozeile (z.B. vom Total-Commander de comenzó).

Danach schaust Usted Usted el TEST.ENH en el selben Ordner a y formatierst ellos todavía ggf. entsprechend Deiner Vorstellungen. Somit hast Usted 1-2-fix reinen XProfan-Code.

Denn porque XPSE ser Kauderwelsch para Interpretieren y Compilieren sowieso sólo en XProfan-Syntax a el XProfan-Compiler transferencia kann, dürfte el kein Problema ser, solche Codes abzufangen.

Aus genau diesem Grunde Tuve para media XProfan-Manager una Mini-Tool geschrieben y integriert, welches algo como 1-2-fix automáticamente hecho.

Saludo
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, el Konstante es klar con $20A beschrieben y es ersichtlich el esta como userMessage deklariert se. El userMessage kannste abfragen, y encima el hiWord vom uWParam ermitteln si hoch oder runter gedrückt wurde.

Kompilieren Marca Separación

 {$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 Marca Separación

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:

y aquí el Kauderwelschvariante

Richtiger wäre:

... y aquí el Non-Kauderwelschvariante ...

IF scheint evtl. ligeramente genervt a ser ...

Saludo
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

Es unfair, daß Usted Su Posting nachträglich editiert hast, así daß mein Zitat nun zusammenhanglos en el Raum es ...

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. ligeramente genervt a ser ...

Keines Wegs.

Thomas
Freier

Gracias para el Ayuda. Yo vermute auch, dass el letzten Serverprobleme IF aufgerieben haben könnten oder él ha lo doch con berlinerischer Gelassenheit weggesteckt.
@IF: son el +/-120 verbindlich? Posesiones auch de +/-60 gelesen. In una VB-Code es el Abfrage sólo, si wParam + oder - es?
Kompilieren Marca Separación

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: en el HIWORD(&UWPARAM)=120 se sí antes y rück abgefragt. Könnte lo en HIWORD(&UWPARAM)=60 en el zweite Scrollrad = links/rechts handeln? Yo habe z.Z. todavía no derartige Ratón para Testen.

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2008 ▲