mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 18:18:28 +02:00
ExtDlgs: set UserChoice in TCalendarDialog.OnDialogCloseQuery.
git-svn-id: trunk@52807 -
This commit is contained in:
parent
e1d3e708ed
commit
31a5dce8e4
@ -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;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user