Selectiva mosaico en mdi editores

Selectiva mosaico en mdi editores

Selectiva mosaico en mdi editores : Multi-millones de consejos para hacer su vida mas facil.

La Ventana/Mosaico elemento de menu es util si solo dos archivos estan abiertos. Este
codigo implementa un 'Mosaico Top 2 de N de Windows' que no
perder otros archivos que se pueden abrir.
Selectivo Mosaico en MDI Editores
Por Gene Fowler
[email protected]

Advertencia: La prueba de la cama para que este codigo es de Borland TextEdit demo que viene con Delphi. Si se compila en Delphi 5 o 5.01, sera necesario la modificacion de los formularios.pas que dirijo a usted en mi anterior articulo, Sistema de Programacion/Next (Anterior) en MDI editores.

Al compilar y ejecutar Borland TextEdit (demos/doc/TextEdit) y haga clic en el menu Ventana, se encuentran dos de archivos de la organizacion de los elementos de menu: Mosaico o Cascada. El comando Mosaico es un diseño de maravilla. Si usted tiene dos archivos abiertos, que se apilan verticalmente. Esto es muy util, acuerdo de trabajo. Pero vamos a ir. Si usted tiene tres archivos abiertos, todavia estan apilados verticalmente. Ahora, no hay mucha area de trabajo en cualquiera de ellos. Si usted tiene cuatro archivos abiertos, que ocupa los cuadrantes del area de cliente. No me he atrevido a probar con cinco archivos abiertos. Me temo pixeles saliendo de la pantalla.
Mosaico es mas util si se tienen dos archivos abiertos. En el contexto de un proyecto, sin embargo, es posible que desee tener una media docena de cerca a la mano. Lo que usted necesita es una manera de establecer todos los archivos, pero dos de lado, con un clic del raton, y, mas tarde, traerlos de vuelta con un clic del raton.
Usted no quiere preocuparse de si los archivos son de baldosa o no al hacer que el segundo clic. El siguiente codigo implementa con un nuevo elemento en el menu de la Ventana debajo de la Baldosa. Haga clic en Baldosa de la parte Superior de la 2 de N de Windows. Todos los otros archivos que no sean las dos de arriba son cerrados y las dos de arriba son de baldosas. El elemento de menu esta activado. Haga clic en el mientras marcada, y los archivos se vuelven a abrir, los archivos estan al maximo, y la que estaba activa antes de la re-apertura en la parte superior.
En TFrameForm, poner un elemento de menu en el menu de la Ventana entre el Azulejo y la Cascada. En la parte superior de la seccion de Codigo a continuacion, doy un Titulo (para el usuario vea) y recordar que la propiedad Checked debe ser Falsa. Todo lo demas se puede dejar como esta (ya que es lo que he hecho durante la comprobacion de este). El Nombre de la propiedad puede ser reducido como se muestra. En los Eventos de la hoja, haga Doble Clic en el onClick para obtener el controlador. TFrameForm.Tile2ofN1Click esta aqui en el pleno. Todas las declaraciones (y inicializaciones).
Esto no se va a compilar, sin embargo. He trabajado este hilo suelto de un complejo de 'hijo de TextEdit,' y he trabajado un minimo de infraestructura de apoyo aqui. En las propiedades de la tabla a continuacion, tenga en cuenta que TEditForm debe tener WindowState conjunto para wsMaximized. En virtud del Codigo de Soporte, doy reemplazo de rutinas para TEditForm.FormClose y TEditForm.Abrir. Mis modificaciones son necesarias para mantener un seguimiento de lo que los archivos estan abiertos y obtener los nombres de ruta de volver a abrir.
Camino hacia abajo en la parte inferior es algo que yo deberia haber incluido en mi primer articulo. Todas las pruebas de mi codigo implicaria integrar una banda de archivos en TextEdit. La apertura de una en una es un lastre. Asi que incluyen un reemplazo TFrameForm.Open1Click para manejar pandilla de carga. Una nota justo antes de la rutina indica como modificar del cuadro de dialogo propiedades.
Codigo:
Algunos de los ajustes de la propiedad:

TFrameForm
& nbsp & nbsp ...
var (global)
& nbsp & nbsp ...
& nbsp & nbsp TileTwo: TstringList
& nbsp & nbsp OpenFiles: TstringList
inicializacion
// TileTwo es para el codigo principal
TileTwo := TStringList.Crear
TileTwo.Text := '
// OpenFiles es un juri-aparejado sistema de seguimiento de los archivos abiertos
OpenFiles := TStringList.Crear
OpenFiles.Text := '
{ El codigo principal, un TFrameForm rutina }
procedimiento TFrameForm.Tile2ofN1Click(Sender: TObject)
var
& nbsp & nbsp i, j: integer
begin
& nbsp & nbsp si MDIChildCount < 2, a continuacion, Salir
& nbsp & nbsp si (MDIChildCount = 2) y (Tile2ofN1.Checked = False) then
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Tile1Click(Remitente)

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Salida
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp Si (MDIChildCount > 2) y no Tile2ofN1.Comprobado, a continuacion,
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Tile2ofN1.Comprobado := True
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp for i := 2 a MDIChildCount - 1 hacer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp para j := 0 a OpenFiles.Count - 1 do
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si pos(MDIChildren[i].Titulo OpenFiles.cadenas[j]) <> 0 then
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TileTwo.Agregar(OpenFiles.cadenas[j])
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MDIChildren[i].Cerrar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Break
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Tile2ofN1.Comprobado := True
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp messageDlg('En esta demo, necesito'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'una interrupcion despues de cerrar archivos y antes de'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp de las llamadas Tile1Click para que el Niño Cuente es '
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp 'vuelve a calcular. Vaya usted a saber.', mtInformation, [mbOK],0)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp LockWindowUpdate(Asa)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Tile1Click(Remitente)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp LockWindowUpdate(0)
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp cosa si Tile2ofN1.Comprueba y (TileTwo.Texto <> ')
& nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp LockWindowUpdate(Asa)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp for i := 0 a TileTwo.Count - 1 do
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp // Prestamo tripa de Open1Click para reemplazar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp // ReopenIt en eWriter del complejo entramado
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp con TEditForm.Create(Self) no
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Abierto(TileTwo[i])
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Etiqueta := 3 i
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp MDIChildren[MDIChildCount - 2].BringToFront
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp LockWindowUpdate(0)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TileTwo.Text := '
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Tile2ofN1.Comprobado := False
& nbsp & nbsp & nbsp & nbsp & nbsp final
fin
Codigo de Soporte:
{Estas dos rutinas en TEDitForm pista y manejar el archivo se abre y se cierra y reemplazar las rutinas ya no}
procedimiento TEditForm.FormClose(Sender: TObject var Accion: TCloseAction)
var
& nbsp i: Longint
begin
& nbsp & nbsp for i := 0 a OpenFiles.Count - 1 do
& nbsp & nbsp & nbsp & nbsp si OpenFiles[i] = Ruta de acceso, a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp OpenFiles.Eliminar(i)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp break
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp Accion := caFree
fin
procedimiento TEditForm.Open(const AFileName: string)
begin
& nbsp & nbsp Ruta de acceso := AFileName
& nbsp & nbsp Caption := ExtractFileName(AFileName)
& nbsp & nbsp // colocar el nombre de Ruta de acceso en OpenFiles lista
& nbsp & nbsp OpenFiles.Agregar(Pathname)
& nbsp & nbsp con el Editor de hacer
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Lineas.LoadFromFile(PathName)
& nbsp & nbsp & nbsp & nbsp SelStart := 0
& nbsp & nbsp & nbsp & nbsp Modificacion := False
& nbsp & nbsp final
fin
{Tomando en varios archivos para ejecutar las pruebas sera mas facil si selecciona TFrameForm del OpenDialog1 y, en opciones, hacer multiples selecciones de Verdad. A continuacion, sustituir la siguiente rutina para Open1Click}
procedimiento TFrameForm.Open1Click(Sender: TObject)
var
& nbsp & nbsp i: integer
begin
& nbsp & nbsp si OpenFileDialog.Ejecutar, a continuacion,
& nbsp & nbsp LockWindowUpdate(Asa)
& nbsp & nbsp For i := 0 a OpenFileDialog.Los archivos.count - 1 do
& nbsp & nbsp con TEditForm.Create(Self) no
& nbsp & nbsp & nbsp & nbsp Abierto(OpenFileDialog.Archivos[i])
& nbsp & nbsp LockWindowUpdate(0)
fin