Author: jerome
Date: 2009-07-23 22:54:42 +0200 (Thu, 23 Jul 2009)
New Revision: 5153
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:
* Updating graphic tick in sound toggle case.
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-23 20:47:53 UTC (rev 5152)
+++
software_suite_v3/software/tool/tux_droid_browser/windows/trunk/tux_droid_browser/Unit1.pas
2009-07-23 20:54:42 UTC (rev 5153)
@@ -312,24 +312,35 @@
Tray.hIcon := AppIcon.Handle;
Shell_NotifyIcon(Nim_Modify, @tray);
end
+
else if connection and ( not sound ) and ( not activity ) then
begin
ImageList1.GetIcon(4, AppIcon);
Tray.hIcon := AppIcon.Handle;
Shell_NotifyIcon(Nim_Modify, @tray);
end
+
else if connection and activity and sound then
begin
ImageList1.GetIcon(3, AppIcon);
Tray.hIcon := AppIcon.Handle;
Shell_NotifyIcon(Nim_Modify, @tray);
end
+
else
begin
ImageList1.GetIcon(1, AppIcon);
Tray.hIcon := AppIcon.Handle;
Shell_NotifyIcon(Nim_Modify, @tray);
end;
+
+ if sound then
+ //Updating tick from popup menu ( sound on ).
+ Mute1.ImageIndex := -1
+ else
+ //Updating tick from popup menu ( sound off ).
+ Mute1.ImageIndex := 5;
+
Application.ProcessMessages;
end;
------------------------------------------------------------------------------
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
