XProfan

Def GetSysColor(1) !"USER32","GetSysColor":Set("TrueColor",1)
DECLARE ENDE%,PROGBAR&,plus&,minus&,fertig&,show&,volume&,target&,\
progstep!,TarStep!,handicap!,Test$,BarBreite&
WINDOWSTYLE 528'with anderem Windowstyle Double click intercepting
WINDOWTITLE "Stärke":WINDOW (%MAXX\2-135\2),(%MAXY\2-251\2) - 135,251
CLS GETSYSCOLOR(15):USEFONT "MS Sans Serif",13,0,0,0,0:SETDIALOGFONT 1:Set("Decimals",2)
BarBreite&=18'25 '10
ProgBar& = control(\
"msctls_progress32","",$50800005,55-Barbreite&/3, 48,Barbreite&,60,%Hwnd,1,%HInstance)
' ^^^^ =vertikal, $50000001 = horizontal
minus& = Create("Button",%HWND,"-",48,124,20,20)
plus& = Create("Button",%HWND,"+",48,13,20,20)
show& = Create("Edit",%Hwnd,"",40,160,40,20)
enablewindow show&,0
fertig& = Create("Button",%HWND,"&Ende",1,194,40,25)
target& = 255'=100% Ziellautstärke
Progstep! = 5'=5% on or ex each Click
TarStep! = target& / 100 * Progstep!'wallpaper.pcu of and volume equal
'default, z.B. if one previous Volume from ini reads:
volume& = 125'worth must naturally to the Prozentwert fit

IFnot (volume& > target&) or (volume& < 0)'if Ini by hand changed watts

    handicap! = 100 / target& * volume&'default in display converting

else

    handicap! = 100:volume& = target&

endif

sendmessage(ProgBar&,$402,handicap!,0)'on default settle
settext show&,st$(volume&)

WHILENOT ENDE%

    WAITINPUT

    If %KEY = 2:ENDE% = 1

    ELSEIF GETFOCUS(plus&)

        sendmessage(ProgBar&,$403,progstep!,0)
        volume& = volume& + TarStep!
        case (volume& = target&) or (volume& > target&) : volume& = target&
        settext show&,st$(volume&)

    ELSEIF GETFOCUS(minus&)

        Test$ = st$(Tarstep!)
        Test$ = right$(Instr(".",Test$),2)
        sendmessage(ProgBar&, $403, -ProgStep!, 0)
        volume& = volume& - TarStep!
        Case (val(test $) > 0) : volume& = Volume& + 1'Korrektur with Values behind the comma
        case (volume& <= 0) : volume& = 0
        settext show&,st$(volume&)

    ELSEIF GETFOCUS(fertig&):end% = 1

    ENDIF

EndWhile