pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

CheckCloseForm in TRXCloseFormValidator now is public

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2346 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-03-15 16:35:18 +00:00
parent edeccf9cb4
commit efa62983f8
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/rxcloseformvalidator.pas
View File

@ -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;