Tipos de Datos

Cuadros de Diálogos Comunes

TOpenDialog (Dialogs): Visualiza un cuadro de diálogo común de Windows que permite la selección y apertura de archivos.

*Propiedad*	*Significado*
Title	Permite personalizar la cadena en la barra de título de la ventana.
FileName	Si se facilita el nombre de archivo que aparecerá por defecto en el cuadro de diálogo. Una vez que el usuario haya seleccionado el archivo que desea abrir y cerrado el cuadro de diálogo, se podrá obtener el nombre y toda la ruta completa del archivo seleccionado mediante la misma propiedad.
Filter	A esta propiedad se le asignará una cadena conteniendo una descripción del tipo de archivo y la referencia correspondiente, que normalmente se compone de un asterisco, un punto y la extensión. Estos dos componentes los separamos mediante el símbolo \| (ASCII 124). Por ejemplo: “Archivos de texto \| .txt \| Archivos gráficos \| .bmp; *.pcx”.
FilterIndex	Permite especificar cual fitro de los nombrados en la propiedad anterior aparecerá primero.
DefaultExt	Nos sirve para añadir una extensión por defecto. Por ejemplo: “doc”.
InitialDir	Cuando se abre el cuadro de diálogo para seleccionar un archivo, por defecto la carpeta seleccionada es aquella en la cual se este ejecutando el programa. Si se quiere especificar otra carpeta se debe indicar la ruta respectiva.
Options	Por omisión tiene activados dos de los valores del enumerado, es el caso de ofhideReadyOnly y ofEnabledSizing que respectivamente, eliminan del cuadro de diálogo la casilla de verificación de apertura y permiten al usuario ajustar el tamaño del cuadro de diálogo. El ofAllowMultiSelect le da la posibilidad al usuario la selección de varios archivos al momento de abrir (propiedad Files).

El OpenDialogs no es visible en tiempo de ejecución hasta que no se invoca el control con el método Execute.

TSaveDialog (Dialogs): Visualiza un cuadro de diálogo que permite la selección y grabación de archivos. La ventana no es visible en tiempo de ejecución hasta que no se invoca al control con el método Execute. Cuando el usuario pulse sobre el botón Save, que incorpora la ventana, se cierra el cuadro de diálogo y el archivo seleccionado se almacena en la propiedad Files. De hecho este componente cuenta exactamente con las mismas propiedades que TOpenDialog.

TOpenPictureDialog (Dialogs): Visualiza una ventana para la selección y apertura de archivos gráficos. Se comporta como el control TopenDialog con la diferencia de que incluye un rectángulo para la vista previa del gráfico que se pretende abrir.

TSavePictureDialog (Dialogs): Visualiza una ventana para la selección y grabación de archivos gráficos. Se comporta como el control TopenDialog con la diferencia de que incluye un rectángulo para la vista previa del gráfico que se pretende guardar.

TFontDialog (Dialogs): Cuadro de diálogo para la selección de los códigos fuentes. La ventana no aparece hasta que no se invoca al control con el método Execute. Cuando el usuario selecciona un código fuente y pulsa sobre el botón Aceptar se cierra el cuadro de diálogo y el codigo seleccionado se almacena en la propiedad Font.

*Propiedad*	*Significado*
Device	Permite seleccionar el destino del tipo de letra. Valores: fdScreen = Pantalla. fdPrinter = Impresora. fdBoth = Ambos.
Font	Define los valores seleccionados en el cuadro de diálogo (tipo de letra, estilo, tamaño y color).
MinFontSize	Determina el tamaño mínimo permitido.
MaxFontSize	Determina el tamaño máximo permitido.

TColorDialog (Dialogs): Permite la configuración personal de los distintos componentes del entorno, en donde se puede elegir un color de los ya definidos o incluso crear colores propios. Se activa este control mediante el método Execute.

Propiedad

Significado

Color

Devuelve el color seleccionado por el usuario en el cuadro de diálogo.

Options

Esta propiedad define las siguientes propiedades internas:

cdPreventFullOpen = Activando esta opción provocaremos abrir una extensión del cuadro de diálogo a través de un botón llamado “Definir colores personalizados”.

cdShowHelp = Fuerza la aparición en la ventana de un botón de ayuda.

TPrintDialog (Dialogs): Se visualiza la ventana para la impresión de documentos. Se activa este control mediante el método Execute. Las propiedades de este control posibilitan la impresión de todas las páginas del documento, de algunas o de la página actual.

*Propiedad*	*Significado*
MinPage	Establece el número mínimo de páginas a imprimir.
MaxPage	Establece el número máximo de páginas a imprimir.
Options	Esta propiedad define las siguientes propiedades internas: poPageNum = Permite que el usuario pueda seleccionar una página de inicio y otra para el fin de impresión. poSelection = Permite que el usuario elija imprimir la selección actual en el documento. poWarning = En caso de que no haya impresora instalada, al especificar esta opción el cuadro de diálogo avisará al usuario de esta circunstancia. poPrintToFile = Visualiza una opción por la cual el usuario puede elegir imprimir en un archivo, en lugar de la impresora. poHelp = Hace aparecer un botón de ayuda en el cuadro de diálogo.
PrintRange	Se puede conocer cual ha sido la opción elegida, según el valor que tome. Valores: prSelection = La selección actual. prPageNums = Las páginas especificadas. prAllPages = Todo el documento.
Copies	Establece el valor por defecto para el número de copias.
Collate	Determina si las copias son consecutivas, o bien se imprimirá una copia completa del documento cada vez.
PrintToFile	Si el valor es verdadero, el usuario puede direccionar la impresión a un archivo.

TPrinterSetupDialog (Dialogs): Aunque el cuadro de diálogo de impresión posee un botón para modificar ciertas propiedades de la impresora. Este componente da acceso directo a las propiedades de la impresora. Se activa este control mediante el método Execute.

TFindDialog (Dialogs): Visualiza una ventana para búsquedas de cadenas en el documento. Se activa este control mediante el método Execute.

Propiedad

Significado

Options

Esta propiedad define las siguientes propiedades internas:

frHideMatchCase = Oculta la opción coincidir mayúsculas y minúsculas.

frDisabledMatchCase = Desactiva la opción anterior, de tal forma que aunque es visible el usuario no puede seleccionarla.

frMatchCase = Indica la opción coincidir mayúsculas y minúsculas ha sido activada para el usuario en el cuadro de diálogo.

frHideWholeWord = Oculta la opción solo palabras completas.

frDisabledWholeWord = Desactiva la opción solo palabras completas, de tal forma que aunque es visible el usuario no puede seleccionarla.

frWholeWord = Indica la opción palabras completas ha sido activada para el usuario en el cuadro de diálogo.

frFindNext = Indica que se ha pulsado el botón “Buscar siguiente” del cuadro de diálogo.

frShowHelp = Hace aparecer un botón de ayuda en el cuadro de diálogo.

FindText

Se obtiene el texto que el usuario desea buscar.

TReplaceDialog (Dialogs): Visualiza un cuadro de diálogo para la búsqueda y sustitución de palabras en el documento. Tiene las mismas propiedades y opciones del componente anterior, solo agrega en la propiedad Options los valores frReplace y frReplaceAll que se activan cuando el usuario elige una de estas opciones para invocar al método OnReplace tras ejecutar el método OnFind.

Ejercicio Resuelto

/* Este proyecto tiene como propósito un programa que permite editar archivos de texto eligiendo el estilo más adecuado según lo indique el usuario */

// Recuperar un archivo

void __fastcall TForm1::actRecuperarExecute(TObject *Sender)

{

if (CDCargar->Execute( )) // Si se selecciona un archivo

try

{

CTexto->Lines->LoadFromFile(CDCargar->FileName); //Cargar el archivo

}

catch(...)

{

ShowMessage("No es posible cargar el archivo indicado");

}

// Mostrar en el título de la ventana el nombre del archivo

Caption = "Mini Editor - (" + CDCargar->FileName + ")";

}

// Guardar un archivo

void __fastcall TForm1::actGuardarExecute(TObject *Sender)

{

// Si en el título existe un nombre de archivo tomarlo por defecto

if (Caption != "Mini Editor")

CDSalvar->FileName = Caption.SubString(16, Caption.Length( ) - 16);

if (CDSalvar->Execute( )) // Se ha facilitado un nombre de archivo

try

{

CTexto->Lines->SaveToFile(CDSalvar->FileName);

}

catch(...)

{

ShowMessage("No es posible salvar el archivo");

}

Caption = "Mini Editor - (" + CDSalvar->FileName + ")";

}

// Activar tipos de fuente para el texto

void __fastcall TForm1::actTipoLetraExecute(TObject *Sender)

{

// Mostrar inicialmente el tipo de letra usado en el control de edición

CDLetra->Font = CTexto->Font;

if (CDLetra->Execute( )) // Si se ha seleccionado un nuevo tipo aplicarlo

CTexto->Font = CDLetra->Font;

}

// Activar tipos de color para el texto

void __fastcall TForm1::actColorExecute(TObject *Sender)

{

CDColor->Color = CTexto->Color;

if (CDColor->Execute( ))

CTexto->Color = CDColor->Color;

}

Computacion II-Ingeniería Electrónica (6010)