Delphi-FastReport VCL 5 Surlignement conditionnel

Question

J'ai lu this manual, et je le suis, mais le highlighting ne fonctionne pas.

Qu'est-ce que j'ai?

• Créer une nouvelle application VCL.

• Supprimez les composants TEdit et TButton sous la forme (pour transmettre la valeur).

• Supprimez un TfrxReport sur le formulaire.

• Ouvrez le rapport en mode Création.

• Supprimez une bande ReportTile dans la page de rapport.

• Supprimez un TfrxMemoView dans la bande ReportTitle.

• Ajouter conditions:

  1- Value <= 0 -> Red color 
  2- Value > 0 -> Green color 
  

La couleur de remplissage de la note encore Black même la valeur est >0 ou <=0.

La question:

Pourquoi ces conditions ne fonctionne pas? et comment puis-je faire fonctionner les conditions?

Mise à jour:

La valeur a été adoptée à la composante TfrxMemoView comme:

procedure TForm1.Button1Click(Sender: TObject); 
Var Mem : TfrxMemoView; 
begin 
Mem := frxReport1.FindObject('Memo1') as TfrxMemoView; 
Mem.Text := Edit1.Text; 
frxReport1.ShowReport(); 
end; 

Answer 1

Aucune des règles est appliquée parce que la Valeur propriété reste NULL . Pour attribuer une valeur constante à partir du code Delphi vous pouvez écrire une expression constante, par exemple:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Memo: TfrxMemoView; 
begin 
    Memo := frxReport1.FindObject('Memo1') as TfrxMemoView; 
    Memo.Text := Format('[%s]', [Edit1.Text]); 
    frxReport1.ShowReport; 
end; 

Dans le code ci-dessus, j'ai omis vérifier si le contrôle a été trouvé. Et, vous devez faire attention avec le texte d'entrée. Il n'accepte que les valeurs à virgule flottante dans un format qui ne doit pas entrer en collision dans le séparateur décimal avec les séparateurs définis dans la propriété ExpressionDelimiters.

Ou simplement définir la valeur propriété ainsi:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Memo: TfrxMemoView; 
begin 
    Memo := frxReport1.FindObject('Memo1') as TfrxMemoView; 
    Memo.Text := Edit1.Text; 
    Memo.Value := StrToFloat(Edit1.Text); 
    frxReport1.ShowReport; 
end; 

Dans celui-ci le contrôle si le contrôle a été trouvé il manque aussi. Et la conversion en float n'est pas nécessaire là. Le Valeur peut être juste une chaîne convertible pour flotter.