表記を板トップに統一

diff --git a/Editor.dfm b/Editor.dfm
index 8ebc053..c4122b3 100644 (file)
--- a/Editor.dfm
+++ b/Editor.dfm
@@ -57,10 +57,10 @@ object EditorForm: TEditorForm
     Top = 30
     Width = 632
     Height = 305
-    ActivePage = EditorTab
+    ActivePage = BoardtopTab
     Align = alClient
     MultiLine = True
-    TabIndex = 0
+    TabIndex = 3
     TabOrder = 0
     OnChange = EditorPageChange
     object EditorTab: TTabSheet

diff --git a/Editor.pas b/Editor.pas
index af2cf4f..d8bbccc 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -1622,7 +1622,7 @@ begin
                        
                Indy.Request.Referer := tmpBoard.URL;
                if      tmpBoard.TitlePictureURL <> '' then begin
-                       StatusBar.Panels[0].Text := '\94ÂTOP\89æ\91\9c\83_\83E\83\93\83\8d\81[\83h\92\86';
+                       StatusBar.Panels[0].Text := '\94Â\83g\83b\83v\89æ\91\9c\83_\83E\83\93\83\8d\81[\83h\92\86';
                        Screen.Cursor := crHourGlass;
                        try
                                Indy.Get(tmpBoard.TitlePictureURL, memStream);
@@ -1636,7 +1636,7 @@ begin
                end;
        finally
                Screen.Cursor := crDefault;
-               StatusBar.Panels[0].Text := '\94ÂTOP\89æ\91\9c (' + IntToStr(Indy.ResponseCode) + ')';
+               StatusBar.Panels[0].Text := '\94Â\83g\83b\83v\89æ\91\9c (' + IntToStr(Indy.ResponseCode) + ')';
                memStream.Free;
        end;
 
@@ -1654,7 +1654,7 @@ begin
        if FileExists(tmpBoard.GetTitlePictureFileName) then begin
                TitlePictureBrowser.Navigate(tmpBoard.GetTitlePictureFileName);
        end else begin
-               s := '\94ÂTOP\89æ\91\9c\96¢\8eæ\93¾\82Å\82·\81B<br>\83\81\83j\83\85\81[\82æ\82è\8eæ\93¾\82µ\82Ä\82­\82¾\82³\82¢\81B';
+               s := '\94Â\83g\83b\83v\89æ\91\9c\96¢\8eæ\93¾\82Å\82·\81B<br>\83\81\83j\83\85\81[\82æ\82è\8eæ\93¾\82µ\82Ä\82­\82¾\82³\82¢\81B';
                SetContent(s, TitlePictureBrowser);
        end;
 end;