So, ich bin jetzt ganzschön verwirrt
Ich habs mal so weit gemacht, wie ichs begriffen hab
Delphi-Quellcode:
if intersectRect(r, Player.BoundsRect, Ziel.BoundsRect) then
begin
Score:=Score+1;
Ziel.Top:=10+Random(Form1.ClientHeight-10);
Ziel.left:=10+Random(Form1.ClientWidth-10);
MyBitmap := BitMap[aVertikal].create;
MyBitmap := BitMap[aHorizontal].create;
BitMap[aVertikal].LoadFromFile('GegnerV.bmp');
BitMap[aHorizontal].LoadFromFile('GegnerH.bmp');
Gegner[0].Position := Point(100, 20);
Gegner[0].Ausrichtung := aVertikal;
with Gegner[0] do
Canvas.Draw(Position.X, Position.Y, Bitmap[Ausrichtung]);
end;
Aber ich bekomme wieder Fehler