Discussion :

[sweetbdx]

Bonjour,

Un peu à la manière d'un DateTimePicker ou d'un MonthCalendar, j'aimerais savoir s'il existait une propriété ou un composant permettant de ne faire afficher que le mois et l'année (donc sans les jours) ?

Merci d'avance

cf. fichiers joints pour voir le comportement souhaité...donc soir sans les jours...soit avec des mois sur 3 caractères etc.

[ShaiLeTroll]

Tout simplement

Code :

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

DateTimePicker.DateFormat := "MMM yyyy";

J'avais utilisé un composant disposant d'une propriété Booléenne YearMonth, peut-être le TJvDateEdit ou un composant d'ailleurs, je ne sais plus !
Mais un piège est toujours valable, le jour est souvent celui du jour en cours, veille à forcer le 1er jour du Mois !

[sweetbdx]

Tout simplement

Code :

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

DateTimePicker.DateFormat := "MMM yyyy";

J'avais utilisé un composant disposant d'une propriété Booléenne YearMonth, peut-être le TJvDateEdit ou un composant d'ailleurs, je ne sais plus !
Mais un piège est toujours valable, le jour est souvent celui du jour en cours, veille à forcer le 1er jour du Mois !

Merci LeTroll...malheureusement, le comportement ne correspond pas à celui que je souhaite (cf. les images) : je n'arrive pas à faire afficher uniquement la liste des mois de l'année par exemple quand on déploie le calendrier...
Effectivement, si un composant avait la propriété booléenne YearMonth...peut-être que...en tout cas c'est alléchant...tu ne te souviens plus de quel composant il s'agissait ?

Merci en tout cas de t'intéresser à mon problème...je suis dans une impasse depuis 2 jours.

Question subsidiaire : sais-tu s'il serait possible de redéfinir le format court de la date ?
Typiquement, si je définis un format MMM/yyyy, j'obtiens "jan./2011"
=> j'aurais aimé personnaliser ce résultat et mettre "JAN/2011"
=> alors je sais qu'on peut redéfinir tout ça via GetLocaleFormatSettings mais dans le cas de l'utilisation d'un DateTimePicker ou d'un DateEdit, je ne vois pas trop...

[popo]

Dans le chapitre 11 du Guide du Concepteur de composant (Auteur : Borland Technical Publications), il est expliqué de menière simple et concise comment créé à composant TCalendrier à partir d'un TCustomGrid.

Avec quelques modifications tu devrait parvenir à ce que tu cherches

[ShaiLeTroll]

en même temps, une selection Année Mois, cela peut se faire avec deux pauvres Combo ! une de 1 à 12 et l'autre de 19xx à 20xx (avec l'année en cours pré-selectionné et possiblité d'une saisie libre !

[sweetbdx]

en même temps, une selection Année Mois, cela peut se faire avec deux pauvres Combo ! une de 1 à 12 et l'autre de 19xx à 20xx (avec l'année en cours pré-selectionné et possiblité d'une saisie libre !

bien entendu ...mais euh...mon impératif est d'avoir le même comportement que les images jointes...donc une sorte d'Edit avec un petit bouton calendrier qui fait apparaître en popup soit un calendrier complet (jours, mois, années), soit un calendrier partiel (mois et années)

dur dur

[ShaiLeTroll]

Regarde le TJvDateEdit ce qu'il propose
Perso, j'ai utilisé tellement de variante de TDateEdit, ce que je sais, c'est qu'il y a toujours un défaut !
Il me semble que j'avais repris l'exemple TCCalendar dans la palette Exemples (Samples) pour faire un compo similaire à ce que tu veux
Le TCalendar est la version aboutie de la démo proposée par popo
Tu as le source, il est facilement modifiable !

[sweetbdx]

oki !!! merci beaucoup !!! reste plus qu'à me retrousser les manches

[od.dev]

T'as qu'a t'le faire toi même :

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
unit MonthCalendar1;
 
interface
 
uses
  SysUtils, Classes, Controls, ComCtrls;
 
type
  TMonthCalendar1 = class(TMonthCalendar)
  private
    { Déclarations privées }
  protected
    { Déclarations protégées }
  public
    constructor Create(AOwner: TComponent); override;
  published
    { Déclarations publiées }
  end;
 
procedure Register;
 
implementation
 
constructor TMonthCalendar1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Height := 30;
end;
 
procedure Register;
begin
  RegisterComponents('Samples', [TMonthCalendar1]);
end;
 
end.

Soit c'est vous, soit c'est moi qui n'est rien compris...

[od.dev]

oups...
qui n'ai rien compris