Unit Mensajes

NOTAS: } { Para ampliar los botones hay que establecer el nuevo botón en RESULTADOS, TIPO DE MENSAJE, TEXTO DE MENSAJE y añadir la imagen que se desea a mensajes.dcr con el nombre que se ponga en GLYPS como nombre del resource Para ampliar los tipos de mensajes, se ha de establecer el tipo en TMENSAJETIPO,

Classes

TInputMensajes -
TMensajes -
TObjeto -

Functions

CreaBotones -
CreaImagen -
CreaVentana - Diseño del Mensaje
DlgMensajes -
InputMensajes - Diseño del Mensaje
MuestraVentana -
Register -
ShowMensajes -

Types

GrupodeBotones
ResultadoModal
Resultados
TipodeMensaje
TMensajeTipo

Constants

Cabeceras
Glyps
Imagenes
NumEditores
TextoBotones

Variables

Boton
BtnDetalle
Editor
FBeep
Fcaption
FDetail
FFormState
FGrupodeBotones
FMensajeError
FMensajeTipo
FocusCount
FResultado
FTitulosdeEditores
Image1
ImageList1
MemoError
MemoMensaje
Objeto
Retorno
Titulo
VentanadeMensajes


Functions


procedure CreaBotones(SetdeBotones: GrupodeBotones; ConDetalle: Boolean; PosicionBotones: Integer);


procedure CreaImagen;


procedure CreaVentana(Posicion: TPosition; X,Y: Integer);

Diseño del Mensaje

function DlgMensajes(Mensaje: String): Resultados;


function InputMensajes(var ControlesdeEdicion: array of String; Mensaje: String): Resultados;

Diseño del Mensaje

procedure MuestraVentana;


procedure Register;


procedure ShowMensajes(Mensaje: STring);


Types


GrupodeBotones = set of TipodeMensaje

ResultadoModal = array[TipodeMensaje] of Resultados;

Resultados = (mrNinguno, mrAceptar, mrCancelar, mrBuscar, mrCrear, mrSi, mrNo, mrReintentar, mrAbortar,mrIgnorar, mrCerrar, mrAyuda, mrImprimir);

TipodeMensaje = (bkNinguno, bkAceptar, bkCancelar, bkBuscar, bkCrear, bkSi, bkNo, bkReintentar, bkAbortar, bkIgnorar, bkCerrar, bkAyuda, bkImprimir);

TMensajeTipo = (mtInformacion, mtConfirmacion, mtCuidado, mtError);

Constants

Cabeceras = ('Información', 'Confirmación', 'Cuidado', 'Error')

Glyps = ('','ACEPTAR','CANCELAR','BUSCAR','INSERTAR','SI','NO','REINTENTAR','ABORTAR','IGNORAR','CERRAR','AYUDA','IMPIMIR')

Imagenes = ('Informacion', 'Confirmacion', 'Cuidado', 'Error')

NumEditores = 12

TextoBotones = ('Ninguno', '&Aceptar', 'Cancelar', '&Buscar', '&Crear', '&Si', '&No', '&Reintentar', 'Ab&ortar', 'I&gnorar', 'C&errar', 'A&yuda', '&Imprimir')


Variables

Boton : array [0..Ord(High(TipodeMensaje))] of TBitBtn

BtnDetalle : TBitBtn

Editor : array[0..NumEditores] of TColorEdit

FBeep : Boolean

Fcaption : String

FDetail : Boolean

FFormState : TFormState

FGrupodeBotones : GrupodeBotones

FMensajeError : String

FMensajeTipo : TMensajeTipo

FocusCount : Integer = 0

FResultado : Resultados

FTitulosdeEditores : TStrings

Image1 : TImage

ImageList1 : TImageList

MemoError : TMemo

MemoMensaje : String

Objeto : TObjeto

Retorno : array[0..Ord(High(TipodeMensaje))] of Resultados

Titulo : array[0..NumEditores] of TLabel

VentanadeMensajes : TForm