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

LCL/ShellListView: Fix accessing unallocated handle in PopulateWithRoot/GetBuiltInImageIndex, issue #39860.

Browse Source
This commit is contained in:
wp_xyz 2022-08-15 13:46:55 +02:00
parent 2f2a344de2
commit 4fba69291d
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/shellctrls.pas
View File

@ -214,6 +214,7 @@ type
FMask: string;
FMaskCaseSensitivity: TMaskCaseSensitivity;
FObjectTypes: TObjectTypes;
FPopulateDelayed: Boolean;
FRoot: string;
FShellTreeView: TCustomShellTreeView;
FUseBuiltInIcons: Boolean;
@ -228,6 +229,7 @@ type
{ Methods specific to Lazarus }
class procedure WSRegisterClass; override;
procedure AdjustColWidths;
procedure CreateHandle; override;
procedure PopulateWithRoot();
procedure DoOnResize; override;
procedure SetAutoSizeColumns(const Value: Boolean); virtual;
@ -1529,6 +1531,13 @@ begin
// Check inputs
if Trim(FRoot) = '' then Exit;
// Check handle
if not HandleAllocated then
begin
FPopulateDelayed := true;
Exit;
end;
Items.BeginUpdate;
Files := TStringList.Create;
try
@ -1607,6 +1616,16 @@ begin
end;
end;
procedure TCustomShellListView.CreateHandle;
begin
inherited;
if FPopulateDelayed then
begin
PopulateWithRoot;
FPopulateDelayed := false;
end;
end;
procedure TCustomShellListView.DoOnResize;
begin
inherited;