UN CALENDRIER À 2 FORMES : CARRE OU EN COLONNE calendrier, personnalisable, stringgrid, selectcell, Source N°34551

Information sur la source

Catégorie :Date & Heure Classé sous : calendrier, personnalisable, stringgrid, selectcell Niveau : Débutant Date de création : 09/11/2005 Date de mise à jour : 11/12/2005 18:29:43 Vu / téléchargé: 9 345 / 1 423

Auteur : Abadianet

Site perso

Ecrire un message privé

Note :

8,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

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;

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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

CalendrierExemple.dpr 329 octets
CalendrierExemple.res876 octets
UCalendrier.dcu23 306 octets
UCalendrier.dfm270 352 octets
UCalendrier.pas 22 832 octets
UExemple.dcu5 176 octets
UExemple.dfm92 753 octets
UExemple.pas 1 482 octets

Télécharger le zip

Historique

11 décembre 2005 18:29:44 :: Cette mise à jour (V1.01) corrige un bug mineur : Un clic sur un champ grisé (mois suivant ou précédent) faisait passer au mois N+2 ou N-2 (au lieu de N+1 ou N-1)

Sources du même auteur

PILOT ALL - LA GESTION D'ACTIONS DÉCLENCHÉES PAR DES ÉVÉNEMENTS

Toutes les sources de Abadianet

Sources de la même categorie

Toutes les sources de la catégorie Date & Heure

Sources en rapport avec celle ci

Commentaires

Commentaire de wolf691300 le 09/11/2005 12:13:10

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.
Commentaire de Abadianet le 12/11/2005 18:37:24

Merci Wolf691300 pour tes appréciations

Abadiane
Commentaire de LREP le 23/11/2005 17:21:25

sur D7, j'ai une 'directive de compliation incorrecte : REGION'.
je dois être fatigué en ce moment..

Merci pour le conseil..
Commentaire de Abadianet le 24/11/2005 22:02:08

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
Commentaire de LREP le 25/11/2005 10:15:27

merci pour l'info et çà marche !
je mets également 8/20 pour l'ensemble
Bon courage.
Commentaire de dominique.stock le 09/12/2005 13:00:45

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
Commentaire de Abadianet le 09/12/2005 19:08:01

Bonsoir,

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

Abadiane
Commentaire de Abadianet le 11/12/2005 18:32:22

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
Commentaire de dominique.stock le 12/12/2005 08:24:25

Superbe !

Ajouter un commentaire

Discussions en rapport avec ce code source

Taille d'un stringgrid par padsou

Fuite mémoire avec StringGrid par Stauf

récuperer les L et C visible à l'écran d'une Stringgrid par mik38

Griser les cellules differement d'une StringGrid? par bougste

Calendrier a selection multiple par magicvinni

Toujours le calendrier par magicvinni

Enregistrer données d'un StringGrid dans un fichier par elguevel

aide stringgrid par Smeito79

Stringgrid par beruco

Création dynamique de StringGrid et Variable par ryadus