Discussion :

[Sunchaser]

Bonsoir,

J'ai viens de tomber sur un os...Dans un TDateTimePicker, avec la propriété Kind a dtkTime, j'ai besoin de 'bloquer' le changement des valeurs pour les minutes afin qu'il ne soit possible de se déplacer que de quart d'heure en quart d'heure...
Je ne sais pas vraimment comment m'y prendre.
J'ai bien peur de devoir passer par un composant 'fait main', dérivé de TDateTimePicker ou d'un ancêtre du même genre.Cela ne s'enchante guère a priori surtout parceque je n'ai - la non plus - pas trop d'idée pour savoir par ou commencer.
Avez vous des idées a ce sujet ?

Sinon, ya peut être des composants de ce genre sur le net...?

Merci
@ +

[henderson]

Salut !

Je pense qu'en dérivant de TDateTimePicker tu risques d'hériter du problème. Je serais tenté de conseiller de développer un objet fonctionnant selon ton principe.
Sous la forme d'un composant à demeure ou ponctuel ?

A plus !

[Sunchaser]

Bonjour,

Effectivement, j'etais en train d'essayer cette histoire de dérivé d'un TDateTimePicker (ou d'un TCommonCalendar ?) mais c'est pas gagné...
Sinon, a priori j'aurai plutôt vu un composant a demeure.

@ +

[blondelle]

Cantrelle a ecrit:

Bonjour,

Effectivement, j'etais en train d'essayer cette histoire de dérivé d'un TDateTimePicker (ou d'un TCommonCalendar ?) mais c'est pas gagné...
Sinon, a priori j'aurai plutôt vu un composant a demeure.

apparament c'est une combobox qui affiche soit la date soit l'heure.
est ce que tu ne peut pas utiliser une combobox et un timer qui affiche tous le 15 minutes comme tu le souhaite

[Sunchaser]

Salut,
Non, en fait il ne s'agit pas d'un problème d'affichage réglé dans le temps mais le fait de ne laisser la possibilté a l'utilisateur que de passer de quart d'heures en quart d'heures lorsqu'il selectionne un horaire.
(la propriété Kind est donc a dtkTime, pour mémoire)
Que ce soit dans le click sur les flèches 'Up-Down', soit si il tente une saisie directe de l'heure voulu dans le composant.

[henderson]

Salut !

Et dans les événements OnChange ou OnUserInput du TDateTimePicker ?

A plus !

[blondelle]

Ne peut tu pas faire un teste sur l'heure tu stock a partir de t = 0 par exemple 16h00, tu stock 16h15 ton T = 0 + 15mn, puis suivant le besoin tu fait un teste sur l'heure si elle n'est pas egale ou sup a 16h15 tu ne fais rien, sinon tu affiche 16h15 ou tu bloque l'acces a la modif et ainsi de suite
Pour les sauts de 15mn en 15mn tu utilise un timer.

[blondelle]

Tu peu entrer dans un StringGrid tes heures de 0h00 a 24h00 et en fonction de l'heure entree tu fais un teste pour savoir si l'heure entree et dans la fourchette des 15 mn et tu affiche soit l'heure inf soit l'heure sup en fonction de ce que tu a decide.

[blondelle]

Independement de l'heure tu peu faire un teste sur les minutes.

00
15
45
30

est ce que les minutes sont comprise entre 00mn et 15mn
est ce que les minutes sont comprise entre 15mn et 30mn
est ce que les minutes sont comprise entre 30mn et 45mn
est ce que les minutes sont comprise entre 45mn et 00mn
et tu excute tes conditions d'affichage

[henderson]

Salut !

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
unsigned short hour;
unsigned short min;
unsigned short sec;
unsigned short msec;
 
unsigned short year;
unsigned short month;
unsigned short day;

Code :

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

1
2
3
4
5
6
7
8
void __fastcall TForm1::DateTimePicker1Change(TObject *Sender)
{
DateTimePicker1->DateTime.DecodeDate(&year, &month, &day);
DateTimePicker1->DateTime.DecodeTime(&hour, &min, &sec, &msec);
min = (min / 15) * 15;
DateTimePicker1->Time = TDateTime(year, month, day) +
                        TDateTime(hour, min, sec, msec);
}

A améliorer sans doute !

A plus !

[Sunchaser]

Re,

Désolé, j'étais parti m'occuper du BB...
Et bien merci pour vos réponses, je viens de tester la dernière proposition d'henderson, et celle ci m'a l'air tout a fait en phase avec ce que je voulais faire.
Reste a savoir pourquoi je ne peut que modifier les minutes en cliquant sur la flèche du bas, celle du haut restant inactive. (mais si ya que ça, ça va pas trop m'handicaper)
Ah si ! J'oubliais...faut que je trouve un psy pour qu'il me dise pourquoi j'envisage toujours les solutions les plus compliquées...

Merci beaucoup pour votre aide,
Bon ap
@ +

[henderson]

Salut !

Si c'est indispensable :

Code :

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

unsigned short prev_min;

Le code pour la OnChange devient :

Code :

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

1
2
3
4
5
6
7
DateTimePicker1->DateTime.DecodeDate(&year, &month, &day);
DateTimePicker1->DateTime.DecodeTime(&hour, &min, &sec, &msec);
if((min - prev_min) == 1) min = (min + 14) % 60;
min = (min / 15) * 15;
DateTimePicker1->Time = TDateTime(year, month, day) +
                        TDateTime(hour, min, sec, msec);
prev_min = min;

Ca fonctionne bien pour les flèches mais pour une saisie par caractères... c'est un peu plus... comment dire... poétique...

A plus !

[pottiez]

Pour la saisie manuelle il suffit d'ajouter le code mis dans le OnChange dans l'evenement OnUserInput et de mettre la propriété ParseInput du TDateTimePicher à la valeur true.

Voila si ca peut aider quelqu'un