▼ 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;
 |
