Mh jetzt versteh ich schon wieder nur Bahnhof
. Hatte mich gerade gefreut, dass das ganze so einfach lief
Also gut. Man vergleiche deinen und meinen Teil, da fällt auf, dass
Delphi-Quellcode:
//eine Abfrage dazukommt
bytes := PixelFormatBytes[bmp.PixelFormat];
if bytes = 0 then
Exit;
//das hier anstelle des meines Vergleiches steht
for k := 0 to bytes - 1 do
begin
Pixel^ := 0; //Zeiger??
inc( Pixel ); //inc??
//hier müsste der Vergleich der Pixel hin?!
end;
Leider hab ich keine Ahnung von Zeigern und dem "inc()" kram. Wie sähe denn unter Berücksichtigung des Pixelformates meine angepasste Prozedur aus?
mfg KahPee
Edit:
Zitat von
Aphton:
Edit:
Ich habe eine kleine ScanlineBitmap
Unit angehangen. Mit TScanlineBitmap.Pixel[] bist du schneller dran, da es per Scanline arbeitet.
Arbeitet der obige Quellcode nicht auch per "Scanline"?