Rave Report - Linie im OnPrint zeichnen

[kub]

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:

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;

Kann mir hier bitte jemand einen kleinen Tipp geben?

Gruß
Thomas

[p80286]

Das ergibt eigentlich keine Trennlinie

Delphi-Quellcode:

Report.Canvas.MoveTo(1,1);
  Report.Canvas.LineTo(100,100);

so geht das eher:

Delphi-Quellcode:

Report.Canvas.MoveTo(1,1);
  Report.Canvas.LineTo(1,1000);

Gruß
K-H

[kub]

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.

[kub]

Hat keiner eine Idee, warum das, was ich im Canvas zeichne nicht im Report angezeigt wird?

[rawi]

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;

[kub]

Hi,

Vielen Dank Rawi, so geht es!