HEAD,SETTING表示方法を変更

diff --git a/Editor.pas b/Editor.pas
index cd9be7b..4d0df9d 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -14,7 +14,8 @@ uses
        GikoSystem, GikoUtil, ImgList, Clipbrd, BoardGroup,
        IdAntiFreezeBase,       IdAntiFreeze, IdBaseComponent, IdComponent,
        IdTCPConnection, IdTCPClient, IdHTTP, ActnList, StdActns, IdIntercept,
-       IdLogBase, IdLogDebug, IdException, DateUtils, MojuUtils, bmRegExp;
+       IdLogBase, IdLogDebug, IdException, DateUtils, MojuUtils, bmRegExp,
+        LocalRuleShow;
 
 type
 //     TSetLayeredWindowAttributes = function(wnd: HWND; crKey: DWORD; bAlpha: BYTE; dwFlag: DWORD): Boolean; stdcall;
@@ -1468,11 +1469,15 @@ begin
 end;
 
 procedure TEditorForm.SettingTXT1Click(Sender: TObject);
-var
+{var
         RefURL, RefeURL, SettingTxt, FilePath, FileName: String;
-        ini: TMemIniFile;
+        ini: TMemIniFile;}
 begin
-        RefURL := GikoSys.UrlToServer(FBoard.URL)
+        LocalRuleShow.TXTName := 'SETTING.TXT';
+        LocalRuleShow.Show.ShowModal;
+
+
+{        RefURL := GikoSys.UrlToServer(FBoard.URL)
                + GikoSys.UrlToID(FBoard.URL)
                + '/';
        //RefURL\82ð\8c³\82ÉSETTING.TXT\83A\83h\83\8c\83X\8ew\92è
@@ -1500,16 +1505,20 @@ begin
                Exit;
        end else begin
                        ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + Settingtxt);
-        end;
+        end;}
 end;
 
 procedure TEditorForm.HEADTXT1Click(Sender: TObject);
-var
+{var
         RefURL, RuleURL, RuleTxt, FileName, FilePath, LocalHeadUpdate,
         ServerHeadUpdate: String;
-        ini: TMemIniFile;
+        ini: TMemIniFile;}
 begin
-        FileName := FileName + FOLDER_INI_FILENAME;
+
+        LocalRuleShow.TXTName := 'HEAD.TXT';
+        LocalRuleShow.Show.ShowModal;
+
+{        FileName := FileName + FOLDER_INI_FILENAME;
        ini := TMemIniFile.Create(FileName);
 
         RefURL := GikoSys.UrlToServer(FBoard.URL)
@@ -1551,7 +1560,7 @@ begin
                RuleURL := RefURL
                        + 'HEAD.TXT';
                 RuleTxt := Indy.Get(RuleURL);
-               if Length( FilePath ) > 0 then
+               if Length( FilePath ) > 0 then
                        FileName := ExtractFilePath( FilePath )
                else
                        FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
@@ -1570,7 +1579,7 @@ begin
                        ShowMessage('\8eæ\93¾\8e¸\94s');
                        Exit;
                 end else
-                ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + RuleTxt);
+                ShowMessage('\8eæ\93¾\90¬\8c÷' + #13#10 + RuleTxt);   }
         //end;
 end;