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

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

Author: remi
Date: 2009-07-30 19:56:19 +0200 (Thu, 30 Jul 2009)
New Revision: 5247

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
Log:
* Added a program argument to show/not show the splash screen (/NSS).
* Default tray icon is "offline"

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:33:16 UTC (rev 5246)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-30 17:56:19 UTC (rev 5247)
@@ -220,13 +220,25 @@
 
 //Delegate a part of the form initialization.
 procedure TForm1.DelegateInitTimer(Sender: TObject);
+var
+  splashScreenMustBeShowed : boolean;
 begin
   DelegateInit.Enabled := false;
 
+  //Get if the splash screen must be showed or not
+  splashScreenMustBeShowed := true;
+  if ParamCount > 0 then
+    if ParamStr(1) = '/NSS' then
+       splashScreenMustBeShowed := false;
+
   //Show Splash screen
-  Form2.PmGauge1.Progress := 0;
-  Form2.Timer1.Enabled := true;
-  Form2.Visible := true;
+  if splashScreenMustBeShowed then
+    begin
+      Form2.PmGauge1.Progress := 0;
+      Form2.Timer1.Enabled := true;
+      Form2.Visible := true;
+      Application.ProcessMessages;
+    end;
 
   //Setting app icon.
   AppIcon := TIcon.Create;
@@ -268,10 +280,13 @@
   smartcoreReady := true;
 
   //Hide Splash screen
-  Form2.Timer1.Enabled := false;
-  Form2.PmGauge1.Progress := 100;
-  Sleep(500);
-  Form2.Visible := false;
+  if splashScreenMustBeShowed then
+    begin
+      Form2.Timer1.Enabled := false;
+      Form2.PmGauge1.Progress := 100;
+      Sleep(500);
+      Form2.Visible := false;
+    end;
 
   //Start the Connection checker
   ConnectionChecker.Enabled := true;
@@ -666,7 +681,7 @@
   IconData.uID := 0;
   IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   IconData.uCallbackMessage := TRAY_CALLBACK;
-  IconData.hIcon := Application.Icon.Handle;    //an Icon's Handle
+  IconData.hIcon := AppIcon.Handle;
 
   value := gettext(TUX_BOX_SHOW_HIDE);
 

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:33:16 UTC (rev 5246)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit2.dfm	2009-07-30 17:56:19 UTC (rev 5247)
@@ -16,7 +16,6 @@
   Font.Style = []
   OldCreateOrder = False
   Position = poScreenCenter
-  Visible = True
   PixelsPerInch = 96
   TextHeight = 13
   object Image1: TImage