paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:39:31 +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;
j:=Files.Count-1;
while j>=0 do begin
if ComparePkgFilenames(Filename,Files[j])<=0 then break;
if ComparePkgFilenames(Filename,Files[j])>=0 then break;
dec(j);
end;
Files.Insert(j+1,Filename);
@ -1969,7 +1969,7 @@ begin
if CurFile=nil then
Dependency:=GetCurrentDependency(Removed);
CurNode:=FilesTreeView.Selected;
IsDir:=IsDirectoryNode(CurNode);
IsDir:=IsDirectoryNode(CurNode) or (CurNode=FFilesNode);
// make components visible
UseMinVersionCheckBox.Visible:=Dependency<>nil;
@ -2019,9 +2019,9 @@ begin
end else if IsDir then begin
FilePropsGroupBox.Enabled:=true;
GetDirectorySummary(CurNode,FileCount,HasRegisterProcCount,AddToUsesPkgSectionCount);
FDirSummaryLabel.Caption:='Files:'+IntToStr(FileCount)
+' Register:'+IntToStr(HasRegisterProcCount)
+' Used:'+IntToStr(AddToUsesPkgSectionCount);
FDirSummaryLabel.Caption:='Files: '+IntToStr(FileCount)
+', has Register procedure: '+IntToStr(HasRegisterProcCount)
+', in package uses section: '+IntToStr(AddToUsesPkgSectionCount);
end else begin
FilePropsGroupBox.Enabled:=false;
end;