BMP to ICO (ohne FARBVERLUST)

[zero]

hallo

Wie kann ich ein BMP in ein ICO umwandeln, ohne die Farben zu verlieren?

Ein Bsp.code wäre cool :)

danke im voraus... zero

[The_Flo]

Wie kann ich ein BMP in ein ICO umwandeln, ohne die Farben zu verlieren?

Korrgiert mich ruhig wenn ich falsch liege, aber das dürfte schon rein theoretisch versagen, da ein Icon maximal 16 Farben unterstützt, eine BitMap File aber bis zu einigen Millionen.

Das ist also nur möglich wenn das Bitmap schon auf 16 Farben geschrumpft ist. Und diese 16 Farben den Farben der ICON-Palette entsprechen.

Wobei, wenn ich mir gerade die Iexplor.exe vom 6.0er ansehe, haben einige Icons dort mehr Farben. Ist das Standardkonform? Der Ressourchenexplorer gibt das nämlich mit "0 Farben" an.

Ciao, Florian

[BenBE]

Gehen tut das schon ;-). Nur der ResExplorer hat einen kleinen Fehler.

Es gibt in der ICO-Datei einen RIFF-Header. Dort wird die Farb-Anzahl und die Größe festgelegt.

Geh einfach mal auf die Seite [a href="http://www.wotsit.org" target="_blank"]www.wotsit.org[/a]. Dort findet sich dazu nägeres.[/url]

[stOrM!]

Var
 HI                : THandle;
 MyIconIndex       : word;
 AttachFileName    : string;
 X                 : word;
 F                 : File;
 big,small         : HICON;
 SP5               : TIcon;
 Location2         : String;
 ImageIcon2        : TImage;

  begin
  try
  Begin
  If opendialog1.Execute Then
  Begin
  AttachFileName := expandfilename(OpenDialog1.Filename);
  HI := ExtractIconEx(pchar(attachfilename), 0, big, small, 1);
  ImageIcon2:=TImage.Create(self);
  ImageIcon2.Picture.Icon.Handle:=Big;
  Sp5 := TIcon.Create;
  Sp5.Handle :=ImageIcon2.Picture.Icon.Handle;
  Speedbutton5.Hint         :=  attachfilename;
  Speedbutton5.Glyph        :=  nil;
  Speedbutton5.Glyph.Width  :=  Sp5.Width;
  Speedbutton5.Glyph.Height :=  Sp5.Height;
  Speedbutton5.glyph.canvas.Draw(0, 0, Sp5);
  Speedbutton5.Refresh;
  Sp5.Free;
 

wenn man das extrahierte icon erst auf ein image kopiert dann klappts

regards

stOrM!

[zero]

mein delphi6 versteht ExtractIconEX nicht :)

[Lemy]

Ist in der Unit "ShellAPI"

[stOrM!]

sorry hatte ich vergessen mit reinzuschreiben :-)

lemy hat recht...

schraub es in deine uses dann gehts

regards

stOrM!