QRShape1.Top := 10;
QRShape1.Top := 10;
QRShape1.Heigth := 100;
QRShape1.Width := 100;
QRShape2.Heigth := 100;
QRShape2.Width := 100;
QRShape1.Left := 0;
QRShape1.Left := 100;
QRShape1.Shape := qrsTopAndBottom;
QRShape2.Shape := qrsRectangle;
QuickReport1を右クリック プレビュー
１００％で表示 qrsTopAndBottom;が１ピクセル長いので段がつく。
印刷 やはりずれる。
継承して、paint,printで書いてみましたが
ペンを太くして四角を書くと、QRPrinter.Canvasは、はみ出しますし
どうも
QRPrinter.Canvas
と画面のCanvas
のメソッドは動作が違うような気がします。
カスタムペンを作って、計算して、
ペンの太さを計算して別々に分けて描いてもいいのですが・・・
レポートを作ろうと思っていますけど
気合いいれて2005かったらついてないですし 使い物にならないので
結局Delphi2を使っています。
Delphi2deskのQuickReportしかもってないので確認できません。
Delphi3〜Delphi7あたりのQuickReportでは、どうなんでしょうか？ なおっているのでしょうか？
とりあえず、 自力で
TQRShapeを継承して
正常に描画されるように修正を加え
使えるようになったので解決です。