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
Dialog Editor
Dialog Editor version 6.X
plus
COMCONTROL
plus
Samples

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

Display Dialog along with RunWait

 Keywords:  DialogProcOptions 1000 Disable Dialog While Processing Display  Run RunWait 
#DefineFunction MyDialogCallbackProc(MyDialog_Handle,MyDialog_Message,MyDialog_Name,MyDialog_EventInfo,MyDialog_ChangeInfo)
   MSG_INIT=0                ; The one-time initilization
   MSG_TIMER=1               ; Timer event
   DPO_DISABLESTATE=1000     ; codes -1=GetSetting 0=EnableDialog 1=DisableDialog
   ON_EQUAL = @TRUE                                         ; Initialize variable ON_EQUAL
   Switch MyDialog_Message                                  ; Switch based on Dialog Message type
      Case MSG_INIT                                         ; Standard Initialization message
         DialogProcOptions(MyDialog_Handle,MSG_TIMER,500)   ; wait .5 sec
         Return(-1)

      Case MSG_TIMER
         DialogProcOptions(MyDialog_Handle,MSG_TIMER,0)   ; turn off timer
         DialogProcOptions(MyDialog_Handle,DPO_DISABLESTATE,2) ;disable dialog
         RunWait("notepad.exe", "")
         DialogProcOptions(MyDialog_Handle,DPO_DISABLESTATE,0) ;enable dialog
         TimeDelay(0.5) ; wait just a little here maybe to make notepad look nicer
         Return(1)

   EndSwitch                                                ; MyDialog_Message
   Return(-1)
#EndFunction                                                ; End of Dialog Callback MyDialogCallbackProc


MyDialogFormat=`WWWDLGED,6.2`

MyDialogCaption=`TestApp`
MyDialogX=119
MyDialogY=101
MyDialogWidth=256
MyDialogHeight=066
MyDialogNumControls=002
MyDialogProcedure=`MyDialogCallbackProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`039,013,170,012,STATICTEXT,"StaticText_1",DEFAULT,"TestApp v3.5 installation in progress",DEFAULT,1,DEFAULT,"Times New Roman|10752|70|18","0|0|0",DEFAULT`
MyDialog002=`095,039,048,012,STATICTEXT,"StaticText_2",DEFAULT,"Please wait ...",DEFAULT,2,DEFAULT,"Times New Roman|8192|70|18","0|0|0",DEFAULT`

ButtonPushed=Dialog("MyDialog")
Exit

Example - Older 6.1 Dialog

#DefineFunction MyProc(MyProcDlgHandle,MyProcDlgMessage,MyProcDlgControlID,param4,param5)
   MSG_INIT=0                ; The one-time initilization
   MSG_TIMER=1               ; Timer event
   DPO_DISABLESTATE=1000     ; codes -1=GetSetting 0=EnableDialog 1=DisableDialog
   Switch MyProcDlgMessage

          Case MSG_INIT
               DialogProcOptions(MyProcDlgHandle,MSG_TIMER,500)   ; wait .5 sec
               Return (-1)

          Case MSG_TIMER
               DialogProcOptions(MyProcDlgHandle,MSG_TIMER,0)   ; turn off timer
               DialogProcOptions(MyProcDlgHandle,DPO_DISABLESTATE,2) ;disable dialog
               RunWait("notepad.exe", "")
               DialogProcOptions(MyProcDlgHandle,DPO_DISABLESTATE,0) ;enable dialog
               TimeDelay(0.5) ; wait just a little here maybe to make notepad look nicer
               Return(1)


   EndSwitch ; ConfigDlgMessage
   Return(-1) ; Do default processing
#EndFunction




MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`TestApp v3.5`
MyDialogX=119
MyDialogY=101
MyDialogWidth=256
MyDialogHeight=067
MyDialogNumControls=002
MyDialogProcedure=`MyProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`

MyDialog001=`039,013,170,012,STATICTEXT,DEFAULT,"TestApp v3.5 installation in progress",DEFAULT,1,DEFAULT,"Times New Roman|10752|70|18","0|0|0",DEFAULT`
MyDialog002=`095,039,048,012,STATICTEXT,DEFAULT,"Please wait ...",DEFAULT,2,DEFAULT,"Times New Roman|8192|70|18","0|0|0",DEFAULT`

ButtonPushed=Dialog("MyDialog")

Exit

Article ID:   W15465

File Created: 2011:05:11:13:44:00
Last Updated: 2011:05:11:13:44:00