paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 06:57:54 +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;
try
BeginUpdate;
Refresh(nil);
if Exists(CurrPath) then
SetPath(CurrPath);
//Refresh(nil);
//if Exists(CurrPath) then
// SetPath(CurrPath);
UpdateView;
finally
EndUpdate;
end;
@ -1393,7 +1394,12 @@ begin
if not (otNonFolders in FObjectTypes) then
Result := ((Attr and faDirectory) > 0)
else
Result := True;
begin
if not (otHidden in FObjectTypes) then
Result := ((Attr and faHidden) = 0)
else
Result := True;
end;
{$ifdef debug_shellctrls}
debugln(['TCustomShellTreeView.SetPath.Exists: Result = ',Result]);
{$endif}