Bitmap zu Icon ohne Farbe Verlust ?

[Praxist]

hallo

ich habe mehrere Funktionen getestet um ein Bitmap in Icon zu konvertieren
das Problem ist nach dem Konvertieren bekomme ich eine ein Icon mit schlechter Qualität

Beispiel mit dieser Funktion : http://www.swissdelphicenter.ch/de/showcode.php?id=913

Ich suche eine Funktion, die ein gutes Icon erstellt ohne oder mit weniger Farben Verlust aber auch soll ein valid Icon erstellen

[toms]

Hallo,

So wird die Qualität besser:

Delphi-Quellcode:

uses
  IconsToFile; {Siehe Anhang icon2file.zip}

function Bmp2Ico(Bitmap: TBitmap; IcoFileName: TFilename): Boolean;
var
  Icon: TIcon;
  ImageList: TImageList;
begin
  Result := False;
  ImageList := TImageList.CreateSize(Bitmap.Width, Bitmap.Height);
  try
    ImageList.AllocBy := 1;
    ImageList.AddMasked(Bitmap, Bitmap.TransparentColor);
    Icon := TIcon.Create;
    try
      ImageList.GetIcon(0, Icon);
      Result := hicontofile(IcoFileName, Icon.Handle, BitC24) <> -1;
     // Icon.SaveToFile(IcoFileName);
    finally
      Icon.Free;
    end;
  finally
    ImageList.Free;
  end;
end;

// Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Bmp2Ico(Image1.Picture.Bitmap, 'c:\Output.ico');
end;

[Praxist]

Ich habe auch die Hilfe im Anhang gelesen : )

jetzt weiß ich warum mein icon nach dem Speichern schlecht wird :thumb:

Danke