Farbe eines TBitmap schnell durch eine andere ersetzen

[mkinzler]

Ich hoffe das funktioniert so

Delphi-Quellcode:

//Palette sichern
   GetPaletteEntries(img.Palette, 0, 256, Colors[0]);
   //Palette manipulieren
   Colors[10] := rgb( 10,20,60);
   //Palette des Bildes auf geänderte Palette setzen
   SetPaletteEntries(img.Palette, 0, 256, Colors[0]);

img ist vom Typ TBitmap.
Annahme 8Bit-Bild