Einzelnen Beitrag anzeigen

Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#4

AW: Hilfeersuch Polygon verschieben

  Alt 14. Jun 2012, 00:48
Sofern du dich schon mit der Definition/Ausprogrammierung von Methoden/Proceduren auskennst, könntest du folgendes machen~

Delphi-Quellcode:
procedure TForm1.verschiebePolygon(x, y: Integer);
var
  i: Integer;
  dx, dy: Integer;
begin
  dx := x - xp[1];
  dy := y - yp[1];
  for i := 1 to n do
  begin
    xp[i] := xp[i] + dx;
    yp[i] := yp[i] + dy;
  end;
end;

procedure TForm1.IrgendEinButtonClick;
var
  x, y: Integer;
begin
  x := StrToInt(Edit1.Text); // hier drinnen befindet sich die x Koordinate
  y := StrToInt(Edit2.Text); // hier drinnen befindet sich die y Koordinate
  verschiebePolygon(x, y);
  Invalidate; // neuzeichnen
end;
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat