zoombug entfernt

1 files changed, 8 insertions, 4 deletions

diff --git a/werteunit.pas b/werteunit.pas
index 3150061..5f8dda4 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -966,12 +966,16 @@ begin
       tv:=min(params.tsiz-1,max(0,ceil((j-1/2)/yz+tmi)));
       tb:=min(params.tsiz-1,max(0,ceil((j+1/2)/yz+tmi-1)));
       if xv>xb then begin
-        xv:=xv-byte((i>0) or (xpmi>0));
-        xb:=xb+byte((xpmi<0) or ((i=0) and (xpmi=0)));
+        if (i>0) or (xpmi>0) then
+          dec(xv)
+        else
+          inc(xb);
       end;
       if tv>tb then begin
-        tv:=tv-byte(j>0);
-        tb:=tb+byte(j=0);
+        if j>0 then
+          dec(tv)
+        else
+          inc(tb);
       end;
       if (xv>xb) or (tv>tb) then begin
         gibAus('Keine Inputwerte für Position '+inttostr(i)+':'+inttostr(j)+'!',1);