XProfan

Jac
de
Lad

avant pas einmal 24 Stunden wurde quoi en supplément dans qui Babyklappe posté...

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 Marque Séparation

le bébé-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

je peux chercher et lesen. si je c++,VB ou bien Xpse hätte umsetzen pourrait, hätte je pas ici posté.

Gruß Thomas
Windows XP SP2, XProfan X2

Dietmar
Horn

allô Thomas,

Lasse doch sur solchen iF-Kauderwelsch-XPSE-Code simple la fois XPSE drüberlaufen.

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

après schaust Du Dir qui TEST.ENH im selben Dossier à et formatierst vous encore ggf. entsprechend Deiner Vorstellungen. Somit la hâte Du 1-2-fix reinen XProfan-Code.

car weil XPSE son Kauderwelsch zum Interpretieren et Compilieren sowieso seulement dans XProfan-Syntax à den XProfan-Compiler transfert peux, pourrait cela ne...aucune Problem son, solche Codes abzufangen.

Aus oui c'est ca diesem Grunde J'ai eu pour meinen XProfan-Manager un Mini-Tool geschrieben et integriert, welches quelque chose comme 1-2-fix automatisch erledigt.

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

ici reicht lesen, qui Konstante ist bien sûr avec $20A beschrieben et c'est ersichtlich cela cet comme userMessage deklariert wird. qui userMessage kannste abfragen, et sur den hiWord vom uWParam ermitteln si hoch ou bien runter gedrückt wurde.

Kompilieren Marque Séparation

 {$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 Marque Séparation

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

faux:

et ici qui Kauderwelschvariante

Richtiger wäre:

... et ici qui Non-Kauderwelschvariante ...

iF scheint peut-être. léger genervt trop son ...

Salut
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

c'est unfair, qui Du Dein Posting nachträglich editiert la hâte, si bien que mon citation eh bien zusammenhanglos im espace 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 peut-être. léger genervt trop son ...

aucun Wegs.

Thomas
Freier

merci pour qui Aider. je vermute aussi, dass qui letzten Serverprobleme iF aufgerieben avons könnten ou bien il hat es doch avec berlinerischer Gelassenheit weggesteckt.
@iF: sommes qui +/-120 obligatoire? Habe aussi de +/-60 gelesen. dans einem VB-Code erfolgt qui Abfrage seulement, si wParam + ou bien - ist?
Kompilieren Marque Séparation

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 Si

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

@iF: chez den HIWORD(&UWPARAM)=120 wird oui avant et rück abgefragt. Könnte es sich chez HIWORD(&UWPARAM)=60 um cela zweite Scrollrad = à gauche/à droite agir? j'ai z.Z. encore aucun derartige souris zum Testen.

Gruß Thomas
Windows XP SP2, XProfan X2

08.01.2008 ▲