[tuxdroid-svn] r5235 - software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser

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

Author: jerome
Date: 2009-07-30 10:18:22 +0200 (Thu, 30 Jul 2009)
New Revision: 5235

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:
* Added TIdAntiFreeze to do not block the application while quitting windows.
* Added a read timeout.

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-30 08:05:24 UTC (rev 5234)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/TuxUtils.pas	2009-07-30 08:18:22 UTC (rev 5235)
@@ -93,6 +93,7 @@
 
   with TIdHTTP.Create(nil) do
   try
+      ReadTimeout := 1000;
       try
         Get(AUrl, output);
 

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-07-30 08:05:24 UTC (rev 5234)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-07-30 08:18:22 UTC (rev 5235)
@@ -60,6 +60,7 @@
     Width = 955
     Height = 619
     TabOrder = 0
+    Silent = False
     RegisterAsBrowser = True
     RegisterAsDropTarget = False
     OnDocumentComplete = EmbeddedWB1DocumentComplete
@@ -87,7 +88,7 @@
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Top = 607
+    Top = 600
     Width = 955
     Height = 19
     Panels = <>
@@ -542,4 +543,8 @@
     Left = 136
     Top = 8
   end
+  object IdAntiFreeze1: TIdAntiFreeze
+    Left = 168
+    Top = 8
+  end
 end

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-30 08:05:24 UTC (rev 5234)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-30 08:18:22 UTC (rev 5235)
@@ -29,7 +29,7 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Menus, ImgList, IEDownload,
   ExtCtrls, EwbControlComponent, AppEvnts, StdCtrls, ComCtrls, ShellAPI, TuxUtils,
-  Registry, gnugettext;
+  Registry, gnugettext, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze;
 
 
 const
@@ -120,6 +120,7 @@
     ConnectionChecker: TTimer;
     StatusBar1: TStatusBar;
     DelegateInit: TTimer;
+    IdAntiFreeze1: TIdAntiFreeze;
 
     procedure FormCreate(Sender: TObject);
     procedure ShowHide1Click(Sender: TObject);