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

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

Author: remi
Date: 2009-07-30 10:46:50 +0200 (Thu, 30 Jul 2009)
New Revision: 5236

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.pas
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
Log:
* Added a fake loading progression in the splash screen

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:18:22 UTC (rev 5235)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-07-30 08:46:50 UTC (rev 5236)
@@ -60,7 +60,6 @@
     Width = 955
     Height = 619
     TabOrder = 0
-    Silent = False
     RegisterAsBrowser = True
     RegisterAsDropTarget = False
     OnDocumentComplete = EmbeddedWB1DocumentComplete
@@ -88,7 +87,7 @@
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Top = 600
+    Top = 607
     Width = 955
     Height = 19
     Panels = <>

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:18:22 UTC (rev 5235)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-30 08:46:50 UTC (rev 5236)
@@ -253,6 +253,9 @@
   smartcoreReady := true;
 
   //Hide Splash screen
+  Form2.Timer1.Enabled := false;
+  Form2.PmGauge1.Progress := 100;
+  Sleep(500);
   Form2.Visible := false;
 
   //Start the Connection checker

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm	2009-07-30 08:18:22 UTC (rev 5235)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm	2009-07-30 08:46:50 UTC (rev 5236)
@@ -3540,4 +3540,20 @@
       FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
       FFFF00FFFF00FFFF00FFFF00FF00}
   end
+  object PmGauge1: TPmGauge
+    Left = 14
+    Top = 89
+    Width = 307
+    Height = 10
+    ShowText = False
+    ForeColor = 642810
+    BackColor = 3947580
+    Progress = 0
+  end
+  object Timer1: TTimer
+    Interval = 120
+    OnTimer = Timer1Timer
+    Left = 120
+    Top = 32
+  end
 end

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas	2009-07-30 08:18:22 UTC (rev 5235)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas	2009-07-30 08:46:50 UTC (rev 5236)
@@ -4,11 +4,14 @@
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ExtCtrls, StdCtrls;
+  Dialogs, ExtCtrls, StdCtrls, PmGauge;
 
 type
   TForm2 = class(TForm)
     Image1: TImage;
+    PmGauge1: TPmGauge;
+    Timer1: TTimer;
+    procedure Timer1Timer(Sender: TObject);
   private
     { Darations priv }
   public
@@ -22,4 +25,10 @@
 
 {$R *.dfm}
 
+procedure TForm2.Timer1Timer(Sender: TObject);
+begin
+  if PmGauge1.Progress < 100 then
+    PmGauge1.Progress := PmGauge1.Progress + 1;
+end;
+
 end.