From 5d293d70c82c8ced9c5b88bed1d72e8178daf4a4 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Wed, 1 Dec 2021 12:06:30 +0000 Subject: [PATCH] RxFPC: TPageManager - fix clear OnCheckPageEnabled property git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8162 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/rxcontrols/rxpagemngr.pas | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/components/rx/trunk/rxcontrols/rxpagemngr.pas b/components/rx/trunk/rxcontrols/rxpagemngr.pas index 918bc6326..19b5c5cf9 100644 --- a/components/rx/trunk/rxcontrols/rxpagemngr.pas +++ b/components/rx/trunk/rxcontrols/rxpagemngr.pas @@ -64,7 +64,6 @@ type function GetPageCount: Integer; function GetPageIndex: Integer; procedure SetNextBtn(const AValue: TControl); - procedure SetOnCheckPageEnabled(const AValue: TCheckPageEnabled); procedure SetOptions(const AValue: TPageManagerOptions); procedure SetPageIndex(const AValue: Integer); procedure SetPageOwner(const AValue: TPageOwner); @@ -93,7 +92,7 @@ type property PageOwner: TPageOwner read FPageOwner write SetPageOwner; property NextBtn: TControl read FNextBtn write SetNextBtn; property PriorBtn: TControl read FPriorBtn write SetPriorBtn; - property OnCheckPageEnabled:TCheckPageEnabled read FOnCheckPageEnabled write SetOnCheckPageEnabled; + property OnCheckPageEnabled:TCheckPageEnabled read FOnCheckPageEnabled write FOnCheckPageEnabled; property OnPageChanged: TNotifyEvent read FOnPageChanged write FOnPageChanged; property Options:TPageManagerOptions read FOptions write SetOptions default []; property StatusControl:TControl read FStatusControl write SetStatusControl; @@ -126,12 +125,6 @@ begin else Result := pageNull; end; -procedure TPageManager.SetOnCheckPageEnabled(const AValue: TCheckPageEnabled); -begin - if FOnCheckPageEnabled=AValue then exit; - FOnCheckPageEnabled:=AValue; -end; - procedure TPageManager.SetOptions(const AValue: TPageManagerOptions); begin if FOptions=AValue then exit;