summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--epost.lps105
-rw-r--r--epostunit.pas6
2 files changed, 56 insertions, 55 deletions
diff --git a/epost.lps b/epost.lps
index e55d6ff..ea8f087 100644
--- a/epost.lps
+++ b/epost.lps
@@ -22,16 +22,16 @@
<Unit2>
<Filename Value="epostunit.pas"/>
<IsPartOfProject Value="True"/>
+ <IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
- <TopLine Value="2512"/>
- <CursorPos Y="2529"/>
+ <TopLine Value="2336"/>
+ <CursorPos X="44" Y="2344"/>
<UsageCount Value="201"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="werteunit.pas"/>
<IsPartOfProject Value="True"/>
- <IsVisibleTab Value="True"/>
<EditorIndex Value="5"/>
<TopLine Value="66"/>
<CursorPos X="27" Y="71"/>
@@ -86,7 +86,7 @@
<EditorIndex Value="7"/>
<TopLine Value="86"/>
<CursorPos X="26" Y="115"/>
- <UsageCount Value="94"/>
+ <UsageCount Value="96"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
@@ -94,7 +94,7 @@
<IsPartOfProject Value="True"/>
<EditorIndex Value="8"/>
<CursorPos X="3" Y="2"/>
- <UsageCount Value="90"/>
+ <UsageCount Value="92"/>
<Loaded Value="True"/>
</Unit10>
<Unit11>
@@ -209,124 +209,123 @@
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2233" Column="66" TopLine="2204"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2223" Column="61" TopLine="2195"/>
</Position1>
<Position2>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2239" Column="82" TopLine="2210"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2230" Column="64" TopLine="2202"/>
</Position2>
<Position3>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2245" Column="43" TopLine="2216"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2243" Column="63" TopLine="2214"/>
</Position3>
<Position4>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2248" Column="88" TopLine="2219"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2253" Column="16" TopLine="2224"/>
</Position4>
<Position5>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2251" Column="39" TopLine="2222"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2282" Column="15" TopLine="2254"/>
</Position5>
<Position6>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2252" Column="71" TopLine="2223"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2323" Column="123" TopLine="2315"/>
</Position6>
<Position7>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2325" Column="74" TopLine="2296"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2329" Column="52" TopLine="2315"/>
</Position7>
<Position8>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2327" Column="39" TopLine="2298"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2725" Column="19" TopLine="2717"/>
</Position8>
<Position9>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2328" Column="59" TopLine="2299"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2765" Column="26" TopLine="2752"/>
</Position9>
<Position10>
<Filename Value="epostunit.pas"/>
- <Caret Line="6146" TopLine="6130"/>
+ <Caret Line="2768" Column="21" TopLine="2752"/>
</Position10>
<Position11>
- <Filename Value="werteunit.pas"/>
- <Caret Line="124" Column="31" TopLine="102"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2771" Column="11" TopLine="2752"/>
</Position11>
<Position12>
- <Filename Value="werteunit.pas"/>
- <Caret Line="2584" Column="52" TopLine="2568"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2783" Column="17" TopLine="2755"/>
</Position12>
<Position13>
<Filename Value="epostunit.pas"/>
- <Caret Line="5483" Column="36" TopLine="5462"/>
+ <Caret Line="2785" Column="17" TopLine="2757"/>
</Position13>
<Position14>
<Filename Value="epostunit.pas"/>
- <Caret Line="6016" Column="36" TopLine="5995"/>
+ <Caret Line="2786" Column="11" TopLine="2758"/>
</Position14>
<Position15>
<Filename Value="epostunit.pas"/>
- <Caret Line="6129" Column="44" TopLine="6112"/>
+ <Caret Line="2795" Column="42" TopLine="2767"/>
</Position15>
<Position16>
<Filename Value="epostunit.pas"/>
- <Caret Line="7142" Column="63" TopLine="7130"/>
+ <Caret Line="2796" Column="23" TopLine="2768"/>
</Position16>
<Position17>
<Filename Value="epostunit.pas"/>
- <Caret Line="187" Column="41" TopLine="171"/>
+ <Caret Line="2797" Column="11" TopLine="2769"/>
</Position17>
<Position18>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2538" Column="18" TopLine="2519"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2808" Column="38" TopLine="2780"/>
</Position18>
<Position19>
- <Filename Value="typenunit.pas"/>
- <Caret Line="439" Column="21" TopLine="421"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2834" Column="11" TopLine="2806"/>
</Position19>
<Position20>
<Filename Value="epostunit.pas"/>
- <Caret Line="6176" Column="54" TopLine="6143"/>
+ <Caret Line="2880" Column="19" TopLine="2852"/>
</Position20>
<Position21>
- <Filename Value="epost.lpr"/>
- <Caret Line="198" Column="37" TopLine="261"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2884" Column="82" TopLine="2856"/>
</Position21>
<Position22>
<Filename Value="epostunit.pas"/>
- <Caret Line="7155" Column="35" TopLine="7127"/>
+ <Caret Line="2896" Column="126" TopLine="2868"/>
</Position22>
<Position23>
- <Filename Value="epost.lpr"/>
- <Caret Line="657" TopLine="576"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2911" Column="19" TopLine="2882"/>
</Position23>
<Position24>
<Filename Value="epostunit.pas"/>
- <Caret Line="7029" TopLine="6997"/>
+ <Caret Line="2924" Column="7" TopLine="2895"/>
</Position24>
<Position25>
- <Filename Value="typenunit.pas"/>
- <Caret Line="2538" Column="79" TopLine="2530"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="2945" Column="24" TopLine="2929"/>
</Position25>
<Position26>
<Filename Value="epostunit.pas"/>
- <Caret Line="6125" TopLine="6189"/>
</Position26>
<Position27>
<Filename Value="epostunit.pas"/>
- <Caret Line="7029" Column="146" TopLine="7068"/>
+ <Caret Line="45" Column="9" TopLine="16"/>
</Position27>
<Position28>
- <Filename Value="werteunit.pas"/>
- <Caret Line="72" Column="152" TopLine="55"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="48" Column="18" TopLine="40"/>
</Position28>
<Position29>
- <Filename Value="werteunit.pas"/>
- <Caret Line="927" Column="110" TopLine="918"/>
+ <Filename Value="epostunit.pas"/>
+ <Caret Line="52" Column="32" TopLine="40"/>
</Position29>
<Position30>
<Filename Value="epostunit.pas"/>
- <Caret Line="7026" Column="86" TopLine="7017"/>
+ <Caret Line="132" Column="15" TopLine="110"/>
</Position30>
</JumpHistory>
<RunParams>
diff --git a/epostunit.pas b/epostunit.pas
index 057302f..e4e7320 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -612,14 +612,16 @@ begin
fehler('Finde Kontur nicht!');
if s='xMin' then result:=konturen^[i].xMin
else if s='xMax' then result:=konturen^[i].xMax
- else if s='tMin' then result:=konturen^[i].tMin
- else if s='tMax' then result:=konturen^[i].tMax
+ else if (s='tMin') or (s='yMin') then result:=konturen^[i].tMin
+ else if (s='tMax') or (s='yMax') then result:=konturen^[i].tMax
else if s='Breite' then result:=konturen^[i].xMax-konturen^[i].xMin
else if s='Hoehe' then result:=konturen^[i].tMax-konturen^[i].tMin
else fehler('Kenne Bezeichner '''+s+''' nicht als Eigenschaft einer Kontur!'#10 +
'Ich kenne:'#10 +
'''xMin'''#10 +
'''xMax'''#10 +
+ '''yMin'''#10 +
+ '''yMax'''#10 +
'''tMin'''#10 +
'''tMax'''#10 +
'''Breite'''#10 +