Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Reserviere dir ausreichend Speicher und schreibe dein Bitmap herein:

Delphi-Quellcode:

var
  pmem: PByte;
  pb: PByte;
  rgba: PRGBA;
begin
  //Reservieren
  GetMem(pmem, Bitmap.Width * Bitmap.Height);

  //Daten hereinschreiben
  pb := PByte;
  rgba := Bitmap.Scanline;
  for y := 0 to Bitmap.Width - 1 do
  begin
    for x := 0 to Bitmap.Height - 1 do
    begin
      if rgba^ = Transparenzfarbe then
        pb^ := 0
      else
        pb^ := 255;
      inc(pb);
      inc(rgba);
    end;
  end;

  //Pixel überprüfen
  pb := pmem;
  inc(pb, meineXPos + meineYPos * Bitmap.Height);
  if pb^ = 255 then
   Kollision;
  

  //Freigeben
  FreeMem(pmem);
end;