[nonVCL] Icon zu Bitmap konvertieren ? - gelöst !

[turboPASCAL]

Hi,

Hat jmd eine Idee wie ich ein Icon (liegt als HIcon vor) ein Bitmap machen kann ?

[turboPASCAL]

Ja, ich.

Delphi-Quellcode:

function IconToBitmap(ResID: Integer): HBITMAP;
var
  IconInfo: TICONINFO;
  Icon: HICON;
begin
  Icon := LoadImage(HInstance, MAKEINTRESOURCE(ResID), IMAGE_ICON, 0, 0, 0);
  GetIconInfo(Icon, IconInfo);
  Result := IconInfo.hbmColor;
  DestroyIcon(Icon);
  DeleteObject(IconInfo.hbmMask);
end;

[negaH]

enthät IconInfo. nicht auch die Monochrome Maske ? Wenn ja, dann produziert obiger Vorschlag eine Speicherleiche im GDI.

Gruß hagen

[turboPASCAL]

Zitat von negaH:

Wenn ja, dann produziert obiger Vorschlag eine Speicherleiche im GDI.

Nun nicht mehr. Danke. ( hoff ich jedenfalls )