Icon wird mit weniger Farben gespeichert als das Original

[Progman]

cool, ich habs mir gleich in mein Archiv gepackt, man weiß ja nie, ob mans mal brauchen kann.
Danke. ;)

[FAlter]

Hi,

noch eine kleine Korrektur:

Delphi-Quellcode:

function WriteIcons(Stream: TStream; const Icons: array of TIcon): Boolean;
  ...
  
  Result := WriteIconsFromHandles(Stream, HandleArray);
end;

function WriteIconsToFile(const FileName: String; const Icons: array of TIcon):
  Boolean;
  ...
    Result := WriteIcons(Stream, Icons);

Ich habe das Result := vergessen gehabt :oops:

Mfg
FAlter