Dialog Examples/es: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	~~## Contents~~
2		-
3		-	* 1 Algunos diálogos útiles
4		-	* 1.1 Diálogos con mensaje
5		-	* 1.1.1 ShowMessage
6		-	* 1.1.2 MessageBox
7		-	* 1.1.3 MessageDlg
8		-	~~* 1.1.4 El diálogo 'QuestionDlg'~~
9		-	* 1.2 Diálogos de entrada de texto
10		-	* 1.2.1 InputBox
11		-	* 1.2.2 InputQuery
12		-	* 1.2.3 PasswordBox
13		-	* 1.3 Constantes y tipos usados en los cuadros de diálogo
14		-
15	1		# Algunos diálogos útiles
16	2
17	3		Aquí tenemos algunos diálogos útiles, que no aparecen en la Paleta de Componentes:
18	4
19	5		* procedimiento [ShowMessage (const Msg: string);](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/showmessage.html>)
20	6		* función [MessageBox (Text, Caption : PChar; Flags: Word): Integer;](<http://lazarus-ccr.sourceforge.net/docs/lcl/forms/tapplication.messagebox.html>)
21	7		* función [MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: LongInt): Word;](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/messagedlg.html>)
22	8		* función [InputBox (const ACaption, APrompt, ADefault: string); string;](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputbox.html>)
23	9		* función [InputQuery (const ACaption, APrompt: string; var Value: string): Boolean;](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html>)
24	10		* función [PasswordBox(const ACaption, APrompt : String): String;](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/passwordbox.html>)
25	11
26	12		Cada uno de ellos da lugar a la aparición de una ventana emergente, que contiene cierta información y espera una respuesta del usuario: presionar un botón, introducir algún texto o ambas cosaa. Los programadores tienen poco control sobre el formato, tamaño o posición de estas ventanas, pero pueden cambiar su contenido textual.
27	13		La razón de que haya varias alternativas es permitir diferentes métodos de crear la ventana y de recibir datos de respuesta para procesar en nuestro código.
28	14
29	15		## Diálogos con mensaje
30	16
31	17		Las ventanas de diálogo con mensaje muestran un mensaje y esperan que se salga de ellos mediante la pulsación de unos de los botones que muestran, o cerrando la ventana con cualquier otra opción disponible.
32	18
33	19		### [ShowMessage](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/showmessage.html>)
34	20		```
35	21		Procedure ShowMessage (const Msg: string);
36	22		{el procedimiento está definido en la unidad ''Dialogs.pp''}
37	23		```
38	24
39	25		Es la ventana de diálogo más simple: recibe una cadena como parámetro, y la muestra en una ventana predefinida, con un botón (OK o Aceptar) y un icono de Información. El diálogo se muestra hasta que se cierra con alguna de las opciones posibles: pulsar el único botón o el aspa de la barra de título.
40	26		La ventana del diálogo es modal, es decir, se muestra, toma el foco y no permite interacción con la aplicación que la originó.
41	27
42	28		Ejemplo:
43	29		```
44	30		Program UnMensajeConLazarus;
45	31		Uses Dialogs;
46	32		var mi_mensaje: string;
47	33		begin
48	34		mi_mensaje:= 'Este es un texto que se extiende a lo largo de'#13'de dos líneas';
49	35		ShowMessage (mi_mensaje);
50	36		end.
51	37		```
52	38
53	39		(nota: cómo se puede ver en el ejemplo el _const_ de la definición del procedimiento significa que no es necesaria una variable, aunque se puede utilizar una variable si lo queremos. Así mismo vemos que los mensajes los podemos dividir en las líneas que deseemos mediante _#13_ , _sLineBreak_ o _LineEnding_ , esto lo podemos usar en todos los cuadros de los que hablamos aquí)
54	40
55	41		[![Lazarus ShowMessage.png](/wiki-images/9/9b/Lazarus_ShowMessage.png)](</File:Lazarus_ShowMessage.png>)
56	42
57	43		### [MessageBox](<http://lazarus-ccr.sourceforge.net/docs/lcl/forms/tapplication.messagebox.html>)
58	44		```
59	45		Function Application.MessageBox (Mensaje, Titulo: PChar; Marcadores: longint) : Integer;
60	46		```
61	47
62	48		Función definida en _Forms.pp_ como parte de _TApplication_ , de ahí que tengamos que usarla de esta forma: Application.Messagebox ( ); o bien utilizando la construcción 'With Application do ...'].
63	49
64	50		Sus parámetros:
65	51
66	52		* Mensaje: El texto del mensaje que queremos mostrar al usuario;
67	53		* Titulo: El título de la ventana del cuadro de diálogo;
68	54		* Marcadores: Un entero construido al sumar varias constantes (definidas en el módulo LCLType) que definen el icono y botones que mostrará el cuadro, por ejemplo _MB_ABORTRETRYIGNORE + MB_ICONQUESTION_ hará que se muestre un signo de interrogación (?) y tres botones: Abortar, Reintentar e Ignorar.
69	55
70	56		La función devuelve un valor entero que corresponde al botón que se presionó; su valor se puede determinar por referencia a las constantes [IDOK..IDHELP]
71	57
72	58		Si no necesitamos el valor del botón pulsado la podemos invocar cómo un procedimiento, en Pascal no es obligatorio recoger el valor devuelto por una función - véase el ejemplo siguiente:
73	59
74	60		Ejemplo:
75	61		```
76	62		Uses Forms, Dialogs, LCLType;
77	63
78	64		Procedure MuestraMessageBox;
79	65		var resp, estilo: integer;
80	66		texto: pchar;
81	67		begin
82	68		with application do
83	69		begin
84	70		estilo := MB_ABORTRETRYIGNORE + MB_ICONQUESTION;
85	71		resp := MessageBox ('Pulsa un botón', 'Ejemplo de MessageBox', estilo); //recogemos el valor de la función
86	72		case resp of
87	73		IDABORT: texto := 'Abortar';
88	74		IDRETRY: texto := 'Reintentar';
89	75		IDIGNORE: texto := 'Ignorar';
90	76		else texto := 'Has cerrado el cuadro con el aspa: ';
91	77		end; //case
92	78		MessageBox (texto, 'Respuesta', MB_ICONHAND); // no recogemos el valor devuelto por MessageBox
93	79		end; //with
94	80		end; //procedmiento
95	81		```
96	82
97	83		[![Lazarus MessageBox.png](/wiki-images/1/1a/Lazarus_MessageBox.png)](</File:Lazarus_MessageBox.png>) [![Lazarus MessageBoxRespuesta.png](/wiki-images/6/67/Lazarus_MessageBoxRespuesta.png)](</File:Lazarus_MessageBoxRespuesta.png>)
98	84
99	85		### [MessageDlg](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/messagedlg.html>)
100	86		```
101	87		function MessageDlg(const aMsg:String; DlgType:TMsgDlgType; Buttons:TMsgDlgButtons; HelpCtx:LongInt):Integer;
102	88		function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType;
103	89		Buttons:TMsgDlgButtons; HelpCtx:longInt):Integer;
104	90		function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType;
105	91		Buttons:TMsgDlgButtons; HelpCtx:LongInt; DefaultButton:TMsgDlgBtn):Integer;
106	92		function MessageDlg(const aCaption:String; const aMsg:String; DlgType:TMsgDlgType;
107	93		Buttons:TMsgDlgButtons; const HelpKeyword: String):Integer;
108	94		```
109	95
110		-	Ver [Tipos de mensaje(TMsgDlgType)](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgtype.html>), [Botones(TMsgDlgButtons)](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbuttons.html>) [Botones(TMsgDlgBtn)](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbtn.html>) Las dos clase de botones definen exactamente lo mismo¿¡!?)
	96	+	Ver [Tipos de mensaje(TMsgDlgType)](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgtype.html>), [Botones(TMsgDlgButtons)](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbuttons.html>) [Botones(TMsgDlgBtn)](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/tmsgdlgbtn.html>) Las dos clase de botones definen exactamente lo mismo¿¡!?)
111	97
112	98		Hay cuatro versiones de esta función, en la primera al omitir el título, se pondrá cómo título el identificador de la aplicación; en las demás podemos poner como título de la ventana el texto que nos convenga. En la tercera podemos especificar mediante el parámetro _DefaultButton_ qué botón será el activo por defecto. En la cuarta podemos mostrar la ayuda especificada en _HelpKeyword_.
113	99
114	100		Es el más completo y elaborado de las ventanas de diálogo, y permite al programador un considerable control sobre su aspecto.
115	101
116	102		Los parámetros que definen el tipo de cuadro y el icono es un tipo enumerado, y los botones se pueden especificar como un conjunto entre corchetes, por ejemplo [mbRetry, mbIgnore, mbAbort, mbCancel].
117	103
118	104		_HelpCtx_ se utiliza para especificar qué tema del archivo de ayuda debe ser demostrado, o cero para no mostrar nínguno. Si se utiliza HelpKeyword se mostrará la ayuda de esa palabra.
119	105
120	106		El valor devuelto por la función corresponde al botón presionado, expresado como un entero (ver más edelante las definiciones de [mrNone..mrAll]).
121	107
122		-	~~Ejemplo:~~
	108	+	Ejemplo:
123	109		```
124	110		Uses forms, dialogs, lcltype, controls;
125	111
126	112		procedure EstoSiQueEsUnMensaje;
127	113		var tipo: TMsgDlgType;
128	114		botones: TMsgDlgButtons;
129	115		begin
130	116		tipo := mtWarning;
131	117		botones:= [mbYesToAll, mbNoToAll];
132	118		MessageDlg ('Cosas para no olvidar', 'las personas son las que dan sentido,'#13+
133	119		'coherencia y lógica a las cosas', tipo, botones,0);
134	120		end;
135	121		```
136	122
137	123		[![Lazarus MessageDlg.png](/wiki-images/8/81/Lazarus_MessageDlg.png)](</File:Lazarus_MessageDlg.png>)
138	124
139	125		### El diálogo 'QuestionDlg'
140	126
141	127		El diálogo 'QuestionDlg' permite cambiar los rótulos de los botones y determinar los botones predetermindo y de cancelar. Ejemplo:
142	128		```
143	129		case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[mrYes,'Positivo', mrNo, 'Negativo', mrCancel,'Predetermindado'],'La ayuda') of
144	130		mrYes: QuestionDlg ('Este es el Título','Has elegido "Positivo"',mtCustom,[mrOK,'¡Muy bien!'],'');
145	131		mrNo: QuestionDlg ('Este es el Título','¡Oh! has elegido "Negativo"',mtCustom,[mrOK,'Exacto'],'');
146	132		mrCancel: QuestionDlg ('Título','Has cancelado el diálogo con ESC o el botón "Predetermindado".',mtCustom,[mrOK,'Correcto'],'');
147	133		end;
148	134		```
149	135
150	136		[![QuestionDlg es linux qt.png](/wiki-images/7/70/QuestionDlg_es_linux_qt.png)](</File:QuestionDlg_es_linux_qt.png>)
151	137
152	138		[![Note-icon.png](/wiki-images/b/be/Note-icon.png)](</File:Note-icon.png>)
153	139
154	140		Nota: ¡Si el usuario cancela el diálogo y no hay un botón definido como 'IsCancel', mrCancel será devuelto! Si quieres redirigir ESC/cerrar a u botón concreto utiliza el parámetro 'IsCancel' tras el botón deseado . (_Nota del traductor_ , lo traduzco pero no consigo reproducir esta funcionalidad)
155	141
156	142		Ejemplos avanzados con botones (tomados de promptdialog.inc)
157	143		```
158	144		[mrOk, '¡Vale!',mrCancel,'Cancela Ahora',mrIgnore, 'Ignorar',300,'¡Hazlo!','IsDefault']
159	145		```
160	146
161	147		Se muestran cuatro botones:
162	148
163	149		* '¡Vale' que devuelve _mrOk_
164	150		* 'Cancela Ahora' que devuelve _mrCancel_
165	151		* 'Ignorar' que devuelve _mrIgnore_
166	152		* '¡Hazlo!' que devuelve _300_. Este es el botón predeterminado (con el foco)
167	153
168	154		Es habitual que los botones en los diálogos de Lazarus tengan iconos. Con el fin de evitar que los iconos se muestren, se pueden utilizar valores no normalizados como resultado de los mensajes. El valor normalizado má alto hasta hoy es 11. Por ejemplo:
169	155		```
170	156		case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[20,'Positivo', 21, 'Negativo',22,'No lo sé','IsDefault'],'') of
171	157		20: QuestionDlg ('Este es el Título','Has dicho „Sí“',mtCustom,[20,'Eso está bien'],'');
172	158		21: QuestionDlg ('Este es el Título','¡Oh, has dicho „No“',mtCustom,[21,'Correcto'],'');
173	159		22: QuestionDlg ('Este es el Título','¡Entonces, averigüalo!',mtCustom,[22,'Tal vez'],'');
174	160		end;
175	161		```
176	162
177	163		Con el fin de facilitar el trabajo, definiremos constantes. Por ejemplo:
178	164		```
179	165		const
180	166		mrNoneNI= 20;
181	167		mrOkNI= mrNoneNI+1;
182	168		mrCancelNI= mrNoneNI+2;
183	169		mrAbortNI= mrNoneNI+3;
184	170		mrRetryNI= mrNoneNI+4;
185	171		mrIgnoreNI= mrNoneNI+5;
186	172		mrYesNI= mrNoneNI+6;
187	173		mrNoNI= mrNoneNI+7;
188	174		mrAllNI= mrNoneNI+8;
189	175		mrYesToAllNI= mrNoneNI+10;
190	176		mrCloseNI= mrNoneNI+11;
191	177		mrLastNI= mrCloseNI;
192	178		begin
193	179		case QuestionDlg ('Este es el Título','Este es el Mensaje',mtCustom,[mrYesN,'Positivo', mrNoNI, 'Negativo',22,'No lo sé','IsDefault'],'') of
194	180		20: QuestionDlg ('Este es el Título','Has dicho „Sí“',mtCustom,[mrYesNI,'Eso está bien'],'');
195	181		21: QuestionDlg ('Este es el Título','¡Oh, has dicho „No“',mtCustom,[mrNoNI,'Correcto'],'');
196	182		22: QuestionDlg ('Este es el Título','¡Entonces, averigüalo!',mtCustom,[mrCancelNI,'Tal vez'],'');
197	183		end;//case
198	184		end;
199	185		```
200	186
201	187		[![QuestionDlg esp 002.png](/wiki-images/4/47/QuestionDlg_esp_002.png)](</File:QuestionDlg_esp_002.png>)
202	188
203	189		## Diálogos de entrada de texto
204	190
205	191		### [InputBox](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputbox.html>)
206	192
207	193		Junto con el mensaje muestra una caja de edición para que el usuario pueda escribir un texto que será pasado a la aplicación.
208	194		```
209	195		Function InputBox(const ATitulo, ACursor, ADefecto : String) : String;
210	196		```
211	197
212	198		Se puede especificar el título de la Ventana (ATitulo), el mensaje que indicará al usuario que tipo de entrada de texto se espera que realice (ACursor) e incluso un texto ya predefinido (ADefecto). El texto escrito por el usuario o el proporcionado es devuelto a la aplicación como resultado de la función. La vnta muestr loa botones mbOK y mbCancel)
213	199
214	200		Ejemplo:
215	201		```
216	202		Uses forms, lcltype, dialogs, controls;
217	203
218	204		procedure VentanaEntradaTexto;
219	205		var textoUsuario: string;
220	206		begin
221	207		textoUsuario := InputBox ('Introducción de texto por el usuario',
222	208		'Por favor, escribe algo aquí:',
223	209		'Si no quieres escribir, este es el texto que se devolverá');
224	210		ShowMessage (textoUsuario);
225	211		end
226	212		```
227	213
228	214		[![Lazarus InputBox.png](/wiki-images/4/4b/Lazarus_InputBox.png)](</File:Lazarus_InputBox.png>)
229	215
230	216		(nota: ojo con esta ventana, el texto de _ACursor_ tiene un límite de longitud visible, ya que la ventana tiene un ancho y un alto limitado y fijo, y mostrará el texto en una única línea -al menos a día de hoy-)
231	217
232	218		### [InputQuery](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html>)
233	219		```
234	220		Function InputQuery(const ATitulo, ACursor : String; Enmascarar : Boolean; var TextoUsuario : String) : Boolean;
235	221		Function InputQuery(const ATitulo, ACursor : String; var TextoUsuario : String) : Boolean;
236	222		```
237	223
238	224		La función [_InputQuery_](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html>), que como [[Dialog Examples\|_InputBox_]], permite al usuario introducir texto, tiene dos versiones; en la primera se utiliza el parámetro _Enmascarar_ que indica si el texto que escribe el usuario se sustituye por asteriscos (valor _true_) o no (_false_), como para escribir una contraseña; en la segunda se omite este parámetro, lo que equivale a darle el valor _false_. El texto introducido por el usuario se devuelve en el parámetro _TextoUsuario_ (por eso es variable); la función devuelve _true_ si se presionó el botón _Aceptar_ , o _falso_ si se cerró la ventana de cualquier otra forma (por ejemplo, pulsando el icono 'X' de la barra de título).
239	225
240	226		Ejemplo:
241	227		```
242	228		Uses forms, lcltype, dialogs, controls;
243	229
244	230		procedure TryInputQuery;
245	231		var respuesta: boolean;
246	232		TextoUsuario: string;
247	233		begin
248	234		respuesta := InputQuery ('Una cuestión de geografía', '¿Capital de Nicaragua?', true, TextoUsuario);
249	235		if respuesta {= true} and (TextoUsuario = 'Managua') then
250	236		ShowMessage ('Efectivamente ' + TextoUsuario + ' es la capital de Nicaragua')
251	237		else
252	238		begin
253	239		InputQuery ('Prueba de nuevo', 'No has pulsado ''OK'' o tu respuesta (' + TextoUsuario
254	240		+ ') no es la capital de Nicaragua', TextoUsuario);
255	241		ShowMessage (' Tu respuesta ha sido: ' + TextoUsuario);
256	242		end;
257	243		end;
258	244		```
259	245
260	246		[![Lazarus InputQuery.png](/wiki-images/7/7e/Lazarus_InputQuery.png)](</File:Lazarus_InputQuery.png>) [![Lazarus InputQueryNoMascara.png](/wiki-images/4/43/Lazarus_InputQueryNoMascara.png)](</File:Lazarus_InputQueryNoMascara.png>)
261	247
262	248		Nota: en la segunda imagen apreciamos que _InputQuery_ padece el mismo defecto que _InputBox_ respecto del texto que puede mostrar por la limitación de las dimensiones de la ventana. En Linux, con Lazarus 0.09.30-0 y FPC 2.4.2 este defecto no aparece y la ventana se expande; además se pueden crear nuevas líneas con #13)
263	249
264	250		[![InputQuery ES Linux LAZ 0.9.30-0 FPC-2.4.2.png](/wiki-images/2/29/InputQuery_ES_Linux_LAZ_0.9.30-0_FPC-2.4.2.png)](</File:InputQuery_ES_Linux_LAZ_0.9.30-0_FPC-2.4.2.png>)
265	251
266	252		### [PasswordBox](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/passwordbox.html>)
267	253		```
268	254		Function PasswordBox(const ACaption, APrompt : String) : String;
269	255		```
270	256
271	257		Su comportamiento es parecido a [[Dialog Examples\|InputBox]], consistiendo las diferencias en que no hay texto por defecto y el texto que el usuario escribe se enmascara.
272	258
273	259		## Constantes y tipos usados en los cuadros de diálogo
274	260
275	261		Constantes y tipos importantes que se utilizan en estos diálogos y que están predefinidas en la biblioteca LCL:
276	262
277	263		Constantes enteras para definir tipos de botones e iconos que se muestran en MessageBox, definidos en la unidad _LCLType.pp_ :
278	264		```
279	265		//Botones
280	266		MB_OK = $00000000;
281	267		MB_OKCANCEL = $00000001;
282	268		MB_ABORTRETRYIGNORE = $00000002;
283	269		MB_YESNOCANCEL = $00000003;
284	270		MB_YESNO = $00000004;
285	271		MB_RETRYCANCEL = $00000005;
286	272		//Iconos
287	273		MB_ICONHAND = $00000010;
288	274		MB_ICONQUESTION = $00000020;
289	275		MB_ICONEXCLAMATION = $00000030;
290	276		MB_ICONASTERICK = $00000040;
291	277		MB_ICONWARNING = MB_ICONEXCLAMATION;
292	278		MB_ICONERROR = MB_ICONHAND;
293	279		MB_ICONINFORMATION = MB_ICONASTERICK;
294	280		```
295	281
296	282		Constantes enteras que definen el valor devuelto desde MessageBox según el botón que se presione:
297	283		```
298	284		IDOK = 1; ID_OK = IDOK;
299	285		IDCANCEL = 2; ID_CANCEL = IDCANCEL;
300	286		IDABORT = 3; ID_ABORT = IDABORT;
301	287		IDRETRY = 4; ID_RETRY = IDRETRY;
302	288		IDIGNORE = 5; ID_IGNORE = IDIGNORE;
303	289		IDYES = 6; ID_YES = IDYES;
304	290		IDNO = 7; ID_NO = IDNO;
305	291		IDCLOSE = 8; ID_CLOSE = IDCLOSE;
306	292		IDHELP = 9; ID_HELP = IDHELP;
307	293		```
308	294
309	295		Definen si el botón por omisión es el primero, el segundo o el tercero:
310	296		```
311	297		MB_DEFBUTTON1 = $00000000;
312	298		MB_DEFBUTTON2 = $00000100;
313	299		MB_DEFBUTTON3 = $00000200;
314	300		MB_DEFBUTTON4 = $00000300;
315	301		```
316	302
317	303		El valor del parámetro Marcadores de _MessageBox_ se forma al añadir una constante botón [MB_OK..MB_RETRYCANCEL], una constante icono [MB_ICONHAND..MB_ICONINFORMATION] y una constante opcional, de botón por defecto [MB_DEFBUTTON1..MB_DEFBUTTON3]
318	304
319	305		Los tipos que se utilizan en MessageDlg, los cuales necesitan parámetros AType de TMsgDlgType y AButtons de TMSgDlgButtons:
320	306		```
321	307		{ Definido en Dialogs.pp }
322	308		type
323	309		TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
324	310		TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
325	311		TMsgDlgButtons = set of TMsgDlgBtn;
326	312
327	313		const
328	314		mbYesNoCancel = [mbYes, mbNo, mbCancel];
329	315		mbOKCancel = [mbOK, mbCancel];
330	316		mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
331	317
332	318		MsgDlgBtnToBitBtnKind: array[TMsgDlgBtn] of TBitBtnKind = (bkYes, bkNo, bkOK, bkCancel, bkAbort, bkRetry,
333	319		bkIgnore, bkAll, bkNoToAll, bkYesToAll, bkHelp, bkClose);
334	320
335	321		BitBtnKindToMsgDlgBtn: array[TBitBtnKind] of TMsgDlgBtn = (mbOk, mbOK, mbCancel, mbHelp, mbYes, mbNo, mbClose,
336	322		mbAbort, mbRetry, mbIgnore, mbAll, mbNoToALl, mbYesToAll);
337	323
338	324		{ Definido en Controls.pp }
339	325		const
340	326		mrNone = 0;
341	327		mrOK = mrNone + 1;
342	328		mrCancel = mrNone + 2;
343	329		mrAbort = mrNone + 3;
344	330		mrRetry = mrNone + 4;
345	331		mrIgnore = mrNone + 5;
346	332		mrYes = mrNone + 6;
347	333		mrNo = mrNone + 7;
348	334		mrAll = mrNone + 8;
349	335		mrNoToAll = mrNone + 9;
350	336		mrYesToAll = mrNone + 10;
351	337		mrLast = mrYesToAll;
352	338		```
353	339
354	340		Sobre las ventanas de diálogo: [Referencia de la unidad _Dialogs_ : Procedimientos y funciones](<http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/index-5.html>)
355	341
356	342		---
357	343		From the Free Pascal wiki, page "Dialog Examples/es", as the Internet Archive kept it on 2025-01-18, last changed on 2024-12-05. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history