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

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

Author: jerome
Date: 2009-07-22 11:26:23 +0200 (Wed, 22 Jul 2009)
New Revision: 5131

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:
* Deleted 'caption string toggle' when clicking 'Show / Hide' popup menu item.

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:22:03 UTC (rev 5130)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.dfm	2009-07-22 09:26:23 UTC (rev 5131)
@@ -94,11 +94,10 @@
   end
   object PopupMenu1: TPopupMenu
     Images = ImageList1
-    OnPopup = PopupMenu1Popup
     Left = 8
     Top = 8
     object ShowHide1: TMenuItem
-      Caption = 'Show/Hide'
+      Caption = 'Show / Hide'
       OnClick = ShowHide1Click
     end
     object Mute1: TMenuItem

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:22:03 UTC (rev 5130)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-22 09:26:23 UTC (rev 5131)
@@ -29,7 +29,8 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, ShellAPI, Menus, Registry,
   ImgList, LibXmlParser, LibXmlComps, IEDownload, ExtCtrls, TlHelp32,
-  EwbControlComponent, TXmlThread, ComCtrls, AppEvnts, PngImageList;
+  EwbControlComponent, TXmlThread, ComCtrls, AppEvnts, PngImageList,
+  StdCtrls;
 
 const wm_AppelMessage = wm_user + 1;
 
@@ -48,7 +49,6 @@
     StatusBar1: TStatusBar;
 
     procedure FormCreate(Sender: TObject);
-    procedure PopupMenu1Popup(Sender: TObject);
     procedure ShowHide1Click(Sender: TObject);
     procedure Quit1Click(Sender: TObject);
     procedure Help1Click(Sender: TObject);
@@ -143,16 +143,6 @@
 {####### Tray icon properties and events  ######}
 {###############################################}
 
-//Actions to do when popup menu is showed.
-procedure TForm1.PopupMenu1Popup(Sender: TObject);
-begin
-  if Form1.Visible then
-    ShowHide1.Caption := 'Hide'
-  else
-    ShowHide1.Caption := 'Show';
-end;
-
-
 //Tray menu show/hide click.
 procedure TForm1.ShowHide1Click(Sender: TObject);
 begin
@@ -254,12 +244,10 @@
     if Form1.Visible then
       begin
         Form1.Visible := false;
-        ShowHide1.Caption := 'Show';
       end
     else
       begin
         Form1.Visible := true;
-        ShowHide1.Caption := 'Hide';
         SetForegroundWindow(Application.Handle);
       end;