Ich habe nicht ganz verstanden, was Du möchtest.
Aber da ich davon ausgehe, dass Scanline allgemein bekannt ist, zeige ich mal, wie einfach die Optimierung mit TBGRAbitmap geht.
Code: Alles auswählen
uses BGRAbitmap;
....
var i : Integer;
p: PBGRAPixel;
img : TBGRABitmap;
begin
img := TBGRABitmap.create (MyWidth, MyHeight);
p := img.data;
for i := 0 to img.NbPixels -1 do
begin
p^ := random (256*256*256);
inc(p);
end;
img.InvalidateBitmap;
img.draw(Image1.Canvas,0,0);
img.free;
end;
Winni