XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Mauscursor: Beweglichkeit einschränken
Def @Clipcursor(1) !USER32,ClipCursor
Def @Getclientrect(2) !USER32,GetClientRect
Windowstyle 31+512
Windowtitle Cursor einfangen
Window 0,0-640,440
Declare Cliprect#,Clientrect#
Dim Cliprect#,16
Dim Clientrect#,16
Long Cliprect#,0=100
Long Cliprect#,4=0
Long Cliprect#,8=640
Long Cliprect#,12=300
@Getclientrect(%Hwnd,Clientrect#)
Rectangle 100,0-640,(300-(440-@Long(Clientrect#,12)))
Usebrush 5,@Rgb(32,0,0)
Fill 10,10,0
@Clipcursor(Cliprect#)

Whilenot %Menuitem=-2

    Waitinput

Wend

@Clipcursor(0)
Dispose Cliprect#
Dispose Clientrect#