paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 11:58:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

ExtDlgs: set UserChoice in TCalendarDialog.OnDialogCloseQuery.

Browse Source 
git-svn-id: trunk@52807 -
This commit is contained in:
bart 2016-08-14 16:56:52 +00:00
parent e1d3e708ed
commit 31a5dce8e4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/extdlgs.pas
View File

@ -714,6 +714,10 @@ procedure TCalendarDialog.OnDialogCloseQuery(Sender: TObject;
var CanClose: boolean); var CanClose: boolean);
begin begin
//if Assigned(OnCanClose) then OnCanClose(Sender, CanClose); //if Assigned(OnCanClose) then OnCanClose(Sender, CanClose);
if DlgForm.ModalResult = mrOK then
UserChoice := mrOk
else
UserChoice := mrCancel;
DoCanClose(CanClose); DoCanClose(CanClose);
end; end;