FastReports Problem mit dynamischer Höhe/Ausblenden

[TurboMagic]

Hallo,

gegeben ist ein Endlos Druckreport und je nach Einstellungen sollen da gewisse Texte bzw.
eine Grafik angezeigt werden oder eben auch nicht. Diese Sachen befinden sich alle im
ColumnFooter des Reports und sind jeweils einzelne TfrxMemoView oder TfrxPictureView Objekte.

Oberhalb des Bereiches sind 2 MasterData Bands die ich entsprechend über FR's datasets fülle.

Vor dem PrepareReport(true) Aufruf setze ich die Objekte, welche nicht vorhanden sein sollen,
auf Visible := false. Das klappt soweit. Verankert sind die Left und Top, das deaktivieren
von Top hat bisher aber nichts gebracht.

Nach PrepareReport(true) will ich die Größe vom ColumnFooter anpassen und ggf. das
TfrxPictureView Objekt verschieben. Problem: alle Height und Top Angaben die ich in der
Routine im Debugger sehe sind mist und die Ausgabe passt entsprechend auch nicht.

Zu welchem Zeitpunkt sind denn diese Höhen richtig berechnet und wie kann ich da eingreifen?
Oder evtl. geht's auch noch einfacher, die Dokumentation deutet da irgendwas an mit Shift,
aber das scheint bei mir nicht zu funktionieren.

Grüße
TurboMagic

[mytbo]

Welche Version von FastReport? Richtig nachvollziehen konnte ich deine Beschreibung nicht. Eine kleine Demo wäre hilfreich gewesen. Das funktioniert:

Code:

procedure ColumnFooterOnBeforePrint(Sender: TfrxComponent);
begin
  Memo2.Visible := False;
  Memo3.Top := Memo1.Height;
  ColumnFooter.Height := Memo1.Height + Memo3.Height;
end;

Je nachdem, was/wie du berechnest, die Konstanten nicht vergessen:

Code:

Height := 5 * fr01cm;

Eine Minimaldemo im Anhang.

Bis bald...
Thomas

[TurboMagic]

Danke. Schaue ich mir nachher gleich an.
Version? Die aus GetIt die gratis bei 11.1 dabei ist.

[TurboMagic]

Hallo,

habe eben versucht das von dir vorgeschlagene nachzuvollziehen, aber ohne Erfolg. Hier was ich gemacht habe:

1. Neues VCL Projekt, ein TfrxReport auf die Form und deinen Report geladen.
2. Button und Code zum vorbereiten/anzeigen hinzugefügt, was diese Unit ergibt:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, frxClass, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    frxReport1: TfrxReport;
    Button1: TButton;
    procedure frxReport1BeforePrint(Sender: TfrxReportComponent);
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  frxReport1.PrepareReport(true);
  frxReport1.ShowPreparedReport;
end;

procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
  Memo2.Visible := False;
  Memo3.Top := Memo1.Height;
  ColumnFooter.Height := Memo1.Height + Memo3.Height;
end;

end.

Delphi kennt Memo2 usw. so nicht, da diese ja im Report sind und die BeforePrint
Umsetzung in der Form.

Ich habe dann mal versucht mittels Sender.FindObject('Memo2') usw. zu arbeiten, da bekomme
ich aber immer nil zurück.

Deinen Code muss ich mit meinen bisherigen, noch etwas beschränkten Fast Report Kenntnissen
so verstehen, als ob Memo2 usw. im Code der Unit bekannt sein müsste, aber woher?

Kommentiere ich den Inhalt vom BeforePrint aus, bekomme ich den Report ohne Änderungen
als Vorschau angezeigt.

[mytbo]

Zitat von TurboMagic:

Delphi kennt Memo2 usw. so nicht, da diese ja im Report sind und die BeforePrint
Umsetzung in der Form.

Kann Delphi auch nicht kennen, denn die Memos existieren nur in FastReport. Die Projektdatei (*.fr3) ist im XML Format. Du kannst reinschauen. Vermutlich ist das Problem, dass ich seit 20 Jahren Lizenznehmer bin und sich meine Version von der freien Delphi Version unterscheidet. Der Sourcecode, den ich oben gepostet habe, ist FastScript. Gibt es bei dir im Bericht-Designer den Tab Code? Im Designer weist du der Komponente TfrxColumnFooter, im Ereignis OnBeforePrint, die obige Funktion zu.

Bis bald...
Thomas

[TurboMagic]

Hallo,

es gibt zwar einen Code Reiter, den kann man aber nicht anklicken.
Die feature Matrix hier zeigt auch deutlich, dass das in der EMBT Edition nicht enthalten ist:

https://www.fast-report.de/de/FastRe...-Standard.html

Weder Code noch Ereignisse sind da enthalten. Ich versuche aber mal zu testen, ob deine Konstante
noch zu was sinnvollem führt.

Grüße
TurboMagic

[Frickler]

Um Dinge ein- und auszublenden, die sich untereinander befinden, nutze ich gerne Child-Bands, die dann visible oder nicht visible gestellt werden. Die Property "PrintChildifInvisible" aller Bänder muss dafür true sein, sonst werden alle Child-Bänder unterhalb nicht mehr angezeigt.