diff options
Diffstat (limited to 'epostunit.pas')
| -rw-r--r-- | epostunit.pas | 16 |
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; |