Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
es schien zu klappen doch irgenwie brecht er die forschleife bzw. die funktion vorzeitig ab und ich weiß nicht warum:
function GetDir1(ObjIndex:Integer):TPointExt;
var
i:integer;
sm,sm1:TPointExt;
s1,s2:TPointExt;
m,s:Extended;
e,o1:TPointExt;
begin
Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
Ich habe es GESCHAFT..... es gibt zwar noch ein paar schönheitsfehler aber die löse ich auch noch:
var
i:integer;
sm,sm1:TPointExt;
s1,s2:TPointExt;
m,s:Extended;
begin
with TFigure(obj.Items).Style do begin
S1.X:=(LastPos.X-FirstPos.X) / 2;
Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
Mir ist da noch eine andere lösung eingfallen doch diese hat auch nicht funkioniert und zwar wollte ich folgendes machen:
Zuerst rechne ich den mittelpunk aus, dann
rechne ich mir die größe für x und y aus teile sie durch 2
das mache ich mit allen objekten.
wenn ich fertig bin muss ich normalerweise doch nur noch:
Mittelpunk1-Mittelpunk2-Größe1-Größe2 rechnen doch das klapp leider nich...
Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
und wie kann ich es umstellen auf ein viereck ?
Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
entwerde verstehe ich das ergbnis nicht oder die formel funtkioniert noch nicht:
die werte sind viel zu hoch jetzt.
ich habe das jetzt so:
for i:=0 to obj.count-1 do begin
if (TFigure(obj.Items).Style.isSel = True) and (i <> SelObj) then begin
sm1.x:=TFigure(obj.Items).Style.LastPos.X div 2;
sm1.y:=TFigure(obj.Items).Style.LastPos.y div 2;
diff.X:=sm1.x-sm.x;
...
Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
Entfernung = Wurzel(dif.x² + dif.y²)
was hat den die kleine zwei zu bedeuten ?
ich dachte einfach mal 2 nehmen oder nicht ?
Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
Vielen Dank für die schnelle antwort, jedoch hat es nicht funktioniert, weil die werte waren immer zu klein:
var
i:integer;
sm,sm1,diff:TPoint;
m1,m2:Extended;
begin
sm.x:=TFigure(obj.Items).Style.LastPos.X div 2;
sm.y:=TFigure(obj.Items).Style.LastPos.y div 2;
// und von einenm anderen objekt
Forum: Multimedia
Delphi
by mimi,
2. Jul 2006
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:
// Vom zuletzt makierten objekt
sm.x:=TFigure(obj.Items).Style.LastPos.X div 2;
sm.y:=TFigure(obj.Items).Style.LastPos.y div 2;
// und von einenm anderen objekt
for i:=0 to obj.count-1 do begin