POSTITFOREVER

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

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;

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é ?

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 ^^