diff options
| -rw-r--r-- | unit1.lfm | 1 | ||||
| -rw-r--r-- | unit1.pas | 8 | ||||
| -rw-r--r-- | wetter.lps | 94 |
3 files changed, 57 insertions, 46 deletions
@@ -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 @@ -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; @@ -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> |