paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

made sorting pkg files nicer

Browse Source 
git-svn-id: trunk@4947 -
This commit is contained in:
mattias 2003-12-23 20:01:15 +00:00
parent 327c1045e7
commit f6e2377e96
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packager/packagedefs.pas
View File

@ -990,7 +990,18 @@ end;
function ComparePkgFilesAlphabetically(PkgFile1, PkgFile2: TPkgFile): integer;
begin
Result:=AnsiCompareText(PkgFile1.UnitName,PkgFile2.UnitName);
Result:=CompareFilenames(ExtractFileNameOnly(PkgFile1.FileName),
ExtractFileNameOnly(PkgFile2.FileName));
if Result<>0 then exit;
if (PkgFile1.UnitName<>'') and (PkgFile2.UnitName='') then begin
Result:=-1;
exit;
end else if (PkgFile1.UnitName='') and (PkgFile2.UnitName<>'') then begin
Result:=1;
exit;
end;
Result:=CompareFilenames(ExtractFileName(PkgFile1.FileName),
ExtractFileName(PkgFile2.FileName));
if Result<>0 then exit;
Result:=CompareFilenames(PkgFile1.FileName,PkgFile2.FileName);
end;

3
packager/packageeditor.pas
View File

@ -482,7 +482,6 @@ begin
(FileIndex>0) and Writable);
AddPopupMenuItem('Move file down', @MoveFileDownMenuItemClick,
(FileIndex<LazPackage.FileCount-1) and Writable);
AddPopupMenuItem('Sort files', @SortFilesMenuItemClick, Writable);
AddFileTypeMenuItem;
end else begin
AddPopupMenuItem(lisOpenFile, @OpenFileMenuItemClick, true);
@ -490,6 +489,8 @@ begin
AddBitBtn.Enabled);
end;
end;
if LazPackage.FileCount>1 then
AddPopupMenuItem('Sort files', @SortFilesMenuItemClick, Writable);
if CurDependency<>nil then begin
if (not Removed) then begin