[FastReport] per Code zeichnen

[stahli]

Ich versuche mit FastReport (Emba Edition, VCL) per Code "zu zeichnen".

Ausreichende Infos finde ich dazu nicht. Ein gefundenes Beispiel habe ich mal anzupassen versucht.
Kann man nur Objekte platzieren oder auch direkt auf den Canvas zeichnen?

In meinem Test wird ein Text überraschend "gelöscht", wenn ich mehr als eine Treppenstufe zeichne und den Text daher teilw. überzeichne (siehe Screenshot).

Hat jemand mehr Infos und Erfahrungen mit dynamischen (komplett berechneten und "gezeichneten") Reports unter FastReport?

Ich könnte mir vorstellen, "Zeichenfunktionen" zu realisieren, die dann Objekte entsprechend auszurichten.
Z.B. könnten SetPos(X,Y); LineTo(X.Y); Rect(X,Y,W,H,Text); eine Linie und ein Memo generieren und ausrichten.
Im Code hätte man das Gefühl zu zeichnen und ich könnte die etwa meine alten VPE-Anweisungen (mein bisheriger Reportgenerator) weiter verwenden.

Allerdings müsste ich dazu zunächst das Konzept von FastReport-Code verstehen.


EDIT: Code vergessen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  DataPage: TfrxDataPage;
  Page: TfrxReportPage;
  Band: TfrxBand;
  DataBand: TfrxMasterData;
  Memo: TfrxMemoView;
  Line: TfrxLineView;
  I: Integer;
begin
  { clear report }
  frxReport1.Clear;
  { add dataset to list of datasets accessible in report }
  // frxReport1.DataSets.Add(frxDBDataSet1);
  { add "Data" page }
  DataPage := TfrxDataPage.Create(frxReport1);
  { add page }
  Page := TfrxReportPage.Create(frxReport1);
  { create a unique name }
  Page.CreateUniqueName;
  { set sizes of fields, paper and orientation to defaults }
  Page.SetDefaults;
  { change paper orientation }
  // Page.Orientation := poLandscape;
  { add report title band }
  Band := TfrxReportTitle.Create(Page);
  Band.CreateUniqueName;
  { only “Top” coordinate and height of band need setting
    both in pixels }
  Band.Top := 0;
  Band.Height := 20;
  { add object to report title band }
  Memo := TfrxMemoView.Create(Band);
  Memo.CreateUniqueName;
  Memo.Text :=
    'Hello FastReport! xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
  Memo.Height := 20;
  { this object will be stretched to band’s width }
  Memo.Align := baWidth;
  { add masterdata band }
  DataBand := TfrxMasterData.Create(Page);
  DataBand.CreateUniqueName;
  // DataBand.DataSet := frxDBDataSet1;
  { “Top” should be greater than previously added band’s top + height }
  DataBand.Top := 100;
  DataBand.Height := 20;
  { add object on masterdata }
  Memo := TfrxMemoView.Create(DataBand);
  Memo.CreateUniqueName;
  { connect to data }
  // Memo.DataSet := frxDBDataSet1;
  Memo.DataField := 'CustNo';
  Memo.SetBounds(0, 0, 100, 20);
  { align text to object’s right margin }
  Memo.HAlign := haRight;
  { show report }

  for I := 0 to 50 do
  begin
    Line := TfrxLineView.Create(Band);
    Line.CreateUniqueName;
    Line.Left := I * 10;
    Line.Top := I * 10;
    Line.Width := 10;
    Line.Height := 1;
    Line := TfrxLineView.Create(Band);
    Line.CreateUniqueName;
    Line.Left := I * 10 + 10;
    Line.Top := I * 10;
    Line.Width := 1;
    Line.Height := 10;
    // Break;
  end;

  frxReport1.ShowReport;
end;

[Medium]

Ich weiss, dass es zumindest in RaveReports eine Image-Komponente gibt. Sollte es in FR etwas ähnliches geben, würde ich mir im Programm lieber einfach ein Bitmap malen und es dem Report in das Image übergeben. (Ich kann mir vorstellen, dass manuelles Zeichnen auf den nackten Canvas nicht wirklich vorgesehen ist.)

[Perlsau]

Reportgeneratoren haben aber doch ihre eigenen internen Paint-, Repaint- und Refreshmethoden, mittels derer sie den darzustellenden Text und/oder die darzustellenden Grafiken auf Ausgabe-Canvas zeichnen. Deshalb, so vermute ich, werden auch deine außerhalb dieser Methoden gezeichneten Linien und Kreise wieder gelöscht, sobald ein Anlaß zum Refresh oder Repaint besteht. Der Reportgenerator holt sich die Infos, was er darstellen soll, ja aus irgendwelchen Datenmengen, die ihm als Quelle vorgesetzt werden.

Vielleicht ist es möglich, die Darstellung einer solchen Auffälligkeit wie der im Bild dargestellten roten Umrandung anders zu lösen, z.B. durch rote Fettschrift. Ich kenne FastReport leider nicht, da bei meinem RadStudio2009 nur RaveReport dabei war und ich für den Zukauf eines besseren Reports kein Geld übrig habe.

[stahli]

Vielleicht muss ich nochmal konkretisieren.

In ein Bitmap will ich nicht zeichnen. Es soll letztlich eine PDF erzeugt werden, in der man später Text suchen kann.
"Zeichnen auf Canvas" meinte ich etwas allgemeiner - also nicht unbedingt den Canvas der Komponente, sondern eher Zeichnen "auf die Page", ohne Objekte erzeugen zu müssen.

Der Screenshot beinhaltet zwei Reportvarianten. Der hintere Report zeichnet den Text und zwei Linien - soweit ok.
Der vordere zeichnet mehrere Linien (bzw. positioniert mehrere Linienobjekte) in Form einer Treppe, wodurch der Text komischerweise gelöscht wird.

[Lemmy]

Tach,

also FR kann schon auch zeichnen.. ich habe das 2004/2005 verwendet um Steuercodes für Kouvertiermaschinen auszugeben. Allerdings hatte ich da nicht das Problem mit überzeichnen. Wobei ich meine, dass ich damals den Report selbst zusammengebaut habe (OnManualBuild im FR Desinger) - dazu brauchst Du aber halt die Edition mit Scripting...

Bei so einem Problem würde ich empfehlen direkt bei FR einen Support-case aufzumachen, Demoprojekt rein und beschreiben. Wenn das ein Fehler ist fixen die das evtl. andernfalls haben die sicherlich einen Tipp auf Lager was Du besser machen kannst...

[Furtbichler]

Man kann doch eine eigene FR-Komponente bauen.

Ich hab das mal für einen Datamatrix-Code machen müssen. Das ist ja im Prinzip das Gleiche. Das Schöne wäre dann, das Du die Ergebnisse im Designer siehst.

Vom Programmieraufwand ist das nur unwesentlich mehr Arbeit. Ich hatte für die Datamatrix-Komponente den Quelltext für das Rendern in eine TBitmap.Canvas gekauft und dann den FR-Wrapper gebastelt.

[stahli]

So, FastReport (also der Support) hat mir etwas geholfen und so habe ich schon mal einen akzeptablen Ansatz erreicht.

Schön ist, dass man Objekte auch mit negativem Offset positionieren kann und so einen großen Report auf mehrere Seiten aufteilen kann.

Insgesamt ist das Verständnis für die Details etwas schwierig zu erlernen. Details zu den Komponenteneigenschaften sind etwas mühsam zu sammeln. Der Code liegt mir ja (noch) nicht vor.

Ist mal jemand so nett, meinen Report in eine PDF zu exportieren (evtl. sogar mit der FMX-Variante)? Ich würde gern mal sehen, wie das dann konkret aussieht?

Ich spendiere für jede PDF ein virtuelles Bier. Also los geht´s ...

[EarlyBird]

Erstellt mit Fastreport PDF
Einstellung wie folgt:
Komprimiert ja
Schriften eingebettet nein
JPEG Qualität 100
Druckoptimiert nein

ich sag schon mal Prost

[HPB]

Moin stahli,
erstellt mit Fastreport.
Allerdings habe ich auf die Form die PDF-Export-Kompo von Fastreport gelegt
und darüber exportiert.
Gruß HPB

[stahli]

Danke Euch!

Wie versprochen, bedient Euch:
(aber nur die beiden Helfer!!!)

Letztendlich will ich so etwas wie in den Anlagen basteln.
Damit ich das dann "zeichnen" kann werde ich einen Wrapper bauen, der dann so etwas wie GoTo(X,Y) und LineTo(X,Y) usw. ermöglicht und entsprechende Objekte erzeugt.

Bin eigentlich ganz zuversichtlich, dass das klappt.