From 8fbc5badc9863654cda1d44b5d34fb96b694c97d Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Mon, 7 Aug 2006 16:50:16 +0000
Subject: [PATCH] =?utf8?q?=E3=83=96=E3=83=A9=E3=82=A6=E3=82=B6=E3=82=BF?=
 =?utf8?q?=E3=83=96=E3=81=AE=E7=A7=BB=E5=8B=95=EF=BC=88=EF=BC=9F=EF=BC=89?=
 =?utf8?q?=E3=81=A7=E3=83=AB=E3=83=BC=E3=83=97=E3=82=92=E8=A8=B1=E5=8F=AF?=
 =?utf8?q?=E3=81=99=E3=82=8B=E3=82=AA=E3=83=97=E3=82=B7=E3=83=A7=E3=83=B3?=
 =?utf8?q?=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Option.pas  | 6 ++++++
 Setting.pas | 9 +++++++--
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/Option.pas b/Option.pas
index 960caf7..97c3f6e 100644
--- 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);
     // Å¬‰»Žž‚Ƀ^ƒXƒNƒgƒŒƒC‚ÉŠi”[‚·‚é‚©
     StoredTaskTrayCB.Checked := GikoSys.Setting.StoredTaskTray;
+    // ƒuƒ‰ƒEƒUƒ^ƒu‚̈ړ®‚Ń‹[ƒv‚ð‹–‰Â‚·‚é‚©
+    LoopBrowserTabsCB.Checked := GikoSys.Setting.LoopBrowserTabs;
 end;
 
 procedure TOptionDialog.SaveSetting;
@@ -1156,6 +1160,8 @@ begin
 	//—š—ð‚̍őå•Û‘¶”
 	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
--- a/Setting.pas
+++ b/Setting.pas
@@ -436,6 +436,8 @@ type
         FMoveHistorySize : Integer;
         //! Å¬‰»‚µ‚½‚Æ‚«‚Ƀ^ƒXƒNƒgƒŒƒC‚ÉŠi”[‚·‚é‚©
         FStoredTaskTray : Boolean;
+        //! ƒ^ƒu‚̈ړ®‚Ń‹[ƒv‚ð‹–‰Â‚·‚é
+        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;
         //! Å¬‰»Žž‚Ƀ^ƒXƒNƒgƒŒƒC‚ÉŠi”[‚·‚é‚©
         property StoredTaskTray : Boolean read FStoredTaskTray write FStoredTaskTray;
+        //! ƒuƒ‰ƒEƒUƒ^ƒu‚̃‹[ƒv‚ð‹–‰Â‚·‚é
+        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;
-- 
2.11.0