paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 20:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package editor: started drag drop

Browse Source 
git-svn-id: trunk@45475 -
This commit is contained in:
mattias 2014-06-11 16:50:58 +00:00
parent 9244f61d8c
commit 09bb7c2145
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packager/packageeditor.pas
View File

@ -313,6 +313,8 @@ type
): boolean;
function MoveFiles(SrcPkgEdit: TPackageEditorForm;
TargetDirectory: string): boolean;
function MoveFiles(SrcPkgEdit: TPackageEditorForm; PkgFiles: TFPList;
TargetDirectory: string): boolean;
protected
fFlags: TPEFlags;
fLastDlgPage: TAddToPkgType;
@ -2967,13 +2969,28 @@ begin
for i:=0 to SrcPkgEdit.ItemsTreeView.SelectionCount-1 do begin
TVNode:=SrcPkgEdit.ItemsTreeView.Selections[i];
if not GetNodeDataItem(TVNode, NodeData, Item) then continue;
if NodeData.Removed then continue;
if not (Item is TPkgFile) then continue;
Files.Add(Item);
end;
if Files.Count=0 then exit(true);
Result:=MoveFiles(SrcPkgEdit,Files,TargetDirectory);
finally
Files.Free;
end;
end;
function TPackageEditorForm.MoveFiles(SrcPkgEdit: TPackageEditorForm;
PkgFiles: TFPList; TargetDirectory: string): boolean;
begin
Result:=false;
{$IFDEF VerbosePkgEditDrag}
debugln(['TPackageEditorForm.MoveFiles Self=',LazPackage.Filename,' Src=',SrcPkgEdit.LazPackage.Filename,' Dir="',TargetDirectory,'" FileCount=',PkgFiles.Count]);
{$ENDIF}
end;
procedure TPackageEditorForm.DoSave(SaveAs: boolean);
begin
PackageEditors.SavePackage(LazPackage,SaveAs);