Hi Gunther,
Glad to hear you got it working... I remember having the same problem in Abode Acrobat 5. I found that adobe acrobat 6 and 7 work fine.
I think, but dont quote me on it, that the @ symbol means font alias. I have tried searching myself but it seems google and altavista dont allow you to search for the @ character.
Kind Regards,
Richard Spurgeon.
Hi Gunter,
I have tested the below with some russian text and it works a treat. I have uploaded the resultant pdf file for you to see http://www.paramet.co.uk/test.pdf
I had to add wpExactTextPositioning to make the spacing right.
ws := '';
ws := tntedit1.text;
pdf.Modes := pdf.Modes + [wpExactTextPositioning];
pdf.filename := 'c:\test.pdf';
pdf.BeginDoc;
pdf.StartPage(Round(8.3 * Screen.PixelsPerInch),Round(11.67 * Screen.PixelsPerInch),Screen.PixelsPerInch,Screen.PixelsPerInch,0);
with pdf.Canvas do begin
Font.Name := '@Arial';
Font.Charset := RUSSIAN_CHARSET;
Font.size := 12;
TextOutW(Handle,62,32,PWideChar(ws),Length(ws));
end;
pdf.EndPage;
pdf.EndDoc;
Kind Regards,
Richard Spurgeon
Little Tip for anyone wanting to use unicode now rather than later.
This code works fine when you want to write Chinese in wpdf 2, but should work with any language by changing font.
var
ws : widestring;
begin
ws := 'Some Chinese Text, from a unicode control, remember source code editor is not unicode enabled';
ws := tntedit1.text;
pdf.filename := 'c:\test.pdf';
pdf.BeginDoc;
pdf.StartPage(Round(8.3 * Screen.PixelsPerInch),Round(11.67 * Screen.PixelsPerInch),Screen.PixelsPerInch,Screen.PixelsPerInch,0);
with pdf.Canvas do begin
Font.Name := '@SimHei';
Font.Charset := GB2312_CHARSET;
font.size := 26;
TextOutW(Handle,xPix*62,yPix*32,PWideChar(ws),Length(ws));
end;
pdf.EndPage;
pdf.EndDoc;
end;Good Luck,
Richard Spurgeon :D