paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 12:59:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL/ShellCtrls: Undo r64821 #3ff38bdc82 for the ShellTreeView (does not display overlay icons; no speed advantage in contrast to ShellListView)

Browse Source 
git-svn-id: trunk@64823 -
This commit is contained in:
wp 2021-03-16 09:28:30 +00:00
parent bdc78cd5af
commit 77c4956c67
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -60,11 +60,9 @@ function GetShellIcon(const AFileName: WideString): TIcon;
var var
FileInfo: TSHFileInfoW; FileInfo: TSHFileInfoW;
imgHandle: DWORD_PTR; imgHandle: DWORD_PTR;
attr: LongInt;
begin begin
attr := FileGetAttr(AFileName); imgHandle := SHGetFileInfoW(PWideChar(AFileName), 0, FileInfo, SizeOf(FileInfo),
imgHandle := SHGetFileInfoW(PWideChar(AFileName), attr, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX);
SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES);
if imgHandle <> 0 then if imgHandle <> 0 then
begin begin
Result := TIcon.Create; Result := TIcon.Create;