Discussion :

[Beauserge]

Bonjour

J'ai un TEdit qui est le total d'une somme (le contenu est un chiffre à 2 décimales et peut être positif ou négatif)
Je cherche un moyen de faire changer la couleur du TEdit- en rouge dans mon code - si le chiffre est négatif (type : -140,54)
Mon code ci dessous fonctionne mais uniquement si le chiffre est positif ? pas si le chiffre est négatif ...

Quelqu'un à t'il la solution ?

Merci
A vous lire
Beauserge

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button5Click(Sender: TObject);
var
entierdecimal:integer;
begin
entierdecimal:= StrToIntDef(Edsolde.text, -1);
   if entierdecimal = -1 then
   Edsolde.color:= clred
end;

[anapurna]

salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function GetColor(value : Real) : TColor ;
begin
   Result := Black;
   if value<0 Then
     Result := ClRed;
end;
 
 
procedure TForm1.Button5Click(Sender: TObject);
begin
   Edsolde.color:= GetColor(StrToFloat(Edsolde.text));
end;

[Beauserge]

Bonjour Anapurna

ton code fonctionne sauf que le compilateur me déclare la variable Black pas initialisée !

Je l'ai déclaré en Tcolor dans les variables mais le problème est identique.
J'ai du mal à saisir pourquoi

Ce n'est pas grave car ça fonctionne.....

A te lire si tu as une idée pour y remédier
Beauserge

[SergioMaster]

Bonjour,

ton code fonctionne sauf que le compilateur me déclare la variable Black pas initialisée !

peut être parce qu'il voulait écrire clBlack, le TColor mais que, habitué à FMX, il a pensé au TAlphaColorRec Black

note : question de style, j'aurai écrit

Code :

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

1
2
3
4
5
6
 
Function GetColor(value : Real) : TColor ;
begin
   if value<0 then Result := clRed
                 else Result :=clBlack;
end;

[Beauserge]

oui tu as raison, le code est beaucoup plus simple et clair dans ton dernier post - et le problème de variable est réglé !

Merci encore Anapurna
Beauserge