QickReprotの編集内容がプレビューで反映されない

解決

RAD命 2013-04-22 20:23:49 No: 44397

お世話になります。
環境は、Win8、Delphi３です。

クイックレポートを動的生成して、
bqand,sharp,labelを張り付けて、
form1に張り付けています。

しかし、button1を押すと、
白紙のクイックレポートウインドウしか表示されません。

以前に作成した、同様の手法を使ったクイックレポートのプログラムは、
問題なく上記の環境でも編集でき、動いています。

同じコードで書いたつもりなのですが、
クイックレポートには、白紙しか表示されません。
何がいけないのでしょうか？？

どなたかお知恵をお貸しいただけると助かります。

よろしくお願いします。

procedure TForm1.Button1Click(Sender: TObject);
var
  qrp:TQuickRep;
  crp:TQRShape;
  bnd:TQRChildBand;
  lb:TQrLabel;
  c,tp,lft,wdh,hit,count:integer;
begin
  qrp := TQuickRep.Create(self);
  qrp.Parent := form1;
  qrp.Visible := true;
  tp := 0; wdh := 50;
  for count := 0 to 5 do begin
    lft := 0;
    bnd := TQRChildBand.Create(self);
    bnd.Parent := qrp;
    bnd.Name := 'bnd' + inttostr(count);
    bnd.Visible := true;
    hit := bnd.Height;
    for c := 0 to 5 do begin
      crp := TQRShape.Create(self);
      lb := TQrLabel.Create(self);
      with crp do begin
        parent := bnd;
        left := lft;
        height := hit;
        width := wdh;
        top  := tp;
        name := 'crp' + inttostr(count) + inttostr(c);
        Visible := true;
      end;
      with lb do begin
        parent := bnd;
        left := lft;
        height := hit;
        width := wdh;
        top  := 5;
        name := 'lb' + inttostr(count) + inttostr(c);
        Visible := true;
      end;
      lft := lft + wdh;
    end;
  end;
  qrp.Preview;
end;

初心者 2013-04-22 23:06:08 No: 44398

Delphi３ってwin8対応してない気がしますが・・・

QickReprotのバージョンはいくつでしょうか？

RAD命 2013-04-23 02:02:21 No: 44399

こちらでは、（今のところ…）問題なくDelphi３は動いております。
色々とWin８上で設定が必要でしたが…。
ちなみに、データベースも、Paradoxを除けば、動作しました。

バージョンは、
QuickReport 2.0 Professional

になります。

以前作成したQuickReportのプログラムは、先ほど確認しましたが、
Win８上で問題なく動いています。

新規作成時に問題があるのでしょうか？？

こちらのコードミスの可能性が高い気もするのですが…。

RAD命 2013-04-23 02:41:24 No: 44400

お騒がせしました、
自己解決しました。

理由は不明ですが、Qrbandコンポーネントが、原因だったみたいです。
Qrbandを外して、
直接QreportにSharpとLabelを落としたら、無事描画されました。

これで何とか先に進めそうです。

おかぽん 2013-04-23 17:25:12 No: 44401

解決済みですが、TQRChildBandではなくTQRBandではないでしょうか？

おかぽん 2013-04-23 19:35:22 No: 44402

じゃなくて、BandTypeがrbDetailのQRBandがないとか、
ChildBandのParentbandプロパティがないとか、
あとは、OnNeedDataがないとか。