そろそろ再完成

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index c5bb832..e8ea1da 100644 (file)
--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -1611,7 +1611,7 @@ object WebModule1: TWebModule1
       #9'});'
       '});'
       '')
-    Left = 104
+    Left = 184
     Top = 272
   end
   object title: TPageProducer
@@ -1868,7 +1868,7 @@ object WebModule1: TWebModule1
       '  <ui class="pagination justify-content-center pagination-sm">'
       '   <#link>'
       '  </ui>'
-      '</nav> <#recent>')
+      '</nav>')
     OnHTMLTag = footerHTMLTag
     Left = 112
     Top = 192

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 714b918..88042aa 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -202,7 +202,7 @@ begin
     Exit;
   end;
   if CellRow mod 2 = 0 then
-    BgColor:='Maroon';
+    BgColor:='snow';
   case CellColumn of
     0:
       CellData := Format('<input name=check%d type=checkbox>', [CellRow]);
@@ -303,11 +303,7 @@ begin
   else
     t:=data[1].VString^;
   if Data[2].VBoolean = true then
-  begin
-    s := ' active';
-    t := '<span class=page-link>' + t +
-      '<span class=sr-only>(current)</span></span>';
-  end
+    s := ' active'
   else
     s := '';
   result := Format