Discussion :

[FOCUS77]

Bonjour à tous,

Il y'a sûrement des développeurs, qui utilisent Lazreport, et qui se sont demandés comment afficher
les valeurs d'un champ avec des mises en forme différentes selon un certain critère.
Après une multitude d'essais, je suis arrivé à le réaliser.

Donc cet exemple montre comment appliquer les deux couleurs verte (valeurs positives) ou rouge (valeurs négatives)
à un mémo d'état affichant les valeurs du champ: [MDR.RPmtJour."MNT_PMTA"] d'une requête.

Script:


Résultat:


EDI: Lazarus 1.8 RC2.
Dataset: Sqlquery.
SGDB: Firbird 2.5.7

merci.

[FOCUS77]

Bonjour à tous,

Il existe une autre méthode pour personnaliser la vue d'un état, c'est avec l'évènement OnEnterRect de frReport.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
begin
 
        View.FillColor:=clWhite;   //initialisation de la couleur de remplissage.
        View.FrameColor:=clNavy;
 
        if View .Name = 'Memox' then      //fixation de Memo à traiter.
         if Query.FieldByName('Champ').AsString='str' then   //fixation de la valeur à traiter.
 
        begin Memo.Text := 'Mystr' ;View.FillColor:=clSilver; TfrMemoView(View).Font.Color:= clRed; TfrMemoView(View).Font.Style:=[fsItalic] end
 
        else begin TfrMemoView(View).Font.Color:= clBlack; TfrMemoView(View).Font.Style:=[] end;
 
end;