From d6ab494bc88efce8484e4af3da8bb459177b7c2c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Jun 2014 22:02:38 +0000
Subject: [PATCH] IDE: package editor: started drag drop

git-svn-id: trunk@45473 -
---
 packager/packageeditor.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/packager/packageeditor.pas b/packager/packageeditor.pas
index 690d7320c6..34e1052d4b 100644
--- a/packager/packageeditor.pas
+++ b/packager/packageeditor.pas
@@ -2951,12 +2951,27 @@ end;
 
 function TPackageEditorForm.MoveFiles(SrcPkgEdit: TPackageEditorForm;
   TargetDirectory: string): boolean;
+var
+  Files: TFPList; // list of TPkgFile
+  i: Integer;
+  TVNode: TTreeNode;
+  NodeData: TPENodeData;
+  Item: TObject;
 begin
   Result:=false;
   {$IFDEF VerbosePkgEditDrag}
   debugln(['TPackageEditorForm.MoveFiles Self=',LazPackage.Filename,' Src=',SrcPkgEdit.LazPackage.Filename,' Dir="',TargetDirectory,'"']);
   {$ENDIF}
+  Files:=TFPList.Create;
+  try
+    for i:=0 to SrcPkgEdit.ItemsTreeView.SelectionCount-1 do begin
+      TVNode:=SrcPkgEdit.ItemsTreeView.Selections[i];
+      if not GetNodeDataItem(TVNode, NodeData, Item) then continue;
 
+    end;
+  finally
+    Files.Free;
+  end;
 end;
 
 procedure TPackageEditorForm.DoSave(SaveAs: boolean);