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

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

Author: jerome
Date: 2009-07-22 11:22:03 +0200 (Wed, 22 Jul 2009)
New Revision: 5130

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.dfm
   software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
Log:
* Changed popup menu caption.
* Changed the way to display the TuxBox 2.0 ( simple click => Double click

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.dfm
===================================================================
--- software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-07-22 09:19:25 UTC (rev 5129)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-07-22 09:22:03 UTC (rev 5130)
@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 266
-  Top = 184
+  Left = 267
+  Top = 168
   Width = 1024
   Height = 768
   Caption = 'TuxBox 2.0'

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-22 09:19:25 UTC (rev 5129)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-22 09:22:03 UTC (rev 5130)
@@ -109,7 +109,7 @@
   Form1.Icon := AppIcon;
 
   Tray.hIcon := Application.Icon.handle;
-  Tray.szTip := 'Show/Hide Tux Droid Browser';
+  Tray.szTip := 'Show/Hide TuxBox 2.0';
   Tray.uFlags := nif_message or nif_icon or nif_tip;
 
   //Adding tray icon to the system tray.
@@ -248,20 +248,20 @@
 begin
 
   //Clique droit de la souris
-  if msg.LParam = Wm_LButtonDown then
+  if msg.LParam = Wm_LButtonDBLCLK then
   begin
-    //Showing application.
+      //Showing application.
     if Form1.Visible then
-    begin
-      Form1.Visible := false;
-      ShowHide1.Caption := 'Show';
-    end
+      begin
+        Form1.Visible := false;
+        ShowHide1.Caption := 'Show';
+      end
     else
-    begin
-      Form1.Visible := true;
-      ShowHide1.Caption := 'Hide';
-      SetForegroundWindow(Application.Handle);
-    end;
+      begin
+        Form1.Visible := true;
+        ShowHide1.Caption := 'Hide';
+        SetForegroundWindow(Application.Handle);
+      end;
 
   end
   else if msg.LParam = Wm_RButtonDown then
@@ -379,6 +379,8 @@
 
 end;
 
+
+{### Event used to show or not the scroll bar ###}
 procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject;
   const pDisp: IDispatch; var URL: OleVariant);
 var