werteunit.pas, epostunit.pas: tIntPoint -> tInt64Point

1 files changed, 10 insertions, 10 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 52ee25a..3009bfc 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -174,7 +174,7 @@ type
     procedure spiegle(threads: longint); overload;
     procedure spiegle(threads,tMin,tMax: longint); overload;
     procedure fuelleMitDummys(sT: boolean);
-    procedure verschiebe(threads: longint; richtung: tIntPoint);
+    procedure verschiebe(threads: longint; richtung: tInt64Point);
     procedure ermittlePhasenWinkel(threads: longint);
     procedure fft2dNachbearbeitung(threads: longint; nB: tFFTDatenordnung);
     procedure schreibeWert(var f: textfile; x,y: longint);
@@ -395,8 +395,8 @@ type
   tVerschiebeThread = class(tLogThread)
     we:              tWerte;
     xMi,xMa,tMi,tMa: longint;
-    rtg:             tIntPoint;
-    constructor create(werte: tWerte; xMin,xMax,tMin,tMax: longint; richtung: tIntPoint);
+    rtg:             tInt64Point;
+    constructor create(werte: tWerte; xMin,xMax,tMin,tMax: longint; richtung: tInt64Point);
     procedure stExecute; override;
   end;
   tPhasenWinkelThread = class(tLogThread)
@@ -3951,7 +3951,7 @@ var
   s:                       string;
   b:                       boolean;
   bekannteBefehle:         tMyStringList;
-  maxPos:                  tIntPoint;
+  maxPos:                  tInt64Point;
   betraege:                tWerte;
 begin
   result:=false;
@@ -4038,7 +4038,7 @@ begin
   end{of case};
   betraege.free;
 
-  gibAus('zentrieren ('+tIntPointToStr(maxPos)+')',3);
+  gibAus('zentrieren ('+tInt64PointToStr(maxPos)+')',3);
   verschiebe(threads,maxPos);
 
   gibAus('berechne inverse x-FFT ...',3);
@@ -5226,15 +5226,15 @@ begin
     end;
 end;
 
-procedure tWerte.verschiebe(threads: longint; richtung: tIntPoint);
+procedure tWerte.verschiebe(threads: longint; richtung: tInt64Point);
 var
-  einheitsZelle:     tIntPoint;
+  einheitsZelle:     tInt64Point;
   teilRichtung:      char;
   verschiebeThreads: array of tVerschiebeThread;
   i:                 longint;
   fertig:            boolean;
 begin
-  einheitsZelle:=berechneEinheitsZelle(richtung,intPoint(_xSteps,_tSiz div (1+byte(istKomplex))));
+  einheitsZelle:=berechneEinheitsZelle(richtung,int64Point(_xSteps,_tSiz div (1+byte(istKomplex))));
 
   teilRichtung:=char(ord('x')+byte(einheitsZelle['y']>einheitsZelle['x']));
   if einheitsZelle[teilRichtung]<threads then
@@ -7391,7 +7391,7 @@ end;
 
 // tVerschiebeThread ***********************************************************
 
-constructor tVerschiebeThread.create(werte: tWerte; xMin,xMax,tMin,tMax: longint; richtung: tIntPoint);
+constructor tVerschiebeThread.create(werte: tWerte; xMin,xMax,tMin,tMax: longint; richtung: tInt64Point);
 begin
   inherited create;
   we:=werte;
@@ -7400,7 +7400,7 @@ begin
   tMi:=tMin;
   tMa:=tMax;
   rtg:=richtung;
-  gibAus('VerschiebeThread erzeugt: '+intToStr(xMin)+'-'+intToStr(xMax)+' '+intToStr(tMin)+'-'+intToStr(tMax)+' '+tIntPointToStr(richtung)+' '+intToStr(byte(we.istKomplex)),1);
+  gibAus('VerschiebeThread erzeugt: '+intToStr(xMin)+'-'+intToStr(xMax)+' '+intToStr(tMin)+'-'+intToStr(tMax)+' '+tInt64PointToStr(richtung)+' '+intToStr(byte(we.istKomplex)),1);
   suspended:=false;
 end;