Esc versteckt jetzt das Fenster

3 files changed, 57 insertions, 46 deletions

diff --git a/unit1.lfm b/unit1.lfm
index 0f071c4..efb3921 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -10,6 +10,7 @@ object Form1: TForm1
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
   OnShow = FormShow
   LCLVersion = '1.4.4.0'
   object Image1: TImage
diff --git a/unit1.pas b/unit1.pas
index 66d910e..64f5f3c 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -21,6 +21,7 @@ type
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
     procedure TrayIcon1Click(Sender: TObject);
     procedure TrayIcon1DblClick(Sender: TObject);
@@ -193,6 +194,13 @@ begin
   wetter.free;
 end;
 
+procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
+  );
+begin
+  if key=27 then
+    form1.visible:=false;
+end;
+
 procedure TForm1.FormShow(Sender: TObject);
 begin
   form1.top:= screen.monitors[0].top +screen.monitors[0].height-form1.height-24;
diff --git a/wetter.lps b/wetter.lps
index ca74f5d..01cb752 100644
--- a/wetter.lps
+++ b/wetter.lps
@@ -19,8 +19,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="179"/>
-        <CursorPos X="36" Y="213"/>
+        <TopLine Value="194"/>
+        <CursorPos X="26" Y="201"/>
         <UsageCount Value="59"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -34,7 +34,7 @@
       <Unit3>
         <Filename Value="fhunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="573"/>
         <CursorPos X="18" Y="600"/>
         <UsageCount Value="59"/>
@@ -43,7 +43,7 @@
       <Unit4>
         <Filename Value="../units/fileunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="4"/>
         <TopLine Value="108"/>
         <CursorPos X="62" Y="128"/>
         <UsageCount Value="28"/>
@@ -58,7 +58,7 @@
       </Unit5>
       <Unit6>
         <Filename Value="pegelunit.pas"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="567"/>
         <CursorPos X="27" Y="578"/>
         <UsageCount Value="28"/>
@@ -73,7 +73,7 @@
       </Unit7>
       <Unit8>
         <Filename Value="wetter.konf"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="2"/>
         <CursorPos X="35" Y="3"/>
         <UsageCount Value="28"/>
         <Loaded Value="True"/>
@@ -132,130 +132,132 @@
       </Unit15>
       <Unit16>
         <Filename Value="../units/gitupdateunit.pas"/>
-        <EditorIndex Value="-1"/>
-        <CursorPos X="18" Y="32"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="48"/>
+        <CursorPos X="17" Y="87"/>
         <UsageCount Value="10"/>
+        <Loaded Value="True"/>
       </Unit16>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="unit1.pas"/>
-        <Caret Line="291" TopLine="276"/>
+        <Caret Line="72" Column="70" TopLine="62"/>
       </Position1>
       <Position2>
         <Filename Value="unit1.pas"/>
-        <Caret Line="67" TopLine="40"/>
+        <Caret Line="301" Column="19" TopLine="276"/>
       </Position2>
       <Position3>
         <Filename Value="unit1.pas"/>
-        <Caret Line="82" Column="23" TopLine="61"/>
+        <Caret Line="35"/>
       </Position3>
       <Position4>
         <Filename Value="unit1.pas"/>
-        <Caret Line="72" Column="70" TopLine="62"/>
+        <Caret Line="308" Column="19" TopLine="273"/>
       </Position4>
       <Position5>
         <Filename Value="unit1.pas"/>
-        <Caret Line="301" Column="19" TopLine="276"/>
+        <Caret Line="305" Column="36" TopLine="272"/>
       </Position5>
       <Position6>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="35"/>
+        <Filename Value="fhunit.pas"/>
+        <Caret Line="608" Column="15" TopLine="576"/>
       </Position6>
       <Position7>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="308" Column="19" TopLine="273"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="30" Column="40" TopLine="3"/>
       </Position7>
       <Position8>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="305" Column="36" TopLine="272"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="101" Column="42" TopLine="78"/>
       </Position8>
       <Position9>
-        <Filename Value="fhunit.pas"/>
-        <Caret Line="608" Column="15" TopLine="576"/>
+        <Filename Value="../units/fileunit.pas"/>
+        <Caret Line="25" Column="42" TopLine="18"/>
       </Position9>
       <Position10>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="30" Column="40" TopLine="3"/>
+        <Caret Line="134" TopLine="96"/>
       </Position10>
       <Position11>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="101" Column="42" TopLine="78"/>
+        <Caret Line="46" Column="29" TopLine="21"/>
       </Position11>
       <Position12>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="25" Column="42" TopLine="18"/>
+        <Caret Line="84" Column="23" TopLine="53"/>
       </Position12>
       <Position13>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="134" TopLine="96"/>
+        <Caret Line="141" Column="7" TopLine="106"/>
       </Position13>
       <Position14>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="46" Column="29" TopLine="21"/>
+        <Caret Line="27" TopLine="20"/>
       </Position14>
       <Position15>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="84" Column="23" TopLine="53"/>
+        <Caret Line="133" Column="13" TopLine="110"/>
       </Position15>
       <Position16>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="141" Column="7" TopLine="106"/>
+        <Caret Line="31" TopLine="9"/>
       </Position16>
       <Position17>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="27" TopLine="20"/>
+        <Caret Line="216" Column="11" TopLine="177"/>
       </Position17>
       <Position18>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="133" Column="13" TopLine="110"/>
+        <Caret Line="153" TopLine="147"/>
       </Position18>
       <Position19>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="31" TopLine="9"/>
+        <Caret Line="168" Column="18" TopLine="135"/>
       </Position19>
       <Position20>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="216" Column="11" TopLine="177"/>
+        <Caret Line="160" Column="21" TopLine="140"/>
       </Position20>
       <Position21>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="153" TopLine="147"/>
+        <Caret Line="173" TopLine="143"/>
       </Position21>
       <Position22>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="168" Column="18" TopLine="135"/>
+        <Filename Value="pegelunit.pas"/>
+        <Caret Line="528" Column="18" TopLine="515"/>
       </Position22>
       <Position23>
         <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="160" Column="21" TopLine="140"/>
+        <Caret Line="26" Column="62" TopLine="17"/>
       </Position23>
       <Position24>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="173" TopLine="143"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="84" Column="72" TopLine="67"/>
       </Position24>
       <Position25>
-        <Filename Value="pegelunit.pas"/>
-        <Caret Line="528" Column="18" TopLine="515"/>
+        <Filename Value="unit1.pas"/>
       </Position25>
       <Position26>
-        <Filename Value="../units/fileunit.pas"/>
-        <Caret Line="26" Column="62" TopLine="17"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="258" Column="54" TopLine="221"/>
       </Position26>
       <Position27>
         <Filename Value="unit1.pas"/>
-        <Caret Line="84" Column="72" TopLine="67"/>
+        <Caret Line="203" TopLine="203"/>
       </Position27>
       <Position28>
         <Filename Value="unit1.pas"/>
+        <Caret Line="220" Column="36" TopLine="180"/>
       </Position28>
       <Position29>
         <Filename Value="unit1.pas"/>
-        <Caret Line="258" Column="54" TopLine="221"/>
+        <Caret Line="205" Column="64" TopLine="197"/>
       </Position29>
       <Position30>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="203" TopLine="203"/>
+        <Filename Value="../units/gitupdateunit.pas"/>
+        <Caret Line="33" Column="29" TopLine="30"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>