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