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