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;
------------------------------------------------------------------------------
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
