・指摘のあった

　o スレッドの名前（<div class="title">...）が自動で出力されているので
　<a name="top"></a>だけを出力してください。
　o Bookmark.htmlがない場合には、<a name="koko"></a>を出力してください。
の修正。

diff --git a/Giko.pas b/Giko.pas
index 689cc1c..0455d6e 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -7322,15 +7322,20 @@ end;
 procedure TGikoForm.CabinetFavoriteActionExecute(Sender: TObject);
 begin
 
+       // \83L\83\83\83r\83l\83b\83g\83c\81[\83\8b\83o\81[\8by\82Ñ\83L\83\83\83r\83l\83b\83g\82Ì\95\\8e¦\90Ø\91Ö
        HistoryToolBar.Hide;
   FavoriteToolBar.Show;
        TreeView.Visible := False;
   FavoriteTreeView.Visible := True;
 
+       CabinetSelectToolButton.Caption := '\82¨\8bC\82É\93ü\82è';
+
+  // \83\81\83j\83\85\81[\8by\82Ñ\83{\83^\83\93\82Ì\83`\83F\83b\83N\82ð\90Ý\92è
   Cabinet2chAction.Checked := False;
   CabinetHistoryAction.Checked := False;
   CabinetFavoriteAction.Checked := True;
 
+  // \82¨\8bC\82É\93ü\82è\82Ì\83c\83\8a\81[\82ð\93W\8aJ
   FavoriteTreeView.TopItem.Expanded := True;
 
 end;

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 48b9ce4..bdd7daa 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -952,7 +952,7 @@ begin
         except
         end;
 
-                               SaveList.Add('<div class="title"><a name="top">' + sTitle + '</a></div>');
+                               SaveList.Add('<a name="top"></a>');
 
                                for i := 0 to ReadList.Count - 1 do begin
                                        if (Trim(ReadList[i]) <> '') then begin
@@ -995,6 +995,7 @@ begin
                try
                SaveList.Add( LoadSkin( SkinBookmarkFileName ) );
               except
+               SaveList.Add( '<a name="koko"></a>' );
               end;
             end;
                                        end;