Entspringen der Phase kann nun mehr als nur einen Nachbarn beachten

1 files changed, 7 insertions, 4 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 244931e..b57a604 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -4465,6 +4465,7 @@ var
   bekannteBefehle:         tMyStringList;
   maxPos:                  tInt64Point;
   betraege:                tWerte;
+  i:                       longint;
 begin
   result:=false;
   Zeit:=now;
@@ -4586,11 +4587,13 @@ begin
   if entspringen.modus<>emKein then begin
     case entspringen.modus of
       emHorizontal:
-        entspringen.parameter[0]:=
-          kont2disk('x',entspringen.parameter[0]);
+        for i:=0 to 1 do
+          entspringen.parameter[i]:=
+            kont2disk('x',entspringen.parameter[i]);
       emVertikal:
-        entspringen.parameter[0]:=
-          kont2disk('y',entspringen.parameter[0]);
+        for i:=0 to 1 do
+          entspringen.parameter[i]:=
+            kont2disk('y',entspringen.parameter[i]);
     end{of case};
     gibAus('entspringen ...',3);
     entspringe(threads,entspringen);