Paletteneinträge vertauschen?

[derula]

Hi!

Ich würde gerne in einet 8bit-Bitmap zwei Paletteneinträge vertauschen. Sagen wir, den nullten Eintrag mit dem ersten. Ich müsste dann doch sämtliche Pixel, die mit einer dieser Farben gefüllt sind abändern, oder? Nun ist das aber doof, wenn man alle 256 Paletteneinträge belegt hat.

Beispiel mit einer imaginären 3-bit-Bitmap:

Code:

0 1 5 3 7 2
3 1 2 7 6 0
4 2 6 5 1 0
7 2 6 4 4 1
4 0 2 3 0 2

Ich will also alle 1er zu 0en machen und umgekehrt.

Wäre es vielleicht klüger, die neue Palette zu erstellen, die einem neuen Bitmap zuzuordnen und dann den Inhalt des alten Bitmap ins neue kopieren? Wenn ja, wie mache ich das? Mit Assign, oder würde das die Palette mitkopieren?

Vielen Dank im Voraus!

derula

[marabu]

Moin,

zwei Farbwerte in einer Palette würde ich so vertauschen:

Delphi-Quellcode:

procedure SwapPaletteEntries(var pe: array of TPaletteEntry; index1, index2: Integer);
var
  peTemp: TPaletteEntry;
begin
  if index1 <> index2 then
  begin
    peTemp := pe[index1];
    pe[index1] := pe[index2];
    pe[index2] := peTemp;
  end;
end;

procedure TDemoForm.SwapButtonClick(Sender: TObject);
const
  PAL_ENTRIES = 256;
var
  lp: PLogPalette;
  i, n, lpSize: Integer;
begin
  lpSize := SizeOf(TLogPalette) + Pred(PAL_ENTRIES) * SizeOf(TPaletteEntry);
  GetMem(lp, lpSize);
  lp.palVersion := $300;
  lp.palNumEntries := PAL_ENTRIES;
  with Image.Picture.Bitmap do
  begin
    n := GetPaletteEntries(Palette, 0, PAL_ENTRIES, lp.palPalEntry);
    if n > 0 then
    begin
      SwapPaletteEntries(lp.palPalEntry, 0, 1);
      Palette := CreatePalette(lp^);
    end;
  end;
  FreeMem(lp, lpSize);
  Image.Invalidate;
end;

Getippt und nicht getestet.

Grüße vom marabu

[derula]

Hm, sind dann nicht auch die Farben vertauscht? Oder irre ich mich da?

Danke, ich teste es mal! =D

Edit: Also ich meine die Farben ... im Bild... kA verstehst du was ich meine, ich will nur die Palette ändern nicht das Bild... sorry kann mich grade schlecht artikulieren ^^

Edit: Okay, getestet, funzt wunderbar! Danke nochmal!