書き込みができない緊急的なバグを修正

diff --git a/Editor.dfm b/Editor.dfm
index 1a6e594..7540ce8 100644 (file)
--- a/Editor.dfm
+++ b/Editor.dfm
@@ -1,6 +1,6 @@
 object EditorForm: TEditorForm
-  Left = 101
-  Top = 67
+  Left = 266
+  Top = 117
   Width = 640
   Height = 400
   HorzScrollBar.Visible = False
@@ -57,12 +57,11 @@ object EditorForm: TEditorForm
     Top = 30
     Width = 632
     Height = 297
-    ActivePage = HEADTab
+    ActivePage = EditorTab
     Align = alClient
     MultiLine = True
-    TabIndex = 4
+    TabIndex = 0
     TabOrder = 0
-    Visible = False
     OnChange = EditorPageChange
     object EditorTab: TTabSheet
       Caption = #32232#38598
@@ -106,7 +105,7 @@ object EditorForm: TEditorForm
           Width = 149
           Height = 20
           DropDownCount = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 0
         end
         object MailComboBox: TComboBox
@@ -115,7 +114,7 @@ object EditorForm: TEditorForm
           Width = 149
           Height = 20
           DropDownCount = 20
-          ItemHeight = 0
+          ItemHeight = 12
           TabOrder = 1
           OnChange = MailComboBoxChange
         end
@@ -375,16 +374,6 @@ object EditorForm: TEditorForm
         AutoCheck = True
         GroupIndex = 1
       end
-      object SettingTXT1: TMenuItem
-        Caption = 'SETTING.TXT'#34920#31034'(&S)'
-        GroupIndex = 1
-        OnClick = SettingTXT1Click
-      end
-      object HEADTXT1: TMenuItem
-        Caption = 'HEAD.TXT'#34920#31034'(&H)'
-        GroupIndex = 1
-        OnClick = HEADTXT1Click
-      end
       object N1: TMenuItem
         Caption = '-'
         GroupIndex = 1

diff --git a/Editor.pas b/Editor.pas
index b92e91e..dadacae 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -95,8 +95,6 @@ type
     AmpToCharRefAction: TAction;
     SpaceTabnbsp1: TMenuItem;
     amp1: TMenuItem;
-    SettingTXT1: TMenuItem;
-    HEADTXT1: TMenuItem;
     SETTINGTab: TTabSheet; 
                 Browser1: TWebBrowser;
                 BoardtopTab: TTabSheet;
@@ -1515,7 +1513,7 @@ procedure TEditorForm.SettingTXT1Click(Sender: TObject);
         RefURL, RefeURL, SettingTxt, FilePath, FileName: String;
         ini: TMemIniFile;}
 begin
-        SETTINGTab.Visible := True;
+
 
 
 {        RefURL := GikoSys.UrlToServer(FBoard.URL)
@@ -1555,7 +1553,7 @@ procedure TEditorForm.HEADTXT1Click(Sender: TObject);
         ServerHeadUpdate: String;
         ini: TMemIniFile;}
 begin
-        HEADTab.Visible := True;
+
 
 {        FileName := FileName + FOLDER_INI_FILENAME;
        ini := TMemIniFile.Create(FileName);