TekH
35c1374b9c
Replaced character-based truncation with pixel-accurate truncation based on rendered width in inches. Updated `TruncateText` in `PDFBurner.vb` to use `Graphics.MeasureString` for width calculation and introduced a binary search for efficient truncation. Renamed `egName` to `fieldEgName` for clarity. Replaced `TextMaxLengths` with `TextMaxWidths` in `PDFBurnerParams.vb`, specifying maximum render widths in inches. Updated default values for `position`, `city`, and `date`. Revised XML documentation to reflect the new truncation logic.
35 lines
1.4 KiB
VB.net
35 lines
1.4 KiB
VB.net
Imports System.Drawing
|
|
Namespace Jobs.FinalizeDocument
|
|
Public Class PDFBurnerParams
|
|
Public Property IgnoredLabels As New List(Of String) From {"Date", "Datum", "ZIP", "PLZ", "Place", "Ort", "Position", "Stellung"}
|
|
|
|
Public Property TopMargin As Double = 0.1
|
|
|
|
Public Property YOffset As Double = -0.3
|
|
|
|
Public Property FontName As String = "Arial"
|
|
|
|
Public Property FontSize As Integer = 8
|
|
|
|
Public Property FontStyle As FontStyle = FontStyle.Italic
|
|
|
|
''' <summary>
|
|
''' The suffix appended to a truncated field value. Defaults to "..".
|
|
''' Can be changed to any string (e.g. "…", "...", "").
|
|
''' </summary>
|
|
Public Property TruncationSuffix As String = ".."
|
|
|
|
''' <summary>
|
|
''' Per-field maximum render width in inches.
|
|
''' Text is measured using the configured Font/FontSize via Graphics.MeasureString (pixel-accurate).
|
|
''' If the rendered width exceeds the limit, the text is cut and TruncationSuffix is appended.
|
|
''' Keys must match egName values used in PDFBurner (e.g. "name", "position", "city", "date").
|
|
''' Set a value to 0 to disable truncation for that field.
|
|
''' </summary>
|
|
Public Property TextMaxWidths As New Dictionary(Of String, Single) From {
|
|
{"position", 1.25F},
|
|
{"city", 1.25F},
|
|
{"date", 2.0F}
|
|
}
|
|
End Class
|
|
End Namespace |