Start with Focus on Edit with No Selected Text

Keywords: 	 Start with Focus on Edit with No Selected Text

---

PROCOPT_INIT = 0

#definesubroutine SetEditText(param1, param2, param3, param4, param5)

switch( param2)
case PROCOPT_INIT
DialogControlSet(param1, 2, 3, "Put a variable with your log text here.")
break;
endswitch

return -1
#Endsubroutine

MyVariable1 = ""

EditNoSelectFormat=`WWWDLGED,6.1`

EditNoSelectCaption=`Start with Focus on Edit with No Selected Text`
EditNoSelectX=541
EditNoSelectY=056
EditNoSelectWidth=208
EditNoSelectHeight=182
EditNoSelectNumControls=002
EditNoSelectProcedure=`SetEditText`
EditNoSelectFont=`DEFAULT`
EditNoSelectTextColor=`DEFAULT`
EditNoSelectBackground=`DEFAULT,DEFAULT`
EditNoSelectConfig=0

EditNoSelect001=`005,157,176,012,PUSHBUTTON,DEFAULT,"OK",1,2,32,DEFAULT,DEFAULT,DEFAULT`
EditNoSelect002=`009,005,170,142,MULTILINEBOX,MyVariable1,"",DEFAULT,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("EditNoSelect")