* Workaround to fpc bug leading to an interface memory leak

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@171 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-05-26 18:25:42 +00:00
parent 197173a5e8
commit 5e810ef02b

View File

@ -11746,7 +11746,9 @@ begin
//lcl //lcl
FPanningWindow.Free; FPanningWindow.Free;
CancelEditNode; CancelEditNode;
//todo: remove this as soon as fpc fixes this bug
if FDragManager <> nil then
FDragManager._Release;
// Just in case it didn't happen already release the edit link. // Just in case it didn't happen already release the edit link.
FEditLink := nil; FEditLink := nil;
FClipboardFormats.Free; FClipboardFormats.Free;