XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Scrollbalken mit farbiger Anzeige (Bitmaps)
 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 3.5c
DATUM  23.08.2003    um  19:28 Uhr
VERWENDETE PROFANVERSION IST KLEINER ALS 7.0
Def GetSysColor(1) !USER32,GetSysColor
SETTRUECOLOR 1
DECLARE ENDE%,gy%,La%,by%
DECLARE BUTTON1&
DECLARE BUTTON2&
let la%=1
let gy%=@sub(114,la%)
Let by%=@sub(113,la%)
WindowStyle $218
WINDOWTITLE Farbige Anzeige
WINDOW SUB(DIV(%MAXX,2),DIV(112,2)),SUB(DIV(%MAXY,2),DIV(198,2))-112,198
CLS GETSYSCOLOR(15)
LET BUTTON1& =@CREATEBUTTON(%HWND,+,0040,0022,0025,0025)
LET BUTTON2& =@CREATEBUTTON(%HWND,-,0040,0122,0025,0025)
LOADSIZEDBMP BLACK2.BMP,48,54-8,60;0
LOADSIZEDBMP GELB2.BMP,48,gy%-8,la%;0

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF @GETFOCUS(BUTTON1&) BUTTON

        If gt(gy%,54)

            let gy%=@sub(gy%,la%)
            let by%=@sub(gy%,la%)

        endif

        case lt(gy%,54):let gy%=54
        LOADSIZEDBMP GELB2.BMP,48,gy%-8,LA%;0

    ELSEIF @GETFOCUS(BUTTON2&) BUTTON

        If lt(by%,112)

            let by%=add(by%,la%)
            let gy%=@add(by%,la%)

        endif

        case gt(by%,@sub(114,la%)):let by%=@sub(114,la%)
        case gt (gy%,@sub(114,la%)):let gy%=@sub(114,la%)

    endif

    LOADSIZEDBMP BLACK.BMP,48,by%-8,la%;0

ENDIF

WEND