Un calendrier à 2 formes : carre ou en colonne

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

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.