You've already forked lazarus-ccr
CheckCloseForm in TRXCloseFormValidator now is public
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2346 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -89,7 +89,6 @@ type
|
|||||||
FOnCloseQuery : TCloseQueryEvent;
|
FOnCloseQuery : TCloseQueryEvent;
|
||||||
FItems:TValidateItems;
|
FItems:TValidateItems;
|
||||||
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
|
||||||
function CheckCloseForm:boolean;
|
|
||||||
function GetItems: TValidateItems;
|
function GetItems: TValidateItems;
|
||||||
procedure SetCloseQueryHandler;
|
procedure SetCloseQueryHandler;
|
||||||
procedure SetItems(AValue: TValidateItems);
|
procedure SetItems(AValue: TValidateItems);
|
||||||
@ -100,6 +99,7 @@ type
|
|||||||
public
|
public
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
function CheckCloseForm:boolean;
|
||||||
published
|
published
|
||||||
property ErrorMsgCaption:string read FErrorMsgCaption write FErrorMsgCaption;
|
property ErrorMsgCaption:string read FErrorMsgCaption write FErrorMsgCaption;
|
||||||
property Items:TValidateItems read GetItems write SetItems;
|
property Items:TValidateItems read GetItems write SetItems;
|
||||||
|
Reference in New Issue
Block a user