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

LCL/ShellCtrls: Fix ShellTreeView crashing when a file has been deleted by the OS.

Browse Source
This commit is contained in:
wp_xyz 2022-07-27 12:49:06 +02:00
parent de03939782
commit e9e8f6ef32
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32wsshellctrls.pp
View File

@ -82,6 +82,11 @@ var
begin begin
fileName := WideString(ATreeView.GetPathFromNode(ANode)); fileName := WideString(ATreeView.GetPathFromNode(ANode));
ico := GetShellIcon(fileName); ico := GetShellIcon(fileName);
if ico = nil then
begin
Result := Types.Size(0, 0);
exit;
end;
try try
ATreeView.Canvas.Draw(ARect.Left, (ARect.Top + ARect.Bottom - ico.Height) div 2, ico); ATreeView.Canvas.Draw(ARect.Left, (ARect.Top + ARect.Bottom - ico.Height) div 2, ico);
Result := Types.Size(ico.Width, ico.Height); Result := Types.Size(ico.Width, ico.Height);