[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 :oops:

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 :cheers:

[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: :cheers::cheers::cheers::cheers::cheers::cheers:
(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.

[stahli]

Ich muss mal etwas unscharf fragen, da mir die Quelltexte von FR nicht zur Verfügung stehen...

Gibt es eine Möglichkeit, dem Platzbedarf für einen Text (der in einem Memo dargestellt werden soll und evtl. Zeilenumbrüche enthalten kann) VORAB zu ermitteln?

Ich bräuchte also so etwas wie

Delphi-Quellcode:

W := RenderWidthFürMemoMitHöhe(H, Text)

und natürlich

Delphi-Quellcode:

H := RenderHeightFürMemoMitBreite(W, Text)

.

Ich bräuchte das um Reports dynamisch zu positionieren.

Wann wird eigentlich Memo.AutoWidth und Memo.StretchMode analysiert? Sicher erst beim Öffnen des Reports. Das wäre mir dann aber zu spät.

Gibt es Abhilfe?

[stahli]

Hmm, ich muss nochmal etwas ausholen...

Den Render-Wunsch habe ich inzwischen aufgegeben und wollte jetzt alternativ die komplexen Turnierbäume in ein bzw. mehrere Bitmaps zeichnen und diese dann in den Report einbinden.
Ein mittelgroßer Baum erreicht schon ca. 3000*4000 Pixel (als komplette Übersicht). Das Bitmap würde ich dann nochmal in Abschnitte teilen und die Abschnitte als Detaildrucke auf einzelne Seiten aufteilen.

Der Windows-Viewer zeigt das Bitmap wie erwartet schön skaliert an und druckt es entsprechend.

Eingebunden im FastReport werden die Linien aber nicht mehr vernünftig gerendert und auch nicht mehr brauchbar gedruckt. Lesbar muss auf der Übersichtsseite enthaltener Text später natürlich nicht sein, aber die Struktur sollte erkennbar sein.

Gibt es hier bezüglich der Render-Qualität Abhilfe (sowohl für die Preview als auch für Druck und PDF-Ausgabe) oder kann ich mir FR für den Zweck abschminken?


PS: Die VPE (Virtual Print Engine) war wohl doch nicht sooo schlecht. Aber ein Tausender für ein Win8-fähiges Update kann ich mir doch nicht leisten. Ich werde doch mal nochmal beim Hersteller anfragen, ob da was geht...

[Dejan Vu]

Kann man das nicht als WMF oder EMF irgendwie hinbekommen?

[ibp]

ginge auch mit Excel

[stahli]

@Dejan Vu

Ich habe jetzt doch mal beim VPE-Hersteller angefragt. Mal sehen, wie die Update-Konditionen sind.

@ibp
Ich habe mal einen Entwurf angehängt, wie das aussehen soll.
Mit Excel wird das nicht zu machen sein.

@all
Die VPE hat diesbezüglich "nur" ein Problem, nämlich negative Offsets von Objekten, die ihren Ursprung in einem früheren Blatt haben und in andere (spätere) hinein ragen (siehe Spiel 238 auf Seite 7). Dafür habe ich noch keine richtige Lösung (wenn das nicht im Update gefixt wäre).
Das hat in FastReport besser funktioniert. Sonst ist für meine Zwecke aber die VPE besser geeignet. Ist halt eher ein Zeichenbrett und kein Band-basierter Reportgenerator.