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