ブラウザタブの移動（？）でループを許可するオプション追加

[gikonavigoeson/gikonavi.git] / Option.pas

diff --git a/Option.pas b/Option.pas
index 960caf7..97c3f6e 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -207,6 +207,8 @@ type
     Label24: TLabel;
     GroupBox21: TGroupBox;
     StoredTaskTrayCB: TCheckBox;
+    GroupBox22: TGroupBox;
+    LoopBrowserTabsCB: TCheckBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -868,6 +870,8 @@ begin
        MaxRecordCountEdit.Text := IntToStr(GikoSys.Setting.MaxRecordCount);
     // \8dÅ\8f¬\89»\8e\9e\82É\83^\83X\83N\83g\83\8c\83C\82É\8ai\94[\82·\82é\82©
     StoredTaskTrayCB.Checked := GikoSys.Setting.StoredTaskTray;
+    // \83u\83\89\83E\83U\83^\83u\82Ì\88Ú\93®\82Å\83\8b\81[\83v\82ð\8b\96\89Â\82·\82é\82©
+    LoopBrowserTabsCB.Checked := GikoSys.Setting.LoopBrowserTabs;
 end;
 
 procedure TOptionDialog.SaveSetting;
@@ -1156,6 +1160,8 @@ begin
        //\97\9a\97ð\82Ì\8dÅ\91å\95Û\91¶\90\94
        GikoSys.Setting.MaxRecordCount := Max(StrToInt64Def(MaxRecordCountEdit.Text,100),1);
     GikoSys.Setting.StoredTaskTray := StoredTaskTrayCB.Checked;
+    GikoSys.Setting.LoopBrowserTabs := LoopBrowserTabsCB.Checked;
+
 end;
 
 procedure TOptionDialog.SettingApply;