Bonjour,

Comment peut-on faire en sorte qu'un shape mis dans chaque ligne d'un "databand" varie (par Ex. la couleur) en fonction d'un champs courant du record. J'ai essayé de mettre dans l'event OnBeforePrint (de la DataBand et de l'object lui-même) la conversion valeur/couleur mais ca ne marche pas. Quelle est l'event à utiliser et comment trouver la valeur courante du champs?

Merci de votre aide,
Eddy

VCL Fastreport

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
procedure DataBandOnBeforePrint(Sender: TfrxComponent);
begin
  if <Sample.CFRStatus> = '0' then
    shCFR.Visible := False
  else
  begin              
    shCFR.Visible := True;  
    if <Sample.CFRStatus> = '2' then
      shCFR.Color := clRed
    else
    if <Sample.CFRStatus> = '1' then
      shCFR.Color := clGreen;
  end;  
end;  
 
procedure shCFROnBeforePrint(Sender: TfrxComponent);
begin
  if <Sample.CFRStatus> = '0' then
    shCFR.Visible := False
  else
  begin              
    shCFR.Visible := True;  
    if <Sample.CFRStatus> = '2' then
      shCFR.Color := clRed
    else
    if <Sample.CFRStatus> = '1' then
      shCFR.Color := clGreen;
  end;  
end;