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 ------------------------------------------------------------------------------ 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
