不要になった変数とコメントアウトしていたものを削除

diff --git a/Editor.pas b/Editor.pas
index 185f902..459898f 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -165,8 +165,6 @@ type
                FSambaTime: TDateTime;
                FHost: string;
                FNow: TDateTime;
-                               //Boolean
-                               SettingVisible, HeadVisible, BoardTopVisible: Boolean;
                procedure Preview;
                function RepHtml(s: string): string;
                function Check: Boolean;
@@ -281,7 +279,6 @@ var
        wp: TWindowPlacement;
                hUser32 : HINST;
         ini: TIniFile;
-        BSettingTab, BHeadTab, BBoardTopTab: Boolean;
 begin
        FWork := False;
        Browser.Navigate('about:blank');
@@ -510,49 +507,12 @@ begin
 end;
 
 procedure TEditorForm.EditorPageChange(Sender: TObject);
-var
-        URL, RefURL, RefeURL, HeadURL: String;
 begin
        if EditorPage.ActivePage = PreviewTab then begin
                Preview;
        end else begin
                Browser.Navigate('about:blank');
        end;
-{
-               if FThreadItem = nil then begin
-                               URL := FBoard.GetSendURL;
-                               RefURL := GikoSys.UrlToServer(FBoard.URL)
-                                               + GikoSys.UrlToID(FBoard.URL)
-                                               + '/';
-                               RefeURL := RefURL + 'SETTING.TXT';
-                               HeadURL := RefURL + 'head.txt';
-               end else begin
-                               URL := FThreadItem.GetSendURL;
-                               RefURL := GikoSys.UrlToServer(FThreadItem.ParentBoard.URL)
-                                               + FThreadItem.ParentBoard.BBSID
-                                               + '/';
-                               RefeURL := RefURL + 'SETTING.TXT';
-                               HeadURL := RefURL + 'head.txt';
-               end;
-}
-{        if EditorPage.ActivePage = SETTINGTab then begin
-                               Browser1.Navigate(RefeURL);
-               end else begin
-                               Browser1.Navigate('about:blank');
-               end;
-}
-{        if EditorPage.ActivePage = BoardtopTab then begin
-                               TitlePictureBrowser.Navigate(RefURL);
-               end else begin
-                               TitlePictureBrowser.Navigate('about:blank');
-               end;
-}
-{        if EditorPage.ActivePage = HEADTab then begin
-                               Browser3.Navigate(HeadURL);
-        end else begin
-                Browser3.Navigate('about:blank');
-        end;
-}
 end;
 
 procedure TEditorForm.BrowserStatusTextChange(Sender: TObject;