Accueil > > > COMPOSANT BOUTON TYPE VA-ET-VIENT POUR DATE ET HEURE AVEC FORMAT ET COULEUR
COMPOSANT BOUTON TYPE VA-ET-VIENT POUR DATE ET HEURE AVEC FORMAT ET COULEUR
Information sur la source
Description
Composant TDateHeure Version 2007 ® Guy Bidi Utilisable jusqu'à la version 2007, issu d'un Bouton TSpeedButton son fonctionnement consiste en un bouton type va-et-vient. Celui-ci affiche alternativement au click gauche de la souris : - la date selon un format au choix: type: 08/01/07 ou type: Lundi 8 Janvier 2007 et - l''heure du système type 15:12:40. Au click gauche de la souris avec ALT ou CTRL la couleur de la police de caractère s''incrémente d''une unité. Au click droit de la souris le format de la date'+#13+ bascule entre les types Normal et Littéral. Auteur : Guy Bidi - Email : paounet@free.fr';
Source
- { Composant fait par Guy Bidi - Juin 2007 - Freeware
- Pour les questions et autres écrire à paounet@free.fr
- TDateHeure est un bouton va-et-vient entre la Date selon un
- format 12/01/07 ou Vendredi 12 Janvier 2007 et l'heure du
- système 13:17:45 }
- unit DateHeure;
- interface
- uses SysUtils,Classes,Controls,StdCtrls,ExtCtrls,Buttons,Graphics,
- DateUtils,Dialogs;
- Const Mess=
- 'Le composant TDateHeure Version 2007 est la'+#13+
- 'propriété de ® Guy Bidi . Utilisable jusqu''à la'+#13+
- 'version 2007, issu d''un Bouton TSpeedButton son'+#13+
- 'fonctionnement consiste en un bouton type'+#13+
- 'va-et-vient. Celui-ci affiche alternativement'+#13+
- 'au click gauche de la souris :'+#13+#13+
- '- la date selon un format au choix:'+#13+
- ' type: 08/01/07 ou type: Lundi 8 Janvier 2007 et'+#13+
- '- l''heure du système type 15:12:40.'+#13+#13+
- 'Au click gauche de la souris avec ALT ou CTRL la'+#13+
- 'couleur de la police de caractère s''incrémente'+#13+
- 'd''une unité.'+#13+#13+
- 'Au click droit de la souris le format de la date'+#13+
- 'bascule entre les types Normal et Littéral.'+#13+#13+
- 'Auteur : Guy Bidi - Email : paounet@free.fr';
- type
- TDateForme=(Normal,Litteral); // Propriété DateForme rajoutée
- TDateAbout=String; // Propriété About rajoutée
- TDateHeure = class(TSpeedButton) // Définition du Button DateHeure
- private { Déclarations privées }
- // Intégration d'un timer et d'un bouton TSpeedButton
- Timer:TTimer;FDateForme:TDateForme;FDateAbout:TDateAbout;
- // Déclaration de la procédure du choix de DateFormat
- Procedure SetDateForme(DateForme:TDateForme);
- protected { Déclarations protégées }
- Procedure Affiche(Sender:TObject); // Lorsque Click sur Button
- Procedure Temps(Sender:TObject); // Lorsque le Timer entre en fonction
- // Lorsque la souris Clique sur le Button droit ou gauche
- Procedure Change(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
- public { Déclarations publiques }
- Constructor Create (Aowner:Tcomponent);Override;
- destructor Destroy;override;
- published { Déclarations publiées }
- property Name;
- Property Visible;
- Property Width;
- Property Height;
- Property Color;
- Property Caption;
- Property Transparent;
- Property Hint;
- Property Font;
- Property OnMouseUp;
- // Propriété ABout rajoutée en lecture seule
- Property About:TDateAbout read FDateAbout;
- // Propriété DateForme rajoutée en Lecture et Écriture
- Property DateForme:TDateForme read FDateForme write SetDateForme;
- end;
- procedure Register;
- implementation
- Var Flag:Boolean;
- Function Jour(Dat:TDateTime):string; // Extrait la Date littérale
- begin
- Result:=LongDayNames[DayOfWeek(Dat)]+' '+
- Copy(DateToStr(Now),1,2)+' '+LongMonthNames[DayOfWeek(Dat)]+
- ' '+Copy(DateToStr(Now),Length(DateToStr(Now))-3,4);
- End;
- // Construction du Bouton TDateHeure, du Timer et des évenements
- constructor TDateHeure.Create(Aowner:TComponent);
- begin
- inherited Create(Aowner);
- Height:=22;Width:=85;With Font Do Begin Color:=clMaroon;
- Name:='Comic Sans MS';Size:=9;Style:=[fsBold];End;
- Timer:=TTimer.Create(Self);With Timer Do Begin Enabled:=False;
- Interval:=1000;OnTimer:=Temps;End;Flag:=False;
- Caption:=DateTostr(Date);DateForme:=Normal;ShowHint:=True;
- Hint:='Click et Click+Ctrl';FDateAbout:=Mess;
- OnClick:=Affiche;OnMouseUp:=Change;
- end;
- // Procedure liée à la propriété DateForme {Normal ou Litteral}
- procedure TDateHeure.SetDateForme(DateForme:TDateForme);
- begin
- If DateForme=Normal Then Begin Width:=85;Caption:=DateTostr(Date);End
- Else Begin Width:=146;Caption:=Jour(Now);End;
- FDateForme:=DateForme;
- end;
- destructor TDateHeure.Destroy; // Destruction des Composants
- begin
- Timer.Free;inherited Destroy;
- end;
- // Fonction qui renvoie la couleur incrémentée de 1
- // de la police de caractères du bouton
- Function Trouve(Couleur:Tcolor):TColor;
- Const Coul:Array[0..16] Of TColor=(ClBlack,ClMaroon,ClGreen,ClOlive,
- ClNavy,ClPurple,ClTeal,ClGray,ClSilver,ClRed,ClLIme,ClYellow,
- ClBlue,ClFuchsia,clAqua,ClWhite,clWindowText);
- Var i,j:Integer;
- Begin
- j:=0;for i:=0 to 16 Do if Couleur=Coul[i] then j:=i+1;
- If j=17 Then j:=0;Trouve:=Coul[j];
- End;
- // Changement de l'aspect du contenu du bouton selon la propriété
- // DateForme choisie - Click Droit et gauche avec Ctrl ou Alt
- Procedure TDateHeure.Change(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
- Begin
- if Button=mbRight then Begin If DateForme=Normal Then
- DateForme:=Litteral Else DateForme:=Normal;
- SetDateForme(DateForme);End
- Else if (Button=mbLeft) And ((Shift=[ssCtrl]) Or
- (SHift=[ssAlt])) Then Font.Color:=Trouve(Font.Color);
- End;
- // Click gauche sur le Button
- Procedure TDateHeure.Affiche(Sender:TObject);
- Begin
- if Flag then Begin If DateForme=Normal Then Begin Width:=85;
- Caption:=DateTostr(Date);End Else Begin Width:=146;
- Caption:=Jour(Now);End;Timer.Enabled:=False;End
- Else Begin Timer.Enabled:=True;Width:=85;
- Caption:=TimeTostr(Now);End;Flag:=Not(Flag);
- End;
- Procedure TDateHeure.Temps(Sender:TObject); // Timer affcihe l'heure
- begin
- Caption:=TimeTostr(Now);
- end;
- procedure Register; // Enregistrement du composant TDateHeure
- begin
- RegisterComponents('Guy',[TDateHeure]);
- end;
- end.
{ Composant fait par Guy Bidi - Juin 2007 - Freeware
Pour les questions et autres écrire à paounet@free.fr
TDateHeure est un bouton va-et-vient entre la Date selon un
format 12/01/07 ou Vendredi 12 Janvier 2007 et l'heure du
système 13:17:45 }
unit DateHeure;
interface
uses SysUtils,Classes,Controls,StdCtrls,ExtCtrls,Buttons,Graphics,
DateUtils,Dialogs;
Const Mess=
'Le composant TDateHeure Version 2007 est la'+#13+
'propriété de ® Guy Bidi . Utilisable jusqu''à la'+#13+
'version 2007, issu d''un Bouton TSpeedButton son'+#13+
'fonctionnement consiste en un bouton type'+#13+
'va-et-vient. Celui-ci affiche alternativement'+#13+
'au click gauche de la souris :'+#13+#13+
'- la date selon un format au choix:'+#13+
' type: 08/01/07 ou type: Lundi 8 Janvier 2007 et'+#13+
'- l''heure du système type 15:12:40.'+#13+#13+
'Au click gauche de la souris avec ALT ou CTRL la'+#13+
'couleur de la police de caractère s''incrémente'+#13+
'd''une unité.'+#13+#13+
'Au click droit de la souris le format de la date'+#13+
'bascule entre les types Normal et Littéral.'+#13+#13+
'Auteur : Guy Bidi - Email : paounet@free.fr';
type
TDateForme=(Normal,Litteral); // Propriété DateForme rajoutée
TDateAbout=String; // Propriété About rajoutée
TDateHeure = class(TSpeedButton) // Définition du Button DateHeure
private { Déclarations privées }
// Intégration d'un timer et d'un bouton TSpeedButton
Timer:TTimer;FDateForme:TDateForme;FDateAbout:TDateAbout;
// Déclaration de la procédure du choix de DateFormat
Procedure SetDateForme(DateForme:TDateForme);
protected { Déclarations protégées }
Procedure Affiche(Sender:TObject); // Lorsque Click sur Button
Procedure Temps(Sender:TObject); // Lorsque le Timer entre en fonction
// Lorsque la souris Clique sur le Button droit ou gauche
Procedure Change(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
public { Déclarations publiques }
Constructor Create (Aowner:Tcomponent);Override;
destructor Destroy;override;
published { Déclarations publiées }
property Name;
Property Visible;
Property Width;
Property Height;
Property Color;
Property Caption;
Property Transparent;
Property Hint;
Property Font;
Property OnMouseUp;
// Propriété ABout rajoutée en lecture seule
Property About:TDateAbout read FDateAbout;
// Propriété DateForme rajoutée en Lecture et Écriture
Property DateForme:TDateForme read FDateForme write SetDateForme;
end;
procedure Register;
implementation
Var Flag:Boolean;
Function Jour(Dat:TDateTime):string; // Extrait la Date littérale
begin
Result:=LongDayNames[DayOfWeek(Dat)]+' '+
Copy(DateToStr(Now),1,2)+' '+LongMonthNames[DayOfWeek(Dat)]+
' '+Copy(DateToStr(Now),Length(DateToStr(Now))-3,4);
End;
// Construction du Bouton TDateHeure, du Timer et des évenements
constructor TDateHeure.Create(Aowner:TComponent);
begin
inherited Create(Aowner);
Height:=22;Width:=85;With Font Do Begin Color:=clMaroon;
Name:='Comic Sans MS';Size:=9;Style:=[fsBold];End;
Timer:=TTimer.Create(Self);With Timer Do Begin Enabled:=False;
Interval:=1000;OnTimer:=Temps;End;Flag:=False;
Caption:=DateTostr(Date);DateForme:=Normal;ShowHint:=True;
Hint:='Click et Click+Ctrl';FDateAbout:=Mess;
OnClick:=Affiche;OnMouseUp:=Change;
end;
// Procedure liée à la propriété DateForme {Normal ou Litteral}
procedure TDateHeure.SetDateForme(DateForme:TDateForme);
begin
If DateForme=Normal Then Begin Width:=85;Caption:=DateTostr(Date);End
Else Begin Width:=146;Caption:=Jour(Now);End;
FDateForme:=DateForme;
end;
destructor TDateHeure.Destroy; // Destruction des Composants
begin
Timer.Free;inherited Destroy;
end;
// Fonction qui renvoie la couleur incrémentée de 1
// de la police de caractères du bouton
Function Trouve(Couleur:Tcolor):TColor;
Const Coul:Array[0..16] Of TColor=(ClBlack,ClMaroon,ClGreen,ClOlive,
ClNavy,ClPurple,ClTeal,ClGray,ClSilver,ClRed,ClLIme,ClYellow,
ClBlue,ClFuchsia,clAqua,ClWhite,clWindowText);
Var i,j:Integer;
Begin
j:=0;for i:=0 to 16 Do if Couleur=Coul[i] then j:=i+1;
If j=17 Then j:=0;Trouve:=Coul[j];
End;
// Changement de l'aspect du contenu du bouton selon la propriété
// DateForme choisie - Click Droit et gauche avec Ctrl ou Alt
Procedure TDateHeure.Change(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
Begin
if Button=mbRight then Begin If DateForme=Normal Then
DateForme:=Litteral Else DateForme:=Normal;
SetDateForme(DateForme);End
Else if (Button=mbLeft) And ((Shift=[ssCtrl]) Or
(SHift=[ssAlt])) Then Font.Color:=Trouve(Font.Color);
End;
// Click gauche sur le Button
Procedure TDateHeure.Affiche(Sender:TObject);
Begin
if Flag then Begin If DateForme=Normal Then Begin Width:=85;
Caption:=DateTostr(Date);End Else Begin Width:=146;
Caption:=Jour(Now);End;Timer.Enabled:=False;End
Else Begin Timer.Enabled:=True;Width:=85;
Caption:=TimeTostr(Now);End;Flag:=Not(Flag);
End;
Procedure TDateHeure.Temps(Sender:TObject); // Timer affcihe l'heure
begin
Caption:=TimeTostr(Now);
end;
procedure Register; // Enregistrement du composant TDateHeure
begin
RegisterComponents('Guy',[TDateHeure]);
end;
end.
Conclusion
Valide sur delphi 2007 for win32.... Adaptation facile pour d'autres composants...
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
idDayTime [ par lugo ]
LugoBonjour à tous,Ca fait bien longtemps que je ne me suis pas connecté au forum, et ça commencait à me manquer.Je suis là pour, comme beaucoup d'ent
problème d'affichage de date [ par pierrecoulon ]
bonjour,je développe sous delphi 7.je travaille avec une base de donnée access. en employant un DBGrill je ne parvient pas à afficher l'heure uniqueme
delphi&access [ par tchen ]
Salut, j'ai une merde.. J'ai dans un dblookupcombobox qui contient la liste de medecin et un composant DTpicker pour la date, le but c'est d'afficher
DATE SYSTEM [ par spacemiomio ]
salut a tous petite question a 2 balle :est t'il possible de recuperer l'heure systeme d 'un pc sur un reseaux en connaisant son adresse genre : //mon
synchro de l'heure sur internet [ par rdelphi ]
Salut,J'aurai besoin de récupérer la date et l'heure de mise à jour d'une station sur internet et pas moyen de trouver où ça peut être enregistré.J'ai
masquer le contenu de datetimepicker [ par mimichette ]
salut a tous, j'ai dans ma form un chekbox et 2 datetimepicker,un pour la date et l'autre pour l'heure et j'aimerai savoir comment ne pas afficher le
Date et heure...; [ par XgaletteX ]
Bonjour, Je dois sauvegarder des fichiers, en précisant dans leur nom la date et l'heure de création, le pb c'est que lorsq
Date et heure...; [ par XgaletteX ]
Bonjour, Je dois sauvegarder des fichiers, en précisant dans leur nom la date et l'heure de création, le pb c'est que lorsq
erreur "heure incorrecte" [ par gpletinckx ]
Bonjour,Dans mon programme j'ai disposé quelques champs contenant des dates: date de naissance, date de décès, date d'expertise ... Ces données sont s
afficher date et l'heure [ par aymen81 ]
bonjour à tous ,j'ai realisé une interface en delphi7 et j'aime bien afficher la date et l'heure dans un petit coin de cette interface ,quel
|
Derniers Blogs
UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|