• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Révision246 (tree)
l'heure2019-11-15 11:00:53
Auteurhilinwei

Message de Log

Change Summary

Modification

--- AutoEpub3/Files/OEBPS/stylesheet.css (revision 245)
+++ AutoEpub3/Files/OEBPS/stylesheet.css (revision 246)
@@ -15,6 +15,15 @@
1515 text-indent: 1em;
1616 }
1717
18+.mobiListTop {
19+ font-size: 1.00em;
20+ margin-top: 0.7em;
21+ text-indent: 1em;
22+}
23+
24+
25+
26+
1827 .mobiNav {
1928 font-size: 1.00em;
2029 text-indent: 1em;
--- AutoEpub3/cEpub6.vb (revision 245)
+++ AutoEpub3/cEpub6.vb (revision 246)
@@ -402,11 +402,11 @@
402402
403403 If sTitleSP.Length > 0 Then
404404 'cfMain.sbText.Append(htmlAddBookList(sTitleSP, NewVolume.sURL))
405- cfNav.sbText.Append(htmlAddBookListVolume(sTitleSP, NewVolume.sURL))
405+ cfNav.sbText.Append(htmlAddNaveListVolume(sTitleSP, NewVolume.sURL))
406406 cfNCX.sbText.Append(ncxNavPointAdd(sTitleSP, NewVolume.sURL))
407407 Else
408408 'cfMain.sbText.Append(htmlAddBookList(NewVolume.sTitle, NewVolume.sURL))
409- cfNav.sbText.Append(htmlAddBookListVolume(NewVolume.sTitle, NewVolume.sURL))
409+ cfNav.sbText.Append(htmlAddNaveListVolume(NewVolume.sTitle, NewVolume.sURL))
410410 cfNCX.sbText.Append(ncxNavPointAdd(NewVolume.sTitle, NewVolume.sURL))
411411 End If
412412
@@ -803,6 +803,19 @@
803803
804804 End Function
805805
806+
807+ Private Function htmlAddNaveListVolume(ByVal sName As String, ByVal sURL As String) As String
808+
809+ Dim sbText As New StringBuilder()
810+ sbText.Append("<div class=""mobiListTop"">")
811+ sbText.Append("<a href=""" & sURL & """>")
812+ sbText.Append("<span class=""underline"">" & sName & "</span></a>")
813+ sbText.Append("</div>")
814+ htmlAddNaveListVolume = sbText.ToString()
815+
816+ End Function
817+
818+
806819 Private Function htmlAddBookListChapter(ByVal sName As String, ByVal sURL As String) As String
807820
808821 Dim sbText As New StringBuilder()
Afficher sur ancien navigateur de dépôt.