diff options
| -rw-r--r-- | emails.lps | 89 | ||||
| -rw-r--r-- | unit1.lfm | 9 | ||||
| -rw-r--r-- | unit1.pas | 6 |
3 files changed, 60 insertions, 44 deletions
@@ -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> @@ -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 @@ -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; |