OSDN Git Service

ミュート機能追加
authorh677 <h677>
Wed, 3 Nov 2004 15:08:17 +0000 (15:08 +0000)
committerh677 <h677>
Wed, 3 Nov 2004 15:08:17 +0000 (15:08 +0000)
Giko.dfm
Giko.pas
Setting.pas
ToolBarUtil.pas

index afe5fcf..b4ad813 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 284
-  Top = 50
+  Left = 404
+  Top = 152
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
@@ -1137,6 +1137,11 @@ object GikoForm: TGikoForm
             Action = CabinetFavoriteAction
             Style = tbsCheck
           end
+          object ToolButton22: TToolButton
+            Left = 210
+            Top = 0
+            Action = MuteAction
+          end
         end
         object AddressToolBar: TToolBar
           Left = 293
@@ -2990,66 +2995,66 @@ object GikoForm: TGikoForm
     Left = 4
     Top = 244
     Bitmap = {
-      494C010134003600040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010135003600040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000040000000E000000001001000000000000070
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000007C
+      007C007C007C007C000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000007C007C0042
+      0000186318631042007C007C0000104200000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000007C0000007C1042
+      1042FF7FFF7F104200000000007C000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000007C00000042007C007C
+      1863FF7FFF7F1042000010420000007C00000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000007C0042E07FFF7F007C
+      007CFF7FFF7F1042000000000000007C00000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000007C1042E07FFF7FE07F0000
+      007C007CFF7F10420000000000000000007C0000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000042007C1863FF7FE07FFF7F0000
+      1042007C007C10420000104210421042007C0000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000042007C1863E07FFF7FE07F0000
+      18630000007C007C0000000000000000007C0000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000042007C1863FF7FE07FFF7F0000
+      0000FF7FFF7F007C007C000000000000007C0000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000042007CE07FFF7FE07F0000
+      1863FF7FFF7F1042007C007C0000007C00000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000007C0042E07FFF7F0000
+      1863FF7FFF7F10420000007C007C007C00000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000007C0042E07F1042
+      10421863FF7F104200000000007C104200000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000007C007CE07F
+      0000186318630000007C007C0000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000000007C
+      007C007C007C007C000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -3890,11 +3895,11 @@ object GikoForm: TGikoForm
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000424D3E000000000000003E000000
       2800000040000000E00000000100010000000000000700000000000000000000
-      000000000000000000000000FFFFFF0000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFC003
+      000000000000000000000000FFFFFF00FE7F000000000000FC1F000000000000
+      F005000000000000E01B000000000000C015000000000000801D000000000000
+      001E0000000000000010000000000000001E000000000000000E000000000000
+      8005000000000000C011000000000000E019000000000000F027000000000000
+      FC1F000000000000FE7F000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFC003
       FFFFFFFFFFFFC003FC01803FFC01C003FC01803C3C01C003FC01803C3C01C003
       FC01803C3C01C003FC01803C3C01C003FC01803C3C01C003C00180000001C003
       C00180000001C003C00180000001C003C00180000001C003FFFFFFFC3FFFC003
@@ -3946,73 +3951,72 @@ object GikoForm: TGikoForm
       00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
       000000000000861F800000000000C20FC00100000000E007F81F00000000F043
       F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
-      F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
-      000000000000}
+      F81FE0FFE007FFFFF83FFFFFF81FFFFF}
   end
   object ToobarImageList: TImageList
     Left = 36
     Top = 244
     Bitmap = {
-      494C010134003600040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010135003600040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000040000000E000000001001000000000000070
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0042000010420000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000042
+      0000186318631042000000000000104200000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000421042
+      1042FF7FFF7F1042000000001042000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000042E07F0000
+      1863FF7FFF7F1042000010420000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000042E07FFF7F0000
+      1863FF7FFF7F1042000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000421042E07FFF7FE07F0000
+      0000FF7FFF7F1042000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000042E07F1863FF7FE07FFF7F0000
+      10420000FF7F1042000010421042104210420000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000042E07F1863E07FFF7FE07F0000
+      18630000FF7F1042000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000042FF7F1863FF7FE07FFF7F0000
+      0000FF7FFF7F1042000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000420042E07FFF7FE07F0000
+      1863FF7FFF7F1042000010420000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000042E07FFF7F0000
+      1863FF7FFF7F1042000000001042000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000000000000042E07F1042
+      10421863FF7F1042000000000000104200000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000000000000000000000000042E07F
+      0000186318630000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000042
+      1042000010420000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -4853,11 +4857,11 @@ object GikoForm: TGikoForm
       0000000000000000000000000000000000000000000000000000000000000000
       000000000000000000000000000000000000424D3E000000000000003E000000
       2800000040000000E00000000100010000000000000700000000000000000000
-      000000000000000000000000FFFFFF0000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFC003
+      000000000000000000000000FFFFFF00FE7F000000000000FC3F000000000000
+      F81D000000000000F01B000000000000E017000000000000801F000000000000
+      001F0000000000000010000000000000001F000000000000001F000000000000
+      8017000000000000E01B000000000000F01D000000000000F83F000000000000
+      FC3F000000000000FE7F000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFC003
       FFFFFFFFFFFFC003FC01803FFC01C003FC01803C3C01C003FC01803C3C01C003
       FC01803C3C01C003FC01803C3C01C003FC01803C3C01C003C00180000001C003
       C00180000001C003C00180000001C003C00180000001C003FFFFFFFC3FFFC003
@@ -4909,8 +4913,7 @@ object GikoForm: TGikoForm
       00000000C003FFFF0000000080017FFF0000000080013F7F0000000000000E3F
       000000000000861F800000000000C20FC00100000000E007F81F00000000F043
       F00F00000000F861E00700008001FC70C003803F8001FEFCF81FC07FC003FFFE
-      F81FE0FFE007FFFFF83FFFFFF81FFFFF00000000000000000000000000000000
-      000000000000}
+      F81FE0FFE007FFFFF83FFFFFF81FFFFF}
   end
   object ItemImageList: TImageList
     Left = 4
@@ -7139,6 +7142,14 @@ object GikoForm: TGikoForm
       Hint = #36879#26126#12354#12412#65374#12435
       OnExecute = IndividualAbonID0ActionExecute
     end
+    object MuteAction: TAction
+      Category = #12484#12540#12523
+      AutoCheck = True
+      Caption = #12511#12517#12540#12488
+      Hint = #12511#12517#12540#12488
+      ImageIndex = 52
+      OnExecute = MuteActionExecute
+    end
   end
   object BrowserPopupMenu: TPopupMenu
     Left = 68
@@ -7315,7 +7326,6 @@ object GikoForm: TGikoForm
       end
       object IndividualAbon2: TMenuItem
         Action = IndividualAbon0Action
-        OnClick = IndividualAbon1ActionExecute
       end
     end
     object ID3: TMenuItem
index d395fcd..054bf45 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -593,6 +593,8 @@ type
     ID3: TMenuItem;
     IndividualAbonID0Action: TAction;
     N71: TMenuItem;
+    MuteAction: TAction;
+    ToolButton22: TToolButton;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -944,6 +946,7 @@ type
     procedure IndividualAbonID1ActionExecute(Sender: TObject);
     procedure IndividualAbonID0ActionExecute(Sender: TObject);
     procedure KokoPopupMenuPopup(Sender: TObject);
+    procedure MuteActionExecute(Sender: TObject);
        private
                { Private \90é\8c¾ }
         //RoundList : TRoundList;
@@ -1778,6 +1781,8 @@ begin
                else
                        GikoSys.Setting.GengoSupport := false;
        end;
+
+       MuteAction.Checked := GikoSys.Setting.Mute;
        LockWindowUpdate(0);
 end;
 
@@ -4177,13 +4182,15 @@ procedure TGikoForm.PlaySound(SoundEventName: string);
 var
        FileName: string;
 begin
-       FileName := GikoSys.Setting.FindSoundFileName(SoundEventName);
-       if FileExists(FileName) then begin
-               if not sndPlaySound(PChar(FileName), SND_ASYNC or SND_NOSTOP) then begin
-                       sndPlaySound(nil, SND_SYNC);
-                       Application.ProcessMessages;
-                       Sleep(10);
-                       sndPlaySound(PChar(FileName), SND_ASYNC);
+       if not GikoSys.Setting.Mute then begin
+               FileName := GikoSys.Setting.FindSoundFileName(SoundEventName);
+               if FileExists(FileName) then begin
+                       if not sndPlaySound(PChar(FileName), SND_ASYNC or SND_NOSTOP) then begin
+                               sndPlaySound(nil, SND_SYNC);
+                               Application.ProcessMessages;
+                               Sleep(10);
+                               sndPlaySound(PChar(FileName), SND_ASYNC);
+                       end;
                end;
        end;
 end;
@@ -12067,6 +12074,11 @@ begin
 
 end;
 
+procedure TGikoForm.MuteActionExecute(Sender: TObject);
+begin
+       GikoSys.Setting.Mute := not GikoSys.Setting.Mute; 
+end;
+
 initialization
                                OleInitialize(nil);
 finalization
index 7becebc..1682217 100644 (file)
@@ -425,7 +425,8 @@ type
 
                //! \8eg\97p\82·\82é\83X\83p\83\80\83t\83B\83\8b\83^\81[
                FSpamFilterAlgorithm : TGikoSpamFilterAlgorithm;
-
+               //\83~\83\85\81[\83g\82µ\82Ä\82é\82©
+               FMute: Boolean;
                function GetMainCoolSet(Index: Integer): TCoolSet;
                function GetBoardCoolSet(Index: Integer): TCoolSet;
                function GetBrowserCoolSet(Index: Integer): TCoolSet;
@@ -725,7 +726,7 @@ type
                //! \8eg\97p\82·\82é\83X\83p\83\80\83t\83B\83\8b\83^
                property SpamFilterAlgorithm : TGikoSpamFilterAlgorithm
                        read FSpamFilterAlgorithm write FSpamFilterAlgorithm;
-
+               property Mute: Boolean read FMute write FMute;
 end;
 
 
@@ -1284,7 +1285,7 @@ begin
                // \8eg\97p\82·\82é\83X\83p\83\80\83t\83B\83\8b\83^
                FSpamFilterAlgorithm := TGikoSpamFilterAlgorithm(
                        ini.ReadInteger( 'Abon', 'SpamFilterAlgorithm', Ord( gsfaNone ) ) );
-
+               FMute := ini.ReadBool('Function', 'Mute', false);
                ini.UpdateFile;
        finally
                ini.Free;
@@ -1631,7 +1632,7 @@ begin
 
                // \8eg\97p\82·\82é\83X\83p\83\80\83t\83B\83\8b\83^
                ini.WriteInteger( 'Abon', 'SpamFilterAlgorithm', Ord( FSpamFilterAlgorithm ) );
-
+        ini.WriteBool('Function', 'Mute', FMute);
                ini.UpdateFile;
        finally
                ini.Free;
index f92fd7c..9bcf362 100644 (file)
@@ -9,7 +9,7 @@ uses
 
 const
        //\95W\8f\80\83c\81[\83\8b\83o\81[\83f\83t\83H\83\8b\83g
-       DEF_STANDARD: array[0..9]       of string = ('RoundAction',
+       DEF_STANDARD: array[0..10]      of string = ('RoundAction',
                                                                                                                                                                        '',
                                                                                                                                                                        'ArrangeAction',
                                                                                                                                                                        '',
@@ -18,7 +18,8 @@ const
                                                                                                                                                                        '',
                                                                                                                                                                        'CabinetBBSAction',
                                                                                                                                                                        'CabinetHistoryAction',
-                                                                                                                                                                       'CabinetFavoriteAction');
+                                                                                                                                                                       'CabinetFavoriteAction',
+                                                                                                                                                                       'MuteAction');
        //\83\8a\83X\83g\83c\81[\83\8b\83o\81[\83f\83t\83H\83\8b\83g
        DEF_LIST:       array[0..16] of string = ('ListNumberVisibleAction',
                                                                                                                                                                        'IconStyle',
@@ -59,7 +60,8 @@ const
 
 
        /// \83{\83^\83\93\83X\83^\83C\83\8b\82ª"tbsCheck"\83{\83^\83\93\82Ì\83A\83N\83V\83\87\83\93
-       CHECK_STYLE:   array[0..33] of string = ('CabinetVisibleAction',
+       CHECK_STYLE:   array[0..34] of string = ('CabinetVisibleAction',
+                                                                                    'MuteAction',
                                                                                                                                                                        'ArrangeAction',
                                                                                                                                                                        'AllItemAction',
                                                                                                                                                                        'LogItemAction',