diff options
Diffstat (limited to 'epostunit.pas')
-rw-r--r-- | epostunit.pas | 36 |
1 files changed, 23 insertions, 13 deletions
diff --git a/epostunit.pas b/epostunit.pas index 17331f0..f440c8b 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -5522,17 +5522,18 @@ begin gibAus('Unerwartetes Dateiende in '''+paramstr(1)+'''!',3); exit; end; - if s='Ende' then + bekannteBefehle.clear; + if istDasBefehl('Ende',s,bekannteBefehle,false) then break; - if startetMit('Dicke:',s) then begin + if istDasBefehl('Dicke:',s,bekannteBefehle,true) then begin musterKontur.dicke:=exprToFloat(sT,s); continue; end; - if startetMit('Deckkraft:',s) then begin + if istDasBefehl('Deckkraft:',s,bekannteBefehle,true) then begin musterKontur.deckKraft:=exprToFloat(sT,s); continue; end; - if startetMit('Farbe:',s) then begin + if istDasBefehl('Farbe:',s,bekannteBefehle,true) then begin if strToTRGB(s,musterKontur.farbe) then continue; gibAus(''''+s+''' ist keine gültige Farbe!',3); exit; @@ -5541,7 +5542,8 @@ begin setLength(verwKonturen,length(verwKonturen)+1); i:=findeKontur(erstesArgument(s),nil,wertes,konturen,false); if (i<0) or (i>=length(konturen^)) then begin - gibAus('Die Kontur '''+s+''' gibt es nicht!',3); + bekannteBefehle.sort; + gibAus('Die Kontur '''+s+''' gibt es nicht!'#10+bekannteBefehle.text,3); aufraeumen; exit; end; @@ -7546,14 +7548,22 @@ begin i:=findeWerte(erstesArgument(s),nil,w,nil,false); if i<0 then exit; schwelle:=w^[i].exprToFloat(false,s); - if _xmin='' then xMi:=1 - else xMi:=max(1,w^[i].kont2disk('x',w^[i].exprToFloat(sT,_xmin))); - if _xmax='' then xMa:=w^[i]._xSteps-1 - else xMa:=max(1,w^[i].kont2disk('x',w^[i].exprToFloat(sT,_xmax))); - if _tmin='' then tMi:=1 - else tMi:=max(1,w^[i].kont2disk('t',w^[i].exprToFloat(sT,_tmin))); - if _tmax='' then tMa:=w^[i]._tSiz-1 - else tMa:=max(1,w^[i].kont2disk('x',w^[i].exprToFloat(sT,_tmax))); + if _xmin='' then + xMi:=1 + else + xMi:=max(1,w^[i].kont2disk('x',w^[i].exprToFloat(sT,_xmin))); + if _xmax='' then + xMa:=w^[i]._xSteps-1 + else + xMa:=max(1,w^[i].kont2disk('x',w^[i].exprToFloat(sT,_xmax))); + if _tmin='' then + tMi:=1 + else + tMi:=max(1,w^[i].kont2disk('t',w^[i].exprToFloat(sT,_tmin))); + if _tmax='' then + tMa:=w^[i]._tSiz-1 + else + tMa:=max(1,w^[i].kont2disk('x',w^[i].exprToFloat(sT,_tmax))); if sT then begin result:=true; exit; |