Forum > LazReport

Changing Memo and Variables in runtime

(1/1)

hamacker:
Hi ALL,
I´am newbie with fp-report, and I need to create my first report using them.
I choose fp-report because is not dependend from GUI and very similar with FastReport(Delphi).
So, how Can I change visual components  with fp-report?
Using FastReport, I do:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---  // components  if frx_Report.FindObject('LBL_VL_TOTAL')<>nil then  begin    TfrxMemoView(frx_Report.FindObject('LBL_VL_TOTAL')).Memo.Text:='Valor em REAIS';  end    if frx_Report.FindObject('header_logo')<>nil then  begin    TfrxPictureView(frx_Report.FindObject('header_logo')).Hyperlink.Kind:=hkURL;    TfrxPictureView(frx_Report.FindObject('header_logo')).Hyperlink.Value:=link2site_nosso.text;    TfrxPictureView(frx_Report.FindObject('header_logo')).Picture.LoadFromFile(edtImg_Header.Text);  end;    
How I do the same with fp-report?

madref:
I use this:
I created a OnEnterRect procedure.


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm_Lint.frReport_EvaluatieEnterRect(Memo: TStringList; View: TfrView);var i: integer;begin  case Form_Wedstrijd_Overzicht.Wedstrijd_Rapport of    'rpt_Betalingen_Club.lrf', 'rpt_Evaluatie_Overzicht_Alle.lrf',    'rpt_Evaluatie_Overzicht_Seizoen.lrf', 'rpt_Referee_Info.lrf',    'rpt_Referee_Skills.lrf', 'rpt_Wedstrijden_Alle.lrf', 'rpt_Wedstrijden_Club.lrf',    'rpt_Wedstrijden_Overige.lrf', 'rpt_Wedstrijden_Seizoen.lrf',    'rpt_Wedstrijden_Toernooi.lrf' :         begin           if View.Name = 'Memo_Titel' then begin             case KleurPop of               Oranje : View.FillColor := Oranje;  // Oranje               Rood   : View.FillColor := Rood;    // Rood               Blauw  : View.FillColor := Blauw;   // Blauw               Groen  : View.FillColor := Groen;   // Groen               Paars  : View.FillColor := Paars;   // Paars               Geel   : View.FillColor := Geel;    // Geel             end;  // case           end;  // if         end;    'rpt_Declaratie.lrf', 'rpt_Declaratie_Leeg.lrf' :         begin           // bij deze rapporten staat een logo           if (View.Name = 'Picture1') or (View.Name = 'Picture2') then begin             if (View as TfrPictureView).Visible then              (View as TfrPictureView).Picture.LoadFromFile(Rapport_Logo)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;    'rpt_CoachingSheet_2023.lrf' :         begin           // bij dit rapport staat een logo           if (View.Name = 'Picture1') then begin             if (View as TfrPictureView).Visible then              (View as TfrPictureView).Picture.LoadFromFile(Rapport_Logo)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;    'rpt_Straffen_2018_NIJB.lrf' :         begin           case Shirt_Style of             1 : i := 1;             2 : i := 20;             3 : i := 32;           end; // case           if (View.Name = 'Picture2') or (View.Name = 'Picture4') then begin             if (View as TfrPictureView).Visible then                 Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;    'rpt_Straffen_2018_BeNe.lrf' :         begin           case Shirt_Style of             1 : i := 2;             2 : i := 21;             3 : i := 33;           end; // case           if (View.Name = 'Picture1') or (View.Name = 'Picture3') then begin             if (View as TfrPictureView).Visible then              (View as TfrPictureView).Picture.LoadFromFile(Rapport_Logo)             else              (View as TfrPictureView).Picture.Clear;           end;  // if           if (View.Name = 'Picture2') or (View.Name = 'Picture4') then begin             if (View as TfrPictureView).Visible then                 Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;    'rpt_Evaluatie_2018_NIJB_Referee.lrf', 'rpt_Evaluatie_2019_NIJB_Referee.lrf',    'rpt_Evaluatie_2022_NIJB_Referee.lrf':         begin           case Shirt_Style of             1 : i := 1;             2 : i := 20;             3 : i := 32;           end; // case           if (View.Name = 'Picture1') then begin             if (View as TfrPictureView).Visible then                 Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;    'rpt_Evaluatie_2018_NIJB_Linesman.lrf', 'rpt_Evaluatie_2019_NIJB_Linesman.lrf',    'rpt_Evaluatie_2022_NIJB_Linesman.lrf':         begin           case Shirt_Style of             1 : i := 14;             2 : i := 26;             3 : i := 38;           end; // case           if (View.Name = 'Picture1') then begin             if (View as TfrPictureView).Visible then                 Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;    'rpt_Evaluatie_2018_BeNe_Referee.lrf', 'rpt_Evaluatie_2019_BeNe_Referee.lrf',    'rpt_Evaluatie_2022_BeNe_Referee.lrf':         begin           case Shirt_Style of             1 : i := 2;             2 : i := 21;             3 : i := 33;           end; // case           if (View.Name = 'Picture1') then begin             if (View as TfrPictureView).Visible then                 Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;    'rpt_Evaluatie_2018_BeNe_Linesman.lrf', 'rpt_Evaluatie_2019_BeNe_Linesman.lrf',    'rpt_Evaluatie_2022_BeNe_Linesman.lrf' :         begin           case Shirt_Style of             1 : i := 15;             2 : i := 27;             3 : i := 39;           end; // case           if (View.Name = 'Picture1') then begin             if (View as TfrPictureView).Visible then                 Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)             else              (View as TfrPictureView).Picture.Clear;           end;  // if         end;  end; // caseend;     // frReport_EvaluatieEnterRect 

hamacker:
Thank you, I´am still learning.
I have experience with others reports editor, but none with fp-report.

Navigation

[0] Message Index

Go to full version