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

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

Author: jerome
Date: 2009-09-18 13:44:21 +0200 (Fri, 18 Sep 2009)
New Revision: 5443

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:


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-09-18 09:59:53 UTC (rev 5442)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-09-18 11:44:21 UTC (rev 5443)
@@ -158,6 +158,8 @@
     procedure ShowSplashScreen;
     procedure HideSplashScreen;
     procedure ExitApplication(windowsIsShutdown : boolean);
+    procedure setShowGuide(showable : string);
+    function getShowGuide(): string;
 
   public
     { Darations publiques }
@@ -182,6 +184,7 @@
   reduce_balloon   : boolean;
   ready_balloon    : boolean;
   MessageSys       : UInt;
+  showGuide        : boolean;
 
 implementation
 
@@ -224,6 +227,7 @@
   smartcoreReady := false;
   exitingFlag := false;
   connCheckerFlag := false;
+  showGuide := False;
 
   //Get if the splash screen must be showed or not
   splashScreenMustBeShowed := true;
@@ -252,7 +256,7 @@
     end
   else
     begin
-      properties.CommaText := 'show_balloon=true, show_ready=true';
+      properties.CommaText := 'show_balloon=true, show_ready=true, show_guide=true';
     end;
 
   language := TuxUtils.getRegisteryLanguage();
@@ -319,6 +323,13 @@
   //Start in foreground if requested
   if startInForeground then
     ShowHide1.Click;
+
+  //Showing Start Guide.
+  if getShowGuide() = 'true' then
+    begin
+    showMessage('showing quick start guide');
+    Form1.setShowGuide('false');
+    end;
 end;
 
 
@@ -357,7 +368,7 @@
 procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
 begin
   inherited;
-  ExitApplication(false);
+  ExitApplication(true);
   Message.Result := 1;
 end;
 
@@ -821,6 +832,20 @@
 end;
 
 
+procedure TForm1.setShowGuide(showable : string);
+begin
+  properties.Values['show_guide'] := showable;
+  saveProperties;
+end;
+
+
+function TForm1.getShowGuide() : string ;
+begin
+  result := properties.Values['show_guide'];
+end;
+
+
+
 {#### Saving properties to the conf file ####}
 procedure TForm1.saveProperties();
 begin