Sign in Join
Wiki copytemporary

Dialog Examples/sk: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
1-## Contents
2-
3- * 1 Niektoré užitočné dialógy
4- * 1.1 Správové dialógy
5- * 1.1.1 ShowMessage
6- * 1.1.2 MessageBox
7- * 1.1.3 MessageDLG
8- * 1.2 Dialógy textového vstupu
9- * 1.2.1 InputBox
10- * 1.2.2 InputQuery
11- * 1.2.3 PasswordBox
12- * 1.3 Konštanty a Typy v správových dialógoch
13-
141# Niektoré užitočné dialógy
152
16-Toto sú niektoré užitočné dialógy, ktoré nenájdete v Palete komonentov:
3+Toto sú niektoré užitočné dialógy, ktoré nenájdete v Palete komonentov:
174
18- * procedure ShowMessage (const Msg: string);
19- * function MessageBox (Text, Caption : PChar; Flags: Word): Integer;
20- * function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: LongInt): Word;
21- * function InputBox (const ACaption, APrompt, ADefault: string); string;
22- * function InputQuery (const ACaption, APrompt: string; var Value: string): Boolean;
23- * function PasswordBox(const ACaption, APrompt : String) : String;
5+- procedure ShowMessage (const Msg: string);
6+- function MessageBox (Text, Caption : PChar; Flags: Word): Integer;
7+- function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: LongInt): Word;
8+- function InputBox (const ACaption, APrompt, ADefault: string); string;
9+- function InputQuery (const ACaption, APrompt: string; var Value: string): Boolean;
10+- function PasswordBox(const ACaption, APrompt : String) : String;
2411
25-Každý z týchto komponentov zobrazuje malé vyskakovacie dialógové okno, ktoré obsahuje nejaké informácie a vyžaduje odozvu používateľa: stlačenie tlačítka, zadanie textu alebo oboje. Programátor má minimálnu kontrolu nad formátom, veľkosťou alebo pozíciou týchto vyskakovacích okien, ale môže ovplyvňovať ich textový obsah.
26-Dôvodom prečo často existujú veľmi podobné alternatívy, je umožniť rôzne spôsoby volania komponentu, a získavania dát, z procedúr a funkcií.
12+Každý z týchto komponentov zobrazuje malé vyskakovacie dialógové okno, ktoré obsahuje nejaké informácie a vyžaduje odozvu používateľa: stlačenie tlačítka, zadanie textu alebo oboje. Programátor má minimálnu kontrolu nad formátom, veľkosťou alebo pozíciou týchto vyskakovacích okien, ale môže ovplyvňovať ich textový obsah.\
13+Dôvodom prečo často existujú veľmi podobné alternatívy, je umožniť rôzne spôsoby volania komponentu, a získavania dát, z procedúr a funkcií.
2714
2815## Správové dialógy
2916
30-Správové dialógy zobrazujú správu a čakajú na stlačenie klávesy alebo kliknutie myšou.
17+Správové dialógy zobrazujú správu a čakajú na stlačenie klávesy alebo kliknutie myšou.
3118
3219### ShowMessage
33-```
34-Procedure ShowMessage (const Msg: string);
35-
36- { Defined in Dialogs.pp }
20+
21+``` pascal
22+ Procedure ShowMessage (const Msg: string);
23+
24+ { Defined in Dialogs.pp }
3725```
3826
39-Najjednoduchší správový dialóg: prijíma jednoduchý textový prarmeter, zobrazí ho v stereotypnom okne a pred vrátením, do volajúcej rutiny alebo programu, čaká na kliknutie myšou alebo kláves enter.
40-Toto je modálne volanie procedúry, ktoré zobrazí okno, získa zameranie a tohoto sa nevzdá, pokiaľ nie je stlačené OK.
27+Najjednoduchší správový dialóg: prijíma jednoduchý textový prarmeter, zobrazí ho v stereotypnom okne a pred vrátením, do volajúcej rutiny alebo programu, čaká na kliknutie myšou alebo kláves enter.\
28+Toto je modálne volanie procedúry, ktoré zobrazí okno, získa zameranie a tohoto sa nevzdá, pokiaľ nie je stlačené OK.
4129
42-Príklad:
43-```
44-Program LazMessage;
45- Uses Dialogs;
46- begin
47- ShowMessage ('Toto je správa z Lazarusu!')
48- end.
30+Príklad:
31+
32+``` pascal
33+ Program LazMessage;
34+ Uses Dialogs;
35+ begin
36+ ShowMessage ('Toto je správa z Lazarusu!')
37+ end.
4938```
5039
5140### MessageBox
52-```
53-Function Application.MessageBox (Text, Caption: PChar; Flags: longint) : Integer;
54-
55- { Defined in Forms.pp as part of TApplication; hence must be called as Application.Messagebox ()
56- or using the 'with Application do ...' construct }
41+
42+``` pascal
43+ Function Application.MessageBox (Text, Caption: PChar; Flags: longint) : Integer;
44+
45+ { Defined in Forms.pp as part of TApplication; hence must be called as Application.Messagebox ()
46+ or using the 'with Application do ...' construct }
5747```
5848
59-Parametre:
49+Parametre:
6050
61- * **Text** : reťazec, ktorý je v okne zobrazený ako otázka ale inštrukcia;
62- * **Caption** : textový štítok, ktorý je zobrazený na vrchu okna správy;
63- * **Flags** : longint - integer vytvorený sčítaním rôznych konštánt, ktorými je definovaný obsah a správanie okna, napríklad **MB_ABORTRETRYIGNORE + MR_ICONQUESTION** nastaví, že aplikácia zobrazí ikonu otázky (?) v okne s tromi tlačítkami: ABORT, RETRY a IGNORE.
51+- **Text**: reťazec, ktorý je v okne zobrazený ako otázka ale inštrukcia;
52+- **Caption**: textový štítok, ktorý je zobrazený na vrchu okna správy;
53+- **Flags**: longint - integer vytvorený sčítaním rôznych konštánt, ktorými je definovaný obsah a správanie okna, napríklad **MB_ABORTRETRYIGNORE + MR_ICONQUESTION** nastaví, že aplikácia zobrazí ikonu otázky (?) v okne s tromi tlačítkami: ABORT, RETRY a IGNORE.
6454
65-Funkcia vracia hodnotu integer, ktorá zodpovedá stlačenému tlačítku; jej hodnota je daná odkazom na konštanty [IDOK..IDHELP]
55+Funkcia vracia hodnotu integer, ktorá zodpovedá stlačenému tlačítku; jej hodnota je daná odkazom na konštanty \[IDOK..IDHELP\]
6656
67-Môže byť volaná ako procedúra (tj. formulácia 'MessageBox()' namiesto volania funkcie 'Variable := MessageBox()' – viz. príklad nižšie)
57+Môže byť volaná ako procedúra (tj. formulácia 'MessageBox()' namiesto volania funkcie 'Variable := MessageBox()' – viz. príklad nižšie)
6858
69-Príklad:
70-```
71-Uses Forms, Dialogs, LCLType;
72-
73- Procedure DisplayMessageBox;
74- var reply, boxstyle: integer;
75- begin
76- with application do begin
77- boxstyle := MB_ICONQUESTION + MB_YESNO;
78- reply := MessageBox ('Press either button', 'MessageBoxDemo', boxstyle);
79- if reply = IDYES then MessageBox ('Yes ', 'Reply',MB_ICONINFORMATION)
80- else MessageBox ('No ', 'Reply', MB_ICONHAND);
81- end;
59+Príklad:
60+
61+``` pascal
62+ Uses Forms, Dialogs, LCLType;
63+
64+ Procedure DisplayMessageBox;
65+ var reply, boxstyle: integer;
66+ begin
67+ with application do begin
68+ boxstyle := MB_ICONQUESTION + MB_YESNO;
69+ reply := MessageBox ('Press either button', 'MessageBoxDemo', boxstyle);
70+ if reply = IDYES then MessageBox ('Yes ', 'Reply',MB_ICONINFORMATION)
71+ else MessageBox ('No ', 'Reply', MB_ICONHAND);
72+ end;
8273```
8374
84-Všimnite si, že v tomto príklade sú reťazce 'Yes' a 'No' doplnené medzerami; inak by okno nebolo dosť široké na správne zobrazenie titulku.
75+Všimnite si, že v tomto príklade sú reťazce 'Yes' a 'No' doplnené medzerami; inak by okno nebolo dosť široké na správne zobrazenie titulku.
8576
86-[![MessageBoxDemo.png](/wiki-images/c/c2/MessageBoxDemo.png)](</File:MessageBoxDemo.png>) [![ReplyYes.png](/wiki-images/0/06/ReplyYes.png)](</File:ReplyYes.png>)
77+![](/wiki-images/c/c2/MessageBoxDemo.png) ![](/wiki-images/0/06/ReplyYes.png)
8778
8879### MessageDLG
89-```
90-function MessageDlg(const aMsg: string; DlgType: TMsgDlgType;
91- Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
92- function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;
93- Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
80+
81+``` pascal
82+ function MessageDlg(const aMsg: string; DlgType: TMsgDlgType;
83+ Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
84+ function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType;
85+ Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
9486```
9587
96-Táto funkcia má dve verzie, teda prvý parameter 'Caption' je voliteľný, ak je vynechaný nie je zobrazený Titulok.
88+Táto funkcia má dve verzie, teda prvý parameter 'Caption' je voliteľný, ak je vynechaný nie je zobrazený Titulok.
9789
98-Toto je najkomplexnejší a najprepracovanejší správový dialóg, ktorý poskytuje programátorovi značnú kontrolu nad vzhľadom dialógového okna. Parametre definujúce typ okna a jeho ikonu sú typy, namiesto konštánt a tlačítka môžu byť zadané ako množina v lomených zátvorkách, napr. **[mbRetry, mbIgnore, mbAbort, mbCancel]**. Parameter **HelpCtx** aktuálne nie je implementovaný a musí bať nastavený na nulu. Návratová hodnota funkcie je identická ako stlačené tlačítko, reprezentovaná ako integer (viz nasledujúcu definície, [mrNone..mrAll]).
90+Toto je najkomplexnejší a najprepracovanejší správový dialóg, ktorý poskytuje programátorovi značnú kontrolu nad vzhľadom dialógového okna. Parametre definujúce typ okna a jeho ikonu sú typy, namiesto konštánt a tlačítka môžu byť zadané ako množina v lomených zátvorkách, napr. **\[mbRetry, mbIgnore, mbAbort, mbCancel\]**. Parameter **HelpCtx** aktuálne nie je implementovaný a musí bať nastavený na nulu. Návratová hodnota funkcie je identická ako stlačené tlačítko, reprezentovaná ako integer (viz nasledujúcu definície, \[mrNone..mrAll\]).
9991
100-Príklad:
101-```
102-Uses forms, dialogs, lcltype, controls;
103-
104- procedure TryMessageDlg;
105- begin
106- if MessageDlg ('Question', 'Do you wish to Execute?', mtConfirmation,
107- [mbYes, mbNo, mbIgnore], 0) = mrYes
108- then
109- { Execute rest of Program };
110- end;
92+Príklad:
93+
94+``` pascal
95+ Uses forms, dialogs, lcltype, controls;
96+
97+ procedure TryMessageDlg;
98+ begin
99+ if MessageDlg ('Question', 'Do you wish to Execute?', mtConfirmation,
100+ [mbYes, mbNo, mbIgnore], 0) = mrYes
101+ then
102+ { Execute rest of Program };
103+ end;
111104```
112105
113-[![Question.png](/wiki-images/3/30/Question.png)](</File:Question.png>)
106+![](/wiki-images/3/30/Question.png)
114107
115108## Dialógy textového vstupu
116109
117-Dialógy textového vstupu, zobrazujú správu a dovoľujú používateľovi zadať požadovanú textovú hodnotu.
110+Dialógy textového vstupu, zobrazujú správu a dovoľujú používateľovi zadať požadovanú textovú hodnotu.
118111
119112### InputBox
120-```
113+
114+``` pascal
121115Function InputBox(const ACaption, APrompt, ADefault : String) : String;
122116```
123117
124-Zobrazuje okno s definovaným nadpisom, otázku a čaká na používateľský vstup v textovom poli. Voliteľne môže byť pre textové pole definovaný aj predvolený reťazec. Používateľom zadaný text alebo predvolený reťazec je vrátený ako výsledok funkcie.
118+Zobrazuje okno s definovaným nadpisom, otázku a čaká na používateľský vstup v textovom poli. Voliteľne môže byť pre textové pole definovaný aj predvolený reťazec. Používateľom zadaný text alebo predvolený reťazec je vrátený ako výsledok funkcie.
125119
126-Príklad:
127-```
128-Uses forms, lcltype, dialogs, controls;
129-
130- procedure TryInputBox;
131- var userstring: string;
132- begin
133- userstring := InputBox ('Get some text input',
134- 'Please type in some information', 'Some sample text');
135- ShowMessage (userstring)
136- end;
120+Príklad:
121+
122+``` pascal
123+ Uses forms, lcltype, dialogs, controls;
124+
125+ procedure TryInputBox;
126+ var userstring: string;
127+ begin
128+ userstring := InputBox ('Get some text input',
129+ 'Please type in some information', 'Some sample text');
130+ ShowMessage (userstring)
131+ end;
137132```
138133
139134### InputQuery
140-```
141-Function InputQuery(const ACaption, APrompt : String;
142- MaskInput : Boolean; var Value : String) : Boolean;
143- Function InputQuery(const ACaption, APrompt : String;
144- var Value : String) : Boolean;
135+
136+``` pascal
137+ Function InputQuery(const ACaption, APrompt : String;
138+ MaskInput : Boolean; var Value : String) : Boolean;
139+ Function InputQuery(const ACaption, APrompt : String;
140+ var Value : String) : Boolean;
145141```
146142
147-Dve verzie tejto funkcie, ktoré zobrazujú otázku a čakajú používateľský vstup textových dát; prvá verzia zahŕňa logický parameter **MaskInput** , ktorý určuje, či má byť používateľský vstup v textovom poli maskovaný hviezdičkami (ako pri zadávaní hesla), zatiaľ čo druhá túto vlastnosť vynecháva. Používateľom zadaný text je vrátený v parametri 'Value'; výsledkom funkcie je logická hodnota, ktorá vracia **TRUE** , ak bolo stlačené tlačítko OK alebo **FALSE** , ak bolo okno zatvorené iným spôsobom (napríklad kliknutím na ikonu 'Zatvoriť' v lište okna). Vynechanie parametra MaskInput má rovnaký výsledok ako jeho nastavenie na FALSE.
143+Dve verzie tejto funkcie, ktoré zobrazujú otázku a čakajú používateľský vstup textových dát; prvá verzia zahŕňa logický parameter **MaskInput**, ktorý určuje, či má byť používateľský vstup v textovom poli maskovaný hviezdičkami (ako pri zadávaní hesla), zatiaľ čo druhá túto vlastnosť vynecháva. Používateľom zadaný text je vrátený v parametri 'Value'; výsledkom funkcie je logická hodnota, ktorá vracia **TRUE**, ak bolo stlačené tlačítko OK alebo **FALSE**, ak bolo okno zatvorené iným spôsobom (napríklad kliknutím na ikonu 'Zatvoriť' v lište okna). Vynechanie parametra MaskInput má rovnaký výsledok ako jeho nastavenie na FALSE.
148144
149-Príklad:
150-```
151-Uses forms, lcltype, dialogs, controls;
152-
153- procedure TryInputQuery;
154- var QueryResult: boolean;
155- userstring: string;
156- begin
157- if InputQuery ('Question', 'Type in some data', TRUE, userstring)
158- then ShowMessage (userstring)
159- else
160- begin
161- InputQuery ('Don''t be silly', 'Please try again', userstring);
162- ShowMessage (userstring);
163- end
164- end;
145+Príklad:
146+
147+``` pascal
148+ Uses forms, lcltype, dialogs, controls;
149+
150+ procedure TryInputQuery;
151+ var QueryResult: boolean;
152+ userstring: string;
153+ begin
154+ if InputQuery ('Question', 'Type in some data', TRUE, userstring)
155+ then ShowMessage (userstring)
156+ else
157+ begin
158+ InputQuery ('Don''t be silly', 'Please try again', userstring);
159+ ShowMessage (userstring);
160+ end
161+ end;
165162```
166163
167-[![MessageDlgQuestion.png](/wiki-images/d/d0/MessageDlgQuestion.png)](</File:MessageDlgQuestion.png>) [![DontBeSillly.png](/wiki-images/c/ce/DontBeSillly.png)](</File:DontBeSillly.png>)
164+![](/wiki-images/d/d0/MessageDlgQuestion.png) ![](/wiki-images/c/ce/DontBeSillly.png)
168165
169166### PasswordBox
170-```
171-Function PasswordBox(const ACaption, APrompt : String) : String;
167+
168+``` pascal
169+ Function PasswordBox(const ACaption, APrompt : String) : String;
172170```
173171
174-Správa sa veľmi podobne ako funkcia **InputQuery** s MaskInput = TRUE; rozdiel je, že heslo, ktoré bolo zadané je vrátené ako výsledok funkcie (ako **InputBox**).
172+Správa sa veľmi podobne ako funkcia **InputQuery** s MaskInput = TRUE; rozdiel je, že heslo, ktoré bolo zadané je vrátené ako výsledok funkcie (ako **InputBox**).
175173
176174## Konštanty a Typy v správových dialógoch
177175
178-Niektoré konštanty a typy, ktoré majú vzťah k použitiu v dialógových oknách a sú preddefinované v knižnici LCL:
179-```
180-const { Defined in LCLType.pp }
176+Niektoré konštanty a typy, ktoré majú vzťah k použitiu v dialógových oknách a sú preddefinované v knižnici LCL:
177+
178+``` pascal
179+ const { Defined in LCLType.pp }
181180```
182181
183182Celočíslené konštanty pre definovanie typov tlačítiek a ikon pre zobrazenie v **MessageBox**
184-```
185-MB_OK = $00000000;
186- MB_OKCANCEL = $00000001;
187- MB_ABORTRETRYIGNORE = $00000002;
188- MB_YESNOCANCEL = $00000003;
189- MB_YESNO = $00000004;
190- MB_RETRYCANCEL = $00000005;
191-
192- MB_ICONHAND = $00000010;
193- MB_ICONQUESTION = $00000020;
194- MB_ICONEXCLAMATION = $00000030;
195- MB_ICONASTERICK = $00000040;
196- MB_ICONWARNING = MB_ICONEXCLAMATION;
197- MB_ICONERROR = MB_ICONHAND;
198- MB_ICONINFORMATION = MB_ICONASTERICK;
199-```
200183
201-Celočíselné konštanty definujúce návratovú hodnotu z **MessageBox** , v závislosti na stlačenom tlačítku
202-```
203-IDOK = 1; ID_OK = IDOK;
204- IDCANCEL = 2; ID_CANCEL = IDCANCEL;
205- IDABORT = 3; ID_ABORT = IDABORT;
206- IDRETRY = 4; ID_RETRY = IDRETRY;
207- IDIGNORE = 5; ID_IGNORE = IDIGNORE;
208- IDYES = 6; ID_YES = IDYES;
209- IDNO = 7; ID_NO = IDNO;
210- IDCLOSE = 8; ID_CLOSE = IDCLOSE;
211- IDHELP = 9; ID_HELP = IDHELP;
184+``` pascal
185+ MB_OK = $00000000;
186+ MB_OKCANCEL = $00000001;
187+ MB_ABORTRETRYIGNORE = $00000002;
188+ MB_YESNOCANCEL = $00000003;
189+ MB_YESNO = $00000004;
190+ MB_RETRYCANCEL = $00000005;
191+
192+ MB_ICONHAND = $00000010;
193+ MB_ICONQUESTION = $00000020;
194+ MB_ICONEXCLAMATION = $00000030;
195+ MB_ICONASTERICK = $00000040;
196+ MB_ICONWARNING = MB_ICONEXCLAMATION;
197+ MB_ICONERROR = MB_ICONHAND;
198+ MB_ICONINFORMATION = MB_ICONASTERICK;
212199```
213200
214-Definuje, či je predvolené prvé, druhé alebo tretie tlačítko
215-```
216-MB_DEFBUTTON1 = $00000000;
217- MB_DEFBUTTON2 = $00000100;
218- MB_DEFBUTTON3 = $00000200;
219- MB_DEFBUTTON4 = $00000300;
201+Celočíselné konštanty definujúce návratovú hodnotu z **MessageBox**, v závislosti na stlačenom tlačítku
202+
203+``` pascal
204+ IDOK = 1; ID_OK = IDOK;
205+ IDCANCEL = 2; ID_CANCEL = IDCANCEL;
206+ IDABORT = 3; ID_ABORT = IDABORT;
207+ IDRETRY = 4; ID_RETRY = IDRETRY;
208+ IDIGNORE = 5; ID_IGNORE = IDIGNORE;
209+ IDYES = 6; ID_YES = IDYES;
210+ IDNO = 7; ID_NO = IDNO;
211+ IDCLOSE = 8; ID_CLOSE = IDCLOSE;
212+ IDHELP = 9; ID_HELP = IDHELP;
220213```
221214
222-Parameter **Flags** funkcie **MessageBox** je vytvorený pomocou súčtu konštánt tlačítiek **[MB_OK..MB_RETRYCANCEL]** , voliteľnej konštanty ikony **[MB_ICONHAND..MB_ICONINFORMATION]** a voliteľnej konštanty predvoleného tlačítka **[MB_DEFBUTTON1..MB_DEFBUTTON3]**
215+Definuje, či je predvolené prvé, druhé alebo tretie tlačítko
223216
224-Typy prepoužitie v **MessageDlg** , ktorý potrebuje parametre AType typu **TMsgDlgType** a AButtons typu **TMSgDlgButtons**
225-```
226-{ Defined in Dialogs.pp }
227- type
228- TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation,
229- mtCustom);
230- TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
231- mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
232- TMsgDlgButtons = set of TMsgDlgBtn;
233-
234- const
235- mbYesNoCancel = [mbYes, mbNo, mbCancel];
236- mbOKCancel = [mbOK, mbCancel];
237- mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
238-
239- MsgDlgBtnToBitBtnKind: array[TMsgDlgBtn] of TBitBtnKind = (
240- bkYes, bkNo, bkOK, bkCancel, bkAbort, bkRetry, bkIgnore,
241- bkAll, bkNoToAll, bkYesToAll, bkHelp, bkClose
242- );
243-
244- BitBtnKindToMsgDlgBtn: array[TBitBtnKind] of TMsgDlgBtn = (
245- mbOk, mbOK, mbCancel, mbHelp, mbYes, mbNo,
246- mbClose, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToALl, mbYesToAll
247- );
217+``` pascal
218+ MB_DEFBUTTON1 = $00000000;
219+ MB_DEFBUTTON2 = $00000100;
220+ MB_DEFBUTTON3 = $00000200;
221+ MB_DEFBUTTON4 = $00000300;
248222```
223+
224+Parameter **Flags** funkcie **MessageBox** je vytvorený pomocou súčtu konštánt tlačítiek **\[MB_OK..MB_RETRYCANCEL\]**, voliteľnej konštanty ikony **\[MB_ICONHAND..MB_ICONINFORMATION\]** a voliteľnej konštanty predvoleného tlačítka **\[MB_DEFBUTTON1..MB_DEFBUTTON3\]**
225+
226+Typy prepoužitie v **MessageDlg**, ktorý potrebuje parametre AType typu **TMsgDlgType** a AButtons typu **TMSgDlgButtons**
227+
228+``` pascal
229+ { Defined in Dialogs.pp }
230+ type
231+ TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation,
232+ mtCustom);
233+ TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
234+ mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
235+ TMsgDlgButtons = set of TMsgDlgBtn;
236+
237+ const
238+ mbYesNoCancel = [mbYes, mbNo, mbCancel];
239+ mbOKCancel = [mbOK, mbCancel];
240+ mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];
241+
242+ MsgDlgBtnToBitBtnKind: array[TMsgDlgBtn] of TBitBtnKind = (
243+ bkYes, bkNo, bkOK, bkCancel, bkAbort, bkRetry, bkIgnore,
244+ bkAll, bkNoToAll, bkYesToAll, bkHelp, bkClose
245+ );
246+
247+ BitBtnKindToMsgDlgBtn: array[TBitBtnKind] of TMsgDlgBtn = (
248+ mbOk, mbOK, mbCancel, mbHelp, mbYes, mbNo,
249+ mbClose, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToALl, mbYesToAll
250+ );
249251```
250-{ Defined in Controls.pp }
251- const
252- mrNone = 0;
253- mrOK = mrNone + 1;
254- mrCancel = mrNone + 2;
255- mrAbort = mrNone + 3;
256- mrRetry = mrNone + 4;
257- mrIgnore = mrNone + 5;
258- mrYes = mrNone + 6;
259- mrNo = mrNone + 7;
260- mrAll = mrNone + 8;
261- mrNoToAll = mrNone + 9;
262- mrYesToAll = mrNone + 10;
263- mrLast = mrYesToAll;
252+
253+``` pascal
254+ { Defined in Controls.pp }
255+ const
256+ mrNone = 0;
257+ mrOK = mrNone + 1;
258+ mrCancel = mrNone + 2;
259+ mrAbort = mrNone + 3;
260+ mrRetry = mrNone + 4;
261+ mrIgnore = mrNone + 5;
262+ mrYes = mrNone + 6;
263+ mrNo = mrNone + 7;
264+ mrAll = mrNone + 8;
265+ mrNoToAll = mrNone + 9;
266+ mrYesToAll = mrNone + 10;
267+ mrLast = mrYesToAll;
264268```
265269
266-* * *
270+------------------------------------------------------------------------
267271
268- * Initial translation by --[Komunista](</User:Slavko> "User:Slavko") 20:57, 17 November 2008 (CET)
269- * This page has been imported from the epikwiki [version](<http://lazarus-ccr.sourceforge.net/index.php?wiki=DialogExamples>).
272+- Initial translation by --Komunista 20:57, 17 November 2008 (CET)
273+- This page has been imported from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=DialogExamples).
270274
271275---
272-*From the Free Pascal wiki, page "Dialog Examples/sk", as the Internet Archive kept it on 2025-01-18. 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).*
276+*From the Free Pascal wiki, page "Dialog Examples/sk", as it stood on 2020-02-13 after a change by Trev, out of the wiki's dump of 2024-05-26. 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