0006631: Drag and Drop - Project JEDI

Project JEDI - Issue Tracker

Viewing Issue Simple Details [ Jump to Notes ]

[ View Advanced ] [ Issue History ] [ Print ]

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

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[^]