paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 09:16:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: questiondlg plus escape key now uses aborts before no, bug #12052

Browse Source 
git-svn-id: trunk@19989 -
This commit is contained in:
mattias 2009-05-16 23:28:21 +00:00
parent 49b74e836b
commit 8416f53be9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/promptdialog.inc
View File

@ -840,7 +840,7 @@ begin
// find default and cancel button // find default and cancel button
DefaultControl:=FindButton([mrYes,mrOk,mrYesToAll,mrAll,mrRetry,mrCancel, DefaultControl:=FindButton([mrYes,mrOk,mrYesToAll,mrAll,mrRetry,mrCancel,
mrNo,mrNoToAll,mrAbort,mrIgnore]); mrNo,mrNoToAll,mrAbort,mrIgnore]);
CancelControl:=FindButton([mrNo,mrAbort,mrCancel,mrIgnore,mrNoToAll,mrYes, CancelControl:=FindButton([mrAbort,mrCancel,mrNo,mrIgnore,mrNoToAll,mrYes,
mrOk,mrRetry,mrAll,mrYesToAll]) mrOk,mrRetry,mrAll,mrYesToAll])
end; end;