Bei der Anpassung meines Projektes habe ich ein Problem mit dem
Reportdesigner FastReport.
In der FastReport Version 2.4 hatte ich im Hauptformular das Ereignis
OnBeforePrint von FrReport1 folgenden Inhalt gehabt.
Delphi-Quellcode:
procedure THauptformular.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
if View.Name='Rich1'then
Begin
IF Wartungsvertrag.Label1.Tag = 0 Then
TfrRichView(View).RichEdit.Lines.LoadFromFile(Label25.Caption+'Vertrag\'+IntToStr(DataModule2.Anlage.FieldByName ('ID_Anlage').AsInteger)+'_V.rtf');
IF Wartungsvertrag.Label1.Tag = 1 Then
TfrRichView(View).RichEdit.Lines.LoadFromFile(Label25.Caption+'Vertrag\RLT'+IntToStr(DataModule2.RLT.FieldByName ('Autoinc').AsInteger)+'_V.rtf');
end;
end;
Ziel war es zwei RTF-Dateien zur Laufzeit in FrReport1 zu laden. Unter FastReport 2.4 kein Problem
aber unter Version 4.x geht das so nicht. Kann mir jemand helfen?