itextsharp带下划线的文本在单元格之外

Question

我已经能够在我的VB .net代码中使用iTextSharp创建PDF，该PDF看上去几乎完全符合我的期望。 但是，我使用的表只有一列和多行，以显示使用块和短语组合在一起的长文本字符串。 一些块包含带下划线的文本。 当短语中带下划线的文本时，整个单元格需要突出显示为灰色，为此我使用了PdfPCell的BackgroundColor属性。

我遇到的问题是，下划线位于单元格边界之外（突出显示之外）。 我尝试了很多方法来解决此问题，例如设置固定的单元格高度，然后将cell.VerticalAlignment设置为Element.ALIGN_TOP;。 使用带有（0，0）的各种值的SetLeading只会使问题变得更糟； 将cell.Ascender设置为True; 并更改填充值。 我可能也尝试过其他方法，但是由于某种原因，无论我尝试什么，下划线文本所在的行都不会突出显示。 并且，突出显示一直到上方单元格中文本的底部（这就是为什么我尝试使用SetLeading值的原因。）

该图显示了生成的PDF的第2页。 带表的PDF

以下是实现此目的的代码部分的示例-“ outString1”和“ outString2”是输出文本字符串，它们附加在一行后。 有一个布尔值可以确定是否需要在文本上加上下划线，而有一个布尔值可以确定是否需要在单元格上突出显示-在某些情况下，单元格可能会被突出显示，但文本没有下划线。 关于如何解决此问题的任何建议？

Dim pdfTable As PdfPTable = New PdfPTable(1)
pdfTable.WidthPercentage = 100

    'the next section is within a loop to create and load each cell
    Dim P As New Phrase()
    'Slisted is a Boolean value to determine need for underlining
    If Slisted Then
        P.Add(New Chunk(outString1, myULfont))
    Else
        P.Add(New Chunk(outString1, myfont))
    End If
    P.Add(New Chunk(outString2, myfont))
    Dim cell As PdfPCell = New PdfPCell(P)
    cell.Border = 0
    cell.Padding = 0
    'hilite is a Boolean value to determine whether 
    If hilite Then
        cell.BackgroundColor = BaseColor.LIGHT_GRAY
    End If
    pdfTable.AddCell(cell)

'out of loop, load table into document
pdfDoc.Add(pdfTable)

Answer 1

默认情况下，下划线与文本有一定的偏移量。 不幸的是，由于您杀死了表格上的填充，因此偏移量与单元格的布局冲突。 一种选择是，您应该按照人们的建议更改填充。 但是，另一种选择是自行设置Chunk的下划线偏移量。 下面是一个示例：

Dim T As New PdfPTable(1)

For I = 1 To 10

    ''//Your chunk
    Dim Ch As New Chunk("Hello", DocFont)

    ''//Wrap the chunk in a phrase
    Dim p As New Phrase(Ch)

    ''//Wrap the phrase in a cell
    Dim cell As PdfPCell = New PdfPCell(p)

    ''//Optional borders and padding
    cell.Border = 0
    cell.Padding = 0

    ''//This is just an example to do every other cell
    If I Mod 2 = 0 Then
        cell.BackgroundColor = BaseColor.LIGHT_GRAY

        ''//Set the thickness and offset from the text
        Ch.SetUnderline(0.1, 0)
    End If

    T.AddCell(cell)

Next