hier im Forum habe ich diese Funktion gefunden und schon getestet. es ist OK
Wenn ich das Bitmap direkt über die Funktion selbst speichere dann funktioniert
aber wenn ich das Bild durch Aufruf über das Button,
dann wird das Bild nicht in 8bit sondern in 24 Bit konvertiert !
Vielleicht rufe ich die Funktion falsch auf :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('24BitBild.bmp');
BMPReduceTo8Bit(image1.Picture.Bitmap); // ist richtig so ?
Image1.Picture.Bitmap.SaveToFile('8BitBild.bmp');
Hier ist die Funktion