summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emails.lps89
-rw-r--r--unit1.lfm9
-rw-r--r--unit1.pas6
3 files changed, 60 insertions, 44 deletions
diff --git a/emails.lps b/emails.lps
index ce5a2a2..4c72b2b 100644
--- a/emails.lps
+++ b/emails.lps
@@ -3,13 +3,13 @@
<ProjectSession>
<Version Value="9"/>
<BuildModes Active="Default"/>
- <Units Count="8">
+ <Units Count="9">
<Unit0>
<Filename Value="emails.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos Y="7"/>
- <UsageCount Value="24"/>
+ <UsageCount Value="25"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
@@ -18,20 +18,18 @@
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
- <IsVisibleTab Value="True"/>
- <TopLine Value="190"/>
- <CursorPos X="25" Y="217"/>
- <UsageCount Value="24"/>
+ <UsageCount Value="25"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="../units/popunit.pas"/>
<IsPartOfProject Value="True"/>
+ <IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
- <TopLine Value="454"/>
- <CursorPos X="46" Y="483"/>
- <UsageCount Value="24"/>
+ <TopLine Value="185"/>
+ <CursorPos X="54" Y="196"/>
+ <UsageCount Value="25"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
@@ -64,121 +62,132 @@
<Unit7>
<Filename Value="../units/gitupdateunit.pas"/>
<EditorIndex Value="-1"/>
+ <CursorPos Y="39"/>
<UsageCount Value="10"/>
</Unit7>
+ <Unit8>
+ <Filename Value="../units/refreshexecutableunit.pas"/>
+ <EditorIndex Value="-1"/>
+ <TopLine Value="31"/>
+ <CursorPos X="21" Y="70"/>
+ <UsageCount Value="10"/>
+ </Unit8>
</Units>
- <JumpHistory Count="28" HistoryIndex="27">
+ <JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="186" Column="35" TopLine="166"/>
+ <Caret Line="172" Column="46" TopLine="139"/>
</Position1>
<Position2>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="200" Column="21" TopLine="180"/>
+ <Caret Line="182" Column="44" TopLine="149"/>
</Position2>
<Position3>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="240" Column="31" TopLine="217"/>
+ <Caret Line="187" Column="21" TopLine="154"/>
</Position3>
<Position4>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="251" TopLine="231"/>
+ <Caret Line="276" Column="44" TopLine="243"/>
</Position4>
<Position5>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="252" Column="33" TopLine="232"/>
+ <Caret Line="440" Column="38" TopLine="408"/>
</Position5>
<Position6>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="253" Column="36" TopLine="243"/>
</Position6>
<Position7>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="281" Column="52" TopLine="262"/>
+ <Caret Line="56" Column="26" TopLine="25"/>
</Position7>
<Position8>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="286" Column="23" TopLine="266"/>
+ <Caret Line="445" Column="47" TopLine="410"/>
</Position8>
<Position9>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="187" TopLine="156"/>
+ <Caret Line="518" Column="4" TopLine="498"/>
</Position9>
<Position10>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="188" TopLine="156"/>
+ <Caret Line="520" TopLine="500"/>
</Position10>
<Position11>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="551" TopLine="530"/>
+ <Caret Line="539" Column="17" TopLine="518"/>
</Position11>
<Position12>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="598" Column="45" TopLine="577"/>
+ <Caret Line="23" Column="23" TopLine="4"/>
</Position12>
<Position13>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="605" Column="22" TopLine="583"/>
+ <Caret Line="154" Column="42" TopLine="134"/>
</Position13>
<Position14>
<Filename Value="../units/popunit.pas"/>
+ <Caret Line="278" Column="39" TopLine="257"/>
</Position14>
<Position15>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="264" Column="16" TopLine="231"/>
+ <Caret Line="25" Column="25" TopLine="5"/>
</Position15>
<Position16>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="282" Column="18" TopLine="250"/>
+ <Caret Line="173" Column="32" TopLine="164"/>
</Position16>
<Position17>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="316" Column="18" TopLine="283"/>
+ <Caret Line="23" Column="23" TopLine="23"/>
</Position17>
<Position18>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="353" Column="16" TopLine="321"/>
+ <Caret Line="56" Column="13" TopLine="29"/>
</Position18>
<Position19>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="369" Column="16" TopLine="337"/>
+ <Caret Line="22" Column="12" TopLine="2"/>
</Position19>
<Position20>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="385" Column="16" TopLine="353"/>
+ <Caret Line="162" Column="34" TopLine="129"/>
</Position20>
<Position21>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="401" Column="16" TopLine="369"/>
+ <Caret Line="163" Column="10" TopLine="151"/>
</Position21>
<Position22>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="454" Column="20" TopLine="422"/>
+ <Caret Line="169" Column="10" TopLine="151"/>
</Position22>
<Position23>
- <Filename Value="unit1.pas"/>
- <Caret Line="9" Column="35"/>
+ <Filename Value="../units/popunit.pas"/>
+ <Caret Line="180" Column="21" TopLine="151"/>
</Position23>
<Position24>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="161" Column="5" TopLine="134"/>
+ <Caret Line="521" Column="52" TopLine="508"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
- <Caret Line="9" Column="35"/>
+ <Caret Line="39" Column="5" TopLine="39"/>
</Position25>
<Position26>
- <Filename Value="../units/popunit.pas"/>
- <Caret Line="229" Column="35" TopLine="215"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="107" Column="11" TopLine="75"/>
</Position26>
<Position27>
- <Filename Value="../units/popunit.pas"/>
- <Caret Line="41" Column="41" TopLine="19"/>
+ <Filename Value="unit1.pas"/>
</Position27>
<Position28>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="229" Column="48" TopLine="193"/>
+ <Caret Line="159" Column="68" TopLine="139"/>
</Position28>
+ <Position29>
+ <Filename Value="../units/popunit.pas"/>
+ <Caret Line="29" Column="26" TopLine="9"/>
+ </Position29>
</JumpHistory>
</ProjectSession>
</CONFIG>
diff --git a/unit1.lfm b/unit1.lfm
index b874def..60fdbe0 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -8,6 +8,7 @@ object Form1: TForm1
ClientWidth = 999
OnClose = FormClose
OnCreate = FormCreate
+ OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
LCLVersion = '1.4.4.0'
@@ -72,18 +73,18 @@ object Form1: TForm1
end
object CheckBox1: TCheckBox
Left = 272
- Height = 21
+ Height = 24
Top = 596
- Width = 93
+ Width = 98
Caption = 'aufploppen'
OnClick = CheckBox1Click
TabOrder = 2
end
object CheckBox2: TCheckBox
Left = 416
- Height = 21
+ Height = 24
Top = 596
- Width = 86
+ Width = 94
Caption = 'Ton geben'
Checked = True
OnClick = CheckBox1Click
diff --git a/unit1.pas b/unit1.pas
index a43430e..7cc71cd 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -24,6 +24,7 @@ type
procedure CheckBox1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
+ procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TrayIcon1Click(Sender: TObject);
@@ -101,6 +102,11 @@ begin
pc.port:=995;
end;
+procedure TForm1.FormDestroy(Sender: TObject);
+begin
+ pc.free;
+end;
+
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
pc.threadAnhalten;