Icons ohne schwarzen Rand darstellen

[Matze]

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