TCharts in der Druckvorschau

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

[delphinewbie]

Ich habe es jetzt mal so gemacht :

Code:

form1.Chart1.Draw(form16.QRImage1.Canvas,Rect(0,0,form1.Chart1.Width,form1.Chart1.Height));
FJpeg:=TJPEGImage.Create;
FJpeg.Assign(form16.QRImage1.Picture.bitmap);
FJpeg.Transform(TJpegTransform(jt_ROT_180));
form16.QRImage1.Picture.Assign(FJpeg);
FJpeg.Free;

Hatte aber leider keinen Erfolg damit. Sieht genau noch so bescheiden aus wie vorher...

[Bummi]

wahrscheinlich pixelig?
nimm doch mal größere Breiten/Höhen

[delphinewbie]

Habe für das QRImage und auch fürs Chart schon größtmögliche Maße genommen, so dass es gerade auf eine A4-Seite passt.
Leider kein Erfolg.
Zur Veranschaulichung habe ich den Quickreport in eine PDF-Datei (Siehe Angehängte Datei) gedruckt, damit ihr euch mal ein Bild von meinem Problem machen könnt. So wie es in der Datei aussieht, so wird es auch auf andere Drucker und auch im Preview dargestellt. Also ziemlich unbrauchbar.

Hilfe-Hilfe-Hilfe

[Bummi]

meinst Du die JPG-Artefakte?