bugfixes to previous commit

1 files changed, 9 insertions, 3 deletions

diff --git a/epostunit.pas b/epostunit.pas
index c393734..6b4a0f8 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -4010,6 +4010,14 @@ begin
   until false;
 
   _tSiz:=_tSiz*2;
+  case genauigkeit of
+    gSingle:
+      sWerte.params.istKomplex:=true;
+    gDouble:
+      dWerte.params.istKomplex:=true;
+    gExtended:
+      eWerte.params.istKomplex:=true;
+  end{of case};
   if sT then begin
     result:=true;
     exit;
@@ -5841,7 +5849,6 @@ end;
 procedure tBilderThread.stExecute;
 var
   i,j,k:   longint;
-  hLen:    int64;
   wert:    extended;
   b:       boolean;
   frb:     tRGB;
@@ -5867,9 +5874,8 @@ begin
         farben[i-xPMi+(j+oOf)*breite].rgbGreen:=0;
         farben[i-xPMi+(j+oOf)*breite].rgbBlue:=0;
         for k:=0 to length(wertes)-1 do begin
-          hLen:=length(wertes[k]) div 2;
           for b:=false to istKomplex[k] do begin
-            wert:=(wertes[k,i-max(0,xPMi)+(j+byte(b and istKomplex[k])*hLen)*wBreite]/anzahlens[k,i-max(0,xPMi)+j*wBreite]-ws[k]._minW)/(ws[k]._maxW-ws[k]._minW);
+            wert:=(wertes[k,i-max(0,xPMi)+(j+byte(b and istKomplex[k])*(ws[k]._tSiz div 2))*wBreite]/anzahlens[k,i-max(0,xPMi)+j*wBreite]-ws[k]._minW)/(ws[k]._maxW-ws[k]._minW);
             wert:=max(0,min(wert,1));
             wert:=nbs[k].transformiereWert(wert);
             frb:=pals[k].wertZuFarbe(wert,b);