diff options
| -rw-r--r-- | epost.lps | 105 | ||||
| -rw-r--r-- | epostunit.pas | 6 |
2 files changed, 56 insertions, 55 deletions
@@ -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 + |