TCharts in der Druckvorschau

[Darlo]

Quickreport unterstützt Hoch- und Querformat. Alternative kannst Du ja die TCharts als Bild exportieren, drehen und einfügen.

[delphinewbie]

Hi,
ich bin schon fleißig am Experimentieren. Aber schon sind erste Fehler da:
Ich bekomme beim Erstellen der Series im QRChart mit z.B:

Code:

for z:=1 to 50 do begin
   qrchart1.Chart.Series[1].addxy(z,z*z,'',clBlack);
  end;

eine Fehlermeldung: 'Listenindex überschreitet das Maximum (1)'.
Keine Ahnung, was da gemeint ist. Bezieht sich das auf die series ?
Muß ich da noch was voreinstellen ?

MfG

Zusätzlich habe ich auch das OnNeedData-Ereignis wie folgt gesetzt:

Code:

procedure TForm13.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
MoreData:=(z < 50);
inc(z);
end;

MfG

[Darlo]

Vielleicht Series[0] statt Series[1]?

Code:

qrchart1.Chart.Series[0].addxy(z,z*z,'',clBlack);

[delphinewbie]

Nee,
mit series[0] macht er den Report garnicht mehr auf...

Nun sehe ich, dass im OI die Eigenschaft QRChart1.Chart auf (TQRDBChart) gesetzt ist.
Könnte es daran liegen, dass irgendwie immer Werte aus einer Datenbank erwartet werden ?
Wie kann ich das änder?

[delphinewbie]

Erstmal gelöst:
Habe das OnNeedData-Ereignis wieder rausgenommen und das Füllen des Charts in das Ereignis QuickRep1.BeforePrint
gesetzt:

Code:

procedure TForm13.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
i: integer;
begin
for i:=1 to anz_mw do
qrchart1.Chart.Series[1].AddXY(i,messwerte[messkanal-1,i],'',clBlack);
end;

Vllt. geht es auch noch eleganter. Aber ich bin erstmal zufrieden...

Danke an alle

[delphinewbie]

Hi,
ein neuer Anlauf: Habe inzwischen den Gedanken mit Quickreport wieder verworfen und mich mal an das riesige Paket TeeChart von Steema gewagt.
Habe mir dazu die Trial-Version (TeeChartPro 2011 VCL)runtergeladen und ich muss schon sagen, da ergeben sich 'ne Menge Möglichkeiten, um ansprechende Charts zu produzieren.
Aber speziell zu meinem Problem habe ich noch keine Lösung ansatzweise gefunden.
Es soll in einer Art Preview angezeigt werden, wie der Druck aussehen wird. Dazu habe ich mir bspw. in Form1 ein TeePreviewPanel1 (Orientation ist ppoPortrait) und auf die weiße 'Papierfläche' eine TChart-Komponente eingefügt . Hier beginnt das eigentliche Problem. Ich möchte nun das komplette TChart um 90 Grad drehen (incl. Title, Legende, etc.) um bei einem Ausdruck im Hochformat das Diagramm auf dem Blatt quer zu legen. Das ganze hätte den großen Vorteil, das ich dann nur das Chart drehen müßte und nicht alle möglichen Texte in Kopf- oder Fußzeilen.
Ich finde einfach keine Möglichkeit, dies über irgenwelche Chart-Eigenschaften oder Methoden zu realisieren.
Eine andere und sicher aufwendigere Lösung wäre wohl die von Darlo vorgeschlagene

Zitat:

Alternative kannst Du ja die TCharts als Bild exportieren, drehen und einfügen.

Wobei ich noch keine Peilung habe, wie ich ein Chart als Bild exportiere, geschweige denn wie ich es noch drehe und wieder einfüge.

Hoffentlich habt ihr einpaar gute Ideen, die mir das Leben nicht allzu schwer machen werden.

Vielen Dank
delphinewbie

[Darlo]

Tach,

Zitat von delphinewbie:

Wobei ich noch keine Peilung habe, wie ich ein Chart als Bild exportiere, geschweige denn wie ich es noch drehe und wieder einfüge.

das ist das kleinste Problem:

Code:

chart1.SaveToBitmapFile([filename]);

Gruß