名前
題名
▼ 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;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link