-
Forum: Programmieren allgemein
by delphinewbie,
21. Feb 2012
@Bummi,an welcher Stelle sollte ich also ein Bitmap nehmen ? Ich befürchte nur, dass sich ein Bitmap nicht so einfach drehen lässt mit der Transform-Methode.
Könnte es trotzdem so klappen ? Bin im Moment nicht auf Arbeit und kann nicht testen.
FJpeg: TBitmap;
form1.Chart1.CopyToClipboardBitmap;
clip:=Clipboard;...
-
Forum: Programmieren allgemein
by delphinewbie,
21. Feb 2012
Die Grafik soll nicht monochrom bleiben, das war nur ein erster Versuch. Eigentlich sollen mehrere Series in unterschiedlichen Farben und Diagrammhintergrund dargestellt werden. Dazu kommt die Legende etc.
Kann man die Kompression irgendwie runter setzen, um die Artefakte zu vermeiden ?
-
Forum: Programmieren allgemein
by delphinewbie,
21. Feb 2012
Keine Ahnung, wie das heißt, aber schön sieht es nicht aus, oder ?
-
Forum: Programmieren allgemein
by delphinewbie,
21. Feb 2012
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...
-
Forum: Programmieren allgemein
by delphinewbie,
21. Feb 2012
Ich habe es jetzt mal so gemacht :
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...
-
Forum: Programmieren allgemein
by delphinewbie,
21. Feb 2012
Vielen Dank,
das werde ich gleich mal ausprobieren.
-
Forum: Programmieren allgemein
by delphinewbie,
21. Feb 2012
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.
FJpeg : TJPEGImage;
clip: TClipboard;
form1.Chart1.CopyToClipboardBitmap;
clip:=Clipboard;...
-
Forum: Programmieren allgemein
by delphinewbie,
16. Feb 2012
Der Beitrag kann gelöscht werden...
-
Forum: Programmieren allgemein
by delphinewbie,
1. Feb 2012
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...
-
Forum: Programmieren allgemein
by delphinewbie,
26. Jan 2012
Erstmal gelöst:
Habe das OnNeedData-Ereignis wieder rausgenommen und das Füllen des Charts in das Ereignis QuickRep1.BeforePrint
gesetzt:
procedure TForm13.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
i: integer;
begin
for i:=1 to anz_mw do
qrchart1.Chart.Series.AddXY(i,messwerte,'',clBlack);
-
Forum: Programmieren allgemein
by delphinewbie,
26. Jan 2012
Nee,
mit series 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?
-
Forum: Programmieren allgemein
by delphinewbie,
26. Jan 2012
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:
for z:=1 to 50 do begin
qrchart1.Chart.Series.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 ?
-
Forum: Programmieren allgemein
by delphinewbie,
25. Jan 2012
@Darlo,
Danke, werde ich mal probieren. Habe aber meine Bedenken, ob ich da meine verschiedenen Layouts gestalten kann und vor allem, ob man so ein TChart auch um 90 bzw. 270° drehen kann, wenn man eine Ausgabe im Querformat benötigt. Aber Versuch macht klug...
MfG
-
Forum: Programmieren allgemein
by delphinewbie,
25. Jan 2012
Nein, die Daten werden alle aus einer Datei eingelesen und entsprechend eines Berechnungsalgorithmus verarbeitet und die Ergebnisse in Charts dargestellt. Ich weis nicht, ob sich dafür ein Reportsystem anbieten würde ?
MfG
-
Forum: Programmieren allgemein
by delphinewbie,
25. Jan 2012
Hallo,
ich habe bspw. in Form1 mehrere Charts, die ich in unterschiedlichen Layouts (1, 2, 3 oder 4 Charts auf einer Seite, dazu noch Hoch- oder Querformat) ausdrucken möchte. Dazu soll vorher eine Druckvorschau möglich sein.
Ich habe es bisher so gelöst, dass ich in einem neuen Form ein Shape platziert habe und darin im Prinzip alles entweder auf dem Shape oder auf dem Drucker (drucker.canvas)...