summaryrefslogtreecommitdiff
path: root/epostunit.pas
diff options
context:
space:
mode:
Diffstat (limited to 'epostunit.pas')
-rw-r--r--epostunit.pas36
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;