名前
題名
▼ Mr.XRAYさん > > 先程ふと思い立ち、'ＭＳ 明朝' を試しますと、盛大に崩れました（笑） > > 'ＭＳ ゴシック' も同様です。 > > ギョェ!! 気が付きませんでした． > う〜む． > > 下図の 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以降 (ユニコード版) 専用です． > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link