板トップなどの表示設定を保存できるようにしました

diff --git a/Editor.pas b/Editor.pas
index 61f074f..8470042 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -193,6 +193,8 @@ type
                procedure SetThreadItem(Item: TThreadItem);
                procedure SetBoard(Item: TBoard);
                 property BBSID: string read FBBSID write FBBSID;
+
+                function GetFileName(): string;
        end;
 
 implementation
@@ -234,6 +236,8 @@ const
        SUBJECT_FILENAME:                       string  = 'subject.txt';
        PATH_DELIM:                                             string  = '\';
 
+        INI_FILE_NAME: string                           = 'gikoNavi.ini';
+
 
 type
        TSelection = record
@@ -267,6 +271,8 @@ procedure TEditorForm.FormCreate(Sender: TObject);
 var
        wp: TWindowPlacement;
                hUser32 : HINST;
+        ini: TMemIniFile;
+        BSettingTab, BHeadTab, BBoardTopTab: Boolean;
 begin
        FWork := False;
        Browser.Navigate('about:blank');
@@ -356,11 +362,39 @@ begin
        SpaceToNBSPAction.Checked               := GikoSys.Setting.SpaceToNBSP;
        AmpToCharRefAction.Checked      := GikoSys.Setting.AmpToCharRef;
 
+        ini := TMemIniFile.Create(GetFileName);
 
+        try
+              BSettingTab := ini.ReadBool('EditorForm', 'SettingTab', False);
+              BHeadTab :=  ini.ReadBool('EditorForm', 'HeadTab', False);
+              BBoardTopTab := ini.Readbool('EditorForm', 'BoardTopTab', False);
+        finally
+                ini.Free;
+        end;
         //SETTING.TXT,\94Â\83g\83b\83v\81CHEAD.TXT\94ñ\95\\8e¦
-        SettingTab.TabVisible := False;
-        HeadTab.TabVisible := False;
-        BoardTopTab.TabVisible := False;
+        if BSettingTab then begin
+                SettingTab.TabVisible := True;
+                SettingTxt1.Checked := True;
+        end else begin
+                SettingTab.TabVisible := False;
+                SettingTxt1.Checked := False;
+        end;
+
+        if BHeadTab then begin
+                HeadTab.TabVisible := True;
+                HeadTxt1.Checked := True;
+        end else begin
+                HeadTab.TabVisible := False;
+                HeadTxt1.Checked := False;
+        end;
+
+        if BBoardTopTab then begin
+                BoardTopTab.TabVisible := True;
+                BoardTop.Checked := True;
+        end else begin
+                BoardTopTab.TabVisible := False;
+                BoardTop.Checked := False;
+        end;
 end;
 
 procedure TEditorForm.SetBoard(Item: TBoard);
@@ -1488,16 +1522,30 @@ end;
 procedure TEditorForm.SETTINGTXT1Click(Sender: TObject);
 var
         Visible: Boolean;
+        ini: TMemIniFile;
 begin
+        ini := TMemIniFile.Create(GetFileName);
         Visible := False;
         if not Visible then begin
                 SettingTab.TabVisible := True;
                 Settingtxt1.Checked := True;
                 Visible := True;
+
+                try
+                        ini.WriteBool('EditorForm', 'SettingTab', True);
+                finally
+                        ini.Free;
+                end;
         end else begin
                 SettingTab.TabVisible := False;
                 Settingtxt1.Checked := False;
                 Visible := False;
+
+                try
+                        ini.WriteBool('EditorForm', 'SettingTab', False);
+                finally
+                        ini.Free;
+                end;
         end;
 
 end;
@@ -1505,34 +1553,67 @@ end;
 procedure TEditorForm.HEADTXT1Click(Sender: TObject);
 var
         Visible: Boolean;
+        ini: TMemIniFile;
 begin
         Visible := False;
+        ini := TMemIniFile.Create(GetFileName);
         if not Visible then begin
                 HeadTab.TabVisible := True;
                 HeadTXT1.Checked := True;
                 Visible := True;
+
+                try
+                        ini.WriteBool('EditorForm', 'HeadTab', True);
+                finally
+                        ini.Free;
+                end;
         end else begin
                 HeadTab.TabVisible := False;
                 HeadTxt1.Checked := False;
                 Visible := False;
+                
+                try
+                        ini.WriteBool('EditorForm', 'HeadTab', False);
+                finally
+                        ini.Free;
+                end;
         end;
 end;
 
 procedure TEditorForm.BoardTopClick(Sender: TObject);
 var
         Visible: Boolean;
+        ini: TMemIniFile;
 begin
         Visible := False;
+        ini := TMemIniFile.Create(GetFileName);
         if not Visible then begin
                 BoardTopTab.TabVisible := True;
                 BoardTop.Checked := True;
                 Visible := True;
+
+                try
+                        ini.WriteBool('EditorForm', 'BoardTopTab', True);
+                finally
+                        ini.Free;
+                end;
         end else begin
                 BoardTopTab.TabVisible := False;
                 Boardtop.Checked := False;
                 Visible := False;
+
+                try
+                        ini.WriteBool('EditorForm', 'BoardTopTab', False);
+                finally
+                        ini.Free;
+                end;
         end;
 end;
 
+function TEditorForm.GetFileName(): string;
+begin
+       Result := ExtractFilePath(Application.ExeName) + INI_FILE_NAME;
+end;
+
 end.