func_maxgui_progress bars_createprogbar.rst 1.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162
  1. .. _func_maxgui_progress bars_createprogbar:
  2. =============
  3. CreateProgBar
  4. =============
  5. CreateProgBar -
  6. Description
  7. ===========
  8. .. code-block:: blitzmax
  9. CreateProgBar:TGadget(x,y,w,h,group:TGadget,style=0)
  10. Create a Progress Bar gadget.
  11. Similar to Labels, Progress Bar gadgets do not generate any events themselves.
  12. See Also: #UpdateProgBar
  13. Parameters
  14. ==========
  15. Return Values
  16. =============
  17. Nothing.
  18. Examples
  19. ========
  20. .. code-block:: blitzmax
  21. ' createprogbar.bmx
  22. Import MaxGui.Drivers
  23. Strict
  24. Local window:TGadget=CreateWindow("My Window",50,50,240,100,,WINDOW_TITLEBAR)
  25. Local progbar:TGadget=CreateProgBar(10,10,200,20,window)
  26. CreateLabel "Please Wait",10,40,200,20,window
  27. CreateTimer 10
  28. While WaitEvent()
  29. Select EventID()
  30. Case EVENT_WINDOWCLOSE
  31. End
  32. Case EVENT_TIMERTICK
  33. Local t=EventData()
  34. If t=50 End
  35. UpdateProgBar progbar,t/50.0
  36. End Select
  37. Wend
  38. See Also
  39. ========