Forum: Multimedia
Delphi
by dominikkv,
22. Jun 2008
Wenn ich das ganze mit pf32Bit mache geht das wirklich ein ganzes Stück schneller!
Und wenn ich bei deiner Function, Neutral General, Result zunächst mit 0 initialisiere kommt auch wirklich das richtige Ergebnis raus 8)
Vielen Dank euch beiden für eure Hilfe :cheers:
2 Fragen habe ich aber noch:
- Wird das ganze mit pf24Bit nochmal schneller?
- Wenn ja, wie komme ich dann zu meinem...
Forum: Multimedia
Delphi
by dominikkv,
22. Jun 2008
Trotzdem falsche Werte:
type
TLine = array of Byte;
function CountColor(aBitmap: TBitmap; Colors: TColorArray): TAnzahlArray;
var
I, J, K: Integer;
Unten, Oben: Integer;
Line: ^TLine;
Forum: Multimedia
Delphi
by dominikkv,
22. Jun 2008
hey danke für eure Antworten :mrgreen:
ich hab das nun so hingepfrimelt:
type
TLine = TRGBTriple;
function TPaintEngine.CountColor(Colors: TColorArray): TAnzahlArray;
var
I, J, K: Integer;
Forum: Multimedia
Delphi
by dominikkv,
22. Jun 2008
Ich kenne ScanLine zwar nicht, habe mal aber hier im Forum gesucht und das ist dabei rausgekommen:
type
TColorArray = Array of TColor;
TAnzahlArray = Array of Integer;
TLine = Array of Byte;
function CountColor(aBitmap: TBitmap; Colors: TColorArray): TAnzahlArray;
var
I, J, K: Integer;
Forum: Multimedia
Delphi
by dominikkv,
22. Jun 2008
Hi
ich brauche von euch die schnellste Möglichkeit die Anzahl Pixel gleicher Farbe herauszufinden.
Ganz einfaches Beispiel:
type
TColorArray = Array of TColor;
TAnzahlArray = Array of Integer;
function CountColor(aBitmap: TBitmap; Colors: TColorArray ): TAnzahlArray ;