PureBasic Forums - English

Code: Select all

    ; Progress bar
    t=number_of_words
    x=GadgetX(#PANEL_BOX_CRUNCH_WORDS)+GadgetWidth(#PANEL_BOX_CRUNCH_WORDS)-5-default_gadget_width_progress
    y=GadgetY(#PANEL_BOX_CRUNCH_WORDS)+GadgetHeight(#PANEL_BOX_CRUNCH_WORDS)+5+2
    ProgressBarGadget(#PROGRESSBAR_WINDOW_CRUNCH_WORDS,x,y,default_gadget_width_progress,default_gadget_height_small_progress,0,t,#PB_ProgressBar_Smooth)
    SetGadgetColor(#PROGRESSBAR_WINDOW_CRUNCH_WORDS,#PB_Gadget_FrontColor,#Blue) ; Blue progress bar

Code: Select all

If OpenWindow(0, 0, 0, 320, 160, "ProgressBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TextGadget       (3,  10, 10, 250,  20, "ProgressBar Standard  (50/100)", #PB_Text_Center)
  ProgressBarGadget(0,  10, 30, 250,  30, 0, 100)
  SetGadgetState   (0, 50)   ;  wir setzen die erste ProgressBar (ID = 0) auf 50 von 100
  TextGadget       (4,  10, 70, 250,  20, "ProgressBar Smooth  (50/200)", #PB_Text_Center)
  ProgressBarGadget(1,  10, 90, 250,  30, 0, 200, #PB_ProgressBar_Smooth)
  SetGadgetState   (1, 50)   ;  wir setzen die zweite ProgressBar (ID = 1) auf 50 von 200
  TextGadget       (5, 100,135, 200,  20, "ProgressBar Vertical  (100/300)", #PB_Text_Right)
  ProgressBarGadget(2, 270, 10,  30, 120, 0, 300, #PB_ProgressBar_Vertical)
  SetGadgetState   (2, 100)   ; wir setzen die dritte ProgressBar (ID = 2) auf 100 von 300
  
  SetWindowTheme_(GadgetID(0), #Empty$, #Empty$)
  SetGadgetColor(0, #PB_Gadget_FrontColor, #Blue)
  
  SetWindowTheme_(GadgetID(1), #Empty$, #Empty$)
  SetGadgetColor(1, #PB_Gadget_FrontColor, #Blue)
  
  SetWindowTheme_(GadgetID(2), #Empty$, #Empty$)
  SetGadgetColor(2, #PB_Gadget_FrontColor, #Blue)
  
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf