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

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

Author: jerome
Date: 2009-07-27 15:02:46 +0200 (Mon, 27 Jul 2009)
New Revision: 5174

Modified:
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:
* Registering balloon config.

Modified: software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dcu
===================================================================
(Binary files differ)

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-27 10:24:53 UTC (rev 5173)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-27 13:02:46 UTC (rev 5174)
@@ -110,12 +110,17 @@
     procedure EmbeddedWB1DocumentComplete(ASender: TObject;
       const pDisp: IDispatch; var URL: OleVariant);
     procedure ConnectionCheckerTimer(Sender: TObject);
-    procedure AddSysTrayIcon;
+    procedure AddSysTrayIcon();
     procedure ShowBalloonTips(mess : string);
-    procedure DeleteSysTrayIcon;
+    procedure DeleteSysTrayIcon();
     procedure HideBalloonTips();
+    procedure setBalloonCanShow(showable : boolean);
 
+    function isBalloonCanShow() : boolean;
+    function GetAllUsersDir() : string;
+    function GetTuxDroidDataBaseDirectory() : string;
 
+
   private
     { Darations priv }
     IconData: TNewNotifyIconData;
@@ -170,8 +175,11 @@
 //Avoiding close action.
 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
-  Form1.ShowBalloonTips('TuxBox 2.0 is now hidden in the tray icon' + slinebreak +
-                        'To open it again, please double-click the tray icon.');
+  if Form1.isBalloonCanShow() then
+    Form1.ShowBalloonTips('TuxBox 2.0 is now hidden in the tray icon' + slinebreak +
+                          'To open it again, please double-click the tray icon.' +
+                          slinebreak +
+                          'Click here to make this message disappear.');
   CanClose := False;
   Form1.Hide;
 end;
@@ -323,26 +331,9 @@
     PostMessage(Handle, WM_NULL, 0, 0);
   end
 
-
-  else if msg.LParam = NIN_BALLOONSHOW then
-    begin
-       //Sent when the balloon is shown
-    end
-
-  else if msg.LParam = NIN_BALLOONHIDE then
-    begin
-      //Sent when the balloon disappears
-    end
-
-  else if msg.LParam = NIN_BALLOONTIMEOUT then
-    begin
-      //Sent when the balloon is dismissed because of a timeout.
-
-    end
-
   else if msg.LParam = NIN_BALLOONUSERCLICK then
     begin
-      //Sent when the balloon is dismissed because the user clicked the mouse.
+      setBalloonCanShow(false);
     end
 
 end;
@@ -537,5 +528,71 @@
     ShowMessage('Tray icon deletion failed');
 end;
 
+
+{*
+* \brief Get the all users base directory.
+* \return A string.
+*}
+function TForm1.GetAllUsersDir : string;
+begin
+ result := GetEnvironmentVariable('ALLUSERSPROFILE');
+end;
+
+{ \brief Get the Tux Droid data base directory return A string.}
+function TForm1.GetTuxDroidDataBaseDirectory : string;
+begin
+ result := GetAllUsersDir + '\Kysoh\Tux Droid';
+end;
+
+
+{ Return true if the balloon can be showed. }
+function TForm1.isBalloonCanShow() : boolean;
+var
+  path : string;
+  res  : string;
+  F    : TextFile;
+begin
+  path := GetTuxDroidDataBaseDirectory + '\configurations\TuxBox2.0.conf';
+  if not FileExists(path) then
+    begin
+      //Creating state file.
+      Form1.setBalloonCanShow(true);
+      result := true;
+    end
+  else
+    begin
+      try
+        AssignFile(F, path);
+        reset(F);
+        readLn(F, res);
+        closeFile(F);
+        result := strtobool(res);
+      except
+      
+      end;
+    end;
+end;
+
+
+{ Set the balloon visible or not }
+procedure TForm1.setBalloonCanShow(showable : boolean);
+var
+  path   : string;
+  F : TextFile;
+begin
+  {$i+}
+  path := GetTuxDroidDataBaseDirectory + '\configurations\TuxBox2.0.conf';
+  try
+    AssignFile(F, path);
+    rewrite(F);
+    writeLn(F, booltostr(showable));
+    closeFile(F);
+  except
+
+  end;
+  {$i-}
+end;
+
+
 end.