Anzahl der verschieden Farben eines Bitmap's auslesen

[Muetze1]

Zitat von markusj:

Ok, ich ergebe mich ... Asche über mein Haupt *g*
Und das mit der Farbgewichtung wusst ich nicht ... bitte vergib mir ^^

Ach ja, wegen meiner Rechtschreibung ... tut mir Leid.

mfG

Markus

Nicht so eng sehen - manchmal sind die englishen Texte auch schlecht geschrieben.

[ferby]

Hallo,

danke für eure Beiträge,
habe wieder einiges gelernt.

@ SirThornberry: Der Fehler lag dort irgendwo... ich habe ein wenig herumgetan und jetzt gehts
@ Muetze1: Der Quellcode war mir ein wenig zu Komplex, außerdem kamm einige Fehlermedlungen wenn ich das Programm starten wollte.


Hier mein neuer Quellcode der eigentlich funktionieren müsste (Habe es mit mehr als 20 total verschiedenen Bitmaps getestet)

Delphi-Quellcode:

function TForm1.farbanzahlabfrage:integer;
var
  x,y,i:integer;
  FarbAnzahl: integer;
  NeueFarbe: boolean;
  Aktuelle_Farbe: integer;
  FarbPalette: array [1..256] of integer;
begin
  FarbAnzahl:=0;

  for i:=1 to 256 do Farbpalette[i]:=-1;

  for x:=0 to BMP.width-1 do
  for y:=0 to BMP.Height-1 do
  begin
    NeueFarbe:=true;
    Aktuelle_Farbe:=BMP.Canvas.pixels[y,x];


    for i:=1 to 256 do
    if Farbpalette[i] = Aktuelle_Farbe then NeueFarbe:=false;

    if NeueFarbe then
    begin
      inc(FarbAnzahl);
      Farbpalette[FarbAnzahl]:=aktuelle_farbe;
    end;
  end;

  result:=farbanzahl;
end;

[Muetze1]

Zitat von ferby:

@ Muetze1: Der Quellcode war mir ein wenig zu Komplex, außerdem kamm einige Fehlermedlungen wenn ich das Programm starten wollte.

Ja, es verwendet Komponenten von mir - aber das war ja noch nichtmal das was ich wollte. Es hätte gereicht dir die Unit hlp_ColorHistory.pas anzuschauen - diese macht genau das gesucht. Es kapselt alles in einem Objekt und braucht nur eine TBitmap Instanz.