Wie kann ich die Farbtiefe verringern?

[ferby]

Hallo,

ich glaube ich habe so zimlich das selbe Problem.
Ich zeichne auf einen TBitmap und möchte es dann als 256 Farben Bitmap abspeichern.

Ich erzeuge das Bitmap so:

Delphi-Quellcode:

BMP:=TBitmap.Create;
Bmp.PixelFormat := pf8Bit;

Und Speicher dann einfach mit
BMP.SaveToFile('test.bmp'); Wenn ich aber das Bitmap wieder öffne um zu überprüfen welches Format das Bitmap hat dann zeigt es an das test.bmp mit 32Bit gepseichert wurde.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bmp.LoadFromFile('test.bmp');
  if Bmp.PixelFormat = pf32Bit then showmessage('32');
end;

Warum wird das BMP bei Savetofile mit 32 BIt gespeichert obwohl die Farbtiefe des BMP auf 8 Bit eingestellt wurde?
Und wie kan nich das ändern?


Ferby