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

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

Author: jerome
Date: 2010-02-05 11:54:58 +0100 (Fri, 05 Feb 2010)
New Revision: 6054

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 focus inconsistency.

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-04 14:30:17 UTC (rev 6053)
+++ software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.dfm	2010-02-05 10:54:58 UTC (rev 6054)
@@ -7,6 +7,7 @@
   AlphaBlendValue = 0
   Caption = 'Form1'
   Color = clBtnFace
+  Enabled = False
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
@@ -54,4 +55,10 @@
     Left = 24
     Top = 32
   end
+  object DifferedStart: TTimer
+    Interval = 1500
+    OnTimer = DifferedStartTimer
+    Left = 64
+    Top = 32
+  end
 end

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-04 14:30:17 UTC (rev 6053)
+++ software_suite_v3/software/plugin/plugin-hotmail/trunk/executables/fetchingMails/WindowsLiveMail.pas	2010-02-05 10:54:58 UTC (rev 6054)
@@ -37,6 +37,7 @@
     Timer1: TTimer;
     Timer2: TTimer;
     Timer3: TTimer;
+    DifferedStart: TTimer;
 
     procedure FormCreate(Sender: TObject);
     procedure EmbeddedWB1DocumentComplete(ASender: TObject;const pDisp: IDispatch; var URL: OleVariant);
@@ -44,7 +45,9 @@
     procedure Timer2Timer(Sender: TObject);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     procedure Timer3Timer(Sender: TObject);
+    procedure DifferedStartTimer(Sender: TObject);
 
+
   private
     { Darations priv }
     procedure change(id : string ; value : string);
@@ -71,6 +74,8 @@
   password   : String;
   timeout    : Integer;
 
+  hWindow : HWND;
+
   XmlDoc: IXMLDOMDocument2;
 
 implementation
@@ -79,7 +84,26 @@
 
 {========== Form Create function  ==========}
 procedure TForm1.FormCreate(Sender: TObject);
+var
+  ClassName, ControlText : String;
 begin
+  //GetFocusedControl(hWindow, ClassName, ControlText);
+  //Hidding plugin Task bar.
+  SetWindowLong(Application.Handle,
+                GWL_EXSTYLE,
+                GetWindowLong(Application.Handle,GWL_EXSTYLE)
+                or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW
+                );
+  ShowWindow(Form1.Handle, SW_SHOWNOACTIVATE);
+  ShowWindow(EmbeddedWB1.Handle, SW_SHOWNOACTIVATE);
+
+end;
+
+
+{========== Differed app start. ==========}
+procedure TForm1.DifferedStartTimer(Sender: TObject);
+begin
+  DifferedStart.Enabled := False;
   //Getting login and assword informations.
   if ParamCount < 2 then
     begin
@@ -95,13 +119,6 @@
       timeout  := strtoint(ParamStr(3));
     end;
 
-  //Hidding plugin Task bar.
-  SetWindowLong(Application.Handle,
-                GWL_EXSTYLE,
-                GetWindowLong(Application.Handle,GWL_EXSTYLE)
-                or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW
-                );
-
   Form1.Height := 50;
   Form1.Width  := 30;
 
@@ -123,6 +140,7 @@
   login_url = 'login.live.com';
   inbox_url = 'mail.live.com';
 begin
+
   //Handle login errors.
   if Pos('https://login.live.com/ppsecure/post.srf?bk=', String(URL)) <> 0 then
     begin
@@ -208,7 +226,6 @@
   except
   end;
 
-
 end;
 
 
@@ -248,6 +265,7 @@
   if timeout = 1 then
       Application.Terminate;
   Dec(timeout, 1);
+ 
 end;