Un calendrier à 2 formes : carre ou en colonne

Soyez le premier à donner votre avis sur cette source.

Vue 21 440 fois - Téléchargée 2 224 fois

Description

L'originalité de ce calendrier se trouve dans la possibilité qui est donnée à l'utilisateur de choisir la forme du calendrier qu'il veut :
soit une semaine par ligne (forme carrée),
soit une ligne par jour (forme colonne).
L exemple montre comment intégrer cette fonction en une ligne dans vos applications

Source / Exemple :


uses Ucalendrier; // l'unité Calendrier

var
  TypeCalendrier: Integer = 1; // La variable qui conserve le type de calendrier affiché Carré ou Colonne)

procedure TfrmExemple.BitBtn1Click(Sender: TObject);
begin
  // La fonction qui retourne la date
  Edit1.Text := CalendrierChoixDate(Edit1.Text, (Top+BitBtn1.Top), (Left+BitBtn1.Left), Font.Name, TypeCalendrier);
end;

Conclusion :


Cet exemple est tiré du projet Pilot All - www.abadiane.net

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
3
Superbe !
Messages postés
50
Date d'inscription
mercredi 2 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2006

Bonsoir Dominique.Stock,

La mise à jour des sources été faite
Voir le boolean MouseIsUp qui évite de produire 2 fois l'action mois suivant ou précédent

Abadiane
Messages postés
50
Date d'inscription
mercredi 2 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2006

Bonsoir,

Bien vu ! c'est un bug, je regarde ce week-end et apporte un correctif

Abadiane
Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
3
Bonjour,

Superbe,

Par contre , j'ai un petit souci: lorsque je sélectionne le jour d'un mois suivant (ou précédent) avec la souris, il me positionne directement deux mois aprés (ou avant) une fois sur deux (cela dépend de la cellule sélectionné) ... un petit peut comme si j'avais fait un double click ...

8/10
Messages postés
59
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
25 février 2006

merci pour l'info et çà marche !
je mets également 8/20 pour l'ensemble
Bon courage.
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.