opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Turn "Drop" confirmation dialogs into custom critical types, so we can set focus to the Cancel button. See http://www.heidisql.com/forum.php?t=14042

Browse Source
This commit is contained in:
Ansgar Becker
2013-11-20 20:52:35 +00:00
parent ef761a897f
commit e832f984f2
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/helpers.pas
View File

@ -327,6 +327,7 @@ var
AppSettings: TAppSettings;
MutexHandle: THandle = 0;
SystemImageList: TImageList;
mtCriticalConfirmation: TMsgDlgType = mtCustom;
implementation
@ -2324,6 +2325,8 @@ var
end;
Btn.Caption := cap;
Btn.ModalResult := BtnResult;
if (DlgType = mtCriticalConfirmation) and (BtnResult = mrCancel) then
Btn.Default := True;
end;
begin
if (Win32MajorVersion >= 6) and StyleServices.Enabled then begin