aStatusBar Example

Keywords: 	  aStatusBar Progress status bar 

---

;*********************************************************************************************************
;*                                                                                                       *
;* Status bar using the shell operations extender and box functions                                                                                      *
;*                                                                                                       *
;*********************************************************************************************************


; Create a full screen gradient window
BoxesUp("0, 0, 1000, 950", @ZOOMED)
BoxCaption(1,"Test: Status Bar")
BoxColor(1,"0,0,0",4)
BoxDrawRect(1, "0, 0, 1000, 1000", 2)
;put up status bar
AddExtender("wwsop34I.DLL");SHELL OPERATIONS EXTENDER
astatusbar(0,"Processing","this is the text",79,0)
for xx = 1 to 79
  timedelay(0.1)
  astatusbar(1,"Status Bar","processing file number %xx% of 79",79,xx)
next

BoxDestroy(1)

---

Article ID:   W14196

Filename:   aStatusBar Example.txt