Hi Guys,
i have a problem with PDFWriter and Cyrillic characters.
These are supported ?
When I view the PDF file these characters appear wrong .
I tried ISO-8859-5 but with no results.
You can help me?
Thanks!
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			i have a problem with PDFWriter and Cyrillic characters.
These are supported ?
When I view the PDF file these characters appear wrong .
I tried ISO-8859-5 but with no results.
You can help me?
Thanks!
			
				B4X:
			
		
		
		'Activity module
Sub Process_Globals
  Dim PDFContent As String
End Sub
Sub Globals
  Dim PDFWriter1 As PDFWriter
  Dim PaperSize As PDFPaperSizes
  Dim Fonts As PDFStandardFonts
  Dim Label1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
  If FirstTime Then
  PDFWriter1.Initialize("PDFWriter1",PaperSize.A4_WIDTH, PaperSize.A4_HEIGHT)
  End If
  Activity.LoadLayout("Main.bal")
  Activity.AddMenuItem("Make document","mnuMakeDoc")
  Activity.AddMenuItem("Save document","mnuSaveDoc")
  Activity.AddMenuItem("Show document","mnuShowDoc")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub mnuMakeDoc_Click
  ProgressDialogShow("Generating Document.")
  PDFWriter1.setFont(Fonts.SUBTYPE, Fonts.COURIER)
  PDFWriter1.addText(70, 550, 12, "This is an example of PDFWriter.")
  PDFWriter1.setFont2(Fonts.SUBTYPE, Fonts.COURIER,Fonts.WIN_ANSI_ENCODING)
  PDFWriter1.addText(70, 570, 12, "Это является примером PDFWriter")
  PDFWriter1.ConverseDocument
End Sub
Sub PDFWriter1_ConversionDone (Content As String)
  PDFContent = Content
  ProgressDialogHide
  ToastMessageShow("Conversion has been done.",False)
End Sub
Sub mnuShowDoc_Click
  Dim Path As String
  Path=File.DirDefaultExternal
  Dim Intent1 As Intent
  Intent1.Initialize(Intent1.ACTION_VIEW, "file://" & File.Combine(Path,"myNewPDF.pdf"))
  Intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
  Intent1.SetType("application/pdf")
  StartActivity(Intent1)   
End Sub
Sub mnuSaveDoc_Click
  Dim Path As String
  Path=File.DirDefaultExternal
  PDFWriter1.outputToFile(Path,"myNewPDF.pdf",PDFContent,"ISO-8859-5")
  ToastMessageShow("PDF Saved.",False)
End Sub