Icons ohne schwarzen Rand darstellen

**Matze**

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:

zusammenfalten · markieren

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

Icons ohne schwarzen Rand darstellen

Icons ohne schwarzen Rand darstellen

Forumregeln