Fenster richtiger positioniert

3 files changed, 60 insertions, 59 deletions

diff --git a/unit1.pas b/unit1.pas
index 7b151b0..e38a5ad 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -176,8 +176,8 @@ end;
 
 procedure TForm1.FormShow(Sender: TObject);
 begin
-  form1.top:=screen.height-form1.height-24;
-  form1.left:=screen.width-form1.width;
+  form1.top:= screen.monitors[0].top +screen.monitors[0].height-form1.height-24;
+  form1.left:=screen.monitors[0].left+screen.monitors[0].width -form1.width;
 end;
 
 procedure TForm1.TrayIcon1Click(Sender: TObject);
diff --git a/wetter.lpi b/wetter.lpi
index 11f29d5..5eebeb5 100644
--- a/wetter.lpi
+++ b/wetter.lpi
@@ -62,6 +62,7 @@
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="../units"/>
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
diff --git a/wetter.lps b/wetter.lps
index 6563059..a710c84 100644
--- a/wetter.lps
+++ b/wetter.lps
@@ -9,7 +9,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos X="12" Y="6"/>
-        <UsageCount Value="44"/>
+        <UsageCount Value="45"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
@@ -18,9 +18,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <TopLine Value="236"/>
-        <CursorPos X="14" Y="244"/>
-        <UsageCount Value="44"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="51"/>
+        <CursorPos X="40" Y="73"/>
+        <UsageCount Value="45"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
@@ -28,7 +29,7 @@
         <Filename Value="original/pegelunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
-        <UsageCount Value="44"/>
+        <UsageCount Value="45"/>
       </Unit2>
       <Unit3>
         <Filename Value="fhunit.pas"/>
@@ -36,7 +37,7 @@
         <EditorIndex Value="2"/>
         <TopLine Value="445"/>
         <CursorPos Y="476"/>
-        <UsageCount Value="44"/>
+        <UsageCount Value="45"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
@@ -64,7 +65,7 @@
       <Unit7>
         <Filename Value="wetter.konf"/>
         <EditorIndex Value="1"/>
-        <CursorPos X="13" Y="2"/>
+        <CursorPos X="36" Y="3"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
         <DefaultSyntaxHighlighter Value="None"/>
@@ -86,10 +87,9 @@
       </Unit9>
       <Unit10>
         <Filename Value="../units/mystringlistunit.pas"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="11"/>
-        <CursorPos X="6" Y="46"/>
+        <TopLine Value="157"/>
+        <CursorPos X="18" Y="194"/>
         <UsageCount Value="10"/>
         <Loaded Value="True"/>
       </Unit10>
@@ -111,124 +111,124 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="188" Column="60" TopLine="168"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="552" TopLine="523"/>
       </Position1>
       <Position2>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="179" TopLine="174"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="599" TopLine="572"/>
       </Position2>
       <Position3>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="7" Column="34"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="91" Column="14" TopLine="79"/>
       </Position3>
       <Position4>
         <Filename Value="pegelunit.pas"/>
-        <Caret Line="552" TopLine="523"/>
+        <Caret Line="81" Column="14" TopLine="60"/>
       </Position4>
       <Position5>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="599" TopLine="572"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="244" TopLine="211"/>
       </Position5>
       <Position6>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="91" Column="14" TopLine="79"/>
+        <Caret Line="614" TopLine="582"/>
       </Position6>
       <Position7>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="81" Column="14" TopLine="60"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="92" Column="15" TopLine="79"/>
       </Position7>
       <Position8>
         <Filename Value="unit1.pas"/>
-        <Caret Line="244" TopLine="211"/>
+        <Caret Line="241" Column="15" TopLine="221"/>
       </Position8>
       <Position9>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="614" TopLine="582"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="243" Column="27" TopLine="223"/>
       </Position9>
       <Position10>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="92" Column="15" TopLine="79"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="244" Column="13" TopLine="224"/>
       </Position10>
       <Position11>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="241" Column="15" TopLine="221"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="92" Column="13" TopLine="71"/>
       </Position11>
       <Position12>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="243" Column="27" TopLine="223"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="621" Column="69" TopLine="594"/>
       </Position12>
       <Position13>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="244" Column="13" TopLine="224"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="101" TopLine="78"/>
       </Position13>
       <Position14>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="92" Column="13" TopLine="71"/>
+        <Caret Line="626" TopLine="606"/>
       </Position14>
       <Position15>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="621" Column="69" TopLine="594"/>
+        <Caret Line="100" Column="26" TopLine="78"/>
       </Position15>
       <Position16>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="101" TopLine="78"/>
+        <Caret Line="108" Column="23" TopLine="100"/>
       </Position16>
       <Position17>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="626" TopLine="606"/>
+        <Caret Line="462" Column="27" TopLine="433"/>
       </Position17>
       <Position18>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="100" Column="26" TopLine="78"/>
+        <Caret Line="453" Column="6" TopLine="433"/>
       </Position18>
       <Position19>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="108" Column="23" TopLine="100"/>
+        <Caret Line="113" Column="47" TopLine="98"/>
       </Position19>
       <Position20>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="462" Column="27" TopLine="433"/>
+        <Caret Line="491" TopLine="464"/>
       </Position20>
       <Position21>
         <Filename Value="fhunit.pas"/>
-        <Caret Line="453" Column="6" TopLine="433"/>
+        <Caret Line="480" Column="6" TopLine="454"/>
       </Position21>
       <Position22>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="113" Column="47" TopLine="98"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="437" Column="18" TopLine="417"/>
       </Position22>
       <Position23>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="491" TopLine="464"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="86" Column="47" TopLine="78"/>
       </Position23>
       <Position24>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="480" Column="6" TopLine="454"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="456" TopLine="438"/>
       </Position24>
       <Position25>
         <Filename Value="pegelunit.pas"/>
-        <Caret Line="437" Column="18" TopLine="417"/>
+        <Caret Line="448" Column="19" TopLine="427"/>
       </Position25>
       <Position26>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="86" Column="47" TopLine="78"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="113" Column="19" TopLine="92"/>
       </Position26>
       <Position27>
         <Filename Value="pegelunit.pas"/>
-        <Caret Line="456" TopLine="438"/>
+        <Caret Line="490" Column="44" TopLine="483"/>
       </Position27>
       <Position28>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="448" Column="19" TopLine="427"/>
+        <Filename Value="../units/mystringlistunit.pas"/>
+        <Caret Line="46" Column="41" TopLine="16"/>
       </Position28>
       <Position29>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="113" Column="19" TopLine="92"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="244" Column="14" TopLine="187"/>
       </Position29>
       <Position30>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="490" Column="44" TopLine="483"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="179" Column="10" TopLine="174"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>