Formatage de date dans TDateEdit

Bonjour

Quand je clique sur une date dans calendrier dans un TDateEdit la date récupérée est du type 2-4-15

Y-a-t' il une propriété ou une méthode pour reformater cette date genre 02/04/2015 dans le composant ?

NB pour Info je suis sous Linux avec Lazarus 1.2.6

Pièce jointe 175581

Bien cordialement

Yop !

Citation:

---

Envoyé par joreveur

Y-a-t' il une propriété ou une méthode pour reformater cette date genre 02/04/2015 dans le composant ?

---

Propriété DateOrder et tu choisis doDMY.

Attention, l'éditeur passera en mode TMaskEdit, mais au moins l'affichage est formaté comme tu veux.

Salut

(sur Debian moi aussi, problème reproduit)
Après lecture des sources et un peu de tâtonnement, on trouve une solution (bricolée):

Code:

---

1 2 3 4

DefaultFormatSettings.DateSeparator := '/'; DateEdit1.Clear; DateEdit1.DateOrder := doDMY; // faisable avec l'inspecteur d'objet

---

Le composant est mal foutu... il impose un choix limité de format de date (je n'ai regardé que cela) via un type énuméré.
L'appel à clear permet de mettre à jour le format immédiatement.

La variable DefaultFormatSettings.DateSeparator prend la valeur '-' alors que les paramètres système semble indiquer '/', le problème se tient dans l'unité SysUtils et plus précisément dans sysinth.inc, les valeurs par défaut sont en dur et ne semblent pas reprises depuis les paramètres système, c'est ballot. Pour contourner le problème, il suffit donc de forcer la valeur au démarrage du programme.

Sujet à approfondir...

re-salut

Il existe une fonction GetFormatSettings qui permet de reprendre les paramètre système locaux mais elle est disponibles uniquement dans le monde Windows (peut mieux faire...).

Donc si mon analyse est juste, la bidouille que j'ai proposée demeure une solution acceptable en l'état.

Si quelqu'un connaît mieux, ce serait bien de partager.

Cdlt

Bonjour, Jipété

Citation:

---

Envoyé par Jipété

Yop !

Propriété DateOrder et tu choisis doDMY.

Attention, l'éditeur passera en mode TMaskEdit, mais au moins l'affichage est formaté comme tu veux.

---

effectivement ça formate en prévisualisation mais pas à l’exécution.


Bonjour e-ric

Citation:

---

Envoyé par e-ric

Salut

(sur Debian moi aussi, problème reproduit)
Après lecture des sources et un peu de tâtonnement, on trouve une solution (bricolée):

Code:

---

1 2 3 4

DefaultFormatSettings.DateSeparator := '/'; DateEdit1.Clear; DateEdit1.DateOrder := doDMY; // faisable avec l'inspecteur d'objet

---

Le composant est mal foutu... il impose un choix limité de format de date (je n'ai regardé que cela) via un type énuméré.
L'appel à clear permet de mettre à jour le format immédiatement.

La variable DefaultFormatSettings.DateSeparator prend la valeur '-' alors que les paramètres système semble indiquer '/', le problème se tient dans l'unité SysUtils et plus précisément dans sysinth.inc, les valeurs par défaut sont en dur et ne semblent pas reprises depuis les paramètres système, c'est ballot. Pour contourner le problème, il suffit donc de forcer la valeur au démarrage du programme.

Sujet à approfondir...

---

oui effectivement la méthode fonctionne parfaitement.
j'avais eu un problème un peu similaire en freepascal http://www.developpez.net/forums/sho...errerid=348736 ( Est-ce qu'il y a une similitude ?) et on m'avait conseillé de me mettre une unité clocale pour Linux. Mais en Lazarus cette méthode ne semble pas fonctionner.

Je ne marque pas le sujet résolu (bien que pour moi, il le soit) pour que ce problème puisse être réglé.

Merci à chacun pour sa contribution.

Bien à vous

Citation:

---

Envoyé par joreveur

Bonjour, Jipété


effectivement ça formate en prévisualisation mais pas à l’exécution.

---

:koi: :koi: :koi:

À l'exécution chez moi (Debian 32 bits et Lazarus 1.0.10) :

Pièce jointe 175605

Bon, le séparateur n'est pas le "/" comme tu le demandes dans ton premier post, mais est-ce bien grave ?

Un peu au hasard et sans essayer par manque de temps. Avez-vous essayé de charger l'unité clocale dans votre programme (fichier lpr) ?

Code:

---

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

program Project1;   {$mode objfpc}{$H+}   uses {$IFDEF UNIX} clocale, {$IFDEF UseCThreads} cthreads, {$ENDIF}   {$ENDIF} Interfaces, // this includes the LCL widgetset Forms, Unit1 { you can add units after this };

---

Citation:

---

Envoyé par yamer

Un peu au hasard et sans essayer par manque de temps. Avez-vous essayé de charger l'unité clocale dans votre programme (fichier lpr) ?

---

Bingo !

Je ne mets pas de copie d'écran, mais les "/" sont bien là. :ccool:

Bonjour Jipété et Merci de tes réponses

Citation:

---

Envoyé par Jipété

:koi: :koi: :koi:

À l'exécution chez moi (Debian 32 bits et Lazarus 1.0.10) :

Pièce jointe 175605

Bon, le séparateur n'est pas le "/" comme tu le demandes dans ton premier post, mais est-ce bien grave ?

---

Quand le demandeur souhaite un type d'affichage, il faut s'en tenir à sa demande sauf à prouver que c'est infaisable...
Mais c'est vrai que dans l'absolu, ce n'était pas bien grave en terme de fonctionnalité.

---

Bonjour yamer et merci pour cette solution qui fonctionne.

Citation:

---

Envoyé par yamer

Un peu au hasard et sans essayer par manque de temps. Avez-vous essayé de charger l'unité clocale dans votre programme (fichier lpr) ?

Code:

---

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

program Project1;   {$mode objfpc}{$H+}   uses {$IFDEF UNIX} clocale, {$IFDEF UseCThreads} cthreads, {$ENDIF}   {$ENDIF} Interfaces, // this includes the LCL widgetset Forms, Unit1 { you can add units after this };

---

---

J'avais bien essayé de mettre cette unité dans unit1.pas mais j'avais du mal implémenté (oublié un {ENDIF} ...) et donc je pensais que ça ne fonctionnais pas d'où ce billet ; ça simplifiera le code en conséquence et cela sera plus propre :)


Merci à chacun et bonne continuation.

Cordialement