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;