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;
Partager