Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0006631 [JEDI VCL] 00 JVCL Components minor always 2018-03-31 09:18 2018-06-09 16:35
Reporter nyburner View Status public  
Assigned To AHUser
Priority normal Resolution fixed  
Status resolved   Product Version Daily / GIT
Summary 0006631: Drag and Drop
Description Drag and drop for the TjvDragDrop component will not work under Windows 10
unless the EXE is run as privileged user -AND- some extra code is run to enable
messages to be passed correctly. See attached code unit below;

Suggestion: add the code included below to JVCL so drag and drop functions
             correctly;

Thanks;

Bruce
Additional Information {***********************************************************************
* *
* wsUpdateDragDropPrivileges.pas *
* *
* *
* Modification *
* ============ *
* *
***********************************************************************}

Unit wsUpdateDragDropPrivileges ;

interface

  Procedure UpdateDragDropPrivileges ;

Implementation
  Uses
    Windows , Messages ;

// function ChangeWindowMessageFilter(Message: UINT; dwFlag: DWORD): BOOL; stdcall;

{***********************************************************************
* *
* UpdateDragDropPrivileges *
* *
* Modification *
* ============ *
* *
***********************************************************************}

Procedure UpdateDragDropPrivileges ;
  Begin { UpdateDragDropPrivileges }
    ChangeWindowMessageFilter(WM_DROPFILES , MSGFLT_ADD) ;
    ChangeWindowMessageFilter(WM_COPYDATA , MSGFLT_ADD) ;
    ChangeWindowMessageFilter(WM_COPYGLOBALDATA , MSGFLT_ADD) ;
  End ; { UpdateDragDropPrivileges }

Initialization
  UpdateDragDropPrivileges ;
End.
Tags No tags attached.
Attached Files ? file icon wsUpdateDragDropPrivileges.pas [^] (1,857 bytes) 2018-03-31 09:18

- Relationships

-  Notes
(0021471)
AHUser (developer)
2018-06-09 16:35

Added property "AllowDropElevation: Boolean default False" to TJvDragDrop. By enabling it (Windows 7 and newer required) the "Drag" can come from an application with a lower privilege than the "Drop" window.

- Issue History
Date Modified Username Field Change
2018-03-31 09:18 nyburner New Issue
2018-03-31 09:18 nyburner File Added: wsUpdateDragDropPrivileges.pas
2018-06-09 16:35 AHUser Note Added: 0021471
2018-06-09 16:35 AHUser Status new => resolved
2018-06-09 16:35 AHUser Fixed in Version => Daily / GIT
2018-06-09 16:35 AHUser Resolution open => fixed
2018-06-09 16:35 AHUser Assigned To => AHUser


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker