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
Samples from Users
plus
Deltree Examples
plus
Detect Keyboard Tricks
plus
DHCP
plus
Dialogs
plus
Encryption
plus
Event Logs
plus
File Version and Dir Mgmt
plus
Games
plus
HTML
plus
MS Access
plus
Network
plus
NSLookup
plus
Registry
plus
Syntax Checker
plus
System Information
plus
Telnet

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

Progress Bar in Dialog

Keywords: 
Progress Bar Meter Animated Dialog

Jeremy Whilde's spiffy progress meter: 

;It turns out that fading more toward the
;outsides doesn't take all that much more
;code--I just had to have the time to look
;at it for a bit.

#DefineSubRoutine DlgCallback(DlgName,DlgEvent,DlgCtrl,rsvd1,rsvd2)
   ;DialogprocOptions Constants
   MSG_INIT=0                                              ; The one-time initilization
   MSG_TIMER=1                                             ; Timer event
   DC_BACKGROUNDCOLOR = 11                                 ; Initalize background colour
   ;DialogControlSet / DialogControlGet Constants
   Switch DlgEvent
   Case MSG_INIT
      LOn   ="0|0|160"
      LMid1 ="30|30|160"
      LMid2 ="60|60|160"
      LMid3 ="90|90|160"
      LMid4 ="120|120|160"
      LEnd  ="150|150|160"
      LOff  ="192|192|192"
      DialogProcOptions (DlgName,MSG_TIMER,150)            ; Adjust timer to suit
      Light = 1
      Direction = 1
      Return (-1)
   Case MSG_TIMER
      DialogControlSet (DlgName,Light+1,DC_BACKGROUNDCOLOR,LOff)          ;Off
      If Light == 11 Then Direction=(-1)                                  ;-1 for Side to Side -10 for Left to Right
      If Light == 1 Then Direction=1
      Light = Light + Direction
      Switch Light
         Case 1
         Case 11
            DialogControlSet(DlgName,Light+1,DC_BACKGROUNDCOLOR,LEnd)     ;Off
            Break
         Case 2
         Case 10
            DialogControlSet(DlgName,Light+1,DC_BACKGROUNDCOLOR,LMid4)    ;Dim
            Break
         Case 3
         Case 9
            DialogControlSet(DlgName,Light+1,DC_BACKGROUNDCOLOR,LMid3)    ;Brighter
            Break
         Case 4
         Case 8
            DialogControlSet(DlgName,Light+1,DC_BACKGROUNDCOLOR,LMid2)    ;Brighter still
            Break
         Case 5
         Case 7
            DialogControlSet(DlgName,Light+1,DC_BACKGROUNDCOLOR,LMid1)    ;Almost fully on
            Break
         Case 6
            DialogControlSet(DlgName,Light+1,DC_BACKGROUNDCOLOR,LOn)      ;On
            Break
         EndSwitch
      Return (-1)                                          ; Do default processing
   EndSwitch                                               ; DlgEvent
Return(-1)                                                 ; Do default processing
#EndSubRoutine                                             ; End of Dialog Callback

IntControl (49,1,0,0,0)
MyDialogFormat=`WWWDLGED,6.1`
MyDialogCaption=`Please Wait...`
MyDialogX=-01
MyDialogY=-01
MyDialogWidth=116
MyDialogHeight=040
MyDialogNumControls=013
MyDialogProcedure=`DlgCallback`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`021,007,068,010,STATICTEXT,DEFAULT,"Final Configuration",DEFAULT,9,512,"Microsoft Sans Serif|6144|70|34","0|0|0",DEFAULT`
MyDialog002=`023,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog003=`029,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog004=`035,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog005=`041,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog006=`047,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog007=`053,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog008=`059,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog009=`065,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog010=`071,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog011=`077,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog012=`083,021,004,006,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"192|192|192"`
MyDialog013=`021,015,068,016,GROUPBOX,DEFAULT,DEFAULT,DEFAULT,13,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("MyDialog")
Exit
Article ID:   W16198

File Created: 2009:05:28:14:57:22
Last Updated: 2009:05:28:14:57:22