Let all editbox support drag and drop files and texts

[macman]

thanks a lot @Kevin @redbull2k

Here's the final code, Very good example, supporting drag and drop files and text
Note:
need to combine the member function of # 4 by@kevin
Member function QMDRAGDROPINFO.GetText

Macro Macro15

Code:

Copy      Help

str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 224 136 "Dialog" "4"
;3 Edit 0x54030080 0x200 8 8 96 12 ""
;4 Edit 0x54030080 0x200 8 28 96 13 ""
;5 Edit 0x54030080 0x200 8 48 96 12 ""
;6 Edit 0x54030080 0x200 8 68 96 13 ""
;7 Edit 0x54030080 0x200 8 88 96 12 ""
;8 Edit 0x54030080 0x200 120 8 96 12 ""
;9 Edit 0x54030080 0x200 120 28 96 13 ""
;10 Edit 0x54030080 0x200 120 48 96 12 ""
;11 Edit 0x54030080 0x200 120 68 96 13 ""
;12 Edit 0x54030080 0x200 120 88 96 12 ""
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040A00 "*" "" "" ""

str controls = "3 4 5 6 7 8 9 10 11 12"
str e3 e4 e5 e6 e7 e8 e9 e10 e11 e12
if(!ShowDialog(dd &sub.DlgProc &controls)) ret

out e3
out e4
out e5
out e6
out e7
out e8
out e9
out e10
out e11
out e12

#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,QmRegisterDropTarget(id(3 hDlg) hDlg 0)
,QmRegisterDropTarget(id(4 hDlg) hDlg 0)
,QmRegisterDropTarget(id(5 hDlg) hDlg 0)
,QmRegisterDropTarget(id(6 hDlg) hDlg 0)
,QmRegisterDropTarget(id(7 hDlg) hDlg 0)
,QmRegisterDropTarget(id(8 hDlg) hDlg 0)
,QmRegisterDropTarget(id(9 hDlg) hDlg 0)
,QmRegisterDropTarget(id(10 hDlg) hDlg 0)
,QmRegisterDropTarget(id(11 hDlg) hDlg 0)
,QmRegisterDropTarget(id(12 hDlg) hDlg 0)
,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_QM_DRAGDROP
,QMDRAGDROPINFO& di=+lParam
,sel wParam
,,case 3 ;;drop
,,str s
,,;if(!di.GetText(s 1)) ret ;;Drag text only @kevin
,,if(!di.GetText(s 1)) s=di.files ;;drag file and text supported @redbull2k
,,s.setwintext(di.hwndTarget)
,,ret DT_Ret(hDlg 1)

ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1