problème avec Composant TMonthCalendar

Bonjour,

je voudrais forcer l'affichage de ce TMonthCalendar à partir d'une date de mon choix et je n'y parviens pas.

Lorsque j'affecte une valeur à la propriété Date de mon contrôle, cela plante.

Ceci ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TfrmComponentSampler::FormCreate(TObject *Sender) { TDate date; if (TryEncodeDate (2012, 07, 01, date)) { mnthclndrMonth->Date = date; } }

---

mais ceci fonctionne (meme si inutile)

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TfrmComponentSampler::FormCreate(TObject *Sender) { TDate date;   date = mnthclndrMonth->Date; mnthclndrMonth->Date = date;     }

---

Faut-il initialiser d'abord une autre propriété (EndDate) ou quelle est mon erreur ?

merci d'avance.:aie:

Re,

j'ai trouvé une solution qui fonctionne.

Le problème semble être lié au fait que la date sélectionnée n'est pas dans la plage affichée. .

Je force donc MinDate à la date avant pour lui faire accepter.

Code:

---

1 2 3 4

mnthclndrMonth->MinDate = date; mnthclndrMonth->Date = date; mnthclndrMonth->MinDate = IncYear(Now(), -2); mnthclndrMonth->MaxDate = IncYear(Now(), 2);

---

Salut Godzestla
Ceci fonctionne

Code:

---

1 2 3 4 5 6 7

void __fastcall TForm1::FormCreate(TObject *Sender) { // ne pas oublier #include "systdate.h" String date = "18/10/2010"; MonthCalendar1->Date = date; }

---

Pour info, sous BCB5 TryEncodeDate n'existe pas, mais ceci fonctionne:

Code:

---

1 2	TDate d = EncodeDate( 2019,10, 18 ) ; MonthCalendar1->Date = d;

---

:

Bonjour,

@Blondelle :

Citation:

---

Salut Godzestla
Ceci fonctionne

v

Code:

---

1 2 3 4 5

oid __fastcall TForm1::FormCreate(TObject *Sender) { // ne pas oublier #include "systdate.h" String date = "18/10/2010"; MonthCalendar1->Date = date;

---

}

---

non désolé, je viens d'essayer et cela plante avec : ... n'est pas une date valide sur la ligne en gras. Je suis sous C++Builder XE.

@Sat83 :

Merci, mais avec ce code simplifié, j'obtiens :l'erreur "failed to set calendar selected range".

je laisse donc mes init de MinDate et EndDate.

Je suis sous BCB6, je pense que cela est du a la gestion unicode de XE, il doit y avoir une conversion de chaine a faire

Citation:

---

Envoyé par blondelle

Je suis sous BCB6, je pense que cela est du a la gestion unicode de XE, il doit y avoir une conversion de chaine a faire

---

Merci. Je vais y prendre garde.
Dans ma solution je converti la date (année) passée en param (type string) en Int que j'utilise dans le TryEncodedate comme premier parametre et cela fonctionne très bien).

L'appel est fait par Access ou je vérifie que mon parm est conforme aux attentes, donc c'est ok.