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

Dialog Editor version 6.X
plus
plus

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

Autotimeout Example

Keywords:   Autotimeout Example  MSG_TIMER

#DefineFunction MyDialogProc(D_Handle,D_Message,D_ControlID,Reserved_0,Reserved_1)
  MSG_INIT=0
  MSG_TIMER=1
   
   switch D_Message

      case MSG_INIT
         ; 30 minutes * 60 seconds per minute * 1000 milliseconds per second
         DialogProcOptions(D_Handle,MSG_TIMER,30*60*1000)
         break

      case MSG_TIMER
          return(2)

   endswitch
   return(-1)
#EndFunction
 




mylist="apples bananas pears oranges tangarines"
mylist=Strreplace(mylist," ",@tab)



MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Choose a list item`
MyDialogX=002
MyDialogY=030
MyDialogWidth=134
MyDialogHeight=180
MyDialogNumControls=003
MyDialogProcedure=`MyDialogProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,128|255|255`

MyDialog001=`022,153,033,011,PUSHBUTTON,DEFAULT,"OK",1,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`071,153,033,011,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`015,015,096,125,ITEMBOX,mylist,DEFAULT,DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

Message(Buttonpushed,mylist)



Article ID:   W15454
File Created: 2003:05:13:11:28:04
Last Updated: 2003:05:13:11:28:04