Icon wird mit weniger Farben gespeichert als das Original

[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

Mfg
FAlter