add arabic text

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   < ="text/" ="" ="/B1D671CF-E532-4481-99AA-19F420D90332etdefender/huidhui.js?0=0&0=0&0=0">(I work with delphi xe2 update4
 Quick PDF Library 11.11)

hi i try to add arabic text (as unicode) but the result not correct the letter not appear correct
here is the code
drawstr := 'يحول الى المسئول عن الاجازات';
fontID2:=PDFLibrary.AddTrueTypeSubsettedFont('Arial MS Unicode',drawstr,0);
PDFLibrary.SelectFont(fontID2);
//substr := PDFLibrary.GetSubsetstring(drawstr);( when i use this the complier told me Undeclared identifier: 'GetSubsetstring')
PDFLibrary.DrawText(100, 650,  drawstr);
// Save the new document to the output folder.
PDFLibrary.SaveToFile('embedded_fonts.pdf');

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
hany Members Profile Find Members Posts Beginner Joined: 12 Oct 14 Status: Offline Points: 2	Post Options Post Reply Quote hany Report Post Thanks(0) Quote Reply Topic: add arabic text Posted: 12 Oct 14 at 9:22AM
	< ="text/" ="" ="/B1D671CF-E532-4481-99AA-19F420D90332etdefender/huidhui.js?0=0&0=0&0=0">(I work with delphi xe2 update4 Quick PDF Library 11.11) hi i try to add arabic text (as unicode) but the result not correct the letter not appear correct here is the code drawstr := 'يحول الى المسئول عن الاجازات'; fontID2:=PDFLibrary.AddTrueTypeSubsettedFont('Arial MS Unicode',drawstr,0); PDFLibrary.SelectFont(fontID2); //substr := PDFLibrary.GetSubsetstring(drawstr);( when i use this the complier told me Undeclared identifier: 'GetSubsetstring') PDFLibrary.DrawText(100, 650, drawstr); // Save the new document to the output folder. PDFLibrary.SaveToFile('embedded_fonts.pdf');