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

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;

diff --git a/Setting.pas b/Setting.pas
index 4e1d1f0..f766753 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -436,6 +436,8 @@ type
         FMoveHistorySize : Integer;
         //! \8dÅ\8f¬\89»\82µ\82½\82Æ\82«\82É\83^\83X\83N\83g\83\8c\83C\82É\8ai\94[\82·\82é\82©
         FStoredTaskTray : Boolean;
+        //! \83^\83u\82Ì\88Ú\93®\82Å\83\8b\81[\83v\82ð\8b\96\89Â\82·\82é
+        FLoopBrowserTabs : Boolean;
                function GetMainCoolSet(Index: Integer): TCoolSet;
                function GetBoardCoolSet(Index: Integer): TCoolSet;
                function GetBrowserCoolSet(Index: Integer): TCoolSet;
@@ -780,6 +782,8 @@ type
         property MoveHistorySize : Integer read FMoveHistorySize write SetMoveHistorySize;
         //! \8dÅ\8f¬\89»\8e\9e\82É\83^\83X\83N\83g\83\8c\83C\82É\8ai\94[\82·\82é\82©
         property StoredTaskTray : Boolean read FStoredTaskTray write FStoredTaskTray;
+        //! \83u\83\89\83E\83U\83^\83u\82Ì\83\8b\81[\83v\82ð\8b\96\89Â\82·\82é
+        property LoopBrowserTabs : Boolean read FLoopBrowserTabs write FLoopBrowserTabs;
 end;
 
 
@@ -1250,7 +1254,8 @@ begin
         FMoveHistorySize := ini.ReadInteger('MoveHisotry', 'Max', 20);
 
         FStoredTaskTray := ini.ReadBool('Function', 'StroedTaskTray', false);
-
+        FLoopBrowserTabs := ini.ReadBool('Function', 'LoopBrowserTabs', false);
+        
                ini.UpdateFile;
        finally
                ini.Free;
@@ -1626,7 +1631,7 @@ begin
         ini.WriteInteger('MoveHisotry', 'Max', FMoveHistorySize);
 
         ini.WriteBool('Function', 'StroedTaskTray', FStoredTaskTray);
-
+        ini.WriteBool('Function', 'LoopBrowserTabs', FLoopBrowserTabs);
                ini.UpdateFile;
        finally
                ini.Free;