Rave Report - Linie im OnPrint zeichnen
Hi,
ich möchte im OnPrint der rvSystem Komponente (Delphi2010) Trennlinien einfügen. Warum kann ich hier nicht einfach im Canvas zeichnen. Folgendes wird zwar kompiliert, aber die Linie wird nicht gezeichnet.
Delphi-Quellcode:
Kann mir hier bitte jemand einen kleinen Tipp geben?
procedure TForm1.RvSystem1Print(Sender: TObject);
var Report: TBaseReport; begin Report := TBaseReport(sender); Report.Units := unMM; //..Daten schreiben.. //Zeichnen geht nicht Report.Canvas.Pen.Color:= clBlack; Report.Canvas.Pen.Width:= 4; Report.Canvas.MoveTo(1,1); Report.Canvas.LineTo(100,100); end; Gruß Thomas |
AW: Rave Report - Linie im OnPrint zeichnen
Das ergibt eigentlich keine Trennlinie
Delphi-Quellcode:
so geht das eher:
Report.Canvas.MoveTo(1,1);
Report.Canvas.LineTo(100,100);
Delphi-Quellcode:
Gruß
Report.Canvas.MoveTo(1,1);
Report.Canvas.LineTo(1,1000); K-H |
AW: Rave Report - Linie im OnPrint zeichnen
Ich weiß, dass die Linie, die ich zeichnen wollte, keine richtige Trennlinie ist, sondern eine schräge Linie. Ich habe eine Diagonale gewählt, nachdem eine gerade Linie nicht funktioniert hat und ich sichergehen wollte, dass ich mich nicht mit den Koordinaten täusche.
Aber mein Problem ist, dass ich die Linie nicht im Bericht sehe. |
AW: Rave Report - Linie im OnPrint zeichnen
Hat keiner eine Idee, warum das, was ich im Canvas zeichne nicht im Report angezeigt wird?
|
AW: Rave Report - Linie im OnPrint zeichnen
Hallo Thomas,
so sollte es funktionieren
Delphi-Quellcode:
procedure TForm1.RvSystem1Print(Sender: TObject);
var Report: TBaseReport; begin Report := TBaseReport(sender); Report.Units := unMM; //..Daten schreiben.. //Zeichnen geht nicht Report.Canvas.Pen.Color:= clBlack; Report.Canvas.Pen.Width:= 4; Report.MoveTo(20,60); report.LineTo(50,80); end; |
AW: Rave Report - Linie im OnPrint zeichnen
Hi,
Vielen Dank Rawi, so geht es! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz