epostunit.pas: cleanup

1 files changed, 13 insertions, 3 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 42f39f2..fdba2da 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -4058,16 +4058,25 @@ begin
     bekannteBefehle.add('''t-Fenster: ...''');
     if (pos('-Fenster:',s)=2) and (s[1] in ['x','t']) then begin
       b:=s[1]='t';
+      if fensters[b].aktiv then begin
+        gibAus('Das Fenster in '+s[1]+'-Richtung war zum Entfernen der Artefakte bereits aktiviert!',3);
+        bekannteBefehle.free;
+        exit;
+      end;
       delete(s,1,pos(':',s));
       s:=trim(s);
-      if b then fensters[b].rand:=round(kont2diskFak('t',exprToFloat(sT,s)))
-      else fensters[b].rand:=round(kont2diskFak('x',exprToFloat(sT,s)));
+      if b then
+        fensters[b].rand:=round(kont2diskFak('t',exprToFloat(sT,s)))
+      else
+        fensters[b].rand:=round(kont2diskFak('x',exprToFloat(sT,s)));
       fensters[b].aktiv:=true;
       continue;
     end;
     if istDasBefehl('Hintergrund abziehen:',s,bekannteBefehle,true) then begin
-      if not stringToTHintergrundAbzugsArt(s,sT,knownValues,@callBackGetValue,hintergrundAbziehen) then
+      if not stringToTHintergrundAbzugsArt(s,sT,knownValues,@callBackGetValue,hintergrundAbziehen) then begin
+        bekannteBefehle.free;
         exit;
+      end;
       continue;
     end;
     if istDasBefehl('heiße Pixel',s,bekannteBefehle,true) then begin
@@ -4080,6 +4089,7 @@ begin
       if s='' then
         continue;
       gibAus('Zu viele Argumente für "heiße Pixel" - erwartet: relative Schwelle, absolutes Minimum, absolutes Maximum',3);
+      bekannteBefehle.free;
       exit;
     end;
     bekannteBefehle.sort;