名前
題名
▼ Mr.XRAYさん > > おっ!! いけるかも．と思ったら，ＭＳ ゴシック にしたら... > > とほほ... > > 半角の英数字だけだったら，以下でいけるようなんですが... > 日本語，漢字等の全角文字があると... うううっ > 止めた !! これでおしまい !! > > procedure TForm1.Button1Click(Sender: TObject); > var > LvPDF : TPdfDocument; > LvPage : TPdfPage; > begin > LvPDF := TPdfDocument.Create(False); > try > LvPDF.Info.Author := 'テスト'; > LvPDF.Info.CreationDate := Now; > LvPDF.DefaultPaperSize := psA4; > LvPDF.DefaultPageLandscape := True; > LvPage := LvPDF.AddPage; > > LvPDF.Canvas.BeginText; > LvPDF.Canvas.SetFont('ＭＳ Ｐゴシック', 80, []); > LvPDF.Canvas.MoveTextPoint(30, 400); > LvPDF.Canvas.ShowText('Delphi ABC', True); > LvPDF.Canvas.EndText; > > LvPDF.Canvas.BeginText; > LvPDF.Canvas.SetFont('ＭＳ ゴシック', 80, []); > LvPDF.Canvas.MoveTextPoint(30, 200); > LvPDF.Canvas.ShowText('Delphi ABC', True); > LvPDF.Canvas.EndText; > > LvPDF.SaveToFile('ABC.pdf'); > finally > FreeAndNil(LvPDF); > end; > end; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link