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

RxFPC: TPageManager - fix clear OnCheckPageEnabled property

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8162 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2021-12-01 12:06:30 +00:00
parent 7710f5aa20
commit 5d293d70c8
1 changed files with 1 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/trunk/rxcontrols/rxpagemngr.pas
View File

@ -64,7 +64,6 @@ type
function GetPageCount: Integer; function GetPageCount: Integer;
function GetPageIndex: Integer; function GetPageIndex: Integer;
procedure SetNextBtn(const AValue: TControl); procedure SetNextBtn(const AValue: TControl);
procedure SetOnCheckPageEnabled(const AValue: TCheckPageEnabled);
procedure SetOptions(const AValue: TPageManagerOptions); procedure SetOptions(const AValue: TPageManagerOptions);
procedure SetPageIndex(const AValue: Integer); procedure SetPageIndex(const AValue: Integer);
procedure SetPageOwner(const AValue: TPageOwner); procedure SetPageOwner(const AValue: TPageOwner);
@ -93,7 +92,7 @@ type
property PageOwner: TPageOwner read FPageOwner write SetPageOwner; property PageOwner: TPageOwner read FPageOwner write SetPageOwner;
property NextBtn: TControl read FNextBtn write SetNextBtn; property NextBtn: TControl read FNextBtn write SetNextBtn;
property PriorBtn: TControl read FPriorBtn write SetPriorBtn; 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 OnPageChanged: TNotifyEvent read FOnPageChanged write FOnPageChanged;
property Options:TPageManagerOptions read FOptions write SetOptions default []; property Options:TPageManagerOptions read FOptions write SetOptions default [];
property StatusControl:TControl read FStatusControl write SetStatusControl; property StatusControl:TControl read FStatusControl write SetStatusControl;
@ -126,12 +125,6 @@ begin
else Result := pageNull; else Result := pageNull;
end; end;
procedure TPageManager.SetOnCheckPageEnabled(const AValue: TCheckPageEnabled);
begin
if FOnCheckPageEnabled=AValue then exit;
FOnCheckPageEnabled:=AValue;
end;
procedure TPageManager.SetOptions(const AValue: TPageManagerOptions); procedure TPageManager.SetOptions(const AValue: TPageManagerOptions);
begin begin
if FOptions=AValue then exit; if FOptions=AValue then exit;