From efa62983f85fa05c2430ba347514df5a7ef739c2 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 15 Mar 2012 16:35:18 +0000
Subject: [PATCH] CheckCloseForm in TRXCloseFormValidator now is public

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

diff --git a/components/rx/rxcloseformvalidator.pas b/components/rx/rxcloseformvalidator.pas
index 878a200bf..240558818 100644
--- a/components/rx/rxcloseformvalidator.pas
+++ b/components/rx/rxcloseformvalidator.pas
@@ -89,7 +89,6 @@ type
     FOnCloseQuery : TCloseQueryEvent;
     FItems:TValidateItems;
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
-    function CheckCloseForm:boolean;
     function GetItems: TValidateItems;
     procedure SetCloseQueryHandler;
     procedure SetItems(AValue: TValidateItems);
@@ -100,6 +99,7 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    function CheckCloseForm:boolean;
   published
     property ErrorMsgCaption:string read FErrorMsgCaption write FErrorMsgCaption;
     property Items:TValidateItems read GetItems write SetItems;