kleinen Legendenbug entfernt, sowie geringfügige typographische

Veränderungen

1 files changed, 8 insertions, 11 deletions

diff --git a/epostunit.pas b/epostunit.pas
index c040e51..2df49bc 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -5276,26 +5276,23 @@ begin
  i:=0;
  wert:=minDichte;
  schritt:=-1;
- while wert<maxDichte do
-  begin
+ while wert<maxDichte do begin
    if i>0 then gibAus(inttostr(i)+' '+floattostr(wert)+' '+floattostr(schritt)+' '+floattostr(beschriftungsschritte[i].bis),1);
-   if ((i<length(beschriftungsschritte)-1) and (wert>beschriftungsschritte[i].bis)) or (i=0) then
-    begin
+   if ((i<length(beschriftungsschritte)-1) and (wert>beschriftungsschritte[i].bis)) or (i=0) then begin
      repeat
-      inc(i);
+       inc(i);
      until (i>=length(beschriftungsschritte)-1) or (beschriftungsschritte[i].bis>=wert);
-     if beschriftungsschritte[i].linear then
-      begin
+     if beschriftungsschritte[i].linear then begin
        schritt:=(beschriftungsschritte[i].bis-beschriftungsschritte[i-1].bis)/beschriftungsschritte[i].schritte;
        schritt:=power(10,round(ln(schritt)/ln(10)))*beschriftungsschritte[i].faktor;
-      end
+     end
      else
-      schritt:=power(10,floor(ln(wert)/ln(10)-beschriftungsschritte[i].schritte))*beschriftungsschritte[i].faktor;
+       schritt:=power(10,floor(ln(wert)/ln(10)-beschriftungsschritte[i].schritte))*beschriftungsschritte[i].faktor;
      tmp:=round(beschriftungsschritte[i-1].bis/schritt)*schritt;
-     while tmp+schritt/2<=wert do tmp:=(round(tmp/schritt)+1)*schritt;
+     while tmp<wert do tmp:=(round(tmp/schritt)+1)*schritt;
      wert:=tmp;
      gibAus(inttostr(i)+' '+floattostr(wert)+' '+floattostr(schritt)+' '+floattostr(beschriftungsschritte[i].bis),1);
-    end;
+   end;
    setlength(beschriftungen,length(beschriftungen)+1);
    beschriftungen[length(beschriftungen)-1]:=tBeschriftung.create;
    beschriftungen[length(beschriftungen)-1].bBreite:=breite;