Ne doofe Frage zu Image / Bitmap / scanline

[Tom K.]

Hmmm... zu früh gefreut. Ich hab mal oben genanntes Beispiel genommen und entsprechend mein Image1 eingesetzt. Angeblich soll alles rot werden. Leider tut sich gar nix...

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
type
  PixArray = Array [1..3] of Byte;
var
  p: ^PixArray;
  h,w: Integer;
begin
  for h:=0 to Image1.Picture.Bitmap.Height-1 do
  begin
    p:= Image1.Picture.Bitmap.ScanLine[h];
    for w:=0 to Image1.Picture.Bitmap.Width-1 do
    begin
      p^[3]:=255;
      Inc(p);
    end;
  end;
end;

Wo ist hier jetzt das Problem?