Hallo,
ich möchte gerne von zwei objekten die entfernung berechnen, das habe ich mir so vorgestellt:
1. ich berechne den mittelpunkt von den zwei objekten:
Delphi-Quellcode:
// Vom zuletzt makierten objekt
sm.x:=TFigure(obj.Items[selobj]).Style.LastPos.X div 2;
sm.y:=TFigure(obj.Items[selobj]).Style.LastPos.y div 2;
// und von einenm anderen objekt
for i:=0 to obj.count-1 do begin
if (TFigure(obj.Items[i]).Style.isSel = True) and (i <> SelObj) then begin
sm1.x:=TFigure(obj.Items[i]).Style.LastPos.X div 2;
sm1.y:=TFigure(obj.Items[i]).Style.LastPos.y div 2;
end;
end;
das problem ist jetzt: ich möchte die entfernung haben vom zuletzt makierten objekt und zu den andren objekt und zwar von beiden ränder aus... ich dachte das könnte ich irgenwie über die winkel machen nur ich weiß leider nicht genau wie.
Lastpos ist der rechte rand vom objekt
Könnte mir da jemmand etwas Helfen ? vielen dank im vorraus.