diff options
| -rw-r--r-- | emails.lps | 78 | ||||
| -rw-r--r-- | unit1.lfm | 12 | ||||
| -rw-r--r-- | unit1.pas | 9 |
3 files changed, 48 insertions, 51 deletions
@@ -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> @@ -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 @@ -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:=''; |