paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:19:22 +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 
(cherry picked from commit 60e0038353)

Co-authored-by: Maxim Ganetsky <maxim@lazarus-ide.org>
This commit is contained in:
Maxim Ganetsky 2024-06-12 23:32:38 +00:00 committed by Maxim Ganetsky
parent 4e79486539
commit d2efdbabc9
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; FIdleConnected: boolean;
FSearchingItems: TAvlTree; // tree of TPPUDlgListItem sorted for TheUnitName FSearchingItems: TAvlTree; // tree of TPPUDlgListItem sorted for TheUnitName
FItems: 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 FDlgLinkedFiles: TAvlTree; // tree of TPPUDlgLinkedFile sorted for ID, file, flags
procedure SetProject(const AValue: TLazProject); procedure SetProject(const AValue: TLazProject);
procedure SetIdleConnected(const AValue: boolean); procedure SetIdleConnected(const AValue: boolean);
@ -265,6 +265,9 @@ begin
FSort[1].Category:=plsOSize; FSort[1].Category:=plsOSize;
FSort[2].Category:=plsName; FSort[2].Category:=plsName;
FSort[3].Category:=plsPPUSize; FSort[3].Category:=plsPPUSize;
FSort[4].Category:=plsUsedByCount;
FSort[5].Category:=plsUsesCount;
FSort[6].Category:=plsPackage;
PageControl1.PageIndex:=0; PageControl1.PageIndex:=0;