paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-08 21:12:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package editor: started drag drop

Browse Source 
git-svn-id: trunk@45473 -
This commit is contained in:
mattias 2014-06-10 22:02:38 +00:00
parent bd961193d6
commit d6ab494bc8
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packager/packageeditor.pas
View File

@ -2951,12 +2951,27 @@ end;
function TPackageEditorForm.MoveFiles(SrcPkgEdit: TPackageEditorForm; function TPackageEditorForm.MoveFiles(SrcPkgEdit: TPackageEditorForm;
TargetDirectory: string): boolean; TargetDirectory: string): boolean;
var
Files: TFPList; // list of TPkgFile
i: Integer;
TVNode: TTreeNode;
NodeData: TPENodeData;
Item: TObject;
begin begin
Result:=false; Result:=false;
{$IFDEF VerbosePkgEditDrag} {$IFDEF VerbosePkgEditDrag}
debugln(['TPackageEditorForm.MoveFiles Self=',LazPackage.Filename,' Src=',SrcPkgEdit.LazPackage.Filename,' Dir="',TargetDirectory,'"']); debugln(['TPackageEditorForm.MoveFiles Self=',LazPackage.Filename,' Src=',SrcPkgEdit.LazPackage.Filename,' Dir="',TargetDirectory,'"']);
{$ENDIF} {$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; end;
procedure TPackageEditorForm.DoSave(SaveAs: boolean); procedure TPackageEditorForm.DoSave(SaveAs: boolean);