Pixels vs. Scanline. Seltsames Ergebnis...

[xaromz]

Hallo,

Zitat von Flips:

Wie jetzt? Mit einer Scanline das ganze Bild durchgehen?
(Bin heute ned gut im Kopf, bin extrem müde :pale: )

[edit]Achso, du meinst von hinten anfangen oder wie? :gruebel: [/edit]

ist doch ganz einfach:

Delphi-Quellcode:

var
  P: PByteArray;
  C: Integer;
begin
  P := Bitmap1.ScanLine[Bitmap1.Height - 1];
  for C := 0 to Bitmap1.Width * Bitmap1.Height - 1 do
    P[C] := Random(255);
end;

Damit füllst Du ein Bitmap mit Zufallsfarben. Dabei ist das Bitmap allerdings 8 Bit. Bei 24 Bit wird's schwieriger: Eine Zeile ist immer an einer Integer-Grenze ausgerichtet. Deshalb muss man z. B. bei einem 13 Pixel breiten Bild bei jeder Zeile 3 Byte addieren. Das geht dann so:

Delphi-Quellcode:

var
  P: PByteArray;
  C: Integer;
  Filler: Byte;
begin
  P := Bitmap1.ScanLine[Bitmap1.Height - 1];
  Filler := 4 - (Bitmap.Width mod 4);
  for C := 0 to ((Bitmap1.Width + Filler) * Bitmap1.Height) * 3 - 1 do
    P[C] := Random(255);
end;

Gruß
xaromz