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

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

Author: remi
Date: 2009-07-30 19:33:16 +0200 (Thu, 30 Jul 2009)
New Revision: 5246

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/Unit2.dfm
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas
Log:
* Updated progress bar step progression
* Updated slash screen show command

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 17:19:11 UTC (rev 5245)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-30 17:33:16 UTC (rev 5246)
@@ -222,6 +222,12 @@
 procedure TForm1.DelegateInitTimer(Sender: TObject);
 begin
   DelegateInit.Enabled := false;
+
+  //Show Splash screen
+  Form2.PmGauge1.Progress := 0;
+  Form2.Timer1.Enabled := true;
+  Form2.Visible := true;
+
   //Setting app icon.
   AppIcon := TIcon.Create;
   ImageList1.GetIcon(1, AppIcon);

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 17:19:11 UTC (rev 5245)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm	2009-07-30 17:33:16 UTC (rev 5246)
@@ -3551,7 +3551,8 @@
     Progress = 0
   end
   object Timer1: TTimer
-    Interval = 120
+    Enabled = False
+    Interval = 500
     OnTimer = Timer1Timer
     Left = 120
     Top = 32

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 17:19:11 UTC (rev 5245)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.pas	2009-07-30 17:33:16 UTC (rev 5246)
@@ -28,7 +28,7 @@
 procedure TForm2.Timer1Timer(Sender: TObject);
 begin
   if PmGauge1.Progress < 100 then
-    PmGauge1.Progress := PmGauge1.Progress + 1;
+    PmGauge1.Progress := PmGauge1.Progress + 3;
 end;
 
 end.