From 7c97b0c3df48cd7899d25577fd87af81111575a7 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 10 Nov 2011 13:27:59 +0000
Subject: [PATCH] cactus: Adds show/hide to the trayicon

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2120 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/cactusjukebox/source/cactusjukebox.lpi | 2 +-
 applications/cactusjukebox/source/mainform.lfm      | 4 ++++
 applications/cactusjukebox/source/mainform.pas      | 7 +++++++
 3 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/applications/cactusjukebox/source/cactusjukebox.lpi b/applications/cactusjukebox/source/cactusjukebox.lpi
index 5bbbdc759..a3c22a0c3 100644
--- a/applications/cactusjukebox/source/cactusjukebox.lpi
+++ b/applications/cactusjukebox/source/cactusjukebox.lpi
@@ -18,7 +18,7 @@
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="3"/>
       <RevisionNr Value="5"/>
-      <BuildNr Value="753"/>
+      <BuildNr Value="754"/>
       <StringTable ProductVersion="0.3.5.737"/>
     </VersionInfo>
     <BuildModes Count="3">
diff --git a/applications/cactusjukebox/source/mainform.lfm b/applications/cactusjukebox/source/mainform.lfm
index 74e4e14e4..d009f25f4 100644
--- a/applications/cactusjukebox/source/mainform.lfm
+++ b/applications/cactusjukebox/source/mainform.lfm
@@ -4389,6 +4389,10 @@ object Main: TMain
     Images = ImageListNormal
     left = 504
     top = 368
+    object menuShowCactus: TMenuItem
+      Caption = 'Show/Hide Cactus'
+      OnClick = TrayIconClick
+    end
     object itemTrayPrev: TMenuItem
       Caption = 'Previous Track'
       Bitmap.Data = {
diff --git a/applications/cactusjukebox/source/mainform.pas b/applications/cactusjukebox/source/mainform.pas
index b084cd79c..146c6c949 100644
--- a/applications/cactusjukebox/source/mainform.pas
+++ b/applications/cactusjukebox/source/mainform.pas
@@ -111,6 +111,7 @@ type
     itemTrayNext: TMenuItem;
     itemTrayPrev: TMenuItem;
     MenuItem27: TMenuItem;
+    menuShowCactus: TMenuItem;
     MenuItem34: TMenuItem;
     MenuItem35: TMenuItem;
     MIabout: TMenuItem;
@@ -268,6 +269,7 @@ type
     procedure LibraryModeBtnClick(Sender: TObject);
     procedure MenuItem15Click(Sender: TObject);
     procedure MenuItem25Click(Sender: TObject);
+    procedure menuShowCactusClick(Sender: TObject);
     procedure MIrandom_playlistClick(Sender: TObject);
     procedure MIViewAlbumClick(Sender: TObject);
     procedure MIViewArtistClick(Sender: TObject);
@@ -1453,6 +1455,11 @@ begin
   addRadioForm.ShowModal;
 end;
 
+procedure TMain.menuShowCactusClick(Sender: TObject);
+begin
+
+end;
+
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
 procedure TMain.MIViewAlbumClick(Sender: TObject);