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

Codetools: Fixed AV in "Project -> Show Used PPU Files" when sorting by double-clicking on last three columns. Patch by n7800, issue #40984.

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-06-13 02:28:12 +03:00
parent 9f98ea7602
commit 60e0038353
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/ide/ppulistdlg.pas
View File

@ -135,7 +135,7 @@ type
FIdleConnected: boolean;
FSearchingItems: TAvlTree; // tree of TPPUDlgListItem sorted for TheUnitName
FItems: TAvlTree; // tree of TPPUDlgListItem sorted for TheUnitName
FSort: array[1..3] of TPPUListSortRec;
FSort: array[1..6] of TPPUListSortRec;
FDlgLinkedFiles: TAvlTree; // tree of TPPUDlgLinkedFile sorted for ID, file, flags
procedure SetProject(const AValue: TLazProject);
procedure SetIdleConnected(const AValue: boolean);
@ -265,6 +265,9 @@ begin
FSort[1].Category:=plsOSize;
FSort[2].Category:=plsName;
FSort[3].Category:=plsPPUSize;
FSort[4].Category:=plsUsedByCount;
FSort[5].Category:=plsUsesCount;
FSort[6].Category:=plsPackage;
PageControl1.PageIndex:=0;