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

@@ -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">

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 = {

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);