From f9e295540f5efd30efd35a1d8a3ebbf47769e09e Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 7 Oct 2014 04:29:19 +0000
Subject: [PATCH] RxFPC: TRxCloseFormValidator call owner form event
 OnCloseQuery before validate

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3635 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxcloseformvalidator.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxcloseformvalidator.pas b/components/rx/trunk/rxcloseformvalidator.pas
index d9f919a87..e031419dc 100644
--- a/components/rx/trunk/rxcloseformvalidator.pas
+++ b/components/rx/trunk/rxcloseformvalidator.pas
@@ -305,9 +305,10 @@ begin
   begin
     if TForm(Sender).ModalResult = mrOk then
     begin
-     CanClose:=CheckCloseForm;
      if CanClose and Assigned(FOnCloseQuery) then
        FOnCloseQuery(Sender, CanClose);
+     if CanClose then
+       CanClose:=CheckCloseForm;
     end;
   end;
 end;