FriFra hat
hier den Code veröffentlicht, um Icons zum Beispiel in einer ListView oder einem PopupMenu ohne störenden schwarzen Rand darzustellen.
Folgender Code gehört ins
OnCreate des Formulars:
Delphi-Quellcode:
var
SHFileInfo: TSHFileInfo;
SysIcons: THandle;
begin
try
SysIcons := SHGetFileInfo(PChar(copy(ParamStr(0), 1, 3)), 0, SHFileInfo,
SizeOf(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON or
SHGFI_ICON);
finally
DestroyIcon(SHFileInfo.hIcon);
end;
ImageList1.Handle := SysIcons;
In dem Fall befinden sich die Icons in ImageList1.
Und nicht vergessen, die
ShellAPI und die uses-Klausel aufzunehmen.
Suchbegriffe: Umrandung schwarz schwarzer Rahmen Icon außen