[tuxdroid-svn] r6060 - in software_suite_v3/software/plugin/plugin-hotmail/trunk/executables: . fetchingMails

[jerome <c2m...@c2...>]

Author: jerome
Date: 2010-02-10 14:46:48 +0100 (Wed, 10 Feb 2010)
New Revision: 6060

Modified:
   software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/TuxDroidHotmail.exe
   software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.dfm
   software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.pas
Log:
* Fixed a bug closing Windblows.

Modified: software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/TuxDroidHotmail.exe
===================================================================
(Binary files differ)

Modified: software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.dfm
===================================================================
--- software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.dfm	2010-02-10 13:42:14 UTC (rev 6059)
+++ software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.dfm	2010-02-10 13:46:48 UTC (rev 6060)
@@ -15,7 +15,6 @@
   Font.Style = []
   OldCreateOrder = False
   Position = poDefault
-  OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
@@ -25,7 +24,6 @@
     Width = 137
     Height = 5
     TabOrder = 0
-    Silent = False
     RegisterAsBrowser = True
     OnDocumentComplete = EmbeddedWB1DocumentComplete
     DisableCtrlShortcuts = 'N'

Modified: software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.pas
===================================================================
--- software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.pas	2010-02-10 13:42:14 UTC (rev 6059)
+++ software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.pas	2010-02-10 13:46:48 UTC (rev 6060)
@@ -43,7 +43,6 @@
     procedure EmbeddedWB1DocumentComplete(ASender: TObject;const pDisp: IDispatch; var URL: OleVariant);
     procedure Timer1Timer(Sender: TObject);
     procedure Timer2Timer(Sender: TObject);
-    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure Timer3Timer(Sender: TObject);
     procedure DifferedStartTimer(Sender: TObject);
 
@@ -488,11 +487,4 @@
    result := chain;
 end;
 
-
-{========== Disabling close feature ==========}
-procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
-begin
-  CanClose := False;
-end;
-
 end.