paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 04:58:11 +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 
(cherry picked from commit e9e8f6ef32)
This commit is contained in:
wp_xyz 2022-07-27 12:49:06 +02:00 committed by Maxim Ganetsky
parent 281dceb262
commit 6e946f7fd0
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
fileName := ATreeView.GetPathFromNode(ANode);
ico := GetShellIcon(fileName);
if ico = nil then
begin
Result := Types.Size(0, 0);
exit;
end;
try
ATreeView.Canvas.Draw(ARect.Left, (ARect.Top + ARect.Bottom - ico.Height) div 2, ico);
Result := Types.Size(ico.Width, ico.Height);