summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emails.lps78
-rw-r--r--unit1.lfm12
-rw-r--r--unit1.pas9
3 files changed, 48 insertions, 51 deletions
diff --git a/emails.lps b/emails.lps
index 1178067..ce5a2a2 100644
--- a/emails.lps
+++ b/emails.lps
@@ -19,7 +19,8 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
- <CursorPos X="35" Y="9"/>
+ <TopLine Value="190"/>
+ <CursorPos X="25" Y="217"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@@ -28,8 +29,8 @@
<Filename Value="../units/popunit.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="1"/>
- <TopLine Value="134"/>
- <CursorPos X="5" Y="161"/>
+ <TopLine Value="454"/>
+ <CursorPos X="46" Y="483"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit2>
@@ -49,8 +50,8 @@
<Unit5>
<Filename Value="../units/mystringlistunit.pas"/>
<EditorIndex Value="-1"/>
- <TopLine Value="147"/>
- <CursorPos X="25" Y="158"/>
+ <TopLine Value="25"/>
+ <CursorPos X="6" Y="47"/>
<UsageCount Value="11"/>
</Unit5>
<Unit6>
@@ -66,125 +67,118 @@
<UsageCount Value="10"/>
</Unit7>
</Units>
- <JumpHistory Count="30" HistoryIndex="29">
+ <JumpHistory Count="28" HistoryIndex="27">
<Position1>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="253" Column="27" TopLine="229"/>
+ <Caret Line="186" Column="35" TopLine="166"/>
</Position1>
<Position2>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="263" Column="29" TopLine="230"/>
+ <Caret Line="200" Column="21" TopLine="180"/>
</Position2>
<Position3>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="281" Column="31" TopLine="249"/>
+ <Caret Line="240" Column="31" TopLine="217"/>
</Position3>
<Position4>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="588" Column="61" TopLine="562"/>
+ <Caret Line="251" TopLine="231"/>
</Position4>
<Position5>
<Filename Value="../units/popunit.pas"/>
+ <Caret Line="252" Column="33" TopLine="232"/>
</Position5>
<Position6>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="271" Column="30" TopLine="245"/>
+ <Caret Line="253" Column="36" TopLine="243"/>
</Position6>
<Position7>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="55" Column="35" TopLine="22"/>
+ <Caret Line="281" Column="52" TopLine="262"/>
</Position7>
<Position8>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="186" Column="35" TopLine="166"/>
+ <Caret Line="286" Column="23" TopLine="266"/>
</Position8>
<Position9>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="200" Column="21" TopLine="180"/>
+ <Caret Line="187" TopLine="156"/>
</Position9>
<Position10>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="240" Column="31" TopLine="217"/>
+ <Caret Line="188" TopLine="156"/>
</Position10>
<Position11>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="251" TopLine="231"/>
+ <Caret Line="551" TopLine="530"/>
</Position11>
<Position12>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="252" Column="33" TopLine="232"/>
+ <Caret Line="598" Column="45" TopLine="577"/>
</Position12>
<Position13>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="253" Column="36" TopLine="243"/>
+ <Caret Line="605" Column="22" TopLine="583"/>
</Position13>
<Position14>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="281" Column="52" TopLine="262"/>
</Position14>
<Position15>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="286" Column="23" TopLine="266"/>
+ <Caret Line="264" Column="16" TopLine="231"/>
</Position15>
<Position16>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="187" TopLine="156"/>
+ <Caret Line="282" Column="18" TopLine="250"/>
</Position16>
<Position17>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="188" TopLine="156"/>
+ <Caret Line="316" Column="18" TopLine="283"/>
</Position17>
<Position18>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="551" TopLine="530"/>
+ <Caret Line="353" Column="16" TopLine="321"/>
</Position18>
<Position19>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="598" Column="45" TopLine="577"/>
+ <Caret Line="369" Column="16" TopLine="337"/>
</Position19>
<Position20>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="605" Column="22" TopLine="583"/>
+ <Caret Line="385" Column="16" TopLine="353"/>
</Position20>
<Position21>
<Filename Value="../units/popunit.pas"/>
+ <Caret Line="401" Column="16" TopLine="369"/>
</Position21>
<Position22>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="264" Column="16" TopLine="231"/>
+ <Caret Line="454" Column="20" TopLine="422"/>
</Position22>
<Position23>
- <Filename Value="../units/popunit.pas"/>
- <Caret Line="282" Column="18" TopLine="250"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="9" Column="35"/>
</Position23>
<Position24>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="316" Column="18" TopLine="283"/>
+ <Caret Line="161" Column="5" TopLine="134"/>
</Position24>
<Position25>
- <Filename Value="../units/popunit.pas"/>
- <Caret Line="353" Column="16" TopLine="321"/>
+ <Filename Value="unit1.pas"/>
+ <Caret Line="9" Column="35"/>
</Position25>
<Position26>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="369" Column="16" TopLine="337"/>
+ <Caret Line="229" Column="35" TopLine="215"/>
</Position26>
<Position27>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="385" Column="16" TopLine="353"/>
+ <Caret Line="41" Column="41" TopLine="19"/>
</Position27>
<Position28>
<Filename Value="../units/popunit.pas"/>
- <Caret Line="401" Column="16" TopLine="369"/>
+ <Caret Line="229" Column="48" TopLine="193"/>
</Position28>
- <Position29>
- <Filename Value="../units/popunit.pas"/>
- <Caret Line="454" Column="20" TopLine="422"/>
- </Position29>
- <Position30>
- <Filename Value="unit1.pas"/>
- <Caret Line="9" Column="35"/>
- </Position30>
</JumpHistory>
</ProjectSession>
</CONFIG>
diff --git a/unit1.lfm b/unit1.lfm
index 4677922..b874def 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -1,7 +1,7 @@
object Form1: TForm1
- Left = 137
+ Left = 0
Height = 756
- Top = 158
+ Top = 274
Width = 999
Caption = 'Form1'
ClientHeight = 756
@@ -72,18 +72,18 @@ object Form1: TForm1
end
object CheckBox1: TCheckBox
Left = 272
- Height = 24
+ Height = 21
Top = 596
- Width = 98
+ Width = 93
Caption = 'aufploppen'
OnClick = CheckBox1Click
TabOrder = 2
end
object CheckBox2: TCheckBox
Left = 416
- Height = 24
+ Height = 21
Top = 596
- Width = 94
+ Width = 86
Caption = 'Ton geben'
Checked = True
OnClick = CheckBox1Click
diff --git a/unit1.pas b/unit1.pas
index 3f1e334..a43430e 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -83,7 +83,7 @@ begin
pc:=tPopClient.create;
pc.timeout:=10;
pc.neueNachrichten:=@neueNachrichten;
- pc.sshUser:='erich';
+// pc.sshUser:='erich';
pc.host:='eckner.net';
pc.user:='notify@eckner.net';
pc.pass:='C7sd7k8*';
@@ -145,7 +145,9 @@ begin
memo1.height:=button1.top-memo1.top;
end;
-const __erstesMal: boolean = true;
+const
+ __erstesMal: boolean = true;
+ __letzterTon: extended = 0;
procedure TForm1.FormShow(Sender: TObject);
begin
@@ -211,7 +213,8 @@ begin
trayIcon1.hint:=trayIcon1.hint+', davon '+inttostr(mitMarkeDa)+' mit Marke';
if checkBox1.checked then
form1.visible:=true;
- if checkBox2.checked then begin
+ if checkBox2.checked and ((now-__letzterTon > 1/24/60/3) or (now<__letzterTon)) then begin
+ __letzterTon:=now;
setlength(argumente,1);
argumente[0]:=extractFilePath(application.exename)+'gotmail.wav';
ausgabe:='';