pixler/include/ui.bm

function button (x as integer,y as integer,w as integer,h as integer,caption as string)
    if _mousex>x and _mousey>y and _mousex<x+w and _mousey<y+h then
        drawbutton x,y,w,h,caption,1
        if mouseclicked then button=-1
    else
        drawbutton x,y,w,h,caption,0
    end if
end function

function buttonhold (x as integer,y as integer,w as integer,h as integer,caption as string)
       if _mousex>x and _mousey>y and _mousex<x+w and _mousey<y+h then
        drawbutton x,y,w,h,caption,1
        if _mousebutton(1)then buttonhold=-1
    else
        drawbutton x,y,w,h,caption,0
    end if
end function

function imagebutton (x as integer,y as integer,w as integer,h as integer,iconhandle as long)
    if _mousex>x and _mousey>y and _mousex<x+w and _mousey<y+h then
        drawimagebutton x,y,w,h,iconhandle,1
        if mouseclicked then imagebutton=-1
    else
        drawimagebutton x,y,w,h,iconhandle,0
    end if
end function

function imagebuttonhold (x as integer,y as integer,w as integer,h as integer,iconhandle as long)
    if _mousex>x and _mousey>y and _mousex<x+w and _mousey<y+h then
        drawimagebutton x,y,w,h,iconhandle,1
        if _mousebutton(1) then imagebuttonhold=-1
    else
        drawimagebutton x,y,w,h,iconhandle,0
    end if
end function


function checkbox (x as integer,y as integer, state as integer)
    if _mousex>x and _mousey>y and _mousex<x+16 and _mousey<y+16 then
        drawcheckbox x,y,2 + state
        if mouseclicked then checkbox=(state+1) mod 2:exit function
    else
        drawcheckbox x,y,0 + state
    end if
    checkbox=state
end function

function link(x,y,label as string)
    dim w as integer
    w=len(label)*8
    if _mousex>x and _mousey>y and _mousex<x+w and _mousey<y+16 then
        drawlink x,y,label,1
        if mouseclicked then link=-1
    else
        drawlink x,y,label,0
    end if
end function

function vscrollbar(x as long,y as long,h as long,value as single)
dim tmpval as single
tmpval=value
if buttonhold(x,y,23,23,"U") then tmpval=tmpval-1
if buttonhold(x,h-23,23,23,"D") then  tmpval=tmpval+1
tmpval= vbar(x,y+23,h-46,tmpval)
if tmpval<0 then tmpval=0
if tmpval>100 then tmpval=100
vscrollbar=tmpval
end function

function vbar(x as long,y as long,h as long,value as single)
    dim tmpval as single
    tmpval=value
    if _mousex>x and _mousey>y and _mousex<x+23 and _mousey<y+h then
        drawvbar x,y,h,value,1
        if _mousebutton(1) then tmpval=((_mousey-y)/(h))*100
    else
        drawvbar x,y,h,value,0
    end if
    vbar=tmpval
end function

function hscrollbar(x as long, y as long, w as long, value as single)
    dim tmpval as single
    tmpval = value
    if button(x, y, 23, 23, "L") then tmpval = tmpval - 1
    if button(x + w - 23, y, 23, 23, "R") then tmpval = tmpval + 1
    tmpval = hbar(x + 23, y, w - 46, tmpval)
    if tmpval < 0 then tmpval = 0
    if tmpval > 100 then tmpval = 100
    hscrollbar = tmpval
end function

function hbar(x as long, y as long, w as long, value as single)
    dim tmpval as single
    tmpval = value
    if _mousex > x and _mousey > y and _mousex < x + w and _mousey < y + 23 then
        drawhbar x, y, w, value, 1
        if _mousebutton(1) then tmpval=((_mousex-x)/(w))*100
    else
        drawhbar x, y, w, value, 0
    end if
    hbar = tmpval
end function

sub drawbutton(x as integer,y as integer,w as integer,h as integer,caption as string, state as integer)
    if state and 2 then
        color backgroundcolor2
        line (x,y)-(x+w,y+h),,bf
    else
        color backgroundcolor2
        line (x,y)-(x+w,y+h),,bf
    end if
    if state and 1 then
        color highlightcolor
        line (x,y)-(x+w,y+h),,b
    else
        color textcolor
        line (x,y)-(x+w,y+h),,b
    end if
    _printmode _keepbackground
    _printstring (1+x+w/2-len(caption)*8/2,1+y+h/2-8),caption
end sub

sub drawimagebutton(x as integer,y as integer,w as integer,h as integer,iconhandle as long, state as integer)
    if state and 2 then
        color backgroundcolor2
        line (x,y)-(x+w,y+h),,bf
        _putimage (x,y),iconhandle
    else
        color backgroundcolor2
        line (x,y)-(x+w,y+h),,bf
        _putimage (x,y),iconhandle
    end if
    if state and 1 then
        color highlightcolor
        line (x,y)-(x+w,y+h),,b
    else
        color textcolor
        line (x,y)-(x+w,y+h),,b
    end if
end sub

sub drawcheckbox(x,y,state)
    if state and 2 then
        color highlightcolor
        line (x,y)-(x+16,y+16),&hffdddddd,b
    else
        color textcolor
        line (x,y)-(x+16,y+16),&hffbbbbbb,b
    end if
    if state and 1 then
        color textcolor
        line (x+3,y+3)-(x+13,y+13),,bf
    end if
end sub

sub drawframe(x,y,w,h,label as string)

end sub

sub drawlink(x,y,label as string,state as integer)
    if state=1 then
        color highlightcolor
    else
        color textcolor
    end if
_printstring (x,y),label
end sub

sub drawhline(x,y,w)
    line (x,y)-(x+w,y),backgroundcolor1
    line (x,y+1)-(x+w,y+1),backgroundcolor2
end sub

sub drawvbar(x as long,y as long,h as long,value as single, state as integer)
if state and 2 then
        color backgroundcolor2
        line (x,y)-(x+23,y+h),,bf
    else
        color backgroundcolor2
        line (x,y)-(x+23,y+h),,bf
    end if
    if state and 1 then
        color highlightcolor
        line (x,y)-(x+23,y+h),,b
    else
        color textcolor
        line (x,y)-(x+23,y+h),,b
    end if
    dim indicator as long
    indicator=((h-23) / 100)*value
    line (x+1,y+indicator)-step(21,21),,bf
end sub

sub drawhbar(x as long, y as long, w as long, value as single, state as integer)
    color backgroundcolor2
    line (x, y)-(x + w, y + 23),, bf
    if state and 1 then
        color highlightcolor
        line (x, y)-(x + w, y + 23),, b
    else
        color textcolor
        line (x, y)-(x + w, y + 23),, b
    end if
    dim indicator as long
    indicator = ((w - 23) / 100) * value
    line (x + indicator, y + 1)-step(21, 21),, bf
end sub


sub textcolor (value as long)
ignore=__interncolors(1,1,value)
end sub

sub highlightcolor (value as long)
ignore=__interncolors(1,2,value)
end sub

sub backgroundcolor1 (value as long)
ignore=__interncolors(1,3,value)
end sub

sub backgroundcolor2 (value as long)
ignore=__interncolors(1,4,value)
end sub


function textcolor ()
textcolor=__interncolors(2,1,ignore)
end function

function highlightcolor ()
highlightcolor=__interncolors(2,2,ignore)
end function

function backgroundcolor1 ()
backgroundcolor1=__interncolors(2,3,ignore)
end function

function backgroundcolor2 ()
backgroundcolor2=__interncolors(2,4,ignore)
end function


function __interncolors(mode as integer, object as integer, value as long)
static textc as long
static highc as long
static bgrc1 as long
static bgrc2 as long
static linc as long
static init as long
if init=0 then
    textc=&hffbbbbbb
    highc=&hffdddddd
    bgrc1=&hff282828
    bgrc2=&hff282828
    linc =&hffdddddd
    init =-1 
end if
    if mode=1 then
    select case object
    case 1
    textc=value
    case 2
    highc=value
    case 3
    bgrc1=value
    case 4
    bgrc2=value
    end select
    end if
    if mode=2 then 
    select case object
    case 1
    __interncolors=textc
    case 2
    __interncolors=highc
    case 3
    __interncolors=bgrc1
    case 4
    __interncolors=bgrc2
    end select
    end if
end function