Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RSF,
13. Jul 2008
Nach langen Suchen habe ich selbst die Lösung für FastReport 4 gefunden.
procedure THauptformular.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
if Sender.Name='Rich1'then
Begin
IF Wartungsvertrag.Label1.Tag = 0 Then
TfrxRichView(Sender).RichEdit.Lines.LoadFromFile(Label25.Caption+'Vertrag\'+IntToStr(DataModule2.Anlage.FieldByName ('ID_Anlage').AsInteger)+'_V.rtf');
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RSF,
13. Jul 2008
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.
procedure THauptformular.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
if View.Name='Rich1'then
Begin
IF Wartungsvertrag.Label1.Tag = 0 Then