Po otrzymaniu informacji od Ciebie w TnPDF zmieniłem Winansiencoding na ISO-8859-16 i w dalszym ciągu mam krzaczki, następnie wpisałem zamiast Winansiencoding, cp1250 i też nie polskich znaków.
Prawdopodobie robię coś źle więc przesyłam elementy kodu:
Procedure TPrintPDF.SetFontType;
Begin
CreateFont('Type1','Helvetica', 'cp1250'); //ISO-8859-16, ISO-8859-2
CreateFont('Type1','Helvetica-Bold', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Helvetica-Oblique', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Helvetica-BoldOblique', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Courier', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Courier-Bold', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Courier-Oblique', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Courier-BoldOblique', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Times-Roman', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Times-Bold', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Times-Italic', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Times-BoldItalic', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','Symbol', 'cp1250');//ISO-8859-16, ISO-8859-2
CreateFont('Type1','ZapfDingbats', 'cp1250');//ISO-8859-16, ISO-8859-2
End;
Plik generuję w poniższy sposów:
procedure TForm1.Button1Click(Sender: TObject);
begin
PDF1:=TPrintPDF.Create(Self);
PDF1.FileName:='Plik testowy.pdf';
PDF1.Title:='Title doc';
PDF1.PageHeight:=700;
PDF1.PageWidth:=600;
PDF1.BeginDoc;
PDF1.LineWidth:=1;
PDF1.TextOut(25,25,'Linijka tekstu bez polskich liter');
PDF1.TextOut(25,41,'Zamiast Winansiencoding ==> cp1250');
PDF1.TextOut(25,63,'Ą |ą |Ę |ę |Ó |ó |Ś |ś |Ł |ł |Ż |ż |Ź |ź |Ć |ć |Ń |ń |');
PDF1.EndDoc;
PDF1.Free;
end;
<font size="4">Proszę o POMOC i dokładniejsze przyjrzenie się zagadnieniu.</span>