TImage als Bitmap speichern und Farbtiefe

[DeddyH]

Sofern die Farbtiefe wirklich erst beim Speichern verloren geht, dachte ich mir das etwa so:

Delphi-Quellcode:

var temp: TBitmap;
begin
  temp := TBitmap.Create;
  try
    temp.PixelFormat := pf24Bit; //oder eben entsprechend
    temp.Assign(Grafik aus TImage);
    //ggf. anderes Grafikobjekt erzeugen und zuweisen (TJPEGImage oder so)
    temp.SaveToFile(...);
    //oder GrafikObjekt.SaveToFile, kommt halt darauf an
  finally
    temp.Free;
  end;