あぼ〜んのページを増やして、それに伴う処理追加

diff --git a/Option.dfm b/Option.dfm
index ea18006..b03fc32 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -1,6 +1,6 @@
 object OptionDialog: TOptionDialog
-  Left = 229
-  Top = 172
+  Left = 750
+  Top = 181
   BorderStyle = bsDialog
   Caption = #12458#12503#12471#12519#12531
   ClientHeight = 428
@@ -44,9 +44,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = TabSheet4
+    ActivePage = NGwordSheet
     MultiLine = True
-    TabIndex = 2
+    TabIndex = 5
     TabOrder = 0
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -613,6 +613,69 @@ object OptionDialog: TOptionDialog
         end
       end
     end
+    object NGwordSheet: TTabSheet
+      Caption = #12354#12412#65374#12435
+      ImageIndex = 11
+      object GroupBox14: TGroupBox
+        Left = 24
+        Top = 24
+        Width = 449
+        Height = 169
+        Caption = #12354#12412#65374#12435
+        TabOrder = 0
+        object Label26: TLabel
+          Left = 16
+          Top = 120
+          Width = 86
+          Height = 12
+          Caption = #8251'0'#12398#22580#21512#12289#28961#21177
+        end
+        object Label28: TLabel
+          Left = 128
+          Top = 120
+          Width = 151
+          Height = 12
+          Caption = #8251#22823#25991#23383#23567#25991#23383#12399#21306#21029#12375#12394#12356
+        end
+        object RloCheckBox: TCheckBox
+          Left = 16
+          Top = 24
+          Width = 153
+          Height = 17
+          Caption = '&&rlo;'#21442#29031#25991#23383#12434#28961#35222#12377#12427
+          TabOrder = 0
+        end
+        object ReplaceulCheckBox: TCheckBox
+          Left = 16
+          Top = 48
+          Width = 185
+          Height = 17
+          Caption = '<ul>'#12479#12464#12434'<br>'#12479#12464#12395#32622#25563#12377#12427
+          TabOrder = 1
+        end
+        object PopUpAbonCheckBox: TCheckBox
+          Left = 16
+          Top = 72
+          Width = 209
+          Height = 17
+          Caption = #12524#12473#12509#12483#12503#12450#12483#12503#26178#12398#12354#12412#65374#12435#26377#21177
+          TabOrder = 2
+        end
+        object CutOffLabeledEdit: TLabeledEdit
+          Left = 246
+          Top = 96
+          Width = 57
+          Height = 20
+          EditLabel.Width = 219
+          EditLabel.Height = 12
+          EditLabel.Caption = #26412#25991#20013#12395#21516#12376#33521#23383#12364#36899#32154#12375#12383#22580#21512#12354#12412#65374#12435
+          ImeMode = imDisable
+          LabelPosition = lpLeft
+          LabelSpacing = 10
+          TabOrder = 3
+        end
+      end
+    end
     object ThreadSheet: TTabSheet
       Caption = #12473#12524#12483#12489#65297
       ImageIndex = 5

diff --git a/Option.pas b/Option.pas
index 3bc5b9c..216bfab 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -157,6 +157,14 @@ type
     PutPostTimeRadioButton: TRadioButton;
     BackPostTimeRadioButton: TRadioButton;
     ResPopupBoldCheckBox: TCheckBox;
+    NGwordSheet: TTabSheet;
+    GroupBox14: TGroupBox;
+    RloCheckBox: TCheckBox;
+    ReplaceulCheckBox: TCheckBox;
+    PopUpAbonCheckBox: TCheckBox;
+    CutOffLabeledEdit: TLabeledEdit;
+    Label26: TLabel;
+    Label28: TLabel;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -207,6 +215,7 @@ type
                procedure SaveSetting;
                procedure SettingApply;
                function CheckFolder: Boolean;
+        procedure SetAbonpropertys;
        public
                { Public \90é\8c¾ }
        end;
@@ -276,6 +285,7 @@ begin
        end;
        SaveSetting;
        SettingApply;
+    SetAbonpropertys;
 end;
 
 procedure TOptionDialog.ApplyButtonClick(Sender: TObject);
@@ -293,6 +303,7 @@ begin
        end;
        SaveSetting;
        SettingApply;
+    SetAbonpropertys;
        FClose := False;
 end;
 
@@ -629,6 +640,12 @@ begin
                PutPostTimeRadioButton.Checked := True
        else
                BackPostTimeRadioButton.Checked := True;
+    //\82 \82Ú\81`\82ñ
+    RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
+    ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
+    PopUpAbonCheckBox.Checked := GikoSys.Setting.PopUpAbon;
+    CutOfflabeledEdit.Text := IntToStr(GikoSys.Setting.AbonCutoffNum);
+
 end;
 
 procedure TOptionDialog.SaveSetting;
@@ -772,6 +789,20 @@ begin
                else
                        GikoSys.Setting.SoundFileName[i] := '';
        end;
+
+    //\82 \82Ú\81`\82ñ
+    GikoSys.Setting.AbonDeleterlo := RloCheckBox.Checked;
+    GikoSys.Setting.AbonReplaceul := ReplaceulCheckBox.Checked;
+    GikoSys.Setting.PopUpAbon := PopUpAbonCheckBox.Checked;
+    try
+        if StrToInt(CutOfflabeledEdit.Text) > 0 then begin
+            GikoSys.Setting.AbonCutoffNum := StrToInt(CutOfflabeledEdit.Text);
+        end else begin
+            GikoSys.Setting.AbonCutoffNum := 0;
+        end;
+    except
+        GikoSys.Setting.AbonCutoffNum := 0;
+    end;
 end;
 
 procedure TOptionDialog.SettingApply;
@@ -1017,6 +1048,22 @@ begin
        PutPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
        BackPostTimeRadioButton.Enabled := PostTimeCheckBox.Checked;
 end;
+procedure TOptionDialog.SetAbonpropertys;
+begin
+    //\82 \82Ú\81`\82ñ
+    GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
+    GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
+    GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
+    try
+        if StrToInt(CutOfflabeledEdit.Text) > 0 then begin
+            GikoSys.FAbon.SetCutoffNum(StrToInt(CutOfflabeledEdit.Text));
+        end else begin
+            GikoSys.FAbon.SetCutoffNum(0);
+        end;
+    except
+        GikoSys.FAbon.SetCutoffNum(0);
+    end;
 
+end;
 end.