Hilfeersuch Polygon verschieben

[Thomas K.]

Hallo Boardmitglieder,

ich versuche seit nunmehr sechs Stunden in Delphi (3 davon in der Uni, 3 davon mit der Demo zuhaus) ein Problem für unseren Informatikbeleg zu lösen.

In der Hoffnung mein Problem wurde nicht bereits irgendwo diskutiert, muss ich euch mal mit sowas einfachen für euch langweilen.

Der erste Teil der Aufgabe lautet: ein Formular zu gestalten in das man ein Polygon einzeichnen kann.

Dass ist erst mal nicht das Problem, da hab ich folgenden Quelltext geschrieben

Delphi-Quellcode:

procedure Tform1.Button2Click(sender: TObject);
var
i:integer;
for i:=1 to n-1 do
 begin
  image1.canvas.moveto(xp[i],yp[i];
  image1.canvas.lineto(xp[i+1]myo[i+1]);
  end;
  image1.canvas.Moveto(xp[n],yp[n]);
  image1.canvas.lineto(xp[1],yp[1]);
  end;

Das Setzen der Punkte hab ich mittels folgender OnMouseDown Variante gelöst:

Delphi-Quellcode:

procedure Tform1.image1mousedown(sender:tobject;
button:Tmousebutton;
shift: Tshiftstate;
x,y: Integer);
begin
 if button=mbleft then
 begin
 n:=n+1;
 xp[n]:=x;
 yp[n]:=y;
 image1.canvas.rectangle(x-3,y-3,x+3,y+3);

Das eigentliche Problem kommt nun:

Ich kann ja nun ein Polygon wunderbar zeichnen, indem ich die Punkte setze und anschließend auf den Polygonzeichnen-Button klicke.

Ich soll nun im zweiten Aufgabenteil Delphi einen Punkt vorgeben (dachte an sowas wie TEdit also x und y Koordinaten) und Delphi soll das gesamte Polygon so verschieben, dass der erste Punkt des vorher gezeichneten Polygons dieser von mir eingegebene Punkt wird. Das Polygon soll aber stehenbleiben und ich muss es dann noch farbig unterscheiden - wobei letzteres glaub ich nicht so kompliziert ist.

Bitte helft mir, ich verstehe die Mathematik dahinter also

a=xp-x1, und b=yp-y1
wobei dann gilt xi'=xi+a
yi'=yi+b
für i=i-n

aber ich hab keine Ahnung, wie man das Delphi sagt. Könntet ihr mir bitte die Funktion die das ausführt und den Quellcode dafür aufschreiben.

Dankeschön!

[Jens01]

Wo ist eigentlich Dein Problem. Die Mathematik hast Du doch.
Du machst -wie schon vorgeschlagen- zwei Tedits auf und fragst die Koordinaten ab. Dann machst Du noch einen TButton. In dem OnClick-Event malst Du das neue Dreieck, wie schon in Deinem Button2Click.

[Delphi-Laie]

Wo das Problem liegen soll, verstehe ich ebenfalls nicht.

Du läßt ein neues Polgon mit den drei Punkten: Neuer Punkt, alter Punkt Nr.2 und alter Punkt Nr. 3 in einer neuen Farbe zeichnen, richtig? Oder sollen die anderen beiden Punkte auch verschoben werden?

Such' Dir ein Ereignis (aus), das diese Zweitzeichnung des Polygons auslöst - einfachster Fall: z.B. ein Klick auf das Formular oder auf einen eigens dafür draufgebebberlten Button.

[Aphton]

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;

[Thomas K.]

Danke euch für eure Antworten,

ihr müsst wissen ich kenne die Delphi-Funktionen nur sehr wenig. So ein bisschen versteh ich deine Antwort Aphton, aber wie heißt denn der verschiebepolygon-Befehl/Procedure in Delphi (1. Zeile und 3. von unten).

Danke

[Blup]

Programmieren ist zuerst einmal, man zerlegt eine große Augabe in Teilaufgaben und diese wieder in noch kleinere Teilaufgaben, bis diese durch einen Befehl oder Funktion der Programmiersprache oder Funktionsbibliothek erfüllt werden können. Diese einzelnen Befehle fasst man dann selbst wieder zu einem Befehl oder einer Funktion zusammen, die die Teilaufgabe aus der nächst höheren Schicht lösen kann, usw.

Genau das hat Aphton hier gemacht, eine neue Funktion "verschiebePolygon".
Da es sich um eine Methode von TForm1 handelt, muss diese zusaätzlich auch in der Deklaration von TForm1 bekannt gegeben werden.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    {hier stehn Variablen für alle Steuerelemente des Formulars zB.:}
    Button1: TButton;
    {... usw. ...}
  private
    {hier können z.B. eigene Methoden deklariert werden}
    procedure verschiebePolygon(x, y: Integer);
  end;

implementation
{ab hier muss dann beschrieben werden was die Methoden eigentlich machen siehe Code von Aphton}

Die Antwort auf deine Frage "wie heißt denn der verschiebepolygon-Befehl/Procedure":
Er heist "verschiebePolygon" weil Aphton den so genannt hat und dem Compiler sagt, was der Computer bei diesem Befehl tun soll.

[DeddyH]

An dieser Stelle möchte ich die Grundlagen-Tutorials sowie das E-Book vom Delphi-Treff empfehlen. Ohne ein bestimmtes Maß an Grundwissen tut man sich einfach unnötig schwer.

[Aphton]

Oder um es ein bisschen Quick und Dirty zu machen, könntst du den Inhalt dieser Procedure rauskopieren und an der Stelle einfügen, wo du sie ausgeführt haben willst.~

Delphi-Quellcode:

procedure TForm1.IrgendEinButtonClick;
var
  x, y: Integer;
  i: Integer;
  dx, dy: Integer;
begin
  x := StrToInt(Edit1.Text); // hier drinnen befindet sich die x Koordinate
  y := StrToInt(Edit2.Text); // hier drinnen befindet sich die y Koordinate
  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;
  Invalidate; // neuzeichnen
end;