From 098c6d2184b2b6240689f675489260947ad020ac Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Wed, 13 Aug 2003 05:07:02 +0000
Subject: [PATCH] =?utf8?q?=E3=81=82=E3=81=BC=E3=80=9C=E3=82=93=E3=81=AE?=
 =?utf8?q?=E3=83=9A=E3=83=BC=E3=82=B8=E3=82=92=E5=A2=97=E3=82=84=E3=81=97?=
 =?utf8?q?=E3=81=A6=E3=80=81=E3=81=9D=E3=82=8C=E3=81=AB=E4=BC=B4=E3=81=86?=
 =?utf8?q?=E5=87=A6=E7=90=86=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Option.dfm | 71 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++----
 Option.pas | 47 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 114 insertions(+), 4 deletions(-)

diff --git a/Option.dfm b/Option.dfm
index ea18006..b03fc32 100644
--- 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
--- 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 éŒ¾ }
 	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;
+    //‚ ‚ځ`‚ñ
+    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;
+
+    //‚ ‚ځ`‚ñ
+    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
+    //‚ ‚ځ`‚ñ
+    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.
 
-- 
2.11.0