Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Wie kann ich in guter Qualität 24Bit zu 8Bit konvertieren ?

   
    by Capa, 5. Mär 2011
  da das ganze eine funktion ist solltest du es vielleicht so aufrufen
  
  Function BMPReduceTo8Bit(BitmapXXBit: TBitmap): TBitmap;
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  Image1.Picture.LoadFromFile('24BitBild.bmp');
  Image1.Picture.Bitmap := BMPReduceTo8Bit(image1.Picture.Bitmap);
  Image1.Picture.Bitmap.SaveToFile('8BitBild.bmp');