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

TShellTreeView: fix crash if ObjectTypes is changed at runtime. Issue #40766.

Browse Source
This commit is contained in:
Bart 2024-02-12 18:45:41 +01:00
parent 0f3f955e2b
commit 1b2d06b80d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/shellctrls.pas
View File

@ -674,9 +674,10 @@ begin
CurrPath := GetPath; CurrPath := GetPath;
try try
BeginUpdate; BeginUpdate;
Refresh(nil); //Refresh(nil);
if Exists(CurrPath) then //if Exists(CurrPath) then
SetPath(CurrPath); // SetPath(CurrPath);
UpdateView;
finally finally
EndUpdate; EndUpdate;
end; end;
@ -1393,7 +1394,12 @@ begin
if not (otNonFolders in FObjectTypes) then if not (otNonFolders in FObjectTypes) then
Result := ((Attr and faDirectory) > 0) Result := ((Attr and faDirectory) > 0)
else else
Result := True; begin
if not (otHidden in FObjectTypes) then
Result := ((Attr and faHidden) = 0)
else
Result := True;
end;
{$ifdef debug_shellctrls} {$ifdef debug_shellctrls}
debugln(['TCustomShellTreeView.SetPath.Exists: Result = ',Result]); debugln(['TCustomShellTreeView.SetPath.Exists: Result = ',Result]);
{$endif} {$endif}