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

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

Author: jerome
Date: 2009-07-27 12:24:53 +0200 (Mon, 27 Jul 2009)
New Revision: 5173

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:
* Added balloon notification area when user try to quit TuxBox 2.0
* Modified the way to display the tray icon.

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-26 11:41:30 UTC (rev 5172)
+++ software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas	2009-07-27 10:24:53 UTC (rev 5173)
@@ -29,10 +29,64 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, Menus, ImgList, IEDownload,
   ExtCtrls, EwbControlComponent, AppEvnts, StdCtrls, ComCtrls, ShellAPI, TuxUtils,
-  Registry, CommCtrl;
+  Registry;
 
+
+const
+  NIF_INFO = $10;
+  NIF_MESSAGE = 1;
+  NIF_ICON = 2;
+  NOTIFYICON_VERSION = 3;
+  NIF_TIP = 4;
+  NIM_SETVERSION = $00000004;
+  NIM_SETFOCUS = $00000003;
+  NIIF_INFO = $00000001;
+  NIIF_WARNING = $00000002;
+  NIIF_ERROR = $00000003;
+
+  NIN_BALLOONSHOW = WM_USER + 2;
+  NIN_BALLOONHIDE = WM_USER + 3;
+  NIN_BALLOONTIMEOUT = WM_USER + 4;
+  NIN_BALLOONUSERCLICK = WM_USER + 5;
+  NIN_SELECT = WM_USER + 0;
+  NINF_KEY = $1;
+  NIN_KEYSELECT = NIN_SELECT or NINF_KEY;
+
+  {other constants can be found in vs.net---vc7's dir: PlatformSDK\Include\ShellAPI.h}
+
+  {define the callback message}
+  TRAY_CALLBACK = WM_USER + $7258;
+
+  {new NotifyIconData structure definition}
+type
+  PNewNotifyIconData = ^TNewNotifyIconData;
+  TDUMMYUNIONNAME    = record
+    case Integer of
+      0: (uTimeout: UINT);
+      1: (uVersion: UINT);
+  end;
+
+  TNewNotifyIconData = record
+    cbSize: DWORD;
+    Wnd: HWND;
+    uID: UINT;
+    uFlags: UINT;
+    uCallbackMessage: UINT;
+    hIcon: HICON;
+    //Version 5.0 is 128 chars, old ver is 64 chars
+    szTip: array [0..127] of Char;
+    dwState: DWORD; //Version 5.0
+    dwStateMask: DWORD; //Version 5.0
+    szInfo: array [0..255] of Char; //Version 5.0
+    DUMMYUNIONNAME: TDUMMYUNIONNAME;
+    szInfoTitle: array [0..63] of Char; //Version 5.0
+    dwInfoFlags: DWORD;   //Version 5.0
+  end;
+
+
 const wm_AppelMessage = wm_user + 1;
 
+
 type
   TForm1 = class(TForm)
     EmbeddedWB1: TEmbeddedWB;
@@ -56,9 +110,15 @@
     procedure EmbeddedWB1DocumentComplete(ASender: TObject;
       const pDisp: IDispatch; var URL: OleVariant);
     procedure ConnectionCheckerTimer(Sender: TObject);
-                         
+    procedure AddSysTrayIcon;
+    procedure ShowBalloonTips(mess : string);
+    procedure DeleteSysTrayIcon;
+    procedure HideBalloonTips();
+
+
   private
     { Darations priv }
+    IconData: TNewNotifyIconData;
     procedure WMAppelMessage(var msg : TMessage); message wm_AppelMessage;
 
     procedure OpenUrl(const url : String);
@@ -67,12 +127,14 @@
     { Darations publiques }
   end;
 
+
 var
   Form1         : TForm1;
   url           : String;
   Tray          : TNotifyIconData;
   AppIcon       : TIcon;
   started       : boolean;
+  balloonShowed : boolean;
 
 implementation
 
@@ -87,38 +149,29 @@
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   url := 'http://127.0.0.1:270/user/';
-
   started := false;
 
-  //Tray icon initialization.
-  Tray.cbSize := SizeOf(Tray);
-  Tray.wnd := Handle;
-  Tray.uID := 1;
-  Tray.UCallbackMessage := wm_AppelMessage;
-
+  //Setting app icon.
   AppIcon := TIcon.Create;
   ImageList1.GetIcon(0, AppIcon);
   Application.Icon := AppIcon;
   Form1.Icon := AppIcon;
 
-  Tray.hIcon := Application.Icon.handle;
-  Tray.szTip := 'Show / Hide TuxBox 2.0';
-  Tray.uFlags := nif_message or nif_icon or nif_tip;
+  balloonShowed := false;
+  Form1.AddSysTrayIcon;
 
-  //Adding tray icon to the system tray.
-  Shell_NotifyIcon(Nim_ADD, @Tray);
-
   //states initialization
   TuxUtils.initKnowedVars();
   //Starting status pooling.
   EmbeddedWB1.Go(url);
-
 end;
 
 
 //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.');
   CanClose := False;
   Form1.Hide;
 end;
@@ -195,8 +248,8 @@
 begin
   if TuxUtils.stopServer() then
     begin
-      Shell_NotifyIcon(Nim_DELETE,@tray);
       AppIcon.Free;
+      Form1.DeleteSysTrayIcon;
       EmbeddedWB1.Free;
       Application.Terminate;
     end
@@ -268,8 +321,30 @@
     GetCursorPos(Cursor);
     PopupMenu1.Popup(Cursor.X, Cursor.Y);
     PostMessage(Handle, WM_NULL, 0, 0);
-  end;
+  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.
+    end
+
 end;
 
 
@@ -338,9 +413,12 @@
   if connection and sound and ( not activity ) and ( ( TuxUtils.knowed_mute
      and ( not TuxUtils.knowed_activity )) <> ( sound and (not activity) )) then
     begin
+      if balloonShowed then
+        Form1.HideBalloonTips();
+
       ImageList1.GetIcon(0, AppIcon);
-      Tray.hIcon := AppIcon.Handle;
-      Shell_NotifyIcon(Nim_Modify, @tray);
+      IconData.hIcon := AppIcon.Handle;
+      Shell_NotifyIcon(Nim_Modify, @IconData);
     end
 
   //Changing tray icon 'mute' only if last registered values <> new sound and
@@ -349,26 +427,35 @@
           ( ( ( not sound ) and ( not activity ) ) <> ( ( not TuxUtils.knowed_mute )
           and ( not TuxUtils.knowed_activity ) ) )then
     begin
+      if balloonShowed then
+        Form1.HideBalloonTips();
+
       ImageList1.GetIcon(4, AppIcon);
-      Tray.hIcon := AppIcon.Handle;
-      Shell_NotifyIcon(Nim_Modify, @tray);
+      IconData.hIcon := AppIcon.Handle;
+      Shell_NotifyIcon(Nim_Modify, @IconData);
     end
 
   else if connection and activity and sound and ( ( sound and activity ) <>
          ( TuxUtils.knowed_mute and TuxUtils.knowed_activity ) ) then
     begin
+      if balloonShowed then
+        Form1.HideBalloonTips();
+
       ImageList1.GetIcon(3, AppIcon);
-      Tray.hIcon := AppIcon.Handle;
-      Shell_NotifyIcon(Nim_Modify, @tray);
+      IconData.hIcon := AppIcon.Handle;
+      Shell_NotifyIcon(Nim_Modify, @IconData);
     end
 
   //Changing icon only if last state <> new state.
   else if connection <> ( TuxUtils.knowed_server and TuxUtils.knowed_radio and TuxUtils.knowed_dongle)
           or ( not started ) then
     begin
+      if balloonShowed then
+        Form1.HideBalloonTips();
+
       ImageList1.GetIcon(1, AppIcon);
-      Tray.hIcon := AppIcon.Handle;
-      Shell_NotifyIcon(Nim_Modify, @tray);
+      IconData.hIcon := AppIcon.Handle;
+      Shell_NotifyIcon(Nim_Modify, @IconData);
     end;
 
   if sound then
@@ -376,7 +463,7 @@
     Mute1.ImageIndex := -1
   else
     //Updating tick from popup menu ( sound off ).
-    Mute1.ImageIndex := 5;
+    Mute1.ImageIndex := 5; 
 
   //Registering new values.
   TuxUtils.knowed_mute := sound;
@@ -389,8 +476,66 @@
     started := true;
 
   Application.ProcessMessages;
-  
+
 end;
 
+
+{AddSysTrayIcon procedure add an icon to notification area}
+procedure TForm1.AddSysTrayIcon();
+begin
+  balloonShowed := false;
+  IconData.cbSize := SizeOf(IconData);
+  IconData.Wnd := AllocateHWnd(WMAppelMessage);
+  {SysTrayIconMsgHandler is then callback message' handler}
+  IconData.uID := 0;
+  IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
+  IconData.uCallbackMessage := TRAY_CALLBACK;
+  IconData.hIcon := Application.Icon.Handle;    //an Icon's Handle
+  IconData.szTip := 'TuxBox 2.0 Show / Hide';
+  if not Shell_NotifyIcon(NIM_ADD, @IconData) then
+    Application.Terminate;
+end;
+
+
+{ShowBalloonTips procedure carry out the new feature: Balloon Tips}
+procedure TForm1.ShowBalloonTips(mess : string);
+var
+  TipInfo, TipTitle: string;
+begin
+  balloonShowed := true;
+  IconData.cbSize := SizeOf(IconData);
+  IconData.uFlags := NIF_INFO;
+  TipInfo := mess;
+  strPLCopy(IconData.szInfo, TipInfo, SizeOf(IconData.szInfo) - 1);
+  IconData.DUMMYUNIONNAME.uTimeout := 2000;
+  TipTitle := 'TuxBox 2.0 Warning';
+  strPLCopy(IconData.szInfoTitle, TipTitle, SizeOf(IconData.szInfoTitle) - 1);
+  IconData.dwInfoFlags := NIIF_INFO;     //NIIF_ERROR;  //NIIF_WARNING;
+  Shell_NotifyIcon(NIM_MODIFY, @IconData);
+  {in my testing, the following code has no use}
+  IconData.DUMMYUNIONNAME.uVersion := NOTIFYICON_VERSION;
+  Shell_NotifyIcon(NIM_SETVERSION, @IconData);
+end;
+
+
+{Hide the balloon}
+Procedure TForm1.HideBalloonTips();
+begin
+  balloonShowed := false;
+  IconData.cbSize := SizeOf(IconData);
+  IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
+  IconData.szTip := 'TuxBox 2.0 Show / Hide';
+  Shell_NotifyIcon(NIM_MODIFY, @IconData)
+end;
+
+
+{here's the deletion procedure}
+procedure TForm1.DeleteSysTrayIcon;
+begin
+  DeallocateHWnd(IconData.Wnd);
+  if not Shell_NotifyIcon(NIM_DELETE, @IconData) then
+    ShowMessage('Tray icon deletion failed');
+end;
+
 end.