WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WinBatch
Boxes Functions
Progress Bars

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Progress or Activity Indicator

;
; Start it with 
; run("showbusy.exe",'Your "busy" literal') Parameter is optional
;
; And stop it with
; Intcontrol(47,"Processing",0,0,0)
;
; You can use IntControl(54,"Processing",1,0,0) to
; keep it on top.



IntControl(12,5,0,0,0)
path = IntControl(1004,0,0,0,0)

If IsKeyDown(@CTRL) Then Debug(@ON)    ; Hold down "Ctrl" to start debug
If IsKeyDown(@SHIFT)                   ; Hold down "Shift" to start debug tracing
 tracepath = FilePath(path)
 tracefile = StrCat(tracepath,"trace.txt")
 DebugTrace(@ON,tracepath)
EndIf
;-----------------------------------------------------------------------------------
:init

If param0 != 1
 caption = "One moment "
Else
 caption = param1
EndIf

;;;;;;;; Assorted Colors ;;;;;;;;;
LTGRAY="192,192,192"
BLACK="0,0,0"
YELLOW="255,255,0"   ; debug;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

wbid = 1
BoxesUp("100,300,500,400",@NORMAL)
BoxCaption(wbid,"Processing")
BoxColor(wbid,LTGRAY,0)
BoxDrawRect(wbid,"0,0,1000,1000",2)
BoxTextFont(wbid,"Arial",550,40,0)
BoxTextColor(wbid,BLACK)
BoxDataTag(wbid,"here")

lit = caption
ctr = 0

;-----------------------------------------------------------------------------------
:main

While @TRUE

  BoxDrawText(wbid,"25,250,1000,1000",lit,1,0)
  TimeDelay(.5)
  lit = StrCat(lit,".")
  ctr = ctr + 1
  If ctr > 10
    ctr = 0
    BoxDataClear(wbid,"here")
    lit = caption
  EndIf

EndWhile

;-----------------------------------------------------------------------------------
:alldone
:CANCEL

;-----------------------------------------------------------------------------------
:End
  Exit
 
Article ID:   W15899

File Created: 2004:03:30:15:41:34
Last Updated: 2004:03:30:15:41:34