XProfan

English

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Haptfenster: verschiebbares Window with CheckBox
def Capture Release(0) !USER32,Capture Release
def RoundRectRgn(6) !GDI32,CreateRoundRectRgn
def SetWindowRgn(3) !USER32,SetWindowRgn
Declare end%,Fenstert$,Ende&,CB&,Txt$,hFont%,Text$
Windowstyle 112
window 200,200 - 583,397
loadbmp _ground.bmp ,0,0;0** way adjust
SetWindowRgn(%hwnd, RoundRectRgn(0,0,width(%hwnd),height(%hwnd),18,18), 1)

Proc Controls

    Fenstert$ = here comes the Fenstertietel there
    Text Color RGB($FF, $00, $00),-1** Blauer Text
    USEFONT Arial,22,0,1,1,0** type
    DrawText 140,15,Fenstert$
    hFont% = @Create(Font,MS Sans Serif,13,0,0,0,0)** type
    Ende&=CREATE(BUTTON,%HWND,end,450,350,90,22)
    SetFont Ende&,hFont%** type for Button
    Text$ = I be the Checkbox Text
    CB&= CREATE(Checkbox,%HWND,,30,100,12,12)
    Text Color RGB($00,$00,$FF),-1** Blauer Text
    USEFONT MS Sans Serif,13,0,0,0,0** type
    DrawText 50,100,Text$

Endproc

Controls
** Hauptschleife
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ElseIf Equ(%message,$201) WM_LButtonDown

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
         $112: WM_SYSCOMMAND
         $F012: Undokumentierter worth: is rather as $0F010 (SC_MOVE)
        Capture Release() functions too without, is but rather so
        UseCursor 0

    ElseIf Equ(%message,$204) WM_RButtonDown

        Let end%=1

    ELSEIF GETFOCUS(Ende&)BUTTON

        ENDE%=1

    EndIf

Wend

End