paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 06:00:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: package editor: move file

Browse Source 
git-svn-id: trunk@45449 -
This commit is contained in:
mattias 2014-06-10 11:32:00 +00:00
parent 16956f5ce0
commit 5199936580
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packager/packageeditor.pas
View File

@ -2747,7 +2747,7 @@ begin
if LazPackage=nil then exit;
if (FSingleSelectedFile=nil)
or (FSingleSelectedFile.FileType<>pftVirtualUnit)
or (LazPackage.FindPkgFile(FSingleSelectedFile.Filename,true,true)=nil)
or (LazPackage.IndexOfPkgFile(FSingleSelectedFile)<0)
then exit;
if ShowEditVirtualPackageDialog(FSingleSelectedFile)=mrOk then
UpdateFiles;
@ -2823,14 +2823,12 @@ end;
procedure TPackageEditorForm.DoMoveCurrentFile(Offset: integer);
var
Removed: Boolean;
OldIndex, NewIndex: Integer;
CurFile: TPkgFile;
FilesBranch: TTreeFilterBranch;
begin
CurFile:=GetCurrentFile(Removed);
if (CurFile=nil) or Removed then exit;
OldIndex:=LazPackage.IndexOfPkgFile(CurFile);
if (LazPackage=nil) or (FSingleSelectedFile=nil) then exit;
OldIndex:=LazPackage.IndexOfPkgFile(FSingleSelectedFile);
if OldIndex<0 then exit;
NewIndex:=OldIndex+Offset;
if (NewIndex<0) or (NewIndex>=LazPackage.FileCount) then exit;
FilesBranch:=FilterEdit.GetExistingBranch(FFilesNode);