QRChart taşıyan QuickRep in Kapanışı

[haydarxxx]

Slm
dbChart da gördüğüm grafiği QuickRep deki QRChart bağladım ve

Kod: Tümünü seç

procedure TForm10.BitBtn7Click(Sender: TObject);
begin
form2.QuickRep1.Preview;
end;

kodu ile grafiği ön izlemeye alıyorum grafiği raporda görüyorum.Fakat QuickRep in ön izlemesini kapatıp yeniden

Kod: Tümünü seç

procedure TForm10.BitBtn7Click(Sender: TObject);
begin
form2.QuickRep1.Preview;
end;

yaptığımda program donk şeklinde bir ses veriyor ve uygulamayı kapatıyor.Sade butona değil geldiğim formda bir grid e bile tıklasam aynı şeyi yapıyor.Hiç bir hata uyarısı vermiyor.Bu durum nasıl düzeltilir.

[rsimsek]

Preview de bir kesme (break point) noktası koyup adım adım çalıştırmayı dene

[haydarxxx]

unit Kisimacraporu;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, JvDBImage, Grids, DBGrids,
JvExDBGrids, JvDBGrid, JvDBUltimGrid, JvgGroupBox;

type
TForm10 = class(TForm)
JvgGroupBox1: TJvgGroupBox;
JvDBUltimGrid3: TJvDBUltimGrid;
JvgGroupBox2: TJvgGroupBox;
JvDBImage2: TJvDBImage;
JvDBUltimGrid1: TJvDBUltimGrid;
JvgGroupBox3: TJvgGroupBox;
JvDBUltimGrid2: TJvDBUltimGrid;
BitBtn7: TBitBtn;
BitBtn5: TBitBtn;
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form10: TForm10;

implementation

uses Rapor, Anamenu, Datamodul;

{$R *.dfm}

procedure TForm10.BitBtn7Click(Sender: TObject);
begin
form2.QuickRep1.Preview;
end;
procedure TForm10.BitBtn5Click(Sender: TObject);
begin
form3.show;
hide;
end;

end.

hocam tüm ünit.QRChart i rapordan kaldırdığımda sorun olmuyor her halde QRChart dan kaynaklanıyor

[rsimsek]

Hatalı bir sürüm olabilir.. belki daha günceli veya düzeltilmişi vardır.

[mucit]

Merhaba,

Sorun QRTEE.PAS dosyasındaki GetRectangle fonksiyonundan kaynaklanıyor. Bu fonksiyonu aşağıdaki şekilde değiştirmelisiniz.

Kod: Tümünü seç

function TQRDBChart.GetRectangle: TRect;
var
  tmpZoomFactor: Double;
begin
  if Parent <> nil then
    with TQRChart(Parent) do
    begin
      if (ParentReport <> nil) then
        tmpZoomFactor:= 100.0 / ParentReport.Zoom
      else
        tmpZoomFactor:= 1;
      Result:= Rect(0, 0, Round(Width * tmpZoomFactor),
        Round(Height * tmpZoomFactor));
    end;
end;

Kolay gelsin..

[haydarxxx]

syn mucit
Soruma verdiğiniz cevabı yeni gördüm.Bu işlemi nasıl yapacağım birazdaha açıklayıcı yazabilirmisiniz.QRTEE.PAS dosyası nerede nasıl açıp kod ekleyeceğiz.QRTEE.PAS dosyası arattım makinamda bir şey bulamadı

[haydarxxx]

.

syn mucit
Soruma verdiğiniz cevabı yeni gördüm.Bu işlemi nasıl yapacağım birazdaha açıklayıcı yazabilirmisiniz.QRTEE.PAS dosyası nerede nasıl açıp kod ekleyeceğiz.QRTEE.PAS dosyası arattım makinamda bir şey bulamadı

Arkadaşlar sy mucit in verdiği cevabı nasıl uygulayabiliriz

[ikutluay]

qr ve /veyasource kodunu bulmalısın. bildiğim kadarı ile delphide bunun sadece derlenmiş hali geliyor.