Faire un "fichiers récents" du menu

Faire un "fichiers récents" du menu


Comment faire un simple 'fichiers récents' du menu/list dans votre application.

il y a Un moment j'ai dû ajouter un 'fichiers Récents du Menu' dans un projet que je suis en train de travailler sur. J'ai donc écrit un simple composant qui doit être (A) flexible. (B) réutilisable dans d'autres projets. THistory est né :)



Vous pouvez télécharger THistory ici. Faire ce que vous voulez avec elle, mais je apprechiate si vous pouviez laissez-moi savoir si vous l'utilisez dans votre programme :)



L'objectif de cet article est de faire un simple 'réouverture' du menu (voir image ci-dessous). La première partie du code, alors je vais essayer d'expliquer ce qu'il fait.



THistory.gif



// mise à Jour de la 'Réouverture' de la liste..

procédure TfrmMain.History1Change(Sender: TObject)

var j'ai: entier

démarrer

& nbsp & nbsp avec Reopen1 do

& nbsp & nbsp commencer


& ! & ! & ! & nbsp Clair

& ! & ! & ! & nbsp pour i:= 0 de l'Histoire1.Count-1 ne

& ! & ! & ! & nbsp démarrer

& ! & ! & ! & ! & ! & nbsp Ajouter(TMenuItem.Create(self))

& ! & ! & ! & ! & ! & nbsp avec Items[Count-1] do

& ! & ! & ! & ! & ! & nbsp commencer


& ! & ! & ! & ! & ! & ! & ! & nbsp Légende := ' & 'IntToStr(i) '' l'Histoire1.Les éléments[i]

& ! & ! & ! & ! & ! & ! & ! & nbsp Tag := i

& ! & ! & ! & ! & ! & ! & ! & nbsp OnClick := GenericReopenClick

& ! & ! & ! & ! & ! & nbsp fin

& ! & ! & ! & nbsp fin


& ! & ! & ! & nbsp Activé := Count > 0

& ! & ! & ! & nbsp // Ajouter un saut de ligne

& ! & ! & ! & nbsp Ajouter(TMenuItem.Create(self))

& ! & ! & ! & nbsp Articles[Count-1].Caption := '-'

& ! & ! & ! & nbsp // Ajouter 'Effacer l'Historique'

& ! & ! & ! & nbsp Ajouter( TMenuItem.Create(self) )


& ! & ! & ! & nbsp avec Items[Count-1] do

& ! & ! & ! & nbsp commencer


& ! & ! & ! & ! & ! & nbsp Caption := 'Effacer l'Historique'

& ! & ! & ! & ! & ! & nbsp Tag := -1

& ! & ! & ! & ! & ! & nbsp OnClick := GenericReopenClick

& ! & ! & ! & nbsp fin

& nbsp & nbsp fin

fin




// Réouverture de l'élément cliqué...

procédure TfrmMain.GenericReopenClick(Sender: TObject)

begin

& nbsp & nbsp si
TMenuitem(Expéditeur).Tag >= 0

& ! & ! & ! & nbsp OpenFile(l'Histoire1.Les Articles[TMenuitem(Expéditeur).Tag])

& nbsp & nbsp else

& ! & ! & ! & nbsp Histoire1.Clair

fin



//...



procédure TfrmMain.OpenFile(FileName: string)

démarrer

& nbsp & nbsp // Votre code ici...

& nbsp & nbsp Histoire1.AddItem(nom de fichier)

fin





Notez que ce n'est pas le code pour le composant, vous devez le télécharger et l'installer pour que cela fonctionne. History1Change est l'événement OnChange pour mon THistory de l'objet, de l'Histoire1. Chaque fois qu'un élément est ajouté à l'Histoire de la composante de cette procédure est appelée, de sorte que nous savons de la liste ont été modifiés. Nous avons donc simplement recréer le sous-menu de 'Reopen1' avec les éléments en cours d'un 'Effacer l'historique' de l'élément.



GenericReopenClick, la procédure que nous utilisons sur tous les menuitems OnClick est l'endroit où vous pouvez mettre votre code pour gérer le cas où quelqu'un a cliqué sur un élément du menu. Je pensais que c'était plus simple pour économiser de l'index de chaque élément d'historique dans les MenuItems ' Tag propriété comme vous pouvez le voir ci-dessus. L'indice d'un élément d'Historique ne peut être -1 je l'ai donc utilisé pour effacer l'historique.



THistory pouvez uniquement charger/enregistrer la liste à partir de/vers des fichiers ini. Mais l'ajout du support pour d'autres formats, tels que le registre ou un format personnalisé ne devrait pas être un problème.



Si vous trouvez des bugs ou effectuer des améliorations, s'il vous plaît laissez-moi savoir afin que je puisse les mettre à jour.

& nbsp







Faire un "fichiers recents" du menu


Faire un "fichiers recents" du menu : Plusieurs milliers de conseils pour vous faciliter la vie.


Comment faire un simple 'fichiers recents' du menu/list dans votre application.

il y a Un moment j'ai dû ajouter un 'fichiers Recents du Menu' dans un projet que je suis en train de travailler sur. J'ai donc ecrit un simple composant qui doit etre (A) flexible. (B) reutilisable dans d'autres projets. THistory est ne :)



Vous pouvez telecharger THistory ici. Faire ce que vous voulez avec elle, mais je apprechiate si vous pouviez laissez-moi savoir si vous l'utilisez dans votre programme :)



L'objectif de cet article est de faire un simple 'reouverture' du menu (voir image ci-dessous). La premiere partie du code, alors je vais essayer d'expliquer ce qu'il fait.



THistory.gif



// mise a Jour de la 'Reouverture' de la liste..

procedure TfrmMain.History1Change(Sender: TObject)

var j'ai: entier

demarrer

& nbsp & nbsp avec Reopen1 do

& nbsp & nbsp commencer


& ! & ! & ! & nbsp Clair

& ! & ! & ! & nbsp pour i:= 0 de l'Histoire1.Count-1 ne

& ! & ! & ! & nbsp demarrer

& ! & ! & ! & ! & ! & nbsp Ajouter(TMenuItem.Create(self))

& ! & ! & ! & ! & ! & nbsp avec Items[Count-1] do

& ! & ! & ! & ! & ! & nbsp commencer


& ! & ! & ! & ! & ! & ! & ! & nbsp Legende := ' & 'IntToStr(i) '' l'Histoire1.Les elements[i]

& ! & ! & ! & ! & ! & ! & ! & nbsp Tag := i

& ! & ! & ! & ! & ! & ! & ! & nbsp OnClick := GenericReopenClick

& ! & ! & ! & ! & ! & nbsp fin

& ! & ! & ! & nbsp fin


& ! & ! & ! & nbsp Active := Count > 0

& ! & ! & ! & nbsp // Ajouter un saut de ligne

& ! & ! & ! & nbsp Ajouter(TMenuItem.Create(self))

& ! & ! & ! & nbsp Articles[Count-1].Caption := '-'

& ! & ! & ! & nbsp // Ajouter 'Effacer l'Historique'

& ! & ! & ! & nbsp Ajouter( TMenuItem.Create(self) )


& ! & ! & ! & nbsp avec Items[Count-1] do

& ! & ! & ! & nbsp commencer


& ! & ! & ! & ! & ! & nbsp Caption := 'Effacer l'Historique'

& ! & ! & ! & ! & ! & nbsp Tag := -1

& ! & ! & ! & ! & ! & nbsp OnClick := GenericReopenClick

& ! & ! & ! & nbsp fin

& nbsp & nbsp fin

fin




// Reouverture de l'element clique...

procedure TfrmMain.GenericReopenClick(Sender: TObject)

begin

& nbsp & nbsp si
TMenuitem(Expediteur).Tag >= 0

& ! & ! & ! & nbsp OpenFile(l'Histoire1.Les Articles[TMenuitem(Expediteur).Tag])

& nbsp & nbsp else

& ! & ! & ! & nbsp Histoire1.Clair

fin



//...



procedure TfrmMain.OpenFile(FileName: string)

demarrer

& nbsp & nbsp // Votre code ici...

& nbsp & nbsp Histoire1.AddItem(nom de fichier)

fin





Notez que ce n'est pas le code pour le composant, vous devez le telecharger et l'installer pour que cela fonctionne. History1Change est l'evenement OnChange pour mon THistory de l'objet, de l'Histoire1. Chaque fois qu'un element est ajoute a l'Histoire de la composante de cette procedure est appelee, de sorte que nous savons de la liste ont ete modifies. Nous avons donc simplement recreer le sous-menu de 'Reopen1' avec les elements en cours d'un 'Effacer l'historique' de l'element.



GenericReopenClick, la procedure que nous utilisons sur tous les menuitems OnClick est l'endroit ou vous pouvez mettre votre code pour gerer le cas ou quelqu'un a clique sur un element du menu. Je pensais que c'etait plus simple pour economiser de l'index de chaque element d'historique dans les MenuItems ' Tag propriete comme vous pouvez le voir ci-dessus. L'indice d'un element d'Historique ne peut etre -1 je l'ai donc utilise pour effacer l'historique.



THistory pouvez uniquement charger/enregistrer la liste a partir de/vers des fichiers ini. Mais l'ajout du support pour d'autres formats, tels que le registre ou un format personnalise ne devrait pas etre un probleme.



Si vous trouvez des bugs ou effectuer des ameliorations, s'il vous plaît laissez-moi savoir afin que je puisse les mettre a jour.

& nbsp

Faire un "fichiers récents" du menu

Faire un "fichiers récents" du menu : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation