forgotten @ character in DropSource.pas line 921
Original Reporter info from Mantis: laserflor
-
Reporter name: Rolf
Original Reporter info from Mantis: laserflor
- Reporter name: Rolf
Description:
function DoDragDrop in ActiveX.pp needs the parameter pdwEffect:LPDWORD to call the WINOLE 'ole32.dll', but the variable DropEffect declared in line 867 (DropSource.pas) is a longint so the @ symbol is needed to give the address functionaly to the parameter
Steps to reproduce:
I wrote a event handler assigned to the onmousemove event in a TDBgrid component and called DropFileSource.Execute in that procedure:
if DragDetectPlus(TWinControl(Sender), Point(X, Y)) then
begin
DropFileSource1.Files.Clear;
DropFileSource1.Files.Add(filename);
DropFileSource1.Execute;
end;
I always get the exception External: SIGSEGV so I added the @ to the DropEffect variable in line 921 and voila: no more exception
Additional information:
The issue is new since Lazarus 2.0.
In Lazarus 1.8.x everything was fine
The old DragDropLazarus package can't be added to Lazarus 2.0
Mantis conversion info:
- Mantis ID: 37086
- Build: r62129
- Version: 2.0.6
- Monitored by: » laserflor (Rolf)