Hi Stephan;

   FWIW: My STD Framework's drag & drop is working well for me in PB 2022 build 1892.

   I just migrated the PB 2021 version to 2022 and it unit tests 100%, as follows:

   I will do a full unit test of this code tonight and post the PB2022 updated example to the STD Framework's website. I will update you later on this evening where to download it. Maybe you can spot something different in my code vs Roland's that might help explain the issue.

Regards ... Chris

Hi,

If the same code is working in pb2021, than this suggests a "bug" or at least a change of "something" to me.

Can you make a small sample application that reproduces the problem and post it here and maybe even better on https://www.appeon.com/standardsupport/newbug ?

regards.

I figured it out, the external function declarations in my example have incorrect data types so don't work in 64bit.

The handle arguments need to be defined as Longptr:

Subroutine DragAcceptFiles ( Longptr hWnd, Boolean fAccept ) Library "shell32.dll"

Function ULong DragQueryFile ( Longptr hDrop, ULong iFile, Ref String lpszFile, ULong cch ) Library "shell32.dll" Alias For "DragQueryFileW"

I built a more advanced version of my example and posted it on my website:

https://www.topwizprogramming.com/freecode_dragfiles.html

Files are dragged into a ListView control where they are shown with file icons, type, size, and date.

Hi Chris,
unfortunately it does not work.I made all the changes to Longptr
I am using your code in two windows, in none of them the pbm_dropfiles event ( = ue_dropfiles) fires. In debugging mode I set a breakpoint at the beginning of the event, but it never stops there.

Here is the code:

LOCAL EXTERNAL FUNCTIONS
FUNCTION ulong DragQueryFile(Longptr al_hDrop, ulong ai_File, REF string as_FileName, ulong ai_cb) LIBRARY "shell32.dll" alias for "DragQueryFileW"

SUBROUTINE DragAcceptFiles(Longptr l_hWnd,boolean fAccept) LIBRARY "shell32.dll" // alias for "DragAcceptFiles"

SUBROUTINE DragFinish(ulong hDrop) LIBRARY "shell32.dll" Alias for "DragFinish"

IN OPEN EVENT of the Window:
Postevent("ue_enabledrag")

IN EVENT UE_ENABLE_DRAG:
DragAcceptFiles(handle(this), true)



IN EVENT UE_DROPFILES with Event_ID pbm_dropfiles:

String ls_path
String ls_temp
ulong lul_file, lul_max_files
Long ll_pos1,ll_pos2
Constant ULong lul_hex = 4294967295
ULong lul_pathSize = 1023
ulong lul_index

ls_path = Space(lul_pathSize)
lul_max_files = DragQueryFile(handle, lul_hex, ls_path, lul_pathSize)

IF lul_max_files > 0 THEN

DO WHILE lul_index >= 0 and lul_index < lul_max_files
ls_path = Space(lul_pathSize)
lul_file = DragQueryFile(handle, lul_index, ls_path, lul_pathSize)
IF lul_file > 0 THEN
fw_import(ls_path)
lul_index++
ELSE
lul_index = -1
END IF
LOOP
END IF

DragFinish(handle)

Hi Stephan,

make sure that you really call DragAcceptFiles(). I am not sure if that is a typo in your code or in your post.

IN OPEN EVENT of the Window:
//Postevent("ue_enabledrag") Wrong Eventname?!
Postevent("ue_enable_drag")

IN EVENT UE_ENABLE_DRAG:
DragAcceptFiles(handle(this), true)

hth

Arnd