Hi,Thank you Michael, I added the component to OPM.
i've translated a few Samples for Lazarus and also build a "mixed Sample"
Download for new version is above Link.
I added the component to OPM.FYI It doesn't install in my version of Trunk.
Hi,
ok, updated Source with your sample GetMem... (above Download link is updated!)
Hope it works for newer Versions of FPC, as i can not test it at the moment.
best, Michael
@JDThe bug mentioned by @minesadorada only occurs with FPC 3.1.1 or FPC trunk.
It works for me on Lazarus 1.8RC5 fpc 3.0.4 even before your latest modifications.
@six1You forget to ifdef the implementation part of the function Stat. I also modified the "Mixed demo" example. FindFirstUTF8 was moved to lazfileutils in the latest version of Lazarus, so I had to add lazfileutils to the uses clauses. With that said DragDrop now works with: Laz: 1.6, 1.8, Trunk; FPC: 3.0.0, 3.0.2, 3.0.4, Trunk. (https://packages.lazarus-ide.org/DragDrop.zip)
ok, updated Source with your sample GetMem... (above Download link is updated!)
Hope it works for newer Versions of FPC, as i can not test it at the moment.
@six1OK then, I will have to figure it out what is wrong at my side.
DragDrop is working on both Machines without any problems.
@minesadoradaTesting environment;
Can you please test it again. I know you have win10(64 bit). Install DragDrop, then open the first 1-2 demo from the LazDemos folder and see if it works on your system.
I fixed the issue, please test again on 64bit. Thank you.DragDrop V5.2.0.0 Testing environment: as before.
Hi GetMem,OK. I updated the package in OPM. Works both with Lazarus 2.0.0 and Trunk.
you're absolutly right!
{$if LCL_FULLVERSION >= 1090000}
Compile package DragDropLazarus 5.2: Exit code 1, Errors: 1, Warnings: 23
DragDrop.inc(220,2) Warning: Illegal identifier "UNSAFE_TYPE" for $WARN directive
DragDrop.inc(221,2) Warning: Illegal identifier "UNSAFE_CODE" for $WARN directive
DragDrop.inc(222,2) Warning: Illegal identifier "UNSAFE_CAST" for $WARN directive
DragDrop.pas(45,15) Warning: An inherited method is hidden by "SetSize(LongInt;LongInt);"
DragDrop.pas(116,14) Warning: An inherited method is hidden by "QueryInterface(constref TGuid;out <Formal type>):LongInt; StdCall;"
DragDrop.pas(139,5) Warning: Constructor should be public
DragDrop.pas(140,5) Warning: Constructor should be public
DragDrop.inc(202,2) Warning: Misplaced global compiler switch, ignored
DragDrop.inc(220,2) Warning: Illegal identifier "UNSAFE_TYPE" for $WARN directive
DragDrop.inc(221,2) Warning: Illegal identifier "UNSAFE_CODE" for $WARN directive
DragDrop.inc(222,2) Warning: Illegal identifier "UNSAFE_CAST" for $WARN directive
DragDropFormats.pas(130,14) Warning: An inherited method is hidden by "Seek(Int64;LongInt;out Int64):LongInt; StdCall;"
DragDropFormats.pas(132,14) Warning: An inherited method is hidden by "Read(Pointer;LongInt;PLongint):LongInt; StdCall;"
DragDropFormats.pas(134,14) Warning: An inherited method is hidden by "CopyTo(IStream;Int64;out Int64;out Int64):LongInt; StdCall;"
DragDrop.inc(202,2) Warning: Misplaced global compiler switch, ignored
DragDrop.inc(220,2) Warning: Illegal identifier "UNSAFE_TYPE" for $WARN directive
DragDrop.inc(221,2) Warning: Illegal identifier "UNSAFE_CODE" for $WARN directive
DragDrop.inc(222,2) Warning: Illegal identifier "UNSAFE_CAST" for $WARN directive
DropSource.pas(98,21) Error: No matching implementation for interface method "SetData(const tagFORMATETC;var TagSTGMEDIUM;LongBool):LongInt; StdCall;" found
DropSource.pas(257,12) Warning: An inherited method is hidden by "GetPerformedDropEffect:DWord;"
DropSource.pas(258,12) Warning: An inherited method is hidden by "GetLogicalPerformedDropEffect:DWord;"
DropSource.pas(259,12) Warning: An inherited method is hidden by "GetPreferredDropEffect:DWord;"
DropSource.pas(260,13) Warning: An inherited method is hidden by "SetPerformedDropEffect(const LongWord);"
DropSource.pas(261,13) Warning: An inherited method is hidden by "SetPreferredDropEffect(const LongWord);"
There is a compilation error for Lazarus 2.0 fixes with FPC 3.2 fixes.Fixed. Now it works with FPC 3.2 fixes, FPC Trunk.
Confirmed. Thanks! :DThere is a compilation error for Lazarus 2.0 fixes with FPC 3.2 fixes.Fixed. Now it works with FPC 3.2 fixes, FPC Trunk.
Hi GetMem,
you're absolutly right!
{$if LCL_FULLVERSION >= 1090000}