詳細設定で、メール欄ポップアップをオプション化

diff --git a/Giko.pas b/Giko.pas
index f7661ec..78df44c 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2015,7 +2015,7 @@ begin
                PreviewTimer.Interval := GikoSys.Setting.PreviewWait;
                PreviewTimer.Enabled := True;
        end else if (Pos('about:blank', Text2) = 1) or (Pos('http://', Text2) = 1) or (Pos('mailto:', Text2) = 1) then begin
-               if Pos('mailto:', Text2) = 1 then begin
+               if (Pos('mailto:', Text2) = 1) and (GikoSys.Setting.RespopupMailTo) then begin
                        s := StringReplace(Text2, 'mailto:', '', [rfIgnoreCase]);
                        //\83M\83R\83i\83r\83X\83\8c \83p\81[\83g3\82Ì466\8e\81\82É\8a´\8eÓ
                        GetCursorPos(p);

diff --git a/KuroutSetting.dfm b/KuroutSetting.dfm
index 63f6e96..dc6bcc5 100644 (file)
--- a/KuroutSetting.dfm
+++ b/KuroutSetting.dfm
@@ -586,7 +586,7 @@ object KuroutOption: TKuroutOption
         Left = 8
         Top = 16
         Width = 473
-        Height = 105
+        Height = 121
         Caption = #12524#12473#12509#12483#12503#12450#12483#12503
         TabOrder = 0
         object Label16: TLabel
@@ -683,6 +683,14 @@ object KuroutOption: TKuroutOption
           Thousands = False
           Wrap = False
         end
+        object RespopupMailToCheckBox: TCheckBox
+          Left = 16
+          Top = 96
+          Width = 185
+          Height = 17
+          Caption = #12513#12540#12523#27396#12434#12509#12483#12503#12450#12483#12503#12377#12427
+          TabOrder = 6
+        end
       end
     end
   end

diff --git a/KuroutSetting.pas b/KuroutSetting.pas
index 4fc5b36..04e454e 100644 (file)
--- a/KuroutSetting.pas
+++ b/KuroutSetting.pas
@@ -93,6 +93,7 @@ type
     RespopupWaitLabeledEdit: TLabeledEdit;
     RespopupWaitUpDown: TUpDown;
     Label19: TLabel;
+    RespopupMailToCheckBox: TCheckBox;
        procedure OkBottonClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure CDeleteButtonClick(Sender: TObject);
@@ -176,7 +177,7 @@ begin
     DeltaXUpDown.Position := GikoSys.Setting.RespopupDeltaX;
     DeltaYUpDown.Position := GikoSys.Setting.RespopupDeltaY;
     RespopupWaitUpDown.Position := GikoSys.Setting.RespopupWait;
-
+    RespopupMailToCheckBox.Checked := GikoSys.Setting.RespopupMailTo;
 end;
 
 procedure TKuroutOption.SaveSetting;
@@ -226,6 +227,7 @@ begin
     GikoSys.Setting.RespopupDeltaY := StrToInt(DeltaYLabeledEdit.Text);
     GikoSys.Setting.RespopupWait := StrToInt(RespopupWaitLabeledEdit.Text);
     GikoForm.ResPopupClearTimer.Interval := GikoSys.Setting.RespopupWait;
+    GikoSys.Setting.RespopupMailTo := RespopupMailToCheckBox.Checked;
 end;
 
 procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);

diff --git a/Setting.pas b/Setting.pas
index 147ff0d..f165de0 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -460,6 +460,8 @@ type
         FRespopupDeltaY: Integer;
         //! \83\8c\83X\83|\83b\83v\83A\83b\83v\83^\83C\83}\81[
         FRespopupWait: Integer;
+        //! \83\81\81[\83\8b\97\93\83\8c\83X\83|\83b\83v\83A\83b\83v
+        FRespopupMailTo: Boolean;
                function GetMainCoolSet(Index: Integer): TCoolSet;
                function GetBoardCoolSet(Index: Integer): TCoolSet;
                function GetBrowserCoolSet(Index: Integer): TCoolSet;
@@ -826,6 +828,7 @@ type
         property RespopupDeltaY: Integer read FRespopupDeltaY write FRespopupDeltaY;
         //! \83\8c\83X\83|\83b\83v\83A\83b\83v\83^\83C\83}\81[
         property RespopupWait: Integer read FRespopupWait write FRespopupWait;
+        property RespopupMailTo: Boolean read FRespopupMailTo write FRespopupMailTo;
 end;
 
 
@@ -1169,6 +1172,7 @@ begin
         FRespopupDeltaX := ini.ReadInteger('Browser', 'RespopupDelteX', 5);
         FRespopupDeltaY := ini.ReadInteger('Browser', 'RespopupDelteY', 5);
         FRespopupWait   := ini.ReadInteger('Browser', 'RespopupWait', 1000);
+        FRespopupMailTo := ini.ReadBool('Browser', 'RespopupMailTo', true);
 
                //\83A\83h\83\8c\83X\83o\81[
                FURLDisplay := ini.ReadBool('AddressBar', 'URLDisplay', False);
@@ -1546,7 +1550,8 @@ begin
         ini.WriteInteger('Browser', 'RespopupDelteX', FRespopupDeltaX);
         ini.WriteInteger('Browser', 'RespopupDelteY', FRespopupDeltaY);
         ini.WriteInteger('Browser', 'RespopupWait', FRespopupWait);
-
+        ini.WriteBool('Browser', 'RespopupMailTo', FRespopupMailTo);
+        
                //\83A\83h\83\8c\83X\83o\81[
                ini.WriteBool('AddressBar', 'URLDisplay', FURLDisplay);
                ini.WriteBool('AddressBar', 'TabStop', FAddressBarTabStop);