XProfan

Italia

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Mausmanipulationen und andere Spielchen
Mausmanipulationen und andere Spielchen mit Profan² 6.0 32-Bit
Andreas Miethe * Bielefeld * April 1998
******************************************************************
Def APIClipCursor(1) ! USER32,ClipCursor,#,                     fängt den Cursor ein
Def APISetRect(5) ! USER32,SetRect,#%%%%,                       füllt eine Rect-Struktur mit Daten
Def APISetCursorPos(2) ! USER32,SetCursorPos,%%,                setzt den Cursor an eine bestimmte Koordinate
Ausgabegebiet einschränken
##########################
Def APIExcludeClipRect(5) ! GDI32,ExcludeClipRect,%%%%%,%       der gesamte Bereich des HDC wird benutzt,außer dem
definierten Bereich
Def APIIntersectClipRect(5) ! GDI32,IntersectClipRect,%%%%%,&   und umgekehrt
Def APISelectClipRgn(2) ! GDI32,SelectClipRgn                       wird fürs selektieren des Ausgabegebietes benötigt
Declare rect#,Rechteck&
Dim rect#,16
SetTruecolor 1
cls
APISetCursorPos(80,80)                                                  Cursor positionieren
sobald er bewegt wird ist er auch schon gefangen
APISetRect(rect#,60,60,120,120)                                         Rechteck bestimmen
oben links,unten rechts
Print  Die Maus ist eingefangen ! Freigabe mit Mausklick oder Taste
APIClipCursor(rect#)                                                    Cursor einfangen
Waitinput
Cursor wieder freigeben
APISetRect(rect#,0,0,%maxx,%maxy)                                       Rechteck auf volle Bildschirmgröße bringen
APIClipCursor(rect#)                                                    Cursor auf Bildschirmgröße fangen ( Freigabe )
cls rgb (192,192,0)
APISelectClipRgn(APIIntersectClipRect(%hdc,0,40,640,60),%hdc)           Bereich der gefüllt werden soll
cls rgb(192,0,0)                                                        das ergibt schöne Effekte
APIExcludeClipRect(%hdc,0,40,640,60)                                    Bereich der ausgespart werden soll definieren
Beides zusammen scheint nicht zu funktionieren
cls rgb(192,0,0)
waitinput
End