paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Fix default button index in AskUser(). Issue #37224, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@63430 -
This commit is contained in:
juha 2020-06-23 17:58:03 +00:00
parent 6ec641510e
commit edd19698a4
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -896,6 +896,8 @@ var
idButtonAll : Result := GTK_RESPONSE_LCL_ALL;
idButtonNoToAll : Result := GTK_RESPONSE_LCL_NOTOALL;
idButtonYesToAll : Result := GTK_RESPONSE_LCL_YESTOALL;
else
Result:=AnID;
end;
end;
@ -1044,7 +1046,10 @@ begin
BtnID := -1;
BtnResult:=DlgBtn.ModalResult;
if (BtnResult>=Low(ButtonResults)) and (BtnResult<=High(ButtonResults)) then
BtnID := ButtonResults[DlgBtn.ModalResult];
BtnID := ButtonResults[DlgBtn.ModalResult]
else
BtnID := DlgBtn.ModalResult;
if (BtnIdx=CancelID) then
g_object_set_data(PGObject(Dialog), 'modal_result', {%H-}Pointer(PtrInt(DlgBtn.ModalResult)));
@ -1057,7 +1062,8 @@ begin
if DefaultID = BtnIdx then
begin
gtk_dialog_set_default_response(PGtkDialog(Dialog), ResponseID(BtnID));
gtk_dialog_set_default_response(PGtkDialog(Dialog), BtnID);
gtk_widget_grab_focus(PgtkWidget(Btn));
X := DlgBtn.ModalResult;
if CancelID<0 then
g_object_set_data(PGObject(Dialog), 'modal_result',