Editbox Scroll

[chrislegarth]

I am having difficulty getting the code to "scroll" to the front of the editbox to work.  I referenced a tech database article called Editbox Cursor Placement.
Not sure what I am missing/doing wrong.  I'm using a 6.1 dialog because I am updating an old script.
Thanks in advance!

Code (winbatch) Select Expand

gosub appfunctions

MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Editbox Scroll`
MyDialogX=10
MyDialogY=10
MyDialogWidth=144
MyDialogHeight=035
MyDialogNumControls=005
MyDialogProcedure=`DialogProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`003,005,028,008,STATICTEXT,DEFAULT,"Password:",DEFAULT,99,@csRight,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`033,003,104,012,EDITBOX,txtPassword,DEFAULT,DEFAULT,10,@csCurLeft,"Fixedsys|6144|40|49","0|0|0",DEFAULT`
MyDialog003=`061,017,056,012,PUSHBUTTON,DEFAULT,"Long",2,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`003,017,056,012,PUSHBUTTON,DEFAULT,"Short",1,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog005=`119,017,020,012,PUSHBUTTON,DEFAULT,"Exit",3,50,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

:appfunctions
#DEFINESUBROUTINE DialogProc(dlghandle,ControlType,ControlID,res4,res5)
switch (ControlType)
case 0
DialogProcOptions(dlghandle, 2, 1) ;BUTTON
break
case 2
switch (ControlID)
case 3
dialogcontrolset(dlghandle, 2, 3, "Now displaying a very long password")

; SCROLL CODE START
cntrlnum = 2
EM_SETSEL = 177
chandle = DllCall(DirWindows(1):"USER32.DLL",long:'GetDlgItem',long:dlghandle,long:cntrlnum + 99)
SendMessageA(chandle, EM_SETSEL, 0, 0)
EM_SCROLLCARET = 183
;chandle = DllCall(DirWindows(1):"USER32.DLL",long:'GetDlgItem',long:dlghandle,long:cntrlnum + 99)
SendMessageA(chandle, EM_SCROLLCARET, 0, 0)
; SCROLL CODE END

break
case 4
dialogcontrolset(dlghandle, 2, 3, "Short Password")
break
case 5
exit
break
endswitch
return -2
break
endswitch
return -1
#ENDSUBROUTINE

return

[stanl]

maybe try adding  dialogcontrolstate(dlghandle, 2, 1, 2048) after dialogcontrolset(dlghandle, 2, 3, "Now displaying a very long password")

[td]

The example is very old and your script has several issues.  Consider the following change to the "case 3" code block:

Code (winbatch) Select Expand

         case 3
             cntrlnum = 2
             DialogControlSet(dlghandle, cntrlnum, 3, "Now displaying a very long password")
             DialogControlState(dlghandle, cntrlnum, @dcsSetFocus, 0) 
             break


[chrislegarth]

Thanks stanl/td!  I knew there had to be an easier way.

I accomplished what I need by doing the following:

• Setting the On Focus No Selection, Cursor at Beginning style on the editbox.
• Setting the focus on the editbox after updating it.
• Returning focus to the control that updated the editbox.

Thanks again!!