Predefined variable for the mouse pointer

[win]

Thank you very much for your help, this is a great feature,

I have encountered two problems in the test:

1. How to make the edit box support drag and drop, for example, when I drag the file onto the edit box, automatically enter the filefullpath of the file

2.I added a custom variable $var_pcname$ but after the output, there is no blank line


Function AutoInputDialog

Code:

Copy      Help

;/
function'str $template [int&nLeft]

;Shows an auto-created dialog containing Edit and Static controls specified in template text like $inp_Label$. The Label part sets static text.
;Returns template text where these substrings are replaced with user input.

;REMARKS
;Special strings:
;$var_ShortDate$ - replaces with current date.
;$set_CaretHere$ - removes and sets nLeft = the number of Left keys to move the caret (text cursor) here.

;On Cancel ends this thread.

;Example - KeyAutoInputDialog code.


ARRAY(str) a
if(!findrx(template "\$inp_(.+?)\$" 0 4 a 1)) ret template

ARRAY(str) c.create(a.len+1)
c[0]="3"
str dd
dd.formata("BEGIN DIALOG[]0 '''' 0x90C80AC8 0x0 0 0 224 %i ''Manual Text Input''[]" a.len*30+40)
int i idEdit(3) idStatic(503) y(8)
for i 0 a.len
,dd.formata("%i Static 0x54000000 0x0 8 %i 214 10 ''%s''[]%i Edit 0x54030080 0x200 8 %i 208 13[]" idStatic y a[0 i].escape(1) idEdit y+12)
,if(i) c[0].formata(" %i" idEdit)
,y+30
,idEdit+1
,idStatic+1
y+10
dd.formata("1 Button 0x54030001 0x4 116 %i 48 14 ''OK''[]2 Button 0x54030000 0x4 168 %i 48 14 ''Cancel''[]END DIALOG" y y)
;out dd

if(!ShowDialog(dd 0 &c[0])) end

str r
ARRAY(POINT) b
findrx(template "\$inp_.+?\$" 0 4 b)
int j
for i 0 b.len
,POINT& p=b[0 i]
,r.geta(template j p.x-j)
,r+c[i+1]
,j=p.y
r.geta(template j)

i=find(r "$var_ShortDate$")
if(i>=0) r.replace(_s.timeformat("{D}") i 15)

;$var_pcname$
str s2
GetUserInfo s2 1
i=find(r "$var_pcname$")
if(i>=0) r.replace(s2 i 15)

if &nLeft
,nLeft=0
,i=find(r "$set_CaretHere$")
,if i>=0
,,r.remove(i 15)
,,for(i i r.len) if(r[i]!13) nLeft+1

ret r

Autotext Autotext3
Trigger $t     

Code:

Copy      Help

/b/i/c/m
cme :sub.Sub1 ;;Customer Mail Example


#sub Sub1 m
_s=
F
;Dear Mr. $inp_Customer$,
;
;thank you for contacting us. The price is $$inp_Price$. Let's meet next $inp_Day$.
;
;Myfile is here "$inp_Filepath$"
;
;Thanks and best regards,
;$set_CaretHere$
;
;pcname is $var_pcname$
;
;$var_ShortDate$
;
KeyAutoInputDialog(_s)