Commit MetaInfo

Revisãoc741b75017ffed87e1720cfb2b90965ee9ce9257 (tree)
Hora2020-02-01 09:47:41
Autoryamat0jp <terukohietori@gmai...>
Commiteryamat0jp

Mensagem de Log

そろそろ再完成

Mudança Sumário

Diff

--- a/WebModuleUnit1.dfm
+++ b/WebModuleUnit1.dfm
@@ -1611,7 +1611,7 @@ object WebModule1: TWebModule1
16111611 #9'});'
16121612 '});'
16131613 '')
1614- Left = 104
1614+ Left = 184
16151615 Top = 272
16161616 end
16171617 object title: TPageProducer
@@ -1868,7 +1868,7 @@ object WebModule1: TWebModule1
18681868 ' <ui class="pagination justify-content-center pagination-sm">'
18691869 ' <#link>'
18701870 ' </ui>'
1871- '</nav> <#recent>')
1871+ '</nav>')
18721872 OnHTMLTag = footerHTMLTag
18731873 Left = 112
18741874 Top = 192
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -202,7 +202,7 @@ begin
202202 Exit;
203203 end;
204204 if CellRow mod 2 = 0 then
205- BgColor:='Maroon';
205+ BgColor:='snow';
206206 case CellColumn of
207207 0:
208208 CellData := Format('<input name=check%d type=checkbox>', [CellRow]);
@@ -303,11 +303,7 @@ begin
303303 else
304304 t:=data[1].VString^;
305305 if Data[2].VBoolean = true then
306- begin
307- s := ' active';
308- t := '<span class=page-link>' + t +
309- '<span class=sr-only>(current)</span></span>';
310- end
306+ s := ' active'
311307 else
312308 s := '';
313309 result := Format
Show on old repository browser