| |
| |
|
 |
KompilierenMarqueSéparationSource 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
Fin
|
|
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia