Verification entier supérieur à Zéro dans listbox et affichage item couleur

Bonjour

J'ai une listbox qui contient des 0 ou chiffres entiers sur plusieurs lignes et je cherche un moyen de vérifier si le chiffre d'une ligne n'est pas un "0", alors l'item en question changerait de couleur.

pour l'instant j'ai bidouillé un bout de code (ci dessous) mais ça coince au niveau du ... (... value)>0
et l'instruction après le then (est un indicateur avec un label) mais serait remplacé par le code pour changement de couleur par la suite

Merci d'avance pour vos éclairages

A vous lire
Beauserge

Code:

---

1 2 3 4 5 6 7 8

// test si valeur supérieur à zéro dans écart listbox (si oui alors la ligne est mise en surbrillance) procedure TfrmMain.Button2Click(Sender: TObject); var value:integer; begin if TryStrToInt(ListEcart.items[17],value)>0 then label4.Caption := 'écart' end;

---

Bonsoir,

Atttention, TryStrToInt retourne un booléen... La valeur entière correspondant à la string est dans le second paramètre de la fonction TryStrToInt.
Dans votre cas, il faudrait faire :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TfrmMain.Button2Click(Sender: TObject); var value:integer; begin if TryStrToInt(ListEcart.items[17],value) then begin if value > 0 then label4.Caption := 'écart'; end; end;

---

Une autre solution serait d'utiliser StrToIntDef :

Code:

---

1 2 3 4 5 6 7 8

procedure TfrmMain.Button2Click(Sender: TObject); var value:integer; begin if StrToIntDef(ListEcart.items[17],-1) <> -1 then label4.Caption := 'écart'; end;

---

StrToIntDef renvoie la valeur entière issue de la string, et si la string ne peut être convertie en integer, StrToIntDef renvoie la valeur par défaut (le second paramètre).

Bonjour et Merci gbegreg

J'ai opté pour la 1ere solution qui convient parfaitement.

ça s'est réglé, par contre connais tu un code pour changer la couleur d'un item dans une listbox à l'exécution ?

Beauserge

La FAQ n'a pas réponse à tout, mais un bon réflexe est de s'y reporter pour trouver rapidement une réponse à ses questions !

Tourlourou

J'avais déjà trouvé dans la FAQ cette discussion et testé la procédure mais chez moi le code ne fonctionne pas .....

Cordialement
Beauserge

Citation:

---

Envoyé par Beauserge

J'avais déjà trouvé dans la FAQ cette discussion et testé la procédure mais chez moi le code ne fonctionne pas .....

---

C'est curieux... Quelle version de Delphi utilisez vous ? Avez vous activé un thème à votre application ?

Je code avec D7 edition personnelle

J'ai réussi après ajustement à compiler ce code mais ce n'est pas ce que je recherche.
Je vais essayer de trouver un autre moyen.

Merci
Beauserge

Si le but demeure de colorier la fonte utilisée en fonction de la valeur de l'item du listbox, ce n'est pas l'index qu'il faut tester, mais la valeur de l'item à dessiner, dont l'index est passé en argument.
Autrement dit, il suffit de remplacer dans le code de la FAQ if index = 1 then par if StrToIntDef(Items[index], 0) > 0) then.

oui le but c'est cela .
j'ai repris ton code en supprimant la dernière parenthèse inutile et l'ai adapté à ma listbox (voir mon code ci dessous) mais cela me colorie tous les items si zéro ou pas
ce que je souhaite c'est uniquement colorier l'item si supérieur à zéro (pas ceux à zéro)

Cordialement
Beauserge

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TfrmMain.ListEcartDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with(Control as TListBox).Canvas do // Le dessin se fait sur le canevas du contrôle, pas dans la fiche begin // On choisit les couleurs en fonction de l'index if StrToIntDef(ListDif.Items[index], 0) > 0 then begin Brush.Color:=clyellow; // couleur du fond en jaune Font.Color:=clblack; // police de l'item en noir end; FillRect(Rect); // Efface le rectangle // Dessin du texte TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);//affiche le texte end; end;

---

Et quelles devraient être les couleurs si la valeur est <= 0 ?
Ne va pas croire que les propriétés du canvas sont réinitialisées avant l'appel à DrawItem ;)

Bonjour Andnotor

peu importe la couleur ... (c'est juste pour bien mettre en évidence les 0 des autres chiffres)

exemple : pour chaque item égal à zéro = fond bleu
et pour chaque item supérieur à zéro = fond jaune

Sinon j'ai pas compris quand tu dis "Ne va pas croire que les propriétés du canvas sont réinitialisées avant l'appel" ?

Beauserge

Citation:

---

Envoyé par Beauserge

Sinon j'ai pas compris quand tu dis "Ne va pas croire que les propriétés du canvas sont réinitialisées avant l'appel" ?

---

Tant que les valeurs sont toutes inférieures à zéro, ce sont les couleurs de base. Dès qu'une valeur est plus grande, tu passes définitivement en noir/jaune.
Il faut traiter les deux cas (plus State si tu veux garder la surbrillance).

Code:

---

1 2 3 4 5 6 7 8 9 10

if StrToIntDef(ListDif.Items[index], 0) > 0 then begin Brush.Color:=clyellow; Font.Color:=clblack; end else begin Brush.Color:=clWindow; Font.Color:=clWindowText; end;

---

avec ton code, les valeurs ne s'affichent même plus et les couleurs ne changent pas !

j'ai modulé le code (ci après) et ça fonctionne parfaitement !

Merci Andnotor et tous ceux qui m'ont aidé sur ce sujet.
Ce bout de code pourra peut être aider aussi d'autres utilisateurs Delphi ......

Beauserge

Pièce jointe 258270

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TfrmMain.ListEcartDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with(Control as TListBox).Canvas do // Le dessin se fait sur le canevas du contrôle, pas dans la fiche begin // On choisit les couleurs en fonction de l'index if StrToIntDef(ListEcart.Items[index], 0) > 0 then begin Brush.Color:=clyellow; // couleur du fond en jaune Font.Color:=clblack // police de l'item en noir   end; FillRect(Rect); // Efface le rectangle // Dessin du texte TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]);//affiche le texte end; end;

---