Fenêtre de suivi des numéros dans le mdi, éditeurs

10/20/2018

1296

Fenêtre de suivi des numéros dans le mdi, éditeurs

la Fenêtre de manutention est important dans tout complexe MDI 'de l'éditeur.' Vous avez besoin d'un
stable et à jour de la fenêtre de liste nombre de. La valeur par défaut liste de choix sur
le menu de la Fenêtre est instable si vous avez plus de dix ouvrir des fichiers. Il
a de sens pour construire votre propre système de suivi.

Fenêtre de Suivi des Numéros dans le MDI, les Rédacteurs

Par Gene Fowler
[email protected]

Attention: Le banc d'essai de ce code est de Borland, TextEdit démo qui est livré avec Delphi. Si vous compilez en Delphi 5 ou 5.01, vous aurez besoin des formes modifiées.pas qui je vous orienter dans mon précédent article, Système de Programmation/Next (Précédent) dans le MDI rédacteurs.

Dans la description ci-dessus, je dis que le menu de la Fenêtre liste de choix est instable lorsque plus de dix fenêtres sont ouvertes. Je fais allusion au fait que tous les fichiers au-delà de la neuvième, quand ramassé, devient le neuvième. Un utilisateur ne va pas régulièrement d'avoir dix ou plus ouvrir les fenêtres et n'est pas susceptible de payer beaucoup d'attention à l'un des numéros sur la liste, de toute façon. Mais Microsoft notion d'utilisateurs des capacités mentales n'est pas gratuit. Les numéros qui figurent sur la liste semble être qu'un artefact d'une liste numérotée. Et seulement neuf sont comptés, le neuvième d'une 'évolution' de la boîte de dialogue apparaît et les autres sont repris. Lorsqu'une fenêtre est en place il n'y a rien pour identifier sa position dans n'importe quel ordre, sans parler de la charge de la commande. Système/Suivant (Précédent) retourne par le biais de la pile z (commande) qui change d'instant en instant.

Dans eWriter, mon MDI textwriter (le logiciel descendant de l'ancien matériel machine à écrire), j'ai mis un nombre de fenêtre (attribué sur le chargement et la mise à jour lorsqu'un fichier avec un nombre inférieur est fermé) sur la barre d'état, ainsi que le fichier de la taille en octets. En cliquant sur la barre d'état obtiendrez la 'prochaine' d'un fichier dans la charge (le côté supérieur de la fenêtre). Pour le saut, j'utilise l'ancien Turbo Alt TopNum# pour fenêtre #1..#9. Alt TopNum#0 obtient une boîte de dialogue que j'ai sur le menu de la Fenêtre (au-dessus de la liste de sélection par défaut). Cette boîte de dialogue donne les chemins d'accès complets et est une liste de sélection. Si l'utilisateur n'est pas sûr de Alt # il ou elle veut, Alt 0 et un clic sur le chemin et un autre sur le bouton Go ne ralentit pas la sauter beaucoup.

Le code ci-dessous met en œuvre (dans TextEdit) un système de suivi simple qui conserve la trace de la fenêtre numéros et les fichiers attachés. J'ai mis dans un simple spectateur de sorte que vous pouvez faire le 'check' de la fenêtre de chiffres après votre s'ouvre, se ferme, et le battage. Je ne sais pas pourquoi z-ordre de la pile serait utile, mais vous pouvez voir que la façon la plus simple de vérifier le fichier/nombre de connexion reflète également l'ordre-z dans la visionneuse.

Remarque: Dans le programme d'installation pour la Carrelage Haut de la page 2 de la N de Windows dans mon Sélective de Carrelage dans le MDI, Éditeurs, je n'ai pas mis de manipulation pour les 'sans titre' des fichiers que ce soit avant ou après l'Enregistrement qui met en chemin. Dans SavingAs1Click, je n'ai pas ajouter le nouveau fichier de OpenFiles. Et j'ai nulle part n'a rien d'un 'sans titre' qui n'a pas de chemin. Si le 'sans titre' est l'un des deux premiers, il ne cause pas de problème. Dans le code ci-dessous, comprennent une SaveAs1Click qui peuvent être inclus dans le Pavage de l'article du code. Si vous enregistrez le nouveau fichier est placé dans la OpenFiles et est inclus dans toutes les opérations de traitement. Si vous avez sauvegardé le Fichier 'sans titre', cependant, vous aurez des effets bizarres (comme vous le faites maintenant, si le fichier est enregistré ou non). Le Carrelage Haut de la page 2 de la N de windows il sera ignoré. Il apparaîtra dans le pavage. La perte de Restaurer le dimensionnement n'est pas l'un des étranges effets. Qui est causé par le Tile1Click ce que j'appelle le Carrelage Haut de la page 2 de la N de windows.

Code:

En utilisant TextEdit comme un banc d'essai pour le MDI Éditeur de Texte de développement
je suis en train de faire dans ces articles, certains propriétés besoin d'être réglé.
ce sont:

TOpenDialog Options/ofAllowMultiSelect: True

TEditForm WindowState: wsmaximized

Dans MDIFrame.pas, déclarer un mondial (section Interface) variable nommée
EditTag qui est utilisé dans les versions modifiées de New1Click et
Open1Click. OpenFiles, utilisés plus tard, est également déclaré et il est
initialisé.

TFrameForm
...
var
...
EditTag: longInt
OpenFiles: TstringList

Initialisation
...
OpenFiles := TStringList.Créer
OpenFiles.Text := '

Le Open1Click et New1Click routines de fournir une valeur pour EditTag
avant chaque ouverture. La valeur va être mis en EditForm la balise
variable (Dans son FormCreate de routine). Cela permettra d'assurer que chaque
l'éditeur aura un nombre de fenêtre.

procédure TFrameForm.New1Click(Sender: TObject)
begin
LockWindowUpdate(Manche)
EditTag := MDIChildCount 1
TEditForm.Create(Self)
LockWindowUpdate(0)
fin

procédure TFrameForm.Open1Click(Sender: TObject)
var
i: integer

begin
si OpenFileDialog.Exécuter ensuite
LockWindowUpdate(Manche)
For i := 0 to OpenFileDialog.Les fichiers.count - 1 do
begin
EditTag := MDIChildCount 1
avec TEditForm.Create(Self) ne
Ouvrir(OpenFileDialog.Files[i])
fin
LockWindowUpdate(0)
fin

Dans TeditForm (MDIEdit.pas), tout le suivi est pris en charge. En
FormCreate, copie EditTag dans la Balise:

procédure TEditForm.FormCreate(Sender: TObject)
begin
Chemin d'accès := DefaultFileName Balise
: = EditTag
fin

EditTag est le (la charge de la séquence) Nombre de Fenêtre. Ce sera conservée dans
EditForm l'Étiquette d'une variable. Ces numéros enregistrés va être déplacé vers le bas'
quand un éditeur avec un nombre inférieur est fermé. Maintenant, nous construisons dans notre
véritable moteur de suivi à l'aide de TEditForm.De près. Cette routine utilise le
OpenFiles stringlist j'ai déclaré dans MDIFrame.pas.

procédure TEditForm.FormClose(Sender: TObject var Action: TCloseAction)
var
i, j: LongInt
CloseTag: integer

begin
CloseTag := Balise
pour j := 0 pour (FrameForm.MDIChildCount - 1)
avec FrameForm.MDIChildren[j] comme TEditForm ne
begin
si Tag > CloseTag alors Balise
: = Tag - 1
fin
for i := 0 to OpenFiles.Count - 1 do
si OpenFiles[i] = Chemin puis
begin
OpenFiles.Supprimer(i)
break
fin
Action := caFree
fin

procédure TEditForm.Saveas1Click(Sender: TObject)
begin
SaveFileDialog.FileName := Chemin d'accès
si SaveFileDialog.Exécuter ensuite
begin
Chemin d'accès := SaveFileDialog.Nom de fichier
Caption := ExtractFileName(Chemin)
OpenFiles.Insérer(Tag, Chemin) // liste nouveau Chemin d'accès
Save1Click(Expéditeur)
fin
fin

Afficher les Résultats:

Note: L'observateur d'élément de menu énoncées ci-dessous semble causer le défaut liste de sélection à l'abandon, au moins dans Delphi 5. J'ai bricolé avec les Sélecteurs dans et hors. Vous pourriez vouloir jouer avec elle et voir si vous pouvez obtenir TextEdit la liste de sélection pour brouiller les z-stack avant de regarder un suivi de windows. Vous pourriez avoir à Restaurer les fenêtres de petite taille pour mélanger l'ordre z en la tirant par les fenêtres. C'est probablement seulement en D5 (pas D2-D4) qui s'occupe de menu de construction dans un sens, je havn'pas tout à fait eu le coup de. Je n'ai certainement reconstruire le menu de la Fenêtre au-dessus de la valeur par défaut liste de choix dans eWriter d'abord écrit en Delpi 3 et migré à travers Delphi 4 à 5.

Nous voulons un 'viewer' pour voir les résultats de notre attribution et de suivi des
de la Fenêtre de Numéros de nous ouvrir, de fermer et de lecture aléatoire (z-stack) de windows.
Au bas de la Fenêtre des éléments de menu-liste, ajoutez un nouvel élément de menu:

Légende: Fenêtre de l'Attribution d'un Numéro de la Liste

Nom: WinNumList1

Onglet Événements et double-cliquez sur OnClick. Ensuite, remplissez
le gestionnaire d'événement pour créer cette routine:

procédure TFrameForm.WinNumList1Click(Sender: TObject)
var
i, j: integer
Liste: tstringList
S: string

begin
// Cette routine est un peu compliqué à rattraper 'les Nouveaux Fichiers'
Liste := TSTringList.Créer
Liste.Add('Ultrapériphériques de la Fenêtre en haut de la pile Z la commande'#13)
For i := 0 to (MDIChildCount - 1)
Begin
S := 'Nombre de Fenêtre' IntToStr(MDIChildren[i].La balise
si MDIChildren[i].Caption = DefaultFileName puis
begin
S := S '' MDIChildren[i].Légende
Liste.Ajouter le(S)
fin
else
begin
pour j := 0 pour (OpenFiles.Count - 1)
si pos(MDIChildren[i].Légende, OpenFiles.cordes[j]) <> 0 then
begin
S := S '' OpenFiles.Cordes[j]
Liste.Ajouter le(S)
break
fin
fin
fin
messageDlg(la Liste.Texte, mtInformation, [bakang],0)
Liste.Gratuit
fin

Voici le résultat:

Remarque: Pour voir les utilisations de cette fenêtre, suivi du numéro de la tapisserie complexe de monde réel de la fenêtre de la manipulation, vous pourriez jouer avec mon eWriter textwriter. Ce n'est pas seulement un freeware, mais ne pas s'installer dans le tissu d'un système. Il est facile de jouer avec. Chaque éditeur ouverte a son Nombre de Fenêtre dans la barre d'état. En cliquant sur la barre d'état devient la plus prochaine fenêtre de l'éditeur de nombres. Alt TopNum# (1..9) obtient la fenêtre numérotés de 1..9. Alt TopNum0 obtient un nom de chemin complet pic liste si la légende par défaut seule la liste de sélection est sur le menu de la Fenêtre pour un peu plus rapidement à la cueillette. (Le chemin d'accès complet d'une liste déroulante au-dessus d'elle sur le menu). 0.C, qui doit sortir en juin 2001 aura fenêtre de chiffres dans le nom de la liste de sélection de la suite de mon écriture de cet article.

Entrelacé Bibliographie

j'ai commencé ad-libbing ces articles sur le fait de faire certaines choses que je ne
dans eWriter en Delphi démo TextEdit (à partir de laquelle j'ai construit eWriter).
Il est naturel de s'accumuler tous ces dans une copie de TextEdit. Et
vous pourriez avoir à aller en arrière et en avant de la remplir à nouveau, manqués ou
changé routines de prise en charge. Coffret apparaissent des notes de la plupart des endroits. La Figure
c'est en cours 'boutique' conversation...

Système de Programmation/Next (Précédent) dans le MDI, les rédacteurs

http://www.HowToDoThings.com/showarticle.asp?article=143

Sélective de Carrelage dans le MDI, les Rédacteurs

http://www.HowToDoThings.com/showarticle.asp?article=147

Fenêtre de Suivi des Numéros dans le MDI, les Rédacteurs

http://www.HowToDoThings.com/showarticle.asp?article=154

Paragraphe 'verser' à partir d'un éditeur de texte

http://www.HowToDoThings.com/showarticle.asp?article=178

Fenetre de suivi des numeros dans le mdi, editeurs

Fenetre de suivi des numeros dans le mdi, editeurs : Plusieurs milliers de conseils pour vous faciliter la vie.

la Fenetre de manutention est important dans tout complexe MDI 'de l'editeur.' Vous avez besoin d'un
stable et a jour de la fenetre de liste nombre de. La valeur par defaut liste de choix sur
le menu de la Fenetre est instable si vous avez plus de dix ouvrir des fichiers. Il
a de sens pour construire votre propre systeme de suivi.

Fenetre de Suivi des Numeros dans le MDI, les Redacteurs

Par Gene Fowler
[email protected]

Attention: Le banc d'essai de ce code est de Borland, TextEdit demo qui est livre avec Delphi. Si vous compilez en Delphi 5 ou 5.01, vous aurez besoin des formes modifiees.pas qui je vous orienter dans mon precedent article, Systeme de Programmation/Next (Precedent) dans le MDI redacteurs.

Dans la description ci-dessus, je dis que le menu de la Fenetre liste de choix est instable lorsque plus de dix fenetres sont ouvertes. Je fais allusion au fait que tous les fichiers au-dela de la neuvieme, quand ramasse, devient le neuvieme. Un utilisateur ne va pas regulierement d'avoir dix ou plus ouvrir les fenetres et n'est pas susceptible de payer beaucoup d'attention a l'un des numeros sur la liste, de toute façon. Mais Microsoft notion d'utilisateurs des capacites mentales n'est pas gratuit. Les numeros qui figurent sur la liste semble etre qu'un artefact d'une liste numerotee. Et seulement neuf sont comptes, le neuvieme d'une 'evolution' de la boîte de dialogue apparaît et les autres sont repris. Lorsqu'une fenetre est en place il n'y a rien pour identifier sa position dans n'importe quel ordre, sans parler de la charge de la commande. Systeme/Suivant (Precedent) retourne par le biais de la pile z (commande) qui change d'instant en instant.

Dans eWriter, mon MDI textwriter (le logiciel descendant de l'ancien materiel machine a ecrire), j'ai mis un nombre de fenetre (attribue sur le chargement et la mise a jour lorsqu'un fichier avec un nombre inferieur est ferme) sur la barre d'etat, ainsi que le fichier de la taille en octets. En cliquant sur la barre d'etat obtiendrez la 'prochaine' d'un fichier dans la charge (le cote superieur de la fenetre). Pour le saut, j'utilise l'ancien Turbo Alt TopNum# pour fenetre #1..#9. Alt TopNum#0 obtient une boîte de dialogue que j'ai sur le menu de la Fenetre (au-dessus de la liste de selection par defaut). Cette boîte de dialogue donne les chemins d'acces complets et est une liste de selection. Si l'utilisateur n'est pas sûr de Alt # il ou elle veut, Alt 0 et un clic sur le chemin et un autre sur le bouton Go ne ralentit pas la sauter beaucoup.

Le code ci-dessous met en œuvre (dans TextEdit) un systeme de suivi simple qui conserve la trace de la fenetre numeros et les fichiers attaches. J'ai mis dans un simple spectateur de sorte que vous pouvez faire le 'check' de la fenetre de chiffres apres votre s'ouvre, se ferme, et le battage. Je ne sais pas pourquoi z-ordre de la pile serait utile, mais vous pouvez voir que la façon la plus simple de verifier le fichier/nombre de connexion reflete egalement l'ordre-z dans la visionneuse.

Remarque: Dans le programme d'installation pour la Carrelage Haut de la page 2 de la N de Windows dans mon Selective de Carrelage dans le MDI, Editeurs, je n'ai pas mis de manipulation pour les 'sans titre' des fichiers que ce soit avant ou apres l'Enregistrement qui met en chemin. Dans SavingAs1Click, je n'ai pas ajouter le nouveau fichier de OpenFiles. Et j'ai nulle part n'a rien d'un 'sans titre' qui n'a pas de chemin. Si le 'sans titre' est l'un des deux premiers, il ne cause pas de probleme. Dans le code ci-dessous, comprennent une SaveAs1Click qui peuvent etre inclus dans le Pavage de l'article du code. Si vous enregistrez le nouveau fichier est place dans la OpenFiles et est inclus dans toutes les operations de traitement. Si vous avez sauvegarde le Fichier 'sans titre', cependant, vous aurez des effets bizarres (comme vous le faites maintenant, si le fichier est enregistre ou non). Le Carrelage Haut de la page 2 de la N de windows il sera ignore. Il apparaîtra dans le pavage. La perte de Restaurer le dimensionnement n'est pas l'un des etranges effets. Qui est cause par le Tile1Click ce que j'appelle le Carrelage Haut de la page 2 de la N de windows.

Code:

En utilisant TextEdit comme un banc d'essai pour le MDI Editeur de Texte de developpement
je suis en train de faire dans ces articles, certains proprietes besoin d'etre regle.
ce sont:

TOpenDialog Options/ofAllowMultiSelect: True

TEditForm WindowState: wsmaximized

Dans MDIFrame.pas, declarer un mondial (section Interface) variable nommee
EditTag qui est utilise dans les versions modifiees de New1Click et
Open1Click. OpenFiles, utilises plus tard, est egalement declare et il est
initialise.

TFrameForm
...
var
...
EditTag: longInt
OpenFiles: TstringList

Initialisation
...
OpenFiles := TStringList.Creer
OpenFiles.Text := '

Le Open1Click et New1Click routines de fournir une valeur pour EditTag
avant chaque ouverture. La valeur va etre mis en EditForm la balise
variable (Dans son FormCreate de routine). Cela permettra d'assurer que chaque
l'editeur aura un nombre de fenetre.

procedure TFrameForm.New1Click(Sender: TObject)
begin
LockWindowUpdate(Manche)
EditTag := MDIChildCount 1
TEditForm.Create(Self)
LockWindowUpdate(0)
fin

procedure TFrameForm.Open1Click(Sender: TObject)
var
i: integer

begin
si OpenFileDialog.Executer ensuite
LockWindowUpdate(Manche)
For i := 0 to OpenFileDialog.Les fichiers.count - 1 do
begin
EditTag := MDIChildCount 1
avec TEditForm.Create(Self) ne
Ouvrir(OpenFileDialog.Files[i])
fin
LockWindowUpdate(0)
fin

Dans TeditForm (MDIEdit.pas), tout le suivi est pris en charge. En
FormCreate, copie EditTag dans la Balise:

procedure TEditForm.FormCreate(Sender: TObject)
begin
Chemin d'acces := DefaultFileName Balise
: = EditTag
fin

EditTag est le (la charge de la sequence) Nombre de Fenetre. Ce sera conservee dans
EditForm l'Etiquette d'une variable. Ces numeros enregistres va etre deplace vers le bas'
quand un editeur avec un nombre inferieur est ferme. Maintenant, nous construisons dans notre
veritable moteur de suivi a l'aide de TEditForm.De pres. Cette routine utilise le
OpenFiles stringlist j'ai declare dans MDIFrame.pas.

procedure TEditForm.FormClose(Sender: TObject var Action: TCloseAction)
var
i, j: LongInt
CloseTag: integer

procedure TEditForm.Saveas1Click(Sender: TObject)
begin
SaveFileDialog.FileName := Chemin d'acces
si SaveFileDialog.Executer ensuite
begin
Chemin d'acces := SaveFileDialog.Nom de fichier
Caption := ExtractFileName(Chemin)
OpenFiles.Inserer(Tag, Chemin) // liste nouveau Chemin d'acces
Save1Click(Expediteur)
fin
fin

Afficher les Resultats:

Note: L'observateur d'element de menu enoncees ci-dessous semble causer le defaut liste de selection a l'abandon, au moins dans Delphi 5. J'ai bricole avec les Selecteurs dans et hors. Vous pourriez vouloir jouer avec elle et voir si vous pouvez obtenir TextEdit la liste de selection pour brouiller les z-stack avant de regarder un suivi de windows. Vous pourriez avoir a Restaurer les fenetres de petite taille pour melanger l'ordre z en la tirant par les fenetres. C'est probablement seulement en D5 (pas D2-D4) qui s'occupe de menu de construction dans un sens, je havn'pas tout a fait eu le coup de. Je n'ai certainement reconstruire le menu de la Fenetre au-dessus de la valeur par defaut liste de choix dans eWriter d'abord ecrit en Delpi 3 et migre a travers Delphi 4 a 5.

Nous voulons un 'viewer' pour voir les resultats de notre attribution et de suivi des
de la Fenetre de Numeros de nous ouvrir, de fermer et de lecture aleatoire (z-stack) de windows.
Au bas de la Fenetre des elements de menu-liste, ajoutez un nouvel element de menu:

Legende: Fenetre de l'Attribution d'un Numero de la Liste

Nom: WinNumList1

Onglet Evenements et double-cliquez sur OnClick. Ensuite, remplissez
le gestionnaire d'evenement pour creer cette routine:

procedure TFrameForm.WinNumList1Click(Sender: TObject)
var
i, j: integer
Liste: tstringList
S: string

begin
// Cette routine est un peu complique a rattraper 'les Nouveaux Fichiers'
Liste := TSTringList.Creer
Liste.Add('Ultraperipheriques de la Fenetre en haut de la pile Z la commande'#13)
For i := 0 to (MDIChildCount - 1)
Begin
S := 'Nombre de Fenetre' IntToStr(MDIChildren[i].La balise
si MDIChildren[i].Caption = DefaultFileName puis
begin
S := S '' MDIChildren[i].Legende
Liste.Ajouter le(S)
fin
else
begin
pour j := 0 pour (OpenFiles.Count - 1)
si pos(MDIChildren[i].Legende, OpenFiles.cordes[j]) <> 0 then
begin
S := S '' OpenFiles.Cordes[j]
Liste.Ajouter le(S)
break
fin
fin
fin
messageDlg(la Liste.Texte, mtInformation, [bakang],0)
Liste.Gratuit
fin

Voici le resultat:

Remarque: Pour voir les utilisations de cette fenetre, suivi du numero de la tapisserie complexe de monde reel de la fenetre de la manipulation, vous pourriez jouer avec mon eWriter textwriter. Ce n'est pas seulement un freeware, mais ne pas s'installer dans le tissu d'un systeme. Il est facile de jouer avec. Chaque editeur ouverte a son Nombre de Fenetre dans la barre d'etat. En cliquant sur la barre d'etat devient la plus prochaine fenetre de l'editeur de nombres. Alt TopNum# (1..9) obtient la fenetre numerotes de 1..9. Alt TopNum0 obtient un nom de chemin complet pic liste si la legende par defaut seule la liste de selection est sur le menu de la Fenetre pour un peu plus rapidement a la cueillette. (Le chemin d'acces complet d'une liste deroulante au-dessus d'elle sur le menu). 0.C, qui doit sortir en juin 2001 aura fenetre de chiffres dans le nom de la liste de selection de la suite de mon ecriture de cet article.

Entrelace Bibliographie

j'ai commence ad-libbing ces articles sur le fait de faire certaines choses que je ne
dans eWriter en Delphi demo TextEdit (a partir de laquelle j'ai construit eWriter).
Il est naturel de s'accumuler tous ces dans une copie de TextEdit. Et
vous pourriez avoir a aller en arriere et en avant de la remplir a nouveau, manques ou
change routines de prise en charge. Coffret apparaissent des notes de la plupart des endroits. La Figure
c'est en cours 'boutique' conversation...