名前 題名 ▼ Mr.XRAYさん > ▼ たてぐやさん > > おおっ,なるほど.こんなんですか. > 以下のようにした方がいいと思います. > この程度なら,TplPrevに組み込む必要はないでしょう. > > procedure Textprint(x, y: Integer; p : Double; s : string); > begin > with plprev1 do begin > FontSize := p; > Canvas.Textout(x, y , s) > end; > end; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link