PureBoard

Code: Alles auswählen

#maxroundprogresses=10

Structure rprogress
  gadgetid.l
  imageid.l
  imagecolor.l
  backcolor.l
  frontcolor.l
  textcolor.l
  font.l
  max.l
  state.l
  extension.s
EndStructure

Dim RoundProgresses.rprogress(#maxroundprogresses)

Procedure SetRoundProgressState(id,state)
  If state<>RoundProgresses(id)\state
    UseImage(RoundProgresses(id)\imageid)
    w=ImageWidth() : h=ImageHeight()
    dc=StartDrawing(ImageOutput())
    Box(0,0,w,h,RoundProgresses(id)\imagecolor)
    pen=CreatePen_(#PS_SOLID,1,RoundProgresses(id)\backcolor)
    brush=CreateSolidBrush_(RoundProgresses(id)\backcolor)
    SelectObject_(dc,brush) : SelectObject_(dc,pen)
    Ellipse_(dc,0,0,w,h)
    DeleteObject_(brush) : DeleteObject_(pen)
    pen=CreatePen_(#PS_SOLID,1,0)
    If RoundProgresses(id)\frontcolor=-1
      cstate=state * 448 / RoundProgresses(id)\max
      If cstate<256
        color=RGB(255,cstate,0)
      Else
        cstate-256
        color=RGB(255-cstate,255,0)
      EndIf
      brush=CreateSolidBrush_(color)
    Else  
      brush=CreateSolidBrush_(RoundProgresses(id)\frontcolor)
    EndIf
    SelectObject_(dc,brush) : SelectObject_(dc,pen)
    angle.f=state * 360 / RoundProgresses(id)\max
    If angle>0
      If angle>358
        Ellipse_(dc,0,0,w,h)
      Else
        mx=w/2 : my=h/2
        rx.f = 0 - (0 - my) * Sin(6.28318531*angle/360) + mx 
        ry.f = (0 - my) * Cos(6.28318531*angle/360) + my
        x2 = rx : y2 = ry
        Pie_(dc,0,0,w,h,x2,y2,w/2,0) 
      EndIf
    EndIf
    DeleteObject_(brush) : DeleteObject_(pen)
    SelectObject_(dc,RoundProgresses(id)\font)
    SetBkMode_(dc,#TRANSPARENT)
    SetTextColor_(dc,RoundProgresses(id)\textcolor)
    text.s = Str(state)+RoundProgresses(id)\extension
    DrawText_(dc,text,-1,rect.RECT,#DT_CALCRECT)
    diffx=(w-rect\right)/2 : diffy=(h-rect\bottom)/2
    Locate(diffx,diffy)
    DrawText(text)
    StopDrawing()
    RoundProgresses(id)\state = state
  EndIf
  SetGadgetState(RoundProgresses(id)\gadgetid,UseImage(RoundProgresses(id)\imageid))
EndProcedure

Procedure RoundProgress(id,x,y,w,h,ic,bc,fc,tc,font,max,state,ext.s)
  RoundProgresses(id)\gadgetid   = ImageGadget(#PB_Any,x,y,w,h,0)
  RoundProgresses(id)\imageid    = CreateImage(#PB_Any,w,h)
  RoundProgresses(id)\imagecolor = ic
  RoundProgresses(id)\backcolor  = bc
  RoundProgresses(id)\frontcolor = fc
  RoundProgresses(id)\textcolor  = tc
  RoundProgresses(id)\font       = font
  RoundProgresses(id)\max        = max
  RoundProgresses(id)\state      = -1
  RoundProgresses(id)\extension  = ext
  SetRoundProgressState(id,state)
EndProcedure

Procedure RemoveRoundProgress(id)
  FreeImage(RoundProgresses(id)\imageid)
  FreeGadget(RoundProgresses(id)\gadgetid)
EndProcedure  



OpenWindow(0,50,50,450,230,#PB_Window_SystemMenu,"Test")
CreateGadgetList(WindowID())
font1=LoadFont(#PB_Any,"Arial",14,#PB_Font_Bold)
font2=LoadFont(#PB_Any,"Times New Roman",24,#PB_Font_Bold)
font3=LoadFont(#PB_Any,"System",10)

RoundProgress(0,10,10,100,100,GetSysColor_(#COLOR_BTNFACE),RGB(160,160,160),RGB(230,128,230),RGB(255,230,255),UseFont(font1),100,0,"%")
RoundProgress(1,120,10,100,100,GetSysColor_(#COLOR_BTNFACE),RGB(160,160,160),RGB(230,230,128),RGB(255,255,230),UseFont(font1),100,0,"%")
RoundProgress(2,230,10,210,210,GetSysColor_(#COLOR_BTNFACE),RGB(160,160,160),-1,RGB(0,0,0),UseFont(font2),100,0,"%")
RoundProgress(3,10,120,100,100,GetSysColor_(#COLOR_BTNFACE),RGB(160,160,160),RGB(128,230,230),RGB(0,0,0),UseFont(font1),1000,0," Units")
RoundProgress(4,120,120,100,45,GetSysColor_(#COLOR_BTNFACE),RGB(120,120,120),RGB(64,160,160),RGB(0,0,0),UseFont(font3),100,0,"%")
RoundProgress(5,120,175,100,45,GetSysColor_(#COLOR_BTNFACE),RGB(80,80,32),RGB(160,160,64),RGB(255,255,128),UseFont(font3),100,100,"%")

time=timeGetTime_()
Repeat
  Event=WindowEvent()
  If timeGetTime_()-time>80
    state1+1
    If state1>100
      state1=0
    EndIf
    state2+2
    If state2>100
      state2=0
    EndIf
    state3+4
    If state3>100
      state3=0
    EndIf
    state4+5
    If state4>1000
      state4=0
    EndIf
    state5+3
    If state5>100
      state5=0
    EndIf
    state6-2
    If state6<0
      state6=100
    EndIf
    SetRoundProgressState(5,state6)
    SetRoundProgressState(4,state5)
    SetRoundProgressState(3,state4)
    SetRoundProgressState(2,state1)
    SetRoundProgressState(1,state2)
    SetRoundProgressState(0,state3)
    time=timeGetTime_()
  EndIf  
  Delay(5)
Until Event=#PB_Event_CloseWindow