XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button: Button mit Animationen (Ja-Nein-Buttons)

PROC knopf

    SelbstKnopf  Parameter Drückstatus (1:gedrückt,0:nichtgedrückt) x,y,breite,hoehe
    parameters col%,x%,y%,b%,h%
    b%=add(x%,b%)
    h%=add(y%,h%)
    case equ(col%,1):  usepen 0,0,@rgb(0,0,0)
    case equ(col%,0):  usepen 0,0,@rgb(255,255,255)
    line x%,y% - b%,y%
    line x%,y% - x%,h%
    case equ(col%,1):usepen 0,0,@rgb(255,255,255)
    case equ(col%,0):usepen 0,0,@rgb(0,0,0)
    line b%,y% - b%,h%
    line x%,h% - b%,h%

ENDPROC

PROC schleife

    case _ende%:end
    DECLARE dauer&
    statt timer hier eine &gettickcount-Abfrage
    dauer&=&gettickcount

    WHILENOT gt(&gettickcount,add(dauer&,50))

        case _ende%:end

    ENDWHILE

ENDPROC

PROC nick

    startpaint ja&
    mcopybmp 0,0-32,32 > 4,4;0
    schleife
    mcopybmp 32,0-32,32 > 4,4;0
    schleife
    mcopybmp 0,0-32,32 > 4,4;0
    endpaint

ENDPROC

PROC schuettel

    startpaint nein&
    mcopybmp 0,0-32,32 >4,4;0
    schleife
    mcopybmp 64,0-32,32 >4,4;0
    schleife
    mcopybmp 0,0-32,32 >4,4;0
    schleife
    mcopybmp 96,0-32,32 >4,4;0
    schleife
    mcopybmp 0,0-32,32 >4,4;0
    endpaint

ENDPROC

Selbstknöpfe wegen der abfrage ----- Nicht mehr
Die Selbstknöpfe waren ein Versuch Knöpfe selbst zu machen
weil sich die Messagebehandlung manchmal etwas ...öööh.. eckig  anstellt
settruecolor 1
DECLARE ja&,nein&,_ende%
cls rgb(192,192,192)
mloadbmp janein.bmp
nein&=createbutton(%hwnd,,150,50,40,40)
ja&=createbutton(%hwnd,,200,50,40,40)

WHILENOT _ende%  endlosschleife

    case getfocus(nein&) : _ende%=1
    case getfocus(ja&) :drawtext 0,0,Den anderen Knopf drücken
    schuettel
    nick

ENDWHILE

END