> 先程ふと思い立ち、'ＭＳ 明朝' を試しますと、盛大に崩れました（笑）
> 'ＭＳ ゴシック' も同様です。
ギョェ!! 気が付きませんでした．
う〜む．
下図の PDF を作成したコードです．
動作確認は，Windows 7 U64(SP1) + Delphi XE(UP1) Pro で，
表示は Acrobat Reader X です．
uses
SynPdf;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
LvPDF : TPdfDocument;
LvPage : TPdfPage;
begin
LvPDF := TPdfDocument.Create(False);
try
LvPDF.Info.Author := 'Mr.XRAY';
LvPDF.Info.CreationDate := Now;
LvPDF.DefaultPaperSize := psA4;
LvPage := LvPDF.AddPage;
LvPDF.Canvas.BeginText;
LvPDF.Canvas.SetFont('ＭＳ Ｐ明朝', 80, []);
LvPDF.Canvas.MoveTextPoint(30, 700);
LvPDF.Canvas.ShowText('あいうえお', True);
LvPDF.Canvas.EndText;
LvPDF.Canvas.BeginText;
LvPDF.Canvas.SetFont('ＭＳ 明朝', 80, []);
LvPDF.Canvas.MoveTextPoint(30, 500);
LvPDF.Canvas.ShowText('かきくけこ', True);
LvPDF.Canvas.EndText;
LvPDF.SaveToFile('ABC.pdf');
finally
FreeAndNil(LvPDF);
end;
end;
[注意]
上のコードの場合，左下が，座標 (0, 0) となります．
上のコードは Delphi 2009以降 (ユニコード版) 専用です．
 |