Tab自動保存・復元ルーチン追加(復元機能は未完全)

diff --git a/Option.dfm b/Option.dfm
index c18e626..3798df8 100644 (file)
--- a/Option.dfm
+++ b/Option.dfm
@@ -667,7 +667,7 @@ object OptionDialog: TOptionDialog
           Top = 43
           Width = 417
           Height = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 0
           Text = 'BoardURLComboBox'
         end
@@ -1213,14 +1213,14 @@ object OptionDialog: TOptionDialog
           TabOrder = 0
         end
       end
-      object GroupBox18: TGroupBox
+      object TabAutoSaveLoad: TGroupBox
         Left = 11
         Top = 63
         Width = 478
         Height = 50
         Caption = 'Tab'#33258#21205#20445#23384#12539#24489#20803
         TabOrder = 1
-        object CheckBox1: TCheckBox
+        object CloseTabAutoSave: TCheckBox
           Left = 13
           Top = 18
           Width = 180
@@ -1228,7 +1228,7 @@ object OptionDialog: TOptionDialog
           Caption = #32066#20102#26178#12395#12479#12502#12398#38918#30058#12434#33258#21205#20445#23384
           TabOrder = 0
         end
-        object CheckBox2: TCheckBox
+        object OpenTabAutoLoad: TCheckBox
           Left = 232
           Top = 18
           Width = 185

diff --git a/Option.pas b/Option.pas
index b60a4ff..65a2fe7 100644 (file)
--- a/Option.pas
+++ b/Option.pas
@@ -189,9 +189,9 @@ type
     SelectIntervalEdit: TEdit;
     Label4: TLabel;
     Label6: TLabel;
-    GroupBox18: TGroupBox;
-    CheckBox1: TCheckBox;
-    CheckBox2: TCheckBox;
+    TabAutoSaveLoad: TGroupBox;
+    CloseTabAutoSave: TCheckBox;
+    OpenTabAutoLoad: TCheckBox;
                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure ApplyButtonClick(Sender: TObject);
@@ -1033,7 +1033,11 @@ begin
        GikoSys.Setting.PopUpAbon := PopUpAbonCheckBox.Checked;
        GikoSys.Setting.ShowNGLinesNum := ShowNGLineCheckBox.Checked;
        GikoSys.Setting.AddResAnchor := AddResAnchorCheckBox.Checked;
-               GikoSys.Setting.DeleteSyria := DeleteSyriaCheckBox.Checked;
+        GikoSys.Setting.DeleteSyria := DeleteSyriaCheckBox.Checked;
+
+        //Tab\8e©\93®\95Û\91¶
+        GikoSys.Setting.TabAutoSave := CloseTabAutoSave.Checked;
+        GikoSys.Setting.TabAutoLoad := OpenTabAutoLoad.Checked;
 end;
 
 procedure TOptionDialog.SettingApply;

diff --git a/Setting.pas b/Setting.pas
index d4c7f3d..60158a4 100644 (file)
--- a/Setting.pas
+++ b/Setting.pas
@@ -313,6 +313,9 @@ type
                //\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;
 
+                //Tab\8e©\93®\95Û\91¶
+                FTabAutoSave: Boolean;
+                FTabAutoLoad: Boolean;
                // \83G\83f\83B\83^
                FSpaceToNBSP    : Boolean;      ///< \94¼\8ap\83X\83y\81[\83X\81ATab \82ð &nbsp; \82É\92u\8a·
                FAmpToCharRef   : Boolean;      ///< '&' \82ð &amp; \82É\92u\8a·
@@ -586,13 +589,16 @@ type
                property UseOddColorOddResNum: Boolean read FUseOddColorOddResNum write FUseOddColorOddResNum;
                property OddColor: TColor read FOddColor write FOddColor;
                property UseSamba: Boolean read FUseSamba write FUseSamba;
-        property ResAnchorJamp: Boolean read FResAnchorJamp write FResAnchorJamp;
+                property ResAnchorJamp: Boolean read FResAnchorJamp write FResAnchorJamp;
 
                // \83G\83f\83B\83^
                property SpaceToNBSP    : Boolean       read FSpaceToNBSP               write FSpaceToNBSP;
                property AmpToCharRef   : Boolean       read FAmpToCharRef      write FAmpToCharRef;
 
                property SelectInterval : Integer       read FSelectInterval    write FSelectInterval;
+                //Tab\95Û\91¶
+                property TabAutoSave: Boolean           read FTabAutoSave       write FTabAutoSave;
+                property TabAutoLoad: Boolean           read FTabAutoLoad       write FTabAutoLoad;
 end;
 
 
@@ -995,6 +1001,10 @@ begin
                FSpaceToNBSP    := ini.ReadBool( 'Editor', 'SpaceToNBSP', True );
                FAmpToCharRef   := ini.ReadBool( 'Editor', 'AmpToCharRef', False );
 
+                //Tab\8e©\93®\95Û\91¶\81A\93Ç\82Ý\8d\9e\82Ý
+                FTabAutoSave    := ini.ReadBool('TabAuto', 'TabAutoSave', False);
+                FTabAutoLoad    := ini.ReadBool('TabAuto', 'TabAutoLoad', False);
+
 
        finally
                ini.Free;
@@ -1082,6 +1092,9 @@ begin
                ini.WriteString('Window', 'HintFontColor', ColorToString(FHintFontColor));
                ini.WriteString('Window', 'HintBackColor', ColorToString(FHintBackColor));
 
+                ini.WriteBool('TabAuto', 'TabAutoSave', FTabAutoSave);
+                ini.WriteBool('TabAuto', 'TabAutoLoad', FTabAutoLoad);
+
                ini.UpdateFile;
        finally
                ini.Free;