Kollision Image Shape

[Maurooon]

Das ist mir schon klar, nur ist das Hindernis nur bspw. 10 Pixel breit, das heißt wenn es um das Hindernis drum herum ist, soll es sich ja auch noch bewegen können. Deshalb brauch man ja quasi eine Zone, und dabei geht es mir darum, das elegant und einfach (im Sinne von wenig Quelltext) zu gestalten als mit 4 Variablen pro Hinderniss.

[himitsu]

Wenn es sich um 10px bewegt, aber das hindernis weniger als 10px breit ist, dann mußt du auch zwischenpositionen prüfen. (im Extremfall eben jedes Pixel)

Und der Rest wurde doch schon gesagt?
* Du berechnest die neue Position
* prüfst ob es eine Kollision geben würde
* und wenn es kollidiert, dann wird das Objekt eben nicht bewegt.

Types.IntersectRect
TRect.IntersectRect

Types.PtInRect
TRect.PtInRect bzw. TPoint.PtInRect

[Blup]

Ein kleines Beispiel(ungetestet):

Delphi-Quellcode:

function CanPosChanging(AControl: TControl; const ANewPos: TRect): Boolean;
var
  lControl: TControl;
  lRect: TRect;
begin
  // Überschneidung mit Shape ist unzulässig
  if Assgined(AControl.Parent) then
  begin
    for lControl in AControl.Parent.Controls do
    begin
      if lControl is TShape then
      begin
        if IntersectRect(lRect, lControl.BoundsRect, ANewPos) then
        begin
          Result := False;
          Exit;
        end;
      end;
    end;
  end;
  Result := True;
end;

procedure DoPosChanging(AControl: TControl; const ANewPos: TRect);
begin
  if CanPosChanging(AControl, ANewPos) then
    AControl.BoundsRect := ANewPos;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  dx, dy: Integer;
  lNewPos: TRect;
begin
  dx := 0;
  dy := 0;
  case Key of
    VK_UP:    dy := -1;
    VK_DOWN:  dy := +1;
    VK_Left:  dx := -1;
    VK_RIGHT: dx := +1
  else
    Exit;
  end;
  // Testendruck nicht an anderer Stelle weiter verarbeiten
  Key := 0;

  lNewPos := MyImage.BoundsRect;
  OffsetRect(lNewPos, dx, dy);
  DoPosChanging(MyImage, lNewPos);
end;