paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 11:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL/SaveDialog: Fix unexpected behaviour when OnCanClose event is handled and returns CanClose=false. Issue #40297.

Browse Source
This commit is contained in:
wp_xyz 2023-06-05 13:02:26 +02:00
parent 73a69089d9
commit ccef4f2a79
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -1475,7 +1475,10 @@ begin
Result := S_OK;
end
else
begin
FDialog.UserChoice := mrNone;
Result := S_FALSE;
end;
end;
{$ifdef DebugCommonDialogEvents}
debugln('TFileDialogEvents.OnFileOk End');