POSTITFOREVER
frbos
Messages postés
27
Date d'inscription
vendredi 4 novembre 2011
Statut
Membre
Dernière intervention
4 novembre 2011
-
4 sept. 2007 à 16:53
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 9 sept. 2007 à 00:29
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 9 sept. 2007 à 00:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43960-postitforever
https://codes-sources.commentcamarche.net/source/43960-postitforever
9 sept. 2007 à 00:29
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..
8 sept. 2007 à 19:10
8 sept. 2007 à 19:08
Et merci, mais pas besoin de clef ^^
8 sept. 2007 à 14:23
cherche l'activation..
J'ai eu un doute quand j'ai vu "admin"..
8 sept. 2007 à 13:02
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é ?
7 sept. 2007 à 17:31
7 sept. 2007 à 17:22
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;
4 sept. 2007 à 17:58
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
4 sept. 2007 à 16:53
J'ai le message "CoolForm.dcu est introuvable" lors de la compilation
Je suis en delphi 7