XProfan

Español

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Haptfenster: verschiebbares Ventana con CheckBox
def Captura de lanzamiento(0) !USER32,Captura de lanzamiento
def RoundRectRgn(6) !GDI32,CreateRoundRectRgn
def SetWindowRgn(3) !USER32,SetWindowRgn
Declarar ende%,Fenstert$,Ende&,CB&,Txt$,hFont%,Texto$
Windowstyle 112
window 200,200 - 583,397
loadbmp _ground.bmp ,0,0;0** Pfad adaptar
SetWindowRgn(%hwnd, RoundRectRgn(0,0,width(%hwnd),height(%hwnd),18,18), 1)

Proc Controls

    Fenstert$ = Hier kommt el Fenstertietel hin
    Color del texto RGB($FF, $00, $00),-1** Blauer Texto
    USEFONT Arial,22,0,1,1,0** Schriftart
    Drawtext 140,15,Fenstert$
    hFont% = @Crear(Font,MS Sans Serif,13,0,0,0,0)** Schriftart
    Ende&=CREATE(BUTTON,%HWND,Ende,450,350,90,22)
    SetFont Ende&,hFont%** Schriftart para Button
    Texto$ = Yo bin el Checkbox Texto
    CB&= CREATE(Checkbox,%HWND,,30,100,12,12)
    Color del texto RGB($00,$00,$FF),-1** Blauer Texto
    USEFONT MS Sans Serif,13,0,0,0,0** Schriftart
    Drawtext 50,100,Texto$

ENDPROC

Controls
** Hauptschleife
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ElseIf Equ(%mensaje,$201) WM_LButtonDown

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
         $112: WM_SYSCOMMAND
         $F012: Undokumentierter Valor: es mejor como $0F010 (SC_MOVE)
        Captura de lanzamiento() funktioniert auch sin, es aber mejor así
        UseCursor 0

    ElseIf Equ(%mensaje,$204) WM_RButtonDown

        Let ende%=1

    ELSEIF GETFOCUS(Ende&)BUTTON

        ENDE%=1

    EndIf

Wend

End