;==========================================================================================================================================
;
; How to display a dialog without default set button? (1)
;
; (c)Detlev Dalitz.20120129.
;==========================================================================================================================================
;
; Trick: Display a dialog without default set button.
;
; The PUSHBUTTON can be activated by TAB or mouse click.
; The invisible MULTILINEBOX eatens up all input keys.
;
; Deficiency: When the dialogue is displayed, there is the blinking cursor seen in the upper left corner.
; Trick: The blinking cursor can be eliminated by setting the horizontal coordinate of the upper left corner of the MULTILINEBOX to -1.
;
;------------------------------------------------------------------------------------------------------------------------------------------
MyDialogFormat = `WWWDLGED,6.2`
MyDialogCaption = `WIL Dialog`
MyDialogX = 100
MyDialogY = 100
MyDialogWidth = 200
MyDialogHeight = 100
MyDialogNumControls = 002
MyDialogProcedure = `DEFAULT`
MyDialogFont = `DEFAULT`
MyDialogTextColor = `DEFAULT`
MyDialogBackground = `DEFAULT,DEFAULT`
MyDialogConfig = 0
MyDialog001 = `-1,000,000,000,MULTILINEBOX,"MultiLineBox",mlVariable1,"",DEFAULT,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog002 = `050,040,100,020,PUSHBUTTON,"PushButton",DEFAULT,"Press or click this Button",1,2,0,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed = Dialog ("MyDialog")
Exit
;------------------------------------------------------------------------------------------------------------------------------------------