begin process at 2008 07 04 22:54:52
1 204 970 membres
486 nouveaux aujourd'hui
14 118 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

POSTITFOREVER


Information sur la source

Catégorie :Date & Heure Classé sous : postit, ini, csv, image, systray Niveau : Débutant Date de création : 03/09/2007 Date de mise à jour : 28/10/2007 14:32:32 Vu / téléchargé: 3 494 / 513

Note :
Aucune note

Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

Description

Bonjour à tous les delphinautes !!

Pour cette rentrée, et afin de ne rien oublier (le bisou, les fleurs, l'école, le coup de téléphone, la réunion, le rendez-vous, la banque,DelphiFr.com, les impôts, etc etc..)

je vous propose POSTITFOREVER,

un petit soft permettant la gestion d'un post-it
avec son alarme.

L'idée n'étant pas neuve, c'est donc sur son traitement que je me suis attablé..

l'objectif était de faire quelque chose d'utile, de très simple en programmation, de pédagogique aussi
en n'utilisant pas de composant exotique.

Deux modes de fonctionnement complémentaires :

Un post-it classique dépouillé, dimensionnable, déplaçable et paramétrable
associé avec une gestion d'alarme avec déclenchement
d'une alerte sonorisée.

Quelques commentaires de repérage ont été ajoutés..
Mais le code est très simple..
Vous y trouverez néanmoins un ensemble de techniques connues réunies telles que :

gestion de .ini
gestion de .csv
gestion de stringgrid
gestion de boutons
systray
Timer

etc..

Pour les alarmes,deux options sont prévues :

Soit tous les jours même heure
Soit chaque jour désigné même heure

A noter, que si aucune option n'est choisie, la purge est automatique.

A l'exécution, le programme se loge sous forme d'un icone dans le systray.

Pour la distribution prévoir une installation avec INNOSETUP par exemple et
tout fonctionne parfaitement..


Merci de me faire part de vos suggestions ou commentaires

CANTADOR (*)

* pour le pseudo, je ne savais pas quoi prendre et j'ai demandé un mot à mon épouse d'origine espagnole
  et elle m'a dit : "Cantador !".
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

03 septembre 2007 19:23:51 :
l'orthographe c'est important..
03 septembre 2007 22:24:20 :
L'orthographe c'est important..
04 septembre 2007 11:22:07 :
ajout d'un commentaire
04 septembre 2007 18:00:19 :
Suppression de uses inutiles.
05 septembre 2007 16:22:42 :
réglé petit souci de focalisation du StrinGrid lors de la validation d'une alarme..
05 septembre 2007 18:59:31 :
Suppression de l'effet de sortie de l'alerte qui ne sert plus à rien vu que la forme est ajourée (mieux il provoquait un sautillement ?!)
06 septembre 2007 17:12:16 :
Ajout d'un item "Effacer" dans le TPopupMenu et possibilité de mettre en surbrillance le texte en désactivant le déplacement grâce à la touche "Shift".
08 septembre 2007 12:57:33 :
Maj v 1.0.0.6 : Amélioration du code sur une suggestion de JulioDelphi (utilisation de la propriété Tag et une seule procédure utilisant le case pour les items du Menu. Changement de concept en plus : le programme se charge sysstématiquement dans le SysTray et l'option "démarrage avec windows" donne désormais la possiblité de faire apparaître le postit à l'ouverture de windows si toutefois, un message a été écrit.
08 septembre 2007 13:55:53 :
petite corection de dernière minute..
09 septembre 2007 00:34:40 :
Nettoyage !
11 septembre 2007 17:17:40 :
je l'aime bien mon bébé..
15 septembre 2007 23:31:20 :
Maj 1.0.0.7 : modification car le cas du décalage à zéro purgeait sans afficher l'alerte pour une alarme dans la journée..
28 octobre 2007 14:32:32 :
version 1.0.0.8 Cette Mise à jour déplace la croix de fermeture de l'alerte vers une des branches du réveil ce qui la rend un peu moins perdue dans le ciel.. autre point : PostitForver arrête la veille écran pour afficher l'alerte.
  • signaler à un administrateur
    Commentaire de frbos le 04/09/2007 16:53:46

    Ca a l'air sympa mais...
    J'ai le message "CoolForm.dcu est introuvable" lors de la compilation
    Je suis en delphi 7

  • signaler à un administrateur
    Commentaire de cantador le 04/09/2007 17:58:54

    salut FRBOS,

    j'avais effectivement testé le compo "CoolForm".
    et j'ai laissé traîné quelques uses..

    je fais une MAJ.

    A bientôt et merci pour le coup d'oeil sur PostitForEver.
    cantador

  • signaler à un administrateur
    Commentaire de JulioDelphi le 07/09/2007 17:22:52 administrateur CS

    iop
    Je viens de regarder le code, j'ai rien testé en IDE.

    Voila mon conseil pour ta gestion des popupmenus :

    Prenons un PopupMenuTruc avec 10 TMenuItem dedans.
    Toi tu fais 10 procedures :s moi une seule ^^ puis je gere le
    tout avec les sender, les tags et les hints.

    J'ai 5 menus qui changent une couleur, 1 pour imprimer, 1 pour fermer, 1 pour changer une font, 1 pour ma gestion des alarmes et 1 dernier pour demarrer avec windows. (tiens, ça ressemble un peu a tes menus ^^)

    Mes 5 menus pour la couleur ont le tag '1', imprimer : tag 2, etc etc

    Mes 5 menus pour la couleur ont un hint correspondant à la couleur à modifier, exemple mon TMenuItem nommé "Jaune1" a le hint "clYellow", idem pour chaque autre couleur, son hint correspondant. (tu suis ?)

    Ensuite, je crée UNE seule procedure nommé "MonMenuTruc" :

    Procedure MonMenuTruc(Sender: TObject)
    begin
    case (Sender as TMenuItem).Tag of
      1: Memo.Color := (Sender as TMenuItem).Hint;
      2: ImpressionPostit;
      3:
       begin
         Ferme := true;
         Close;
       end;
      4:
       begin
         try
           if fontdialog1.execute then
             memo.font := fontdialog1.font;
         except
           on exception do showmessage('La boite de font n''est pas disponible !!!');
         end;
       end;
      5:
       begin
         if not Assigned(FAlarme) then
           Application.CreateForm(TFAlarme, FAlarme);
         Screen.Cursor := crDefault;
         FAlarme.Timer1.Enabled := true;
         FAlarme.AffichageGrille;
         FAlarme.GestionBouton('CONSULTATION');
         FAlarme.ShowModal;
       end;
      6:
    end;
    end;

    Nonon je n'ai pas oublié le "demarrer avec windows" :p Il te suffit de mettre "Autocheck" sur "true" sur ce menu pour qu'il se coche/decoche seul =)
    Puis bien sur, sur TOUS tes TMenuItems, dans le OnClick tu mets le "MonMenuTruc".
    Quand tu cliqueras que un menu, il ira dans cette proc, fera le case of avec le tag, et pour la couleur, une seule ligne qui va choper la couleur du memo dans le hint.

    Ensuite, je remplacerais :
    if DmarrageavecWindows1.Checked then
    begin
      WriteBool('postit', 'DemWindows', true);
      LancerAuDemarrage(true);
    end;

    par

    begin
    WriteBool('postit', 'DemWindows', DmarrageavecWindows1.Checked);
    LancerAuDemarrage(DmarrageavecWindows1.Checked);
    end;

    et donc je modifie :
    procedure TMainForm.LancerAuDemarrage(Inscrire: Boolean);
    var Reg: TRegistry;
    begin
      Reg := TRegistry.Create;
    ...

    en :

    procedure TMainForm.LancerAuDemarrage(Inscrire: Boolean);
    var Reg: TRegistry;
    begin
    if not Inscrire then exit;
    ...

    car ton "Inscrire: Boolean" est inutilisé dans ta procedure o_x

    vouala pour quelques conseils =)
      Reg := TRegistry.Create;

  • signaler à un administrateur
    Commentaire de JulioDelphi le 07/09/2007 17:31:49 administrateur CS

    oups, le "Reg := TRegistry.Create;" de la fin n'a rien à faire là, ignorez le =))

  • signaler à un administrateur
    Commentaire de cantador le 08/09/2007 13:02:44

    Merci Julio Delphi pour cette amélioration du code..
    j'ai fait Une Maj qui m'a donné aussi l'occasion de changer le concept :
    l'option "démarrage avec windows" devient "ouverture du postit si celui ci n'est pas vide".
    Si on ne veut plus du programme, on le désinstalle point final..
    j'espère de ton côté que tu as réglé ton problème ?
    En tout cas, tu as gagné une clé d'activation..
    Intéressé ?

  • signaler à un administrateur
    Commentaire de cantador le 08/09/2007 14:23:49

    houupss désolé, en fait ce n'est pas toi qui
    cherche l'activation..
    J'ai eu un doute quand j'ai vu "admin"..


  • signaler à un administrateur
    Commentaire de JulioDelphi le 08/09/2007 19:08:19 administrateur CS

    Non j'ai pas encore régle mon probleme, je m'en vais regarder une source de grandvizir là.
    Et merci, mais pas besoin de clef ^^

  • signaler à un administrateur
    Commentaire de JulioDelphi le 08/09/2007 19:10:31 administrateur CS

    ps : tu as oublié de supprimer les anciennes procedures comme "Jaune1Click" etc ^^

  • signaler à un administrateur
    Commentaire de cantador le 09/09/2007 00:29:59

    Ah oui zut !
    et le plus c.. c'est que ça marche qd même..
    C'est pas normal ce truc..j'vais me plaindre..

    Tu as noté que le sous-menu a la même classe que le item parent
    donc il faut traiter le cas sinon, le post-it passe par le noir..

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Boutique

Boutique de goodies CodeS-SourceS