Un calendrier à 2 formes : carre ou en colonne

Soyez le premier à donner votre avis sur cette source.

Vue 21 281 fois - Téléchargée 2 174 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

wolf691300
Messages postés
41
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
31 mars 2006
-
C'est une bonne programmation, les graphismes dans les touches sont bien aussi. J'ai consulté ton site Internet, il est vraiment bien et très clair dans les explications.
Je te donne une bonne note de 8/10 et bonne continuation ...

Wolf691300.
Abadianet
Messages postés
50
Date d'inscription
mercredi 2 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2006
-
Merci Wolf691300 pour tes appréciations

Abadiane
LREP
Messages postés
59
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
25 février 2006
-
sur D7, j'ai une 'directive de compliation incorrecte : REGION'.
je dois être fatigué en ce moment..

Merci pour le conseil..
Abadianet
Messages postés
50
Date d'inscription
mercredi 2 novembre 2005
Statut
Membre
Dernière intervention
19 juin 2006
-
Bonsoir,

Les sources ont été crées en Delphi 2005 et pour les utiliser dans une version inférieure de Delphi il faut mettre en commentaire les lignes commençant par {$REGION et {$ENDREGION

Abadiane
LREP
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.

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.