TImage.Refresh in Lazarus

[Captain Albern]

Ergänzung. Ich habe ein neues Test-Projekt mit einem TImage und einem Button angelegt und führe folgenden Code aus. Es wird ein buntes Rauschen erzeugt, wenn man auf den Knopf drückt. Allerdings nur beim ersten Mal, danach wird das Bild nicht aktualisiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var y,x                         : Integer;
    Line                        : Array [0..959] of Byte;
begin
  Randomize;
  Image1.Width:=320;
  Image1.Height:=240;
  Image1.Picture.Bitmap.Width:=320;
  Image1.Picture.Bitmap.Height:=240;
  image1.Picture.Bitmap.PixelFormat:=pf24Bit;
  for y := 0 to 239 do begin
    for x := 0 to 959 do
      Line[x]:=Random($FF);
    Move(Line[0],Image1.Picture.Bitmap.ScanLine[y]^,960);
  end;
  Image1.Refresh;
end;