summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2015-11-26 21:01:16 +0100
committerErich Eckner <git@eckner.net>2015-11-26 21:05:00 +0100
commit22a0a9ed48095c4da42d3d20b5d80ffe16aab30b (patch)
tree6a7013b6c0ae191178efe29b60b3f55300990ccf
parent48bb7c68a39a769cce7ffb9a02ee1563163388d1 (diff)
downloadFH-Wetter-22a0a9ed48095c4da42d3d20b5d80ffe16aab30b.tar.xz
Esc versteckt jetzt das Fenster
-rw-r--r--unit1.lfm1
-rw-r--r--unit1.pas8
-rw-r--r--wetter.lps94
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>