・スキン使用時に top, bottom を出力するように修正。

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 7a0752d..a39273a 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -952,6 +952,8 @@ begin
         except
         end;
 
+                               SaveList.Add('<div class="title"><a name="top">' + sTitle + '</a></div>');
+
                                for i := 0 to ReadList.Count - 1 do begin
                                        if (Trim(ReadList[i]) <> '') then begin
                                                No := IntToStr(i + 1);
@@ -1011,6 +1013,8 @@ begin
                                        end;
                                end;
 
+                               SaveList.Add('<a name="bottom"></a>');
+
                                // \83X\83L\83\93(\83t\83b\83^)
         SaveList.Add( LoadSkin( SkinFooterFileName ) );