板情報などの表記揺れを修正

diff --git a/Editor.dfm b/Editor.dfm
index 82a11b8..70633f9 100644 (file)
--- a/Editor.dfm
+++ b/Editor.dfm
@@ -1,6 +1,6 @@
 object EditorForm: TEditorForm
-  Left = 246
-  Top = 166
+  Left = 57
+  Top = 150
   Width = 640
   Height = 449
   HorzScrollBar.Visible = False
@@ -58,10 +58,10 @@ object EditorForm: TEditorForm
     Top = 30
     Width = 632
     Height = 346
-    ActivePage = RocalRuleTab
+    ActivePage = EditorTab
     Align = alClient
     MultiLine = True
-    TabIndex = 4
+    TabIndex = 0
     TabOrder = 0
     OnChange = EditorPageChange
     object EditorTab: TTabSheet
@@ -196,7 +196,7 @@ object EditorForm: TEditorForm
       end
     end
     object BoardtopTab: TTabSheet
-      Caption = #26495#12488#12483#12503
+      Caption = #26495#12488#12483#12503#30011#20687
       ImageIndex = 3
       object TitlePictureBrowser: TWebBrowser
         Left = 0
@@ -386,15 +386,15 @@ object EditorForm: TEditorForm
       end
       object BoardTop: TMenuItem
         AutoCheck = True
-        Caption = #26495#12488#12483#12503
+        Caption = #26495#12488#12483#12503#30011#20687
         GroupIndex = 1
         OnClick = BoardTopClick
       end
-      object Rule: TMenuItem
+      object LocalRule: TMenuItem
         AutoCheck = True
         Caption = #12525#12540#12459#12523#12523#12540#12523
         GroupIndex = 1
-        OnClick = RuleClick
+        OnClick = LocalRuleClick
       end
       object N1: TMenuItem
         Caption = '-'
@@ -420,13 +420,14 @@ object EditorForm: TEditorForm
       Caption = #26495#24773#22577
       object SETTINGTXT2: TMenuItem
         Action = GetSETTINGTXTAction
-      end
-      object HeadTXT1: TMenuItem
-        Action = GetHeadTXTAction
+        Caption = #26495#24773#22577#21462#24471
       end
       object OP1: TMenuItem
         Action = GetTitlePictureAction
       end
+      object HeadTXT1: TMenuItem
+        Action = GetHeadTXTAction
+      end
     end
   end
   object ToolBarImageList: TImageList

diff --git a/Editor.pas b/Editor.pas
index bf3d854..679c57b 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -114,7 +114,7 @@ type
     CalcCapasityAction: TAction;
     N4: TMenuItem;
     N5: TMenuItem;
-    Rule: TMenuItem;
+    LocalRule: TMenuItem;
     LocalEdit: TMemo;
 
                procedure EditorPageChange(Sender: TObject);
@@ -162,7 +162,7 @@ type
        procedure GetTitlePictureActionExecute(Sender: TObject);
     procedure GetHeadTXTActionExecute(Sender: TObject);
     procedure CalcCapasityActionExecute(Sender: TObject);
-    procedure RuleClick(Sender: TObject);
+    procedure LocalRuleClick(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
        private
                FThreadItem: TThreadItem;
@@ -394,8 +394,8 @@ begin
                try
                        BoardtopTab.TabVisible := ini.Readbool('EditorForm', 'BoardTopTab', False);
                        BoardTop.Checked := BoardtopTab.TabVisible;
-                        RocalRuleTab.TabVisible := ini.Readbool('EditorForm', 'RocalRureTab', False);
-                        HeadTXT1.Checked := RocalRuleTab.TabVisible;
+                        RocalRuleTab.TabVisible := ini.ReadBool('EditorForm', 'LocalRuleTab', False);
+                        LocalRule.Checked := RocalRuleTab.TabVisible;
                finally
                        ini.Free;
                end;
@@ -1846,13 +1846,13 @@ begin
        StatusBar.Panels[0].Text := '\97e\97Ê:' + IntToStr(Length(body)) + ' byte';
 end;
 
-procedure TEditorForm.RuleClick(Sender: TObject);
+procedure TEditorForm.LocalRuleClick(Sender: TObject);
 var
   ini: TIniFile;
 begin
        ini := TIniFile.Create(GikoSys.Setting.GetFileName);
        try
-               RocalRuleTab.TabVisible := Rule.Checked;
+               RocalRuleTab.TabVisible := LocalRule.Checked;
                ini.WriteBool('EditorForm', 'LocalRuleTab', RocalRuleTab.TabVisible);
        finally
                ini.Free;