Discussion :

[cincap]

Bonjour à toutes et à tous,

De retour à la maison et devinez quoi pour me changer les idées, ouvrir Delphi.

Je me demandais avec ce code si c'était possible et si il n'y avait pas quelqu'un pour le simplifier.

Un TlistBox = LB_tri

Un Item (tous les trimestres soit 4)

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
On create :
 
Edmois.Text := FormatDateTime('mm', date) ;
 
Onpaint :
 
if LB_tri.Items.Count > 0 then
begin
 
 if (edmois.text = '03') then begin
 
 Lb_tri.Selected[0] :=true;
 
 end;
 
 
 if (edmois.text = '06') then begin
 
 Lb_tri.Selected[0] :=true;
 
 Lb_tri.Selected[1]:= True ;
 
 end;
 
 
 if (edmois.text = '09') then begin
 
 Lb_tri.Selected[0] :=true;
 
 Lb_tri.Selected[1]:= True ;
 
 Lb_tri.Selected[2]:= True ;
 
end;
 
 if (edmois.text = '12') then 
 
 Lb_tri.Selected[3] :=true;
 
if (edmois.text = '01') then
Lb_tri.ClearSelection();
end;
end;

En vous remerciant,

@+,

cincap

[ShaiLeTroll]

Vite fait

Code :

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

1
2
3
4
Lb_tri.Selected[0] := (edmois.text = '03') or  (edmois.text = '06') or  (edmois.text = '09');
  Lb_tri.Selected[1]:=  (edmois.text = '06') or  (edmois.text = '09');
 Lb_tri.Selected[2]:=  (edmois.text = '09');
Lb_tri.Selected[3] := (edmois.text = '12';

Et encore avec un calcul de mod div 3 puisque que 3 6 9 12 c'est mutliple de 3 on trouve vite 0 1 2 3

[cincap]

@ ShaiLeTroll, merci de ta réponse même un dimanche !

Ton code fonctionne tout en remettant la parenthèse pour l'item 4.

Mais lorsque le mois 12 arrive j'aimerai garder sélectionné les 3 items (3,6,9) + le 4ième (12).

Si le mois est '03' c'est ok mais si le mois est '04', '03' se désélectionne.

Si le mois est '12' les 3 autres mois sont désélectionné.

Avec mon code non tout est ok c'est pour cela que je chipote.

Désolé je n'avais pas précisé.

@+,

cincap

[ShaiLeTroll]

si tu veux un code plus proche du précédent

Code :

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

1
2
3
4
5
6
7
8
if  (edmois.text = '03') or  (edmois.text = '06') or  (edmois.text = '09')then
Lb_tri.Selected[0] := True;
if (edmois.text = '06') or  (edmois.text = '09')then
  Lb_tri.Selected[1]:= True ;
if    (edmois.text = '09') then
Lb_tri.Selected[2]:= True;
if    (edmois.text = '12') then
Lb_tri.Selected[3] := True;

Je suppose que tu avais déjà extrapolé ce code à partir du précédent fourni

[cincap]

Bonjour à toutes et à tous,

@ ShaiLeTroll, merci de ta participation et ta suggestion.

Je suppose que tu avais déjà extrapolé ce code à partir du précédent fourni

En effet mais je pensais que le code aurait pu se réduire avant de l'adapter.

L'idée c'est de vérifier le payement d'une rente trimestrielle (uniquement pour passer mon temps!).

Et c'est fait, par conséquent topic résolut.

Merci encore,

@+,

cincap

[kaitlyn]

Salut,

Peut-être quelque chose comme

Code pseudocode :

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

1
2
3
n= strtoint(mois)/3
for i=0 to 3
    sel[i]= n>i