Jeg bruger Image1.Picture.Bitmap.Scanline[y] til at loade et billede ind
i et 2dim array.
Her er et eksempel på noget kode, det skal nok lige tilpasses... men jeg
håber du fanger ideen. Så du selv kan smide farvekoderne ind i dit array.
procedure TForm1.Button2Click(Sender: TObject);
var
x,y : Integer;
Line : PRGB32Array;
begin
Image1.Picture.Bitmap.LoadFromFile('test.bmp');
with Image1.Picture.Bitmap do
begin
PixelFormat := pf32bit;
Width := Image1.Width;
Height := Image1.Height;
for y := 0 to Height - 1 do
begin
Line := Scanline[y];
for x := 0 to Width - 1 do
begin
Line[x].R := 10;
Line[x].G := 10;
Line[x].B := 10);
Line[x].A := 0; // Alpha Channel - transparency.
end;
end;
Image1.Invalidate;
end;
end;
Der findes en del grafikkode til Delphi her:
http://www.swissdelphicenter.ch/torry/grafik.php