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

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

Author: remi
Date: 2009-07-31 09:52:17 +0200 (Fri, 31 Jul 2009)
New Revision: 5252

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
Log:
* Updated starting behavior. If you click on the desktop shortcut "TuxBox 2.0" while TuxBox is initializing (at Windows startup), The splash screen is showed and Tuxbox is foreground after the initialization.

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 18:44:23 UTC (rev 5251)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-07-31 07:52:17 UTC (rev 5252)
@@ -61,7 +61,6 @@
     Width = 955
     Height = 619
     TabOrder = 0
-    Silent = False
     RegisterAsBrowser = True
     RegisterAsDropTarget = False
     OnDocumentComplete = EmbeddedWB1DocumentComplete

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 18:44:23 UTC (rev 5251)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-31 07:52:17 UTC (rev 5252)
@@ -174,6 +174,7 @@
   smartcoreReady   : boolean;
   balloonShowed    : boolean;
   splashScreenMustBeShowed : boolean;
+  startInForeground: boolean;
   properties       : TStringList;
   reduce_balloon   : boolean;
   ready_balloon    : boolean;
@@ -217,9 +218,12 @@
 begin
   //Get if the splash screen must be showed or not
   splashScreenMustBeShowed := true;
+  startInForeground := false;
   if ParamCount > 0 then
     if ParamStr(1) = '/NSS' then
-       splashScreenMustBeShowed := false;
+      splashScreenMustBeShowed := false
+    else if ParamStr(1) = 'show' then
+      startInForeground := true;
        
   MessageSys := RegisterWindowMessage('WindowForegroundRequest');
   reduce_balloon := false;
@@ -304,13 +308,9 @@
   //Start the Connection checker
   ConnectionChecker.Enabled := true;
 
-  if ParamCount() > 0 then
-    begin
-      if ParamStr(1) = 'show' then
-        begin
-          ShowHide1.Click;
-        end;
-    end;
+  //Start in foreground if requested
+  if startInForeground then
+    ShowHide1.Click;
 end;
 
 
@@ -812,6 +812,7 @@
           if not splashScreenMustBeShowed then
             begin
               splashScreenMustBeShowed := true;
+              startInForeground := true;;
               ShowSplashScreen;
             end;
           exit;