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
{ D�clarations 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
------------------------------------------------------------------------------
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
