Add Be2chOption & Source IndentChange

diff --git a/Option.dfm b/Option.dfm
index 52f9811..2431025 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -1,6 +1,6 @@
 object OptionDialog: TOptionDialog
-  Left = 287
-  Top = 152
+  Left = 290
+  Top = 147
   BorderStyle = bsDialog
   Caption = #12458#12503#12471#12519#12531
   ClientHeight = 428
@@ -60,9 +60,9 @@ object OptionDialog: TOptionDialog
     Top = 4
     Width = 509
     Height = 389
-    ActivePage = NGwordSheet
+    ActivePage = UserIDSheet
     MultiLine = True
-    TabIndex = 10
+    TabIndex = 11
     TabOrder = 3
     OnChange = OptionTabChange
     object ConnectSheet: TTabSheet
@@ -1370,27 +1370,6 @@ object OptionDialog: TOptionDialog
     object UserIDSheet: TTabSheet
       Caption = #65298#12385#12419#12435#12397#12427
       ImageIndex = 9
-      object Tora3URLLabel: TLabel
-        Left = 105
-        Top = 173
-        Width = 104
-        Height = 12
-        Caption = 'http://2ch.tora3.net/'
-        Font.Charset = SHIFTJIS_CHARSET
-        Font.Color = clBlue
-        Font.Height = -12
-        Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
-        Font.Style = [fsUnderline]
-        ParentFont = False
-        OnClick = Tora3URLLabelClick
-      end
-      object Label12: TLabel
-        Left = 13
-        Top = 173
-        Width = 83
-        Height = 12
-        Caption = #12518#12540#12470'ID'#12398#21462#24471
-      end
       object GroupBox3: TGroupBox
         Left = 12
         Top = 8
@@ -1421,6 +1400,27 @@ object OptionDialog: TOptionDialog
           Height = 12
           Caption = 'ForcedLoginLabel'
         end
+        object Tora3URLLabel: TLabel
+          Left = 329
+          Top = 133
+          Width = 104
+          Height = 12
+          Caption = 'http://2ch.tora3.net/'
+          Font.Charset = SHIFTJIS_CHARSET
+          Font.Color = clBlue
+          Font.Height = -12
+          Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
+          Font.Style = [fsUnderline]
+          ParentFont = False
+          OnClick = Tora3URLLabelClick
+        end
+        object Label12: TLabel
+          Left = 237
+          Top = 133
+          Width = 83
+          Height = 12
+          Caption = #12518#12540#12470'ID'#12398#21462#24471
+        end
         object UserIDEdit: TEdit
           Left = 88
           Top = 20
@@ -1453,6 +1453,51 @@ object OptionDialog: TOptionDialog
           TabOrder = 3
         end
       end
+      object GroupBox11: TGroupBox
+        Left = 16
+        Top = 176
+        Width = 473
+        Height = 121
+        Caption = 'Be 2ch'
+        TabOrder = 1
+        object Label7: TLabel
+          Left = 8
+          Top = 24
+          Width = 73
+          Height = 12
+          Caption = #12513#12540#12523#12450#12489#12524#12473
+        end
+        object Label8: TLabel
+          Left = 18
+          Top = 59
+          Width = 54
+          Height = 12
+          Caption = #12497#12473#12527#12540#12489
+        end
+        object BeUserIDEdit: TEdit
+          Left = 88
+          Top = 20
+          Width = 369
+          Height = 20
+          TabOrder = 0
+        end
+        object BePasswordEdit: TEdit
+          Left = 88
+          Top = 56
+          Width = 369
+          Height = 20
+          PasswordChar = '*'
+          TabOrder = 1
+        end
+        object BeAutoLoginCheckBox: TCheckBox
+          Left = 12
+          Top = 88
+          Width = 193
+          Height = 17
+          Caption = #36215#21205#26178#12395#33258#21205#12525#12464#12452#12531#12377#12427'(&S)'
+          TabOrder = 2
+        end
+      end
     end
   end
   object OkBotton: TButton

diff --git a/Option.pas b/Option.pas
index c85423b..6358db5 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -22,173 +22,179 @@ type
                FontDialog: TFontDialog;
                ColorDialog: TColorDialog;
                OpenDialog: TOpenDialog;
-    Label26: TLabel;
-    CroutOption: TButton;
-    OptionTab: TPageControl;
-    ConnectSheet: TTabSheet;
-    ReadProxyGroupBox: TGroupBox;
-    ReadAddressLabel: TLabel;
-    ReadPortLabel: TLabel;
-    ReadUserIDLabel: TLabel;
-    ReadPasswordLabel: TLabel;
-    ReadProxyCheck: TCheckBox;
-    ReadProxyAddressEdit: TEdit;
-    ReadPortEdit: TEdit;
-    ReadProxyUserIDEdit: TEdit;
-    ReadProxyPasswordEdit: TEdit;
-    WriteProxyGroupBox: TGroupBox;
-    WriteAddressLabel: TLabel;
-    WritePortLabel: TLabel;
-    WriteUserIDLabel: TLabel;
-    WritePasswordLabel: TLabel;
-    WriteProxyCheck: TCheckBox;
-    WriteProxyAddressEdit: TEdit;
-    WritePortEdit: TEdit;
-    WriteProxyUserIDEdit: TEdit;
-    WriteProxyPasswordEdit: TEdit;
-    Font1Sheet: TTabSheet;
-    Bevel1: TBevel;
-    Bevel2: TBevel;
-    Label19: TLabel;
-    Bevel5: TBevel;
-    Label20: TLabel;
-    Label21: TLabel;
-    Label22: TLabel;
-    Label23: TLabel;
-    lblSFont: TLabel;
-    CabinetFontBotton: TButton;
-    CabinetColorBotton: TButton;
-    CabinetDefaultButton: TButton;
-    CabinetMemo: TMemo;
-    ListMemo: TMemo;
-    ListFontBotton: TButton;
-    ListColorBotton: TButton;
-    ListDefaultBotton: TButton;
-    HintFontButton: TButton;
-    HintBackButton: TButton;
-    HintDefaultButton: TButton;
-    HintMemo: TMemo;
-    EditorMemo: TMemo;
-    EditorFontBotton: TButton;
-    EditorColorBotton: TButton;
-    EditorDefaultBotton: TButton;
-    BrowserTabMemo: TMemo;
-    BruwserTabFontButton: TButton;
-    BrowserTabDefaultButton: TButton;
-    OddResNumCheckBox: TCheckBox;
-    OddResNumColorBox: TColorBox;
-    CSSTabSheet: TTabSheet;
-    GroupBox12: TGroupBox;
-    CSSListLabel: TLabel;
-    CSSCheckBox: TCheckBox;
-    CSSListView: TListView;
-    CSSBrowser: TWebBrowser;
-    CSSFontCheckBox: TCheckBox;
-    CSSBackColorCheckBox: TCheckBox;
-    CSSFontButton: TButton;
-    CSSBackColorButton: TButton;
-    TabSheet3: TTabSheet;
-    GroupBox9: TGroupBox;
-    ThreadListIconCheckBox: TCheckBox;
-    GroupBox16: TGroupBox;
-    CreationTimeLogsCheckBox: TCheckBox;
-    FutureThreadCheckBox: TCheckBox;
-    GroupBox5: TGroupBox;
-    BrowserMaxLabel: TLabel;
-    BrowserMaxCombo: TComboBox;
-    GroupBox17: TGroupBox;
-    SelectIntervalLabel: TLabel;
-    Label4: TLabel;
-    Label6: TLabel;
-    SelectIntervalEdit: TEdit;
-    GroupBox18: TGroupBox;
-    DatOchiSortCombo: TComboBox;
-    ThreadSheet: TTabSheet;
-    GroupBox1: TGroupBox;
-    ShowMailCheckBox: TCheckBox;
-    ResRangeHoldCheckBox: TCheckBox;
-    ResRangeHoldComboBox: TComboBox;
-    GroupBox2: TGroupBox;
-    AppFolderLabel: TLabel;
-    URLAppCheckBox: TCheckBox;
-    AppFolderEdit: TEdit;
-    AppFolderButton: TButton;
-    OpenMailerCheckBox: TCheckBox;
-    GroupBox6: TGroupBox;
-    LogDeleteMessageCheckBox: TCheckBox;
-    ResAnchorGroupBox: TGroupBox;
-    ResAnchorCheckBox: TCheckBox;
-    TabSheet1: TTabSheet;
-    PopupPositionRadioGroup: TRadioGroup;
-       TabAddRadioGroup: TRadioGroup;
-    GroupBox8: TGroupBox;
-    Label14: TLabel;
-    Label15: TLabel;
-    Label16: TLabel;
-    PreviewVisibleCheckBox: TCheckBox;
-    PreviewSizeComboBox: TComboBox;
-    PreviewWaitEdit: TEdit;
-    GroupBox10: TGroupBox;
-    UnActivePopupCheckBox: TCheckBox;
-    ResPopupBoldCheckBox: TCheckBox;
-    TabSheet2: TTabSheet;
-    GroupBox7: TGroupBox;
-    Label3: TLabel;
-    Label11: TLabel;
-    URLDisplayCheckBox: TCheckBox;
-    AddressHistoryCountEdit: TEdit;
-    TabStopAddressBarCheckBox: TCheckBox;
-    LinkAddCheckBox: TCheckBox;
-    GroupBox15: TGroupBox;
-    ShowDialogForEndCheckBox: TCheckBox;
-    AllTabCloseCheckBox: TCheckBox;
-    SambaGroupBox: TGroupBox;
-    UseSambaCheckBox: TCheckBox;
-    TabAutoSaveLoad: TGroupBox;
-    TabLoadSave: TCheckBox;
-    SoundSheet: TTabSheet;
-    SoundEventGroupBox: TGroupBox;
-    SoundListView: TListView;
-    SoundReferButton: TButton;
-    SoundFileEdit: TEdit;
-    SoundPlayButton: TBitBtn;
-    FolderSheet: TTabSheet;
-    FolderGroupBox: TGroupBox;
-    Label1: TLabel;
-    Label2: TLabel;
-    Label5: TLabel;
-    LogFolderEdit: TEdit;
-    LogFolderButton: TButton;
-    NGwordSheet: TTabSheet;
-    GroupBox14: TGroupBox;
-    RloCheckBox: TCheckBox;
-    ReplaceulCheckBox: TCheckBox;
-    PopUpAbonCheckBox: TCheckBox;
-    ShowNGLineCheckBox: TCheckBox;
-    AddResAnchorCheckBox: TCheckBox;
-    DeleteSyriaCheckBox: TCheckBox;
-    UserIDSheet: TTabSheet;
-    Tora3URLLabel: TLabel;
-    Label12: TLabel;
-    GroupBox3: TGroupBox;
-    Label9: TLabel;
-    Label10: TLabel;
-    ForcedLoginLabel: TLabel;
-    UserIDEdit: TEdit;
-    PasswordEdit: TEdit;
-    AutoLoginCheckBox: TCheckBox;
-    ForcedLoginCheckBox: TCheckBox;
-    GroupBox4: TGroupBox;
-    Label13: TLabel;
-    BoardURLComboBox: TComboBox;
-    AddURLButton: TButton;
-    RemoveURLButton: TButton;
-    OkBotton: TButton;
-    SpamFilterGroupBox: TGroupBox;
-    SpamFilterAlgorithmComboBox: TComboBox;
-    TabSheet4: TTabSheet;
-    GroupBox13: TGroupBox;
-    UseUndecidedCheckBox: TCheckBox;
+                Label26: TLabel;
+                CroutOption: TButton;
+                OptionTab: TPageControl;
+                ConnectSheet: TTabSheet;
+                ReadProxyGroupBox: TGroupBox;
+                ReadAddressLabel: TLabel;
+                ReadPortLabel: TLabel;
+                ReadUserIDLabel: TLabel;
+                ReadPasswordLabel: TLabel;
+                ReadProxyCheck: TCheckBox;
+                ReadProxyAddressEdit: TEdit;
+                ReadPortEdit: TEdit;
+                ReadProxyUserIDEdit: TEdit;
+                ReadProxyPasswordEdit: TEdit;
+                WriteProxyGroupBox: TGroupBox;
+                WriteAddressLabel: TLabel;
+                WritePortLabel: TLabel;
+                WriteUserIDLabel: TLabel;
+                WritePasswordLabel: TLabel;
+                WriteProxyCheck: TCheckBox;
+                WriteProxyAddressEdit: TEdit;
+                WritePortEdit: TEdit;
+                WriteProxyUserIDEdit: TEdit;
+                WriteProxyPasswordEdit: TEdit;
+                Font1Sheet: TTabSheet;
+                Bevel1: TBevel;
+                Bevel2: TBevel;
+                Label19: TLabel;
+                Bevel5: TBevel;
+                Label20: TLabel;
+                Label21: TLabel;
+                Label22: TLabel;
+                Label23: TLabel;
+                lblSFont: TLabel;
+                CabinetFontBotton: TButton;
+                CabinetColorBotton: TButton;
+                CabinetDefaultButton: TButton;
+                CabinetMemo: TMemo;
+                ListMemo: TMemo;
+                ListFontBotton: TButton;
+                ListColorBotton: TButton;
+                ListDefaultBotton: TButton;
+                HintFontButton: TButton;
+                HintBackButton: TButton;
+                HintDefaultButton: TButton;
+                HintMemo: TMemo;
+                EditorMemo: TMemo;
+                EditorFontBotton: TButton;
+                EditorColorBotton: TButton;
+                EditorDefaultBotton: TButton;
+                BrowserTabMemo: TMemo;
+                BruwserTabFontButton: TButton;
+                BrowserTabDefaultButton: TButton;
+                OddResNumCheckBox: TCheckBox;
+                OddResNumColorBox: TColorBox;
+                CSSTabSheet: TTabSheet;
+                GroupBox12: TGroupBox;
+                CSSListLabel: TLabel;
+                CSSCheckBox: TCheckBox;
+                CSSListView: TListView;
+                CSSBrowser: TWebBrowser;
+                CSSFontCheckBox: TCheckBox;
+                CSSBackColorCheckBox: TCheckBox;
+                CSSFontButton: TButton;
+                CSSBackColorButton: TButton;
+                TabSheet3: TTabSheet;
+                GroupBox9: TGroupBox;
+                ThreadListIconCheckBox: TCheckBox;
+                GroupBox16: TGroupBox;
+                CreationTimeLogsCheckBox: TCheckBox;
+                FutureThreadCheckBox: TCheckBox;
+                GroupBox5: TGroupBox;
+                BrowserMaxLabel: TLabel;
+                BrowserMaxCombo: TComboBox;
+                GroupBox17: TGroupBox;
+                SelectIntervalLabel: TLabel;
+                Label4: TLabel;
+                Label6: TLabel;
+                SelectIntervalEdit: TEdit;
+                GroupBox18: TGroupBox;
+                DatOchiSortCombo: TComboBox;
+                ThreadSheet: TTabSheet;
+                GroupBox1: TGroupBox;
+                ShowMailCheckBox: TCheckBox;
+                ResRangeHoldCheckBox: TCheckBox;
+                ResRangeHoldComboBox: TComboBox;
+                GroupBox2: TGroupBox;
+                AppFolderLabel: TLabel;
+                URLAppCheckBox: TCheckBox;
+                AppFolderEdit: TEdit;
+                AppFolderButton: TButton;
+                OpenMailerCheckBox: TCheckBox;
+                GroupBox6: TGroupBox;
+                LogDeleteMessageCheckBox: TCheckBox;
+                ResAnchorGroupBox: TGroupBox;
+                ResAnchorCheckBox: TCheckBox;
+                TabSheet1: TTabSheet;
+                PopupPositionRadioGroup: TRadioGroup;
+               TabAddRadioGroup: TRadioGroup;
+                GroupBox8: TGroupBox;
+                Label14: TLabel;
+                Label15: TLabel;
+                Label16: TLabel;
+                PreviewVisibleCheckBox: TCheckBox;
+                PreviewSizeComboBox: TComboBox;
+                PreviewWaitEdit: TEdit;
+                GroupBox10: TGroupBox;
+                UnActivePopupCheckBox: TCheckBox;
+                ResPopupBoldCheckBox: TCheckBox;
+                TabSheet2: TTabSheet;
+                GroupBox7: TGroupBox;
+                Label3: TLabel;
+                Label11: TLabel;
+                URLDisplayCheckBox: TCheckBox;
+                AddressHistoryCountEdit: TEdit;
+                TabStopAddressBarCheckBox: TCheckBox;
+                LinkAddCheckBox: TCheckBox;
+                GroupBox15: TGroupBox;
+                ShowDialogForEndCheckBox: TCheckBox;
+                AllTabCloseCheckBox: TCheckBox;
+                SambaGroupBox: TGroupBox;
+                UseSambaCheckBox: TCheckBox;
+                TabAutoSaveLoad: TGroupBox;
+                TabLoadSave: TCheckBox;
+                SoundSheet: TTabSheet;
+                SoundEventGroupBox: TGroupBox;
+                SoundListView: TListView;
+                SoundReferButton: TButton;
+                SoundFileEdit: TEdit;
+                SoundPlayButton: TBitBtn;
+                FolderSheet: TTabSheet;
+                FolderGroupBox: TGroupBox;
+                Label1: TLabel;
+                Label2: TLabel;
+                Label5: TLabel;
+                LogFolderEdit: TEdit;
+                LogFolderButton: TButton;
+                NGwordSheet: TTabSheet;
+                GroupBox14: TGroupBox;
+                RloCheckBox: TCheckBox;
+                ReplaceulCheckBox: TCheckBox;
+                PopUpAbonCheckBox: TCheckBox;
+                ShowNGLineCheckBox: TCheckBox;
+                AddResAnchorCheckBox: TCheckBox;
+                DeleteSyriaCheckBox: TCheckBox;
+                UserIDSheet: TTabSheet;
+                GroupBox3: TGroupBox;
+                Label9: TLabel;
+                Label10: TLabel;
+                ForcedLoginLabel: TLabel;
+                UserIDEdit: TEdit;
+                PasswordEdit: TEdit;
+                AutoLoginCheckBox: TCheckBox;
+                ForcedLoginCheckBox: TCheckBox;
+                GroupBox4: TGroupBox;
+                Label13: TLabel;
+                BoardURLComboBox: TComboBox;
+                AddURLButton: TButton;
+                RemoveURLButton: TButton;
+                OkBotton: TButton;
+                SpamFilterGroupBox: TGroupBox;
+                SpamFilterAlgorithmComboBox: TComboBox;
+                TabSheet4: TTabSheet;
+                GroupBox13: TGroupBox;
+                UseUndecidedCheckBox: TCheckBox;
+                Tora3URLLabel: TLabel;
+                Label12: TLabel;
+                GroupBox11: TGroupBox;
+                Label7: TLabel;
+                BeUserIDEdit: TEdit;
+                Label8: TLabel;
+                BePasswordEdit: TEdit;
+                BeAutoLoginCheckBox: TCheckBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -234,9 +240,9 @@ type
                        Change: TItemChange);
                procedure AddURLButtonClick(Sender: TObject);
                procedure RemoveURLButtonClick(Sender: TObject);
-    procedure OddResNumCheckBoxClick(Sender: TObject);
-    procedure ResRangeHoldCheckBoxClick(Sender: TObject);
-    procedure CroutOptionClick(Sender: TObject);
+                procedure OddResNumCheckBoxClick(Sender: TObject);
+                procedure ResRangeHoldCheckBoxClick(Sender: TObject);
+                procedure CroutOptionClick(Sender: TObject);
        private
                { Private \90é\8c¾ }
                FClose: Boolean;
@@ -301,9 +307,9 @@ begin
                                                                                + '\83X\83\8c\83b\83h\95\\8e¦\83G\83\8a\83A\82Ì\83t\83H\83\93\83g\95Ï\8dX\82Í\81A'#13#10
                                                                                + '\81uCSS \82Æ\83X\83L\83\93\81v\83^\83u\82Å\90Ý\92è\8fo\97\88\82Ü\82·';
 
-    ForcedLoginLabel.Caption := '- \83`\83F\83b\83N\82ð\93ü\82ê\82é\82Ì\82Í\83Z\83L\83\85\83\8a\83e\83B\8fã\8dD\82Ü\82µ\82­\82 \82è\82Ü\82¹\82ñ\81B' + #13#10
-                                                               + '\81@\82â\82Þ\82ð\93¾\82È\82¢\8e\9e\82¾\82¯\82É\82µ\82Ä\82­\82¾\82³\82¢\81B';
-    CSSCheckBoxClick(Sender);
+        ForcedLoginLabel.Caption := '- \83`\83F\83b\83N\82ð\93ü\82ê\82é\82Ì\82Í\83Z\83L\83\85\83\8a\83e\83B\8fã\8dD\82Ü\82µ\82­\82 \82è\82Ü\82¹\82ñ\81B' + #13#10
+                                                                       + '\81@\82â\82Þ\82ð\93¾\82È\82¢\8e\9e\82¾\82¯\82É\82µ\82Ä\82­\82¾\82³\82¢\81B';
+        CSSCheckBoxClick(Sender);
        BrowserMaxLabel.Caption :=
                '\83u\83\89\83E\83U\82ª\8dÅ\8f¬\89»\82³\82ê\82Ä\82¢\82é\82Æ\82«\82É\88È\89º\82Ì\91\80\8dì\82Å\83u\83\89\83E\83U\82ð\8dÅ\91å\89»\82µ\82Ü\82·\81B'#13#10 +
                '\82Ü\82½\81A\83z\83C\81[\83\8b\83N\83\8a\83b\83N\82É\82æ\82è\8dÅ\91å\89»\82ð\83L\83\83\83\93\83Z\83\8b\82·\82é\82±\82Æ\82ª\8fo\97\88\82Ü\82·\81B';
@@ -338,7 +344,7 @@ begin
                FClose := False;
                Exit;
        end;
-    SetAbonpropertys;
+        SetAbonpropertys;
        SaveSetting;
        SettingApply;
 
@@ -355,7 +361,7 @@ begin
                FClose := False;
                Exit;
        end;
-    SetAbonpropertys;
+        SetAbonpropertys;
        SaveSetting;
        SettingApply;
        FClose := False;
@@ -837,6 +843,11 @@ begin
        //TabAutoLoad
        TabLoadSave.Checked := Gikosys.Setting.TabAutoLoadSave;
        UseUndecidedCheckBox.Checked := GikoSys.Setting.UseUndecided;
+
+       //Be2ch\94F\8fØ
+       BeUserIDEdit.Text := GikoSys.Setting.BeUserID;
+       BePasswordEdit.Text := GikoSys.Setting.BePassword;
+       BeAutoLoginCheckBox.Checked := GikoSys.Setting.BeAutoLogin;
 end;
 
 procedure TOptionDialog.SaveSetting;
@@ -960,10 +971,10 @@ begin
        // \8bN\93®\8e\9e\83\8c\83X\95\\8e¦\94Í\88Í\82Ì\8cÅ\92è
        GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;
        case ResRangeHoldComboBox.ItemIndex of
-       0: GikoSys.Setting.ResRange := Ord( grrAll );
-       1: GikoSys.Setting.ResRange := 100;
-       2: GikoSys.Setting.ResRange := Ord( grrKoko );
-       3: GikoSys.Setting.ResRange := Ord( grrNew );
+               0: GikoSys.Setting.ResRange := Ord( grrAll );
+               1: GikoSys.Setting.ResRange := 100;
+               2: GikoSys.Setting.ResRange := Ord( grrKoko );
+               3: GikoSys.Setting.ResRange := Ord( grrNew );
        end;
 
        GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
@@ -985,7 +996,7 @@ begin
        GikoSys.Setting.ShowDialogForEnd := ShowDialogForEndCheckBox.Checked;
        //AllTabClose
        GikoSys.Setting.ShowDialogForAllTabClose := AllTabCloseCheckBox.Checked;
-    //Samba
+        //Samba
        GikoSys.Setting.UseSamba := UseSambaCheckBox.Checked;
        GikoSys.Setting.ResAnchorJamp := ResAnchorCheckBox.Checked;
        // \83u\83\89\83E\83U\8dÅ\91å\89»
@@ -1112,6 +1123,10 @@ begin
        //Tab\8e©\93®\95Û\91¶
        GikoSys.Setting.TabAutoLoadSave := TabLoadSave.Checked;
        GikoSys.Setting.UseUndecided := UseUndecidedCheckBox.Checked;
+        //Be2ch
+        GikoSys.Setting.BeUserID := BeUserIDEdit.Text;
+        GikoSys.Setting.BePassword := BePasswordEdit.Text;
+        GikoSys.Setting.BeAutoLogin := BeAutoLoginCheckBox.Checked;
 end;
 
 procedure TOptionDialog.SettingApply;
@@ -1151,8 +1166,8 @@ begin
 
                //GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
                GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
-        GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
-        GikoForm.OddColor := GikoSys.Setting.OddColor;
+                GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
+                GikoForm.OddColor := GikoSys.Setting.OddColor;
 
                GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
                GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
@@ -1384,13 +1399,13 @@ end;
 
 procedure TOptionDialog.SetAbonpropertys;
 begin
-  //\82 \82Ú\81`\82ñ
-  GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
-  GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
-  GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
+        //\82 \82Ú\81`\82ñ
+        GikoSys.FAbon.Deleterlo := RloCheckBox.Checked;
+        GikoSys.FAbon.Replaceul := ReplaceulCheckBox.Checked;
+        GikoSys.FAbon.AbonPopupRes := PopUpAbonCheckBox.Checked;
        GikoSys.FAbon.ReturnNGwordLineNum := ShowNGLineCheckBox.Checked;
        GikoSys.FAbon.SetNGResAnchor := AddResAnchorCheckBox.Checked;
-    GikoSys.FAbon.DeleteSyria := DeleteSyriaCheckBox.Checked;
+        GikoSys.FAbon.DeleteSyria := DeleteSyriaCheckBox.Checked;
 end;
 procedure TOptionDialog.CSSFontButtonClick(Sender: TObject);
 begin
@@ -1470,7 +1485,7 @@ begin
                                        GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data )
                                else
                                        GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css';
-      end;
+                        end;
                except
                end;
        end;

diff --git a/Setting.pas b/Setting.pas
index 047bb38..1753333 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -36,7 +36,7 @@ const
        MAX_POPUP_RES : Integer = 10;
        GESTURE_FILE_NAME                                                       = 'Gestures.ini';
        SPAMFILTER_FILE_NAME                                    = 'SpamFilter.ini';
-    LANGUAGE_FILE_NAME    = 'language.ini';
+        LANGUAGE_FILE_NAME    = 'language.ini';
     
 type
        TGikoTabPosition = (gtpTop, gtpBottom);                                                         // \83^\83u\88Ê\92u
@@ -250,8 +250,8 @@ type
                FEditWindowHeight: Integer;
                FEditWindowWidth: Integer;
                FEditWindowMax: Boolean;
-        FEditWindowStay: Boolean;
-        FEditWindowTranslucent: Boolean;
+                FEditWindowStay: Boolean;
+                FEditWindowTranslucent: Boolean;
 
                //\83\8a\83X\83g\94Ô\8d\86\95\\8e¦
                FListViewNo: Boolean;
@@ -314,7 +314,7 @@ type
                FUserID: string;
                FPassword: string;
                FAutoLogin: Boolean;
-        FForcedLogin: Boolean;
+                FForcedLogin: Boolean;
                FDolibURL: string;
 
                //URL\83N\83\8a\83b\83N\8e\9e\8bN\93®\83A\83v\83\8a
@@ -356,9 +356,9 @@ type
                //\83X\83\8c\83b\83h\88ê\97\97\8dX\90V\83A\83C\83R\83\93\95\\8e¦
                FListIconVisible: Boolean;
 
-                               //\83X\83\8c\83b\83h\88ê\97\97\82ÅLog\82Ì\82 \82é\83X\83\8c\83b\83h\82Ì\82Ý\83X\83\8c\8dì\90¬\93ú\82ð\95\\8e¦\82·\82é\82©
-                               FCreationTimeLogs: Boolean;
-        //\83X\83\8c\83b\83h\88ê\97\97\82Ì\83X\83\8c\90¶\90¬\93ú\82Å\96¢\97\88\82Ì\83X\83\8c\82Ì\90¶\90¬\93ú\82ð\95\\8e¦\82µ\82È\82¢
+                //\83X\83\8c\83b\83h\88ê\97\97\82ÅLog\82Ì\82 \82é\83X\83\8c\83b\83h\82Ì\82Ý\83X\83\8c\8dì\90¬\93ú\82ð\95\\8e¦\82·\82é\82©
+                FCreationTimeLogs: Boolean;
+                //\83X\83\8c\83b\83h\88ê\97\97\82Ì\83X\83\8c\90¶\90¬\93ú\82Å\96¢\97\88\82Ì\83X\83\8c\82Ì\90¶\90¬\93ú\82ð\95\\8e¦\82µ\82È\82¢
                FFutureThread: Boolean;
 
                //\8f\91\82«\8d\9e\82Ý\8e\9e\83}\83V\83\93\8e\9e\8aÔ\8eg\97p\90Ý\92è
@@ -372,7 +372,7 @@ type
                FPopUpAbon               : Boolean; //\83\8c\83X\83|\83b\83v\83A\83b\83v\8e\9e\82Ì\82 \82Ú\81`\82ñ\97L\8cø
                FShowNGLinesNum : Boolean; //\8aY\93\96\82µ\82½\82m\82f\83\8f\81[\83h\83t\83@\83C\83\8b\82Ì\8ds\90\94\82ð\95\\8e¦
                FAddResAnchor : Boolean; //NG\83\8c\83X\82Ö\82Ì\83\8c\83X\83A\83\93\83J\81[\82ð\92Ç\89Á\82·\82é
-        FDeleteSyria : Boolean;        //\83V\83\8a\83A\8cê\83u\83\89\83N\83\89\91Î\8dô
+                FDeleteSyria : Boolean;        //\83V\83\8a\83A\8cê\83u\83\89\83N\83\89\91Î\8dô
 
                // \83X\83\8c\83b\83h\8di\8d\9e\83t\83B\81[\83\8b\83h\82Ì\95\9d
                FSelectComboBoxWidth : Integer;
@@ -391,8 +391,8 @@ type
                FUseOddColorOddResNum: Boolean;
                FOddColor: TColor;
 
-        //Samba24\91Î\8dô\8b@\94\\82ð\8eg\82¤\82©
-        FUseSamba: Boolean;
+                //Samba24\91Î\8dô\8b@\94\\82ð\8eg\82¤\82©
+                FUseSamba: Boolean;
 
                //\83\8c\83X\83A\83\93\83J\81[\82ð\83N\83\8a\83b\83N\82µ\82Ä\83W\83\83\83\93\83v\82·\82é\82©
                FResAnchorJamp: Boolean;
@@ -432,8 +432,14 @@ type
                FMute: Boolean;
                //\83X\83\8c\8di\8d\9e\82Ý\82Å\96¢\8am\92è\95¶\8e\9a\82à\97L\8cø\82É\82·\82é\82©
                FUseUndecided: Boolean;
-        //MessageList\82É\8fo\97Í\82³\82ê\82é\83\81\83b\83Z\81[\83W
-        FMessageList : array[0..13] of string;
+                //MessageList\82É\8fo\97Í\82³\82ê\82é\83\81\83b\83Z\81[\83W
+                FMessageList : array[0..13] of string;
+
+                //Be2ch
+                //\94F\8fØ\97p\83\86\81[\83UID\81E\83p\83X\83\8f\81[\83h
+               FBeUserID: String;
+               FBePassword: String;
+                FBeAutoLogin: Boolean;
 
                function GetMainCoolSet(Index: Integer): TCoolSet;
                function GetBoardCoolSet(Index: Integer): TCoolSet;
@@ -500,9 +506,9 @@ type
                function GetIgnoreFileName: string;
                function GetGestureFileName : string;
                function GetSpamFilterFileName : string;
-        function GetLanguageFileName: string;
-        procedure SetMessages;
-        function GetMessage(AType :Integer): string;
+                function GetLanguageFileName: string;
+                procedure SetMessages;
+                function GetMessage(AType :Integer): string;
 
                //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
                property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;
@@ -739,6 +745,10 @@ type
                        read FSpamFilterAlgorithm write FSpamFilterAlgorithm;
                property Mute: Boolean read FMute write FMute;
                property UseUndecided: Boolean read FUseUndecided write FUseUndecided;
+
+               property BeUserID: string read FBeUserID write FBeUserID;
+               property BePassword: string read FBePassword write FBePassword;
+               property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin;
 end;
 
 
@@ -767,20 +777,20 @@ const
                                                                                                                                //'http://www.2ch.net/newbbsmenu.html';
        GIKO_ENCRYPT_TEXT: string                = 'gikoNaviEncryptText';
 
-    DEF_MESSAGES : array[0..13] of string = (  '\83\8d\83O\83A\83E\83g\82µ\82Ü\82µ\82½',
-                                                '\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
-                                                '\8b­\90§\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
-                                                '[\83X\83\8c\88ê\97\97\8eæ\93¾\8a®\97¹]',
-                                                '(\96¼\8fÌ\95s\96¾\81j',
-                                                '[\83X\83\8c\8eæ\93¾\8a®\97¹]',
-                                                '[\83X\83\8c\8d·\95ª\8eæ\93¾\8a®\97¹]',
-                                                '[\96¢\8dX\90V]',
-                                                '[\92\86\92f]',
-                                                '[\83G\83\89\81[]',
-                                                '[\83\8c\83X\91\97\90M\8fI\97¹]',
-                                                '[\90V\83X\83\8c\91\97\90M\8fI\97¹]',
-                                                '[\83\8c\83X\91\97\90M\8e¸\94s]',
-                                                '[\90V\83X\83\8c\91\97\90M\8e¸\94s]');
+        DEF_MESSAGES : array[0..13] of string = (  '\83\8d\83O\83A\83E\83g\82µ\82Ü\82µ\82½',
+                                                   '\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
+                                                   '\8b­\90§\83\8d\83O\83C\83\93\82µ\82Ü\82µ\82½ - ',
+                                                   '[\83X\83\8c\88ê\97\97\8eæ\93¾\8a®\97¹]',
+                                                   '(\96¼\8fÌ\95s\96¾\81j',
+                                                   '[\83X\83\8c\8eæ\93¾\8a®\97¹]',
+                                                   '[\83X\83\8c\8d·\95ª\8eæ\93¾\8a®\97¹]',
+                                                   '[\96¢\8dX\90V]',
+                                                   '[\92\86\92f]',
+                                                   '[\83G\83\89\81[]',
+                                                   '[\83\8c\83X\91\97\90M\8fI\97¹]',
+                                                   '[\90V\83X\83\8c\91\97\90M\8fI\97¹]',
+                                                   '[\83\8c\83X\91\97\90M\8e¸\94s]',
+                                                   '[\90V\83X\83\8c\91\97\90M\8e¸\94s]');
 
 var
        SOUND_NAME: array[0..4] of TSoundName = (
@@ -1314,6 +1324,12 @@ begin
                        ini.ReadInteger( 'Abon', 'SpamFilterAlgorithm', Ord( gsfaNone ) ) );
                FMute := ini.ReadBool('Function', 'Mute', false);
                FUseUndecided := ini.ReadBool('ThreadList', 'UseUndecided', False);
+
+                //Be2ch
+                //\94F\8fØ\97p\83\86\81[\83UID\81E\83p\83X\83\8f\81[\83h
+               FBeUserID := ini.ReadString('Be', 'UserID', '');
+               FBePassword := Decrypt(ini.ReadString('Be', 'Password', ''));
+               FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False);
                ini.UpdateFile;
        finally
                ini.Free;
@@ -1660,8 +1676,14 @@ 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.WriteBool('ThreadList', 'UseUndecided', FUseUndecided);
+                ini.WriteBool('Function', 'Mute', FMute);
+                ini.WriteBool('ThreadList', 'UseUndecided', FUseUndecided);
+
+               //\94F\8fØ\97p\83\86\81[\83UID\81E\83p\83X\83\8f\81[\83h
+               ini.WriteString('Be', 'UserID', FBeUserID);
+               ini.WriteString('Be', 'Password', Encrypt(FBePassword));
+               ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin);
+
                ini.UpdateFile;
        finally
                ini.Free;