Hallo

Ich spiele derzeit mit der graphics32 lib herum und beschäftige mich derzeit mit transforming. Ich möchte ein Polygon auf eine fixe Position bringen, dazu mache ich folgendes:

zusammenfalten · markieren

Delphi-Quellcode:

var
  afftrans : TAffineTransformation;
  Polygon : TPolygon32;
  [...]
begin
  [...]
  afftrans:= TAffineTransformation.Create;
  afftrans.Translate(20,20);
  Polygon.Transform(afftrans);
  
  [...]

end;

Das Polygon wird nun um 20 punkte nach x und um 20 punkte nach y verschoben. Das heißt aber auch, dass das Polygon jedesmal um 20 punkte verschoben wird wenn der Code durchlaufen wird. Also wandert das Polygon immer weiter nach rechts z.b.
Ich möchte es aber auch eine Fixe Position setzen.
Grund: Ich möchte das Polygon per Mausklick irgendwo hin setzen.
Idee: A) Polygon auf Fixe Position bringen (Maus Coords.)
B) Aktuelle Position des Polygons ermitteln, Maus Coords.
abziehen und die Difference als Translate an das Polygon
schicken.

Meine Frage daher: Kann ich das Polygon A) Auf ne Fixe Position setzen oder B ) Dier derzeitge Transformation ermitteln?

Ich hoffe ich konnte euch das Problem klar machen

Mfg
colezero

Warum lässt du die Transformation denn überhaupt mehrmals ausführen?

Wenn ich auf das Canvas mehrmals drauf klicke, wird diese procedure auch mehrmals durchlaufen Aber ich kann da nicht einfach die X,Y Coords. der Maus übergeben, weil er das Polygon sonst jedesmal so verschieben würde:

markieren

Delphi-Quellcode:

 AltePosition.X := AltePosition.X + NeuesX;
 AltePosition.Y := AltePosition.Y + NeuesY;

Aber ich will ja nur

markieren

Delphi-Quellcode:

 ALtePosition.X := NeuesX;
 AltePosition.Y := NeuesY;

Was in der Grafik nicht unüblich ist, ist das Mitführen einer ganz eigenen Transformationsmatrix für jedes Objekt. Dann würde das eigentliche Polygon nie verschoben, sondern immer nur zum Zeitpunkt der Anzeige eine Kopie davon mit der zugehörigen Matrix. Damit kann man dann stets von der Ursprungsposition ausgehen. (In der Matrix steht dann ja quasi die absolute Verschiebung (wenn es nur eine Translationsmatrix ist).)
Da ich hier leider weder Delphi noch Gr32 zur Hand habe, weiss ich nicht, ob das die Polygonklasse evtl. ohnehin schon intern so macht, und du an die Matrix dran kommst. Im Zweifel eben selbst nen kleinen Wrapper drum würgeln, dann ist's sogar hübsch

Ich denke ich werd mir das mal anschauen und evtl. so machen, klingt für mich auch sehr hübsch Ich werde die Tage mich dran machen und schauen was nach einen schönen Wochenende bei SOnne im Garten so alles dabei rauskommt und die Ergebnisse hier rein stellen.

Danke dir für deine Hilfen/Anregungen

Viele Grüße

Zitat von ColeZero:

schönen Wochenende bei SOnne im Garten

38°C und Gewitter mit ~60% rel. Luftfeuchte nennst du schön!? Ich brauch'n Kaffee und tauch wieder in meinen Keller ab