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

IDE: package editor: fixed sorting alphabetically

Browse Source 
git-svn-id: trunk@29107 -
This commit is contained in:
mattias 2011-01-18 12:58:08 +00:00
parent 91b4f23fd4
commit c283ea96f8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packager/packageeditor.pas
View File

@ -1801,7 +1801,7 @@ begin
if not FitsFilter(Filename) then continue; if not FitsFilter(Filename) then continue;
j:=Files.Count-1; j:=Files.Count-1;
while j>=0 do begin while j>=0 do begin
if ComparePkgFilenames(Filename,Files[j])<=0 then break; if ComparePkgFilenames(Filename,Files[j])>=0 then break;
dec(j); dec(j);
end; end;
Files.Insert(j+1,Filename); Files.Insert(j+1,Filename);
@ -1969,7 +1969,7 @@ begin
if CurFile=nil then if CurFile=nil then
Dependency:=GetCurrentDependency(Removed); Dependency:=GetCurrentDependency(Removed);
CurNode:=FilesTreeView.Selected; CurNode:=FilesTreeView.Selected;
IsDir:=IsDirectoryNode(CurNode); IsDir:=IsDirectoryNode(CurNode) or (CurNode=FFilesNode);
// make components visible // make components visible
UseMinVersionCheckBox.Visible:=Dependency<>nil; UseMinVersionCheckBox.Visible:=Dependency<>nil;
@ -2019,9 +2019,9 @@ begin
end else if IsDir then begin end else if IsDir then begin
FilePropsGroupBox.Enabled:=true; FilePropsGroupBox.Enabled:=true;
GetDirectorySummary(CurNode,FileCount,HasRegisterProcCount,AddToUsesPkgSectionCount); GetDirectorySummary(CurNode,FileCount,HasRegisterProcCount,AddToUsesPkgSectionCount);
FDirSummaryLabel.Caption:='Files:'+IntToStr(FileCount) FDirSummaryLabel.Caption:='Files: '+IntToStr(FileCount)
+' Register:'+IntToStr(HasRegisterProcCount) +', has Register procedure: '+IntToStr(HasRegisterProcCount)
+' Used:'+IntToStr(AddToUsesPkgSectionCount); +', in package uses section: '+IntToStr(AddToUsesPkgSectionCount);
end else begin end else begin
FilePropsGroupBox.Enabled:=false; FilePropsGroupBox.Enabled:=false;
end; end;