toolbar drop

[_pi]

in this raw example file drop on a edit control works.
the dialog could be used on a toolbar as child.

Macro9

Code:

Copy      Help

str controls = "5"
str e5tit
if(!ShowDialog("Dialog2" &Dialog2 &controls)) ret

Dialog2

Code:

Copy      Help

;\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

;BEGIN DIALOG
;0 "" 0x90C80A44 0x118 0 0 315 80 "Form"
;5 Edit 0x54030000 0x200 4 4 244 14 "title"
;END DIALOG
;DIALOG EDITOR: "" 0x2010900 "" ""

ret
;messages
if(message=WM_INITDIALOG) DT_Init(hDlg lParam)
;int param=DT_GetParam(hDlg)

sel message
,case WM_INITDIALOG
,;mov 1700 100 hDlg
,ret 1
,case WM_DROPFILES TO_DropFiles hDlg wParam
,case WM_DESTROY DT_DeleteData(hDlg)
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case EN_CHANGE<<16|5
,,out _s.getwintext(id(5 hDlg))
,case EN_SETFOCUS<<16|5
,,out "huhu"
,case IDOK DT_Ok hDlg
,case IDCANCEL DT_Cancel hDlg
ret 1