Changing Memo and Variables in runtime

[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  [Select][+][-]

1.   // components
2.   if frx_Report.FindObject('LBL_VL_TOTAL')<>nil then
3.   begin
4.     TfrxMemoView(frx_Report.FindObject('LBL_VL_TOTAL')).Memo.Text:='Valor em REAIS';
5.   end  
6.   if frx_Report.FindObject('header_logo')<>nil then
7.   begin
8.     TfrxPictureView(frx_Report.FindObject('header_logo')).Hyperlink.Kind:=hkURL;
9.     TfrxPictureView(frx_Report.FindObject('header_logo')).Hyperlink.Value:=link2site_nosso.text;
10.     TfrxPictureView(frx_Report.FindObject('header_logo')).Picture.LoadFromFile(edtImg_Header.Text);
11.   end;  
12.  

How I do the same with fp-report?

[madref]

I use this:
I created a OnEnterRect procedure.

Code: Pascal  [Select][+][-]

1. procedure TForm_Lint.frReport_EvaluatieEnterRect(Memo: TStringList; View: TfrView);
2. var i: integer;
3. begin
4.   case Form_Wedstrijd_Overzicht.Wedstrijd_Rapport of
5.     'rpt_Betalingen_Club.lrf', 'rpt_Evaluatie_Overzicht_Alle.lrf',
6.     'rpt_Evaluatie_Overzicht_Seizoen.lrf', 'rpt_Referee_Info.lrf',
7.     'rpt_Referee_Skills.lrf', 'rpt_Wedstrijden_Alle.lrf', 'rpt_Wedstrijden_Club.lrf',
8.     'rpt_Wedstrijden_Overige.lrf', 'rpt_Wedstrijden_Seizoen.lrf',
9.     'rpt_Wedstrijden_Toernooi.lrf' :
10.          begin
11.            if View.Name = 'Memo_Titel' then begin
12.              case KleurPop of
13.                Oranje : View.FillColor := Oranje;  // Oranje
14.                Rood   : View.FillColor := Rood;    // Rood
15.                Blauw  : View.FillColor := Blauw;   // Blauw
16.                Groen  : View.FillColor := Groen;   // Groen
17.                Paars  : View.FillColor := Paars;   // Paars
18.                Geel   : View.FillColor := Geel;    // Geel
19.              end;  // case
20.            end;  // if
21.          end;
22.     'rpt_Declaratie.lrf', 'rpt_Declaratie_Leeg.lrf' :
23.          begin
24.            // bij deze rapporten staat een logo
25.            if (View.Name = 'Picture1') or (View.Name = 'Picture2') then begin
26.              if (View as TfrPictureView).Visible then
27.               (View as TfrPictureView).Picture.LoadFromFile(Rapport_Logo)
28.              else
29.               (View as TfrPictureView).Picture.Clear;
30.            end;  // if
31.          end;
32.     'rpt_CoachingSheet_2023.lrf' :
33.          begin
34.            // bij dit rapport staat een logo
35.            if (View.Name = 'Picture1') then begin
36.              if (View as TfrPictureView).Visible then
37.               (View as TfrPictureView).Picture.LoadFromFile(Rapport_Logo)
38.              else
39.               (View as TfrPictureView).Picture.Clear;
40.            end;  // if
41.          end;
42.     'rpt_Straffen_2018_NIJB.lrf' :
43.          begin
44.            case Shirt_Style of
45.              1 : i := 1;
46.              2 : i := 20;
47.              3 : i := 32;
48.            end; // case
49.            if (View.Name = 'Picture2') or (View.Name = 'Picture4') then begin
50.              if (View as TfrPictureView).Visible then
51.                  Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)
52.              else
53.               (View as TfrPictureView).Picture.Clear;
54.            end;  // if
55.          end;
56.     'rpt_Straffen_2018_BeNe.lrf' :
57.          begin
58.            case Shirt_Style of
59.              1 : i := 2;
60.              2 : i := 21;
61.              3 : i := 33;
62.            end; // case
63.            if (View.Name = 'Picture1') or (View.Name = 'Picture3') then begin
64.              if (View as TfrPictureView).Visible then
65.               (View as TfrPictureView).Picture.LoadFromFile(Rapport_Logo)
66.              else
67.               (View as TfrPictureView).Picture.Clear;
68.            end;  // if
69.            if (View.Name = 'Picture2') or (View.Name = 'Picture4') then begin
70.              if (View as TfrPictureView).Visible then
71.                  Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)
72.              else
73.               (View as TfrPictureView).Picture.Clear;
74.            end;  // if
75.          end;
76.     'rpt_Evaluatie_2018_NIJB_Referee.lrf', 'rpt_Evaluatie_2019_NIJB_Referee.lrf',
77.     'rpt_Evaluatie_2022_NIJB_Referee.lrf':
78.          begin
79.            case Shirt_Style of
80.              1 : i := 1;
81.              2 : i := 20;
82.              3 : i := 32;
83.            end; // case
84.            if (View.Name = 'Picture1') then begin
85.              if (View as TfrPictureView).Visible then
86.                  Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)
87.              else
88.               (View as TfrPictureView).Picture.Clear;
89.            end;  // if
90.          end;
91.     'rpt_Evaluatie_2018_NIJB_Linesman.lrf', 'rpt_Evaluatie_2019_NIJB_Linesman.lrf',
92.     'rpt_Evaluatie_2022_NIJB_Linesman.lrf':
93.          begin
94.            case Shirt_Style of
95.              1 : i := 14;
96.              2 : i := 26;
97.              3 : i := 38;
98.            end; // case
99.            if (View.Name = 'Picture1') then begin
100.              if (View as TfrPictureView).Visible then
101.                  Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)
102.              else
103.               (View as TfrPictureView).Picture.Clear;
104.            end;  // if
105.          end;
106.     'rpt_Evaluatie_2018_BeNe_Referee.lrf', 'rpt_Evaluatie_2019_BeNe_Referee.lrf',
107.     'rpt_Evaluatie_2022_BeNe_Referee.lrf':
108.          begin
109.            case Shirt_Style of
110.              1 : i := 2;
111.              2 : i := 21;
112.              3 : i := 33;
113.            end; // case
114.            if (View.Name = 'Picture1') then begin
115.              if (View as TfrPictureView).Visible then
116.                  Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)
117.              else
118.               (View as TfrPictureView).Picture.Clear;
119.            end;  // if
120.          end;
121.     'rpt_Evaluatie_2018_BeNe_Linesman.lrf', 'rpt_Evaluatie_2019_BeNe_Linesman.lrf',
122.     'rpt_Evaluatie_2022_BeNe_Linesman.lrf' :
123.          begin
124.            case Shirt_Style of
125.              1 : i := 15;
126.              2 : i := 27;
127.              3 : i := 39;
128.            end; // case
129.            if (View.Name = 'Picture1') then begin
130.              if (View as TfrPictureView).Visible then
131.                  Form_Lint.ImageList_Shirts.GetBitmap(i,(View as TfrPictureView).Picture.Bitmap)
132.              else
133.               (View as TfrPictureView).Picture.Clear;
134.            end;  // if
135.          end;
136.   end; // case
137. end;     // frReport_EvaluatieEnterRect
138.  

[hamacker]

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