Discussion :

[OutOfRange]

Bonjour
Et bonne année 2008 à toutes et tous

Pour limiter la saisie d'une date via un TDateTimePicker à une année civile donnée, sélectionnée dans un TComboBox, je fais

Code :

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

1
2
    CalAjoutOp.MinDate:=encodedate(strtoint(ListAnnees.Text),1,1);
    CalAjoutOp.MaxDate:=encodedate(strtoint(ListAnnees.Text),12,31);

Lorsque je change l'année dans ma ComboBox, par ex de 2007 je passe à 2008, je fais

Code :

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

1
2
3
4
5
procedure Tpal.ListAnneesChange(Sender: TObject);
begin
    CalAjoutOp.MinDate:=encodedate(strtoint(ListAnnees.Text),1,1);
    CalAjoutOp.MaxDate:=encodedate(strtoint(ListAnnees.Text),12,31);
end;

Et là, ça déclenche une exception, car le MinDate que je demande est postérieur au Maxdate.
Ce qui se comprend d'un point de vue logique, mais est aberrent du point de vue de la manipulation de ce compo
Et si j'essaie de contourner le pb en fixant d'abord le MaxDate, je retrouve la même exception en passant cette fois de 2008 à 2007
Même si l'exeception ne plante pas le programme, c'est pas... disons intellectuellemnt satisfaisant

Si qqn a une soluce, je suis preneur

-----------------------------------------
Oups! j'aurais du ouvrir la discussion dans le sous forum composants

[sjrd]

Ben la soluce c'est de tester si la nouvelle date est inférieure ou supérieure à la première, et selon le cas, modifier d'abord MinDate ou MaxDate

[Cl@udius]

Salut

Mets MinDate à 0, définis MaxDate puis MinDate:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Annee: Word;
begin
  with TComboBox(Sender) do Annee := StrToInt(Items[ItemIndex]);
  with DateTimePicker1 do
  begin
    MinDate := 0;
    MaxDate := EncodeDate(Annee, 12, 31);
    MinDate := EncodeDate(Annee, 1, 1);
  end;
end;

@+ Claudius

[OutOfRange]

Ben voilà

Les idées les plus simples sont souvent les plus pertinentes.

Fallait juste réfléchir un peu
On va mettre ça sur le compte du réveillon...

Merci les gars

N'empêche que le choix du concepteur du compo est discutable : si je définit un MinDate postérieur à "l'ancien MaxDate", c'est que logiquement cette dernière doit aussi être modifiée. On aurait pu imaginer dans ce cas, un MaxDate qui prend automatiquement la même valeur que le nouveau MinDate...

Bon, je sais ça se discute