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);
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
