[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. :stupid:

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:

Zitat von negaH

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

Nun nicht mehr. Danke. :thumb: ( hoff ich jedenfalls :gruebel: )