XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Maustasten abfragen (2)
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Diese Beispiel demonstriert, wie bei einem Mausklick die Position
des Cursors und die gedrückte Maustaste abgefragt wird.
Es bedeuten:
------------
%Mousepressed					 systemvariable für gerade grdrückte Maustaste
%MouseX								 Systemvariable für aktuelle Position der Maus (X-Achse)
%MouseY								 Systemvariable für aktuelle Position der Maus (Y-Achse)
Window x1,y1 - x2,y2		 ein Fenster wird erstellt
%MaxX									 horizontale Auflösung des Bildschirmes
%MaxY									 vertikale Auflösung des Bildschirmes
-----------------------------------------------
declare ende%,Text$,Mausy%,Mausx%			Variablen declarieren
Window 0,0 - %MaxX,%MaxY		Fenster wird geöffnet (so groß wie der Bildschirm)
let ende%=0

whilenot ende%

    waitinput

    if equ(%key,2)		Abfrage von x (rechts o.)

        und doppelklick auf das Programmsymbol (links o.)
        let ende%=1
        Beenden-Schleife, Programm beendet mit Klick auf x
        oder mit Doppelklick auf Programmsymbol links-oben

    elseif equ(%Mousepressed,1)			Abfrage  der linken Mt

        let MausX%=%MouseX			X-koordinate des Mauscursors
        let Mausy%=%MouseY			Y-koordinate des Mauscursors
        let Text$=add$(add$(add$(Linke Maustaste wurde gedrückt.
        Mauskoordinaten: ,Str$(MausX%)),,),str$(MausY%))
        messagebox(Text$,I N F O,4160)
        eine Aktion auslösen (hier: Messagebox mit Info, Mauskoordinaten

    elseif equ(%Mousepressed,2)			Abfrage  der rechten Mt

        let MausX%=%MouseX			X-koordinate des Mauscursors
        let Mausy%=%MouseY			Y-koordinate des Mauscursors
        let Text$=add$(add$(add$(Rechte Maustaste wurde gedrückt.
        Mauskoordinaten: ,Str$(MausX%)),,),str$(MausY%))
        messagebox(Text$,I N F O,4160)
        eine Aktion auslösen (hier: Messagebox mit Info, Mauskoordinaten

    endif

Wend

end