名前
題名
▼ Mr.XRAYさん > > 自力で Canvas に描画してください． > > こんな感じでしょうか． > > procedure TForm1.Button1Click(Sender: TObject); > var > LFilePath : string; > LBitmap : TBitmap; > begin > LFilePath := ExpandFileName('502.bmp'); > > LBitmap := TBitmap.Create; > > //印刷用のコードを書く > plPrev1.BeginDoc; > try > plPrev1.Canvas.Font.Height := 180; > plPrev1.Canvas.TextOut(200, 300, '印刷プレビューの簡単なテスト'); > > LBitmap.LoadFromFile(LFilePath); > LBitmap.Transparent := True; > plPrev1.Canvas.StretchDraw(Rect(300, 300, 1300, 1300), LBitmap); > finally > plPrev1.EndDoc; > FreeAndNil(LBitmap); > end; > > > //プレビューフォームのサイズと位置を設定 > //自動生成なので，そのためのプロパティがある > //指定しなければデフォルト値となる > plPrev1.FormPosition := poDesktopCenter; > plPrev1.FormWidth := 600; > plPrev1.FormHeight := 450; > > //プレビュー開始 > plPrev1.ShowModal; > end; > > 上の図が描画しているビットマップ画像です．
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link