Sélective de carrelage dans le mdi, éditeurs

8/19/2018

1307

Sélective de carrelage dans le mdi, éditeurs

La Fenêtre/Tuile de l'élément de menu est utile si seulement deux fichiers sont ouverts. Ce
ce code met en œuvre plus utile 'Mosaïque en Haut 2 de N de Windows' qui ne fonctionne pas
perdre les autres fichiers qui peuvent être ouverts.
Sélective de Carrelage dans le MDI, les Rédacteurs
Par Gene Fowler
[email protected]

le 28 Mai 2001 - Modifier Quand j'ai ajouté de la fenêtre de suivi dans un ltre article, Fenêtre de Suivi des Numéros dans le MDI, des Éditeurs,des, j'ai trouvé que je n'avais pas mis de Balise de valeurs lors de la réouverture des dossiers fermés avant la pose du carrelage. J'ai fait ce changement dans le TFrameForm.Tile2ofN1Click:
// Emprunté tripes de Open1Click à remplacer
// ReopenIt dans eWriter de l'architecture complexe du
avec TEditForm.Create(Self) ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Ouvert(TileTwo[i])
& ! & ! & ! & nbsp Tag := 3 i
& ! & ! & ! & nbsp fin
Remplace:
// Emprunté tripes de Open1Click à remplacer
// ReopenIt dans eWriter de l'architecture complexe du
avec TEditForm.Create(Self) ne
& nbsp & nbsp Ouvert(TileTwo[i])

Ajout d'un CodeSi vous avez défini Carrelage Haut de la page 2 de la N de Windows dans TextEdit à regarder le code du travail, vous voulez ajouter cette SaveAs1Click routine pour MDIEdit.pas. Vous avez peut-être remarqué que si vous aviez un nouveau fichier, enregistré ou non, vous avez obtenu quelques résultats étranges. Ajouter cette et vous n'obtiendrez pas des résultats bizarres si vous enregistrez le fichier (en lui donnant un nom de chemin). Vous ne devez pas utiliser cette option de menu si vous avez sauvegardé le nouveau fichier.
La perte de Restaurer la taille est pas l'un des étranges effets. Tiling1 produit cet effet et je l'appelle dans Carrelage Haut de la page 2 de la N de Windows.
procédure TEditForm.Saveas1Click(Sender: TObject)
begin
& nbsp & nbsp SaveFileDialog.FileName := Chemin d'accès
& nbsp & nbsp si SaveFileDialog.Exécuter ensuite
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Chemin := SaveFileDialog.Nom de fichier
& ! & ! & ! & nbsp Caption := ExtractFileName(Chemin)
& ! & ! & ! & nbsp OpenFiles.Insérer(Tag, Chemin) // liste nouveau Chemin d'accès
& ! & ! & ! & nbsp Save1Click(Expéditeur)
& nbsp & nbsp fin
fin

Avertissement: 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.

Lorsque vous compilez et exécutez de Borland, TextEdit (demos/doc/TextEdit) et cliquez sur le menu Fenêtre, vous trouverez deux fichiers d'organiser les éléments de menu: la Tuile et de la Cascade. La Tuile de commande est d'un design étonnant. Si vous avez deux fichiers ouverts, ils sont empilées verticalement. C'est un très utile sur l'organisation du travail. Mais permet d'aller sur. Si vous avez trois fichiers ouverts, ils sont encore empilés verticalement. Maintenant, il n'y a pas beaucoup de la zone de travail dans l'un d'eux. Si vous avez quatre fichiers ouverts, ils occupent les quadrants de la zone client. Je n'ai pas osé essayer avec cinq fichiers ouverts. J'ai peur de pixels popping out de l'écran.
Mosaïque est très utile si vous avez seulement deux fichiers ouverts. Dans le cadre d'un projet, cependant, vous pourriez avoir une demi-douzaine à portée de la main. Ce que vous avez besoin est un moyen de mettre tous les fichiers, mais deux de côté, avec un clic de souris, et, plus tard, de les ramener avec un clic de souris.
Vous ne voulez pas à vous soucier de savoir si les fichiers sont carrelées ou non lors de la prise de cette deuxième clic. Le code ci-dessous met en œuvre le présent avec un nouveau point sur le menu de la Fenêtre au-dessous de la Tuile. Cliquez sur Mosaïque en Haut 2 de N de Windows. Tous les fichiers autres que les deux premiers sont fermés et les deux premières sont carrelées. L'élément de menu est coché. Cliquez sur tout vérifié, et les fichiers sont ré-ouverts, les fichiers sont maxed, et celui qui était actif avant la ré-ouverture est sur le dessus.
Sur TFrameForm, mettre un élément de menu dans le menu de la Fenêtre entre la Tuile et de la Cascade. En haut de la section de Code ci-dessous, je donne une Légende (pour l'utilisateur) et de rappeler que la propriété Checked doit être Faux. Tout le reste peut être laissé tel qu'il est (puisque c'est ce que j'ai fait lors de la vérification). Le Nom de la propriété peut être raccourcie, comme illustré. Dans les Événements de la feuille, Double-Cliquez sur le onClick pour obtenir le gestionnaire. TFrameForm.Tile2ofN1Click est donné ici à plein. Toutes les déclarations et initialisations) sont donnés en premier.
Ce n'est pas d'aller à la compilation, encore. J'ai travaillé ce fil en vrac à partir d'un complexe de 'fils de TextEdit', et j'ai travaillé jusqu'à un minimum de soutien de l'infrastructure de ici. Dans les propriétés de la table ci-dessous, notez que TEditForm devrait avoir WindowState ensemble de wsMaximized. En vertu de l'Appui de Code, je donne le remplacement des routines pour TEditForm.FormClose et TEditForm.Ouvert. Mes modifications sont nécessaires pour garder une trace de quels fichiers sont ouverts et d'obtenir des chemins d'accès à ré-ouvert.
en bas en bas, c'est quelque chose que je devrais avoir inclus dans mon premier article. Tous les tests de mon code amener un gang de fichiers dans TextEdit. L'ouverture d'un à la fois est une traînée. J'ai donc inclure un remplacement TFrameForm.Open1Click pour gérer les gangs de chargement. Une note juste avant la routine vous indique comment modifier la boîte de dialogue propriétés.
Code:
Certains paramètres de propriété:

Dans TFrameForm, insérer un nouvel élément de menu entre la Fenêtre/la Tuile et de la Fenêtre/Cascade. Mosaïque en Haut & 2 de N de Windows (élément de Menu de la légende)
Nom peuvent être coupés à Tile2ofN1
Vérifié, c'est faux

TEditForm WindowState: wsmaximized

TFrameForm
& nbsp & nbsp ...
var (global)
& nbsp & nbsp ...
& nbsp & nbsp TileTwo: TstringList
& nbsp & nbsp OpenFiles: TstringList
initialisation
// TileTwo est pour le code principal
TileTwo := TStringList.Créer
TileTwo.Text := '
// OpenFiles est une juri-truquées système pour garder la trace des fichiers ouverts
OpenFiles := TStringList.Créer
OpenFiles.Text := '
{ Le code principal, un TFrameForm routine }
procédure TFrameForm.Tile2ofN1Click(Sender: TObject)
var
& nbsp & nbsp i, j: integer
begin
& nbsp & nbsp si MDIChildCount < 2 then Exit
& nbsp & nbsp si (MDIChildCount = 2) et (Tile2ofN1.Checked = False)
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp Tile1Click(Expéditeur)

& ! & ! & ! & ! & ! & nbsp Sortie
& ! & ! & ! & nbsp fin
& nbsp & nbsp Si (MDIChildCount > 2) et de ne pas Tile2ofN1.Cette option est cochée,
& ! & ! & ! & nbsp commencer
& ! & ! & ! & nbsp Tile2ofN1.Checked := True
& ! & ! & ! & ! & ! & nbsp for i := 2 à MDIChildCount - 1 do
& ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp pour j := 0 pour OpenFiles.Count - 1 do
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si pos(MDIChildren[i].Légende, OpenFiles.cordes[j]) <> 0 then
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp TileTwo.Ajouter(OpenFiles.cordes[j])
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp MDIChildren[i].Fermer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp & ! & ! & ! & nbsp Tile2ofN1.Checked := True
& ! & ! & ! & ! & ! & nbsp messageDlg('Dans cette démo, j'ai besoin d''
& ! & ! & ! & ! & ! & nbsp 'une interruption après la fermeture des fichiers et avant'
& ! & ! & ! & ! & ! & nbsp appel Tile1Click donc Enfant est '
& ! & ! & ! & ! & ! & ! 'recalculé. Allez comprendre.', mtInformation, [bakang],0)
& ! & ! & ! & ! & ! & nbsp LockWindowUpdate(Manche)
& ! & ! & ! & ! & ! & nbsp Tile1Click(Expéditeur)
& ! & ! & ! & ! & ! & nbsp LockWindowUpdate(0)
& ! & ! & ! & nbsp fin
& nbsp & nbsp sinon si Tile2ofN1.Vérifié et (TileTwo.Text<> ')
& ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & nbsp LockWindowUpdate(Manche)
& ! & ! & ! & ! & ! & ! & nbsp for i := 0 to TileTwo.Count - 1 do
& ! & ! & ! & ! & ! & ! & nbsp // Emprunté tripes de Open1Click à remplacer
& ! & ! & ! & ! & ! & nbsp // ReopenIt dans eWriter de l'architecture complexe du
& ! & ! & ! & ! & ! & ! & nbsp avec TEditForm.Create(Self) ne
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Ouvert(TileTwo[i])
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Tag := 3 i
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & nbsp MDIChildren[MDIChildCount - 2].BringToFront
& ! & ! & ! & ! & ! & ! & nbsp LockWindowUpdate(0)
& ! & ! & ! & ! & ! & ! & nbsp TileTwo.Text := '
& ! & ! & ! & ! & ! & ! & nbsp Tile2ofN1.Checked := False
& ! & ! & ! & ! & nbsp fin
fin
Code de Support:
{Ces deux routines dans TEDitForm suivre et de gérer le fichier s'ouvre et se ferme et remplacer les routines déjà il y}
procédure TEditForm.FormClose(Sender: TObject var Action: TCloseAction)
var
& nbsp i: Longint
begin
& nbsp & nbsp for i := 0 to OpenFiles.Count - 1 do
& ! & ! & ! & nbsp si OpenFiles[i] = Chemin puis
& ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & nbsp OpenFiles.Supprimer(i)
& ! & ! & ! & ! & ! & ! & nbsp pause
& ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp Action := caFree
fin
procédure TEditForm.Open(const AFileName: string)
begin
& nbsp & nbsp Chemin := AFileName
& nbsp & nbsp Caption := ExtractFileName(AFileName)
& nbsp & nbsp // mettre le nom de Chemin dans OpenFiles liste
& nbsp & nbsp OpenFiles.Ajouter(le Chemin)
& nbsp & nbsp avec l'Éditeur ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Lignes.LoadFromFile(Chemin)
& ! & ! & ! & nbsp SelStart := 0
& ! & ! & ! & nbsp Modifié := False
& nbsp & nbsp fin
fin
{Prendre dans plusieurs fichiers pour exécuter des tests sera plus facile si vous sélectionnez TFrameForm de OpenDialog1 et, sous options, faire des sélections multiples Vrai. Ensuite, remplacer la routine ci-dessous pour Open1Click}
procédure TFrameForm.Open1Click(Sender: TObject)
var
& nbsp & nbsp i: integer
begin
& nbsp & nbsp si OpenFileDialog.Exécuter ensuite
& nbsp & nbsp LockWindowUpdate(Manche)
& nbsp & nbsp For i := 0 to OpenFileDialog.Les fichiers.count - 1 do
& nbsp & nbsp avec TEditForm.Create(Self) ne
& ! & ! & ! & nbsp Ouvert(OpenFileDialog.Files[i])
& nbsp & nbsp LockWindowUpdate(0)
fin

Entrelacé Bibliographie

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

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

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

Sélective de Carrelage dans le MDI Rédacteurs

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

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

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

Paragraphe 'coulée' à partir d'un éditeur de texte

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

Selective de carrelage dans le mdi, editeurs

Selective de carrelage dans le mdi, editeurs : Plusieurs milliers de conseils pour vous faciliter la vie.

La Fenetre/Tuile de l'element de menu est utile si seulement deux fichiers sont ouverts. Ce
ce code met en œuvre plus utile 'Mosaïque en Haut 2 de N de Windows' qui ne fonctionne pas
perdre les autres fichiers qui peuvent etre ouverts.
Selective de Carrelage dans le MDI, les Redacteurs
Par Gene Fowler
[email protected]

le 28 Mai 2001 - Modifier Quand j'ai ajoute de la fenetre de suivi dans un ltre article, Fenetre de Suivi des Numeros dans le MDI, des Editeurs,des, j'ai trouve que je n'avais pas mis de Balise de valeurs lors de la reouverture des dossiers fermes avant la pose du carrelage. J'ai fait ce changement dans le TFrameForm.Tile2ofN1Click:
// Emprunte tripes de Open1Click a remplacer
// ReopenIt dans eWriter de l'architecture complexe du
avec TEditForm.Create(Self) ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Ouvert(TileTwo[i])
& ! & ! & ! & nbsp Tag := 3 i
& ! & ! & ! & nbsp fin
Remplace:
// Emprunte tripes de Open1Click a remplacer
// ReopenIt dans eWriter de l'architecture complexe du
avec TEditForm.Create(Self) ne
& nbsp & nbsp Ouvert(TileTwo[i])

Ajout d'un CodeSi vous avez defini Carrelage Haut de la page 2 de la N de Windows dans TextEdit a regarder le code du travail, vous voulez ajouter cette SaveAs1Click routine pour MDIEdit.pas. Vous avez peut-etre remarque que si vous aviez un nouveau fichier, enregistre ou non, vous avez obtenu quelques resultats etranges. Ajouter cette et vous n'obtiendrez pas des resultats bizarres si vous enregistrez le fichier (en lui donnant un nom de chemin). Vous ne devez pas utiliser cette option de menu si vous avez sauvegarde le nouveau fichier.
La perte de Restaurer la taille est pas l'un des etranges effets. Tiling1 produit cet effet et je l'appelle dans Carrelage Haut de la page 2 de la N de Windows.
procedure TEditForm.Saveas1Click(Sender: TObject)
begin
& nbsp & nbsp SaveFileDialog.FileName := Chemin d'acces
& nbsp & nbsp si SaveFileDialog.Executer ensuite
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Chemin := SaveFileDialog.Nom de fichier
& ! & ! & ! & nbsp Caption := ExtractFileName(Chemin)
& ! & ! & ! & nbsp OpenFiles.Inserer(Tag, Chemin) // liste nouveau Chemin d'acces
& ! & ! & ! & nbsp Save1Click(Expediteur)
& nbsp & nbsp fin
fin

Avertissement: 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.

Lorsque vous compilez et executez de Borland, TextEdit (demos/doc/TextEdit) et cliquez sur le menu Fenetre, vous trouverez deux fichiers d'organiser les elements de menu: la Tuile et de la Cascade. La Tuile de commande est d'un design etonnant. Si vous avez deux fichiers ouverts, ils sont empilees verticalement. C'est un tres utile sur l'organisation du travail. Mais permet d'aller sur. Si vous avez trois fichiers ouverts, ils sont encore empiles verticalement. Maintenant, il n'y a pas beaucoup de la zone de travail dans l'un d'eux. Si vous avez quatre fichiers ouverts, ils occupent les quadrants de la zone client. Je n'ai pas ose essayer avec cinq fichiers ouverts. J'ai peur de pixels popping out de l'ecran.
Mosaïque est tres utile si vous avez seulement deux fichiers ouverts. Dans le cadre d'un projet, cependant, vous pourriez avoir une demi-douzaine a portee de la main. Ce que vous avez besoin est un moyen de mettre tous les fichiers, mais deux de cote, avec un clic de souris, et, plus tard, de les ramener avec un clic de souris.
Vous ne voulez pas a vous soucier de savoir si les fichiers sont carrelees ou non lors de la prise de cette deuxieme clic. Le code ci-dessous met en œuvre le present avec un nouveau point sur le menu de la Fenetre au-dessous de la Tuile. Cliquez sur Mosaïque en Haut 2 de N de Windows. Tous les fichiers autres que les deux premiers sont fermes et les deux premieres sont carrelees. L'element de menu est coche. Cliquez sur tout verifie, et les fichiers sont re-ouverts, les fichiers sont maxed, et celui qui etait actif avant la re-ouverture est sur le dessus.
Sur TFrameForm, mettre un element de menu dans le menu de la Fenetre entre la Tuile et de la Cascade. En haut de la section de Code ci-dessous, je donne une Legende (pour l'utilisateur) et de rappeler que la propriete Checked doit etre Faux. Tout le reste peut etre laisse tel qu'il est (puisque c'est ce que j'ai fait lors de la verification). Le Nom de la propriete peut etre raccourcie, comme illustre. Dans les Evenements de la feuille, Double-Cliquez sur le onClick pour obtenir le gestionnaire. TFrameForm.Tile2ofN1Click est donne ici a plein. Toutes les declarations et initialisations) sont donnes en premier.
Ce n'est pas d'aller a la compilation, encore. J'ai travaille ce fil en vrac a partir d'un complexe de 'fils de TextEdit', et j'ai travaille jusqu'a un minimum de soutien de l'infrastructure de ici. Dans les proprietes de la table ci-dessous, notez que TEditForm devrait avoir WindowState ensemble de wsMaximized. En vertu de l'Appui de Code, je donne le remplacement des routines pour TEditForm.FormClose et TEditForm.Ouvert. Mes modifications sont necessaires pour garder une trace de quels fichiers sont ouverts et d'obtenir des chemins d'acces a re-ouvert.
en bas en bas, c'est quelque chose que je devrais avoir inclus dans mon premier article. Tous les tests de mon code amener un gang de fichiers dans TextEdit. L'ouverture d'un a la fois est une traînee. J'ai donc inclure un remplacement TFrameForm.Open1Click pour gerer les gangs de chargement. Une note juste avant la routine vous indique comment modifier la boîte de dialogue proprietes.
Code:
Certains parametres de propriete:

Dans TFrameForm, inserer un nouvel element de menu entre la Fenetre/la Tuile et de la Fenetre/Cascade. Mosaïque en Haut & 2 de N de Windows (element de Menu de la legende)
Nom peuvent etre coupes a Tile2ofN1
Verifie, c'est faux

TEditForm WindowState: wsmaximized

TFrameForm
& nbsp & nbsp ...
var (global)
& nbsp & nbsp ...
& nbsp & nbsp TileTwo: TstringList
& nbsp & nbsp OpenFiles: TstringList
initialisation
// TileTwo est pour le code principal
TileTwo := TStringList.Creer
TileTwo.Text := '
// OpenFiles est une juri-truquees systeme pour garder la trace des fichiers ouverts
OpenFiles := TStringList.Creer
OpenFiles.Text := '
{ Le code principal, un TFrameForm routine }
procedure TFrameForm.Tile2ofN1Click(Sender: TObject)
var
& nbsp & nbsp i, j: integer
begin
& nbsp & nbsp si MDIChildCount < 2 then Exit
& nbsp & nbsp si (MDIChildCount = 2) et (Tile2ofN1.Checked = False)
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp Tile1Click(Expediteur)

& ! & ! & ! & ! & ! & nbsp Sortie
& ! & ! & ! & nbsp fin
& nbsp & nbsp Si (MDIChildCount > 2) et de ne pas Tile2ofN1.Cette option est cochee,
& ! & ! & ! & nbsp commencer
& ! & ! & ! & nbsp Tile2ofN1.Checked := True
& ! & ! & ! & ! & ! & nbsp for i := 2 a MDIChildCount - 1 do
& ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp pour j := 0 pour OpenFiles.Count - 1 do
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp si pos(MDIChildren[i].Legende, OpenFiles.cordes[j]) <> 0 then
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp TileTwo.Ajouter(OpenFiles.cordes[j])
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp MDIChildren[i].Fermer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pause
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp & ! & ! & ! & nbsp Tile2ofN1.Checked := True
& ! & ! & ! & ! & ! & nbsp messageDlg('Dans cette demo, j'ai besoin d''
& ! & ! & ! & ! & ! & nbsp 'une interruption apres la fermeture des fichiers et avant'
& ! & ! & ! & ! & ! & nbsp appel Tile1Click donc Enfant est '
& ! & ! & ! & ! & ! & ! 'recalcule. Allez comprendre.', mtInformation, [bakang],0)
& ! & ! & ! & ! & ! & nbsp LockWindowUpdate(Manche)
& ! & ! & ! & ! & ! & nbsp Tile1Click(Expediteur)
& ! & ! & ! & ! & ! & nbsp LockWindowUpdate(0)
& ! & ! & ! & nbsp fin
& nbsp & nbsp sinon si Tile2ofN1.Verifie et (TileTwo.Text<> ')
& ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & nbsp LockWindowUpdate(Manche)
& ! & ! & ! & ! & ! & ! & nbsp for i := 0 to TileTwo.Count - 1 do
& ! & ! & ! & ! & ! & ! & nbsp // Emprunte tripes de Open1Click a remplacer
& ! & ! & ! & ! & ! & nbsp // ReopenIt dans eWriter de l'architecture complexe du
& ! & ! & ! & ! & ! & ! & nbsp avec TEditForm.Create(Self) ne
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Ouvert(TileTwo[i])
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Tag := 3 i
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & nbsp MDIChildren[MDIChildCount - 2].BringToFront
& ! & ! & ! & ! & ! & ! & nbsp LockWindowUpdate(0)
& ! & ! & ! & ! & ! & ! & nbsp TileTwo.Text := '
& ! & ! & ! & ! & ! & ! & nbsp Tile2ofN1.Checked := False
& ! & ! & ! & ! & nbsp fin
fin
Code de Support:
{Ces deux routines dans TEDitForm suivre et de gerer le fichier s'ouvre et se ferme et remplacer les routines deja il y}
procedure TEditForm.FormClose(Sender: TObject var Action: TCloseAction)
var
& nbsp i: Longint
begin
& nbsp & nbsp for i := 0 to OpenFiles.Count - 1 do
& ! & ! & ! & nbsp si OpenFiles[i] = Chemin puis
& ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & nbsp OpenFiles.Supprimer(i)
& ! & ! & ! & ! & ! & ! & nbsp pause
& ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp Action := caFree
fin
procedure TEditForm.Open(const AFileName: string)
begin
& nbsp & nbsp Chemin := AFileName
& nbsp & nbsp Caption := ExtractFileName(AFileName)
& nbsp & nbsp // mettre le nom de Chemin dans OpenFiles liste
& nbsp & nbsp OpenFiles.Ajouter(le Chemin)
& nbsp & nbsp avec l'Editeur ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Lignes.LoadFromFile(Chemin)
& ! & ! & ! & nbsp SelStart := 0
& ! & ! & ! & nbsp Modifie := False
& nbsp & nbsp fin
fin
{Prendre dans plusieurs fichiers pour executer des tests sera plus facile si vous selectionnez TFrameForm de OpenDialog1 et, sous options, faire des selections multiples Vrai. Ensuite, remplacer la routine ci-dessous pour Open1Click}
procedure TFrameForm.Open1Click(Sender: TObject)
var
& nbsp & nbsp i: integer
begin
& nbsp & nbsp si OpenFileDialog.Executer ensuite
& nbsp & nbsp LockWindowUpdate(Manche)
& nbsp & nbsp For i := 0 to OpenFileDialog.Les fichiers.count - 1 do
& nbsp & nbsp avec TEditForm.Create(Self) ne
& ! & ! & ! & nbsp Ouvert(OpenFileDialog.Files[i])
& nbsp & nbsp LockWindowUpdate(0)
fin

Entrelace Bibliographie

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