TCharts in der Druckvorschau

[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ß

[delphinewbie]

Der Beitrag kann gelöscht werden...

[delphinewbie]

So, nun bin ich tatsächlich so weit gekommen, dass ich also ein Chart als Bild in die Zwischenablage lege, es anschließend in ein Image schiebe und anschließend drehe. Das ganze in einem Quickreport (Form16) mit QRImage.

Code:

FJpeg : TJPEGImage;
clip: TClipboard;

form1.Chart1.CopyToClipboardBitmap;
clip:=Clipboard;
form16.QRImage1.Picture.bitmap.LoadFromClipboardFormat(CF_Bitmap,clip.GetAsHandle(CF_Bitmap),0);
FJpeg:=TJPEGImage.Create;
FJpeg.Assign(form16.QRImage1.Picture.bitmap);
FJpeg.Transform(TJpegTransform(jt_ROT_270));
form16.QRImage1.Picture.Assign(FJpeg);
FJpeg.Free;
clip.Clear;

Das Problem liegt jetzt aber in der Bildqualität. Offensichtlich treten bei meinem Vorgehen Qualitätsverluste auf, sodass der Ausdruck nicht sonderlich gut aussieht. Insbesondere wird das bei den Achsenbeschriftungen des Charts deutlich, wo hier plötzlich grüne Schatten auftreten.
Liegt das in der Natur des Verfahrens (FJpeg.Transform) begründet oder gibt es etwa noch einen Parameter, den man setzen muss ?
Hat noch jemand dieses Phänomen bemerkt ? Der Effekt tritt übrigens auch auf, wenn das Image nicht gedreht wird, also ohne 'FJpeg.Transform(TJpegTransform(jt_ROT_270));'
Lege ich dagegen ein QRChart auf den QuickReport, das dann mit Werten gefüllt wird, ergibt das einen sauberen Ausdruck.
Wo treten die Verluste ein ? Hat jemand eine Idee ?

Danke,
delphinewbie

[Bummi]

bessere(einstellbare) Ergebnisse bekommst Du mit z.B.

Delphi-Quellcode:

  Chart1.TeeCreateMetafile(true,Rect(0,0,1000,1000)); //WMF
//oder
  Chart1.Draw(DestCanvas,Rect(0,0,1000,1000));

[delphinewbie]

Vielen Dank,
das werde ich gleich mal ausprobieren.