リンク移動履歴の保持数を設定できるように修正

[gikonavigoeson/gikonavi.git] / Setting.pas

diff --git a/Setting.pas b/Setting.pas
index fa1a9d9..c657607 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -430,8 +430,10 @@ type
                FInputAssistFormWidth: Integer;
                FInputAssistFormHeight: Integer;
 
-               // Cookie\82É\95t\89Á\82·\82é\8cÅ\92è\83R\81[\83h
+               //! Cookie\82É\95t\89Á\82·\82é\8cÅ\92è\83R\81[\83h
                FFixedCookie: String;
+        //! \83\8a\83\93\83N\88Ú\93®\97\9a\97ð\82Ì\95Û\8e\9d\90\94
+        FMoveHistorySize : Integer;
 
                function GetMainCoolSet(Index: Integer): TCoolSet;
                function GetBoardCoolSet(Index: Integer): TCoolSet;
@@ -503,6 +505,11 @@ type
                function GetEditorKeyFileName: String;
                procedure WriteLogFolder(AVal : String);
                function GetInputAssistFileName : String;
+        {
+        \brief  \83\8a\83\93\83N\97\9a\97ð\82Ì\95Û\8e\9d\83T\83C\83Y\82Ìsetter
+        \param  AVal    \90Ý\92è\82·\82é\83T\83C\83Y( >0) 
+        }
+        procedure SetMoveHistorySize(AVal : Integer);
                //\8eó\90M\83o\83b\83t\83@\83T\83C\83Y
                property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize;
                //HTTP1.1\8eg\97p
@@ -758,6 +765,8 @@ type
                property InputAssistFormHeight: Integer read FInputAssistFormHeight write FInputAssistFormHeight;
                //! Cookie\82É\95t\89Á\82·\82é\8cÅ\92è\83R\81[\83h
                property FixedCookie: String read FFixedCookie write FFixedCookie;
+        // \83\8a\83\93\83N\88Ú\93®\97\9a\97ð\82Ì\95Û\8e\9d\90\94
+        property MoveHistorySize : Integer read FMoveHistorySize write SetMoveHistorySize;
 
 end;
 
@@ -1381,6 +1390,9 @@ begin
                // Cookie\82É\95t\89Á\82·\82é\8cÅ\92è\83R\81[\83h
                FFixedCookie := ini.ReadString('Cookie', 'fixedString', FIXED_COOKIE);
 
+        // \83\8a\83\93\83N\88Ú\93®\97\9a\97ð\82Ì\8dÅ\91å\95Û\8e\9d\90\94
+        FMoveHistorySize := ini.ReadInteger('MoveHisotry', 'Max', 20);
+
                ini.UpdateFile;
        finally
                ini.Free;
@@ -1752,6 +1764,9 @@ begin
                // \8cÅ\92è\82ÌCookie\95¶\8e\9a\97ñ
         ini.WriteString('Cookie', 'fixedString', FFixedCookie);
 
+        // \83\8a\83\93\83N\88Ú\93®\97\9a\97ð\82Ì\8dÅ\91å\95Û\8e\9d\90\94
+        ini.WriteInteger('MoveHisotry', 'Max', FMoveHistorySize);
+
                ini.UpdateFile;
        finally
                ini.Free;
@@ -2225,7 +2240,12 @@ function TSetting.GetInputAssistFileName : String;
 begin
        Result := GetConfigDir + INPUTASSIST_FILE_NAME;
 end;
-
+procedure TSetting.SetMoveHistorySize(AVal : Integer);
+begin
+    if (AVal > 0) then begin
+        FMoveHistorySize := AVal;
+    end;
+end;
 end.