pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

cactus: Adds show/hide to the trayicon

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2120 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-11-10 13:27:59 +00:00
parent 25158322fd
commit 7c97b0c3df
3 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
applications/cactusjukebox/source/cactusjukebox.lpi
View File

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

4
applications/cactusjukebox/source/mainform.lfm
View File

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

7
applications/cactusjukebox/source/mainform.pas
View File

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