AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Paletteneinträge vertauschen?

Paletteneinträge vertauschen?

Ein Thema von derula · begonnen am 5. Apr 2008 · letzter Beitrag vom 5. Apr 2008
Antwort Antwort
derula

Registriert seit: 16. Mär 2008
11 Beiträge
 
Delphi 7 Personal
 
#1

Paletteneinträge vertauschen?

  Alt 5. Apr 2008, 09:13
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
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Paletteneinträge vertauschen?

  Alt 5. Apr 2008, 11:02
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
  Mit Zitat antworten Zitat
derula

Registriert seit: 16. Mär 2008
11 Beiträge
 
Delphi 7 Personal
 
#3

Re: Paletteneinträge vertauschen?

  Alt 5. Apr 2008, 11:12
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!
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf