Hallo Freunde ich nutze diese Bibliothek um PDF zu erstellen.
www.b4x.com
Wenn ich eine Unterschrift einfügen möchte, passt diese bei verschieden Geräten nicht.
Die Unterschrift wird als PNG eingelesen.
So nutze ich es im Moment, wo es einigermassen auf verschiedenen Geräten passt.
Wahrscheinlich mache ich es nicht richtig.
Wie löst ihr dieses Problem?
Printing and Pdf creation
This is an Android 4.4+ (API 19+) library. Its two main features are: 1. Creating Pdf documents with the PdfDocument object. 2. Printing with the Printer object. Lets start with PdfDocument. Dim pdf As PdfDocument pdf.Initialize pdf.StartPage(595, 842) 'A4 size pdf.Canvas.DrawLine(2, 2, 593...
www.b4x.com
Wenn ich eine Unterschrift einfügen möchte, passt diese bei verschieden Geräten nicht.
Die Unterschrift wird als PNG eingelesen.
So nutze ich es im Moment, wo es einigermassen auf verschiedenen Geräten passt.
Wahrscheinlich mache ich es nicht richtig.
Wie löst ihr dieses Problem?
B4X:
If File.Exists(xui.DefaultFolder, "unterschrift1.png") = True Then' Bild einfügen
Dim Bitmap1 As Bitmap
Bitmap1.Initialize(xui.DefaultFolder, "unterschrift1.png")
Dim r As Rect
If (Bitmap1.Width/GetDeviceLayoutValues.Scale) >500 Then
r.Initialize(310, 751, Bitmap1.Width/2/GetDeviceLayoutValues.Scale+140, Bitmap1.Height/2/GetDeviceLayoutValues.Scale+699) 'von links,von oben,bis rechts,bis unten
Else
r.Initialize(310, 751, Bitmap1.Width/GetDeviceLayoutValues.Scale+140, Bitmap1.Height/GetDeviceLayoutValues.Scale+699) 'von links,von oben,bis rechts,bis unten
End If
Log("Unterschrift-Breite "&(Bitmap1.Width/GetDeviceLayoutValues.Scale))
pdf1.Canvas.DrawBitmap(Bitmap1, Null,r)
End If
