XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster: verschiebbares Fenster mit runden Ecken
def ReleaseCapture(0) !USER32,ReleaseCapture
def RoundRectRgn(6) !GDI32,CreateRoundRectRgn
def SetWindowRgn(3) !USER32,SetWindowRgn
Declare ende%
Windowstyle 112
window 200,200 - 583,397
loadbmp _ground.bmp ,0,0;0
SetWindowRgn(%hwnd, RoundRectRgn(0,0,width(%hwnd),height(%hwnd),18,18), 1)

Whilenot ende%

    Waitinput

    If Equ(%message,$201) WM_LButtonDown

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
         $112: WM_SYSCOMMAND
         $F012: Undokumentierter Wert: ist besser als $0F010 (SC_MOVE)
        ReleaseCapture() funktioniert auch ohne, ist aber besser so
        UseCursor 0

    ElseIf Equ(%message,$204) WM_RButtonDown

        Let ende%=1

    EndIf

Wend

End