| [2723] 文字幅 フォント幅のテスト | 返信 削除 |
| 2009/10/24 (土) 09:29:13 Mr.XRAY |
|
▼ KSCさん > マスター ... お疲れ！そして Good Job！！ こう言われると更に頑張ってしまいそう． KSCさんは人使いがうまいんだから． 誉め殺しにされそう... で，文字幅のテストしてみました． Delphi7では文字幅の変化ありませんでした． Delphi2007でVer.8.46でやってみました． テストコードは以下です． 結果，Delphi2007では，デフォルトのフォントにMS UI Gothicが 使用されているみたいです． 文字幅がなんか狭いので，もしかしたらと推測してのテストです． フォント名を指定すればこの現象は避けられそうですが， KSCさんの方ではどうなっているでしょうか． 風の噂では，最近開発環境をDelphi2007に変更したような... procedure TForm1.Button1Click(Sender: TObject); begin //用紙等の設定(ここでは横) plPrev1.plSetPrinter.Orientation := poLandscape; //印刷用のコードを書く plPrev1.BeginDoc; try with plPrev1 do begin FontHeight(200); FontName('ＭＳ Ｐゴシック'); //ここを変更してテスト Canvas.TextOut(200,500,'テストライン'); TextOut(200,700,'テストライン'); MoveTo(200,880); LineTo(1200,880); end; finally plPrev1.EndDoc; end; //プレビュー表示開始 plPrev1.ShowModal; end;  |
