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
{ D�clarations priv�es }
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;
------------------------------------------------------------------------------
The Planet: dedicated and managed hosting, cloud storage, colocation
Stay online with enterprise data centers and the best network in the business
Choose flexible plans and management services without long-term contracts
Personal 24x7 support from experience hosting pros just a phone call away.
http://p.sf.net/sfu/theplanet-com
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
