From: yamat0jp <terukohietori@gmail.com>
Date: Sat, 1 Feb 2020 00:47:41 +0000 (+0900)
Subject: そろそろ再完成
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=c741b75017ffed87e1720cfb2b90965ee9ce9257;p=newbbs%2Fnewbbs.git

そろそろ再完成
---

diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm
index c5bb832..e8ea1da 100644
--- 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
--- 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