paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:39:15 +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; function ComparePkgFilesAlphabetically(PkgFile1, PkgFile2: TPkgFile): integer;
begin 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; if Result<>0 then exit;
Result:=CompareFilenames(PkgFile1.FileName,PkgFile2.FileName); Result:=CompareFilenames(PkgFile1.FileName,PkgFile2.FileName);
end; end;

3
packager/packageeditor.pas
View File

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