Class TPageManager (unit PageMngr)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TPageManager


Functions

procedure CheckBtnEnabled;


destructor Destroy;


function GetNextPageIndex(Page: Integer): Integer;


function GetPriorPageIndex(Page: Integer): Integer;


procedure NextPage;


procedure PriorPage;


procedure Resync;


procedure SetPage(NewPageIndex: Integer; Next: Boolean);


procedure ChangePage(Next: Boolean);


procedure GetChildren(Proc: TGetChildProc );


procedure Loaded;


procedure Notification(AComponent: TComponent; AOperation: TOperation);


procedure AddProxy(Proxy: TPageProxy);

NewProxy.

procedure BtnClick(Sender: TObject);


procedure DestroyProxies;


function FindFreePage: string;


function GetButton(Index: Integer): TControl;


function GetNextEnabled: Boolean;

update owner form help context

function GetPageCount: Integer;


function GetPageIndex: Integer;


function GetPageName(Index: Integer): string;


function GetPriorEnabled: Boolean;


function GetProxyIndex(const PageName: string): Integer;


procedure PageEnter(Page: Integer; Next: Boolean);


procedure PageHide(Page: Integer; Next: Boolean);


procedure PageLeave(Page: Integer; Next: Boolean);


procedure PageShow(Page: Integer; Next: Boolean);


procedure RemoveProxy(Proxy: TPageProxy);


procedure SetButton(Index: Integer; Value: TControl);


procedure SetPageIndex(Value: Integer);


procedure SetPageOwner(Value: TPageOwner);


procedure SetPageProxies(Value: TList);


procedure SyncBtnClick(Index: Integer; Sync: Boolean);


Properties

property NextBtn : TControl


property PageOwner : TPageOwner

for internal use only

property PageProxies : TList


property PriorBtn : TControl


property SetStartPage : Boolean


property NextEnabled : Boolean


property PageCount : Integer


property PageIndex : Integer


property PageNames : string


property PriorEnabled : Boolean


Events

event OnCheckButtons : TNotifyEvent


event OnGetNextPage : TPageRequestEvent


event OnGetPriorPage : TPageRequestEvent


event OnCheckProxy : TNotifyEvent


Variables

FButtons : array [Boolean] of TControl;


FChangeHelpContext : Boolean;


FOnCheckButtons : TNotifyEvent;


FOnCheckProxy : TNotifyEvent;


FOnGetNextPage : TPageRequestEvent;


FOnGetPriorPage : TPageRequestEvent;


FPageOwner : TPageOwner;


FPageProxies : TList;


FSaveBtnClick : array [Boolean] of TNotifyEvent;


FSetStartPage : Boolean;



Constructors


constructor Create(AOwner: TComponent);

TPageManager


Functions


procedure CheckBtnEnabled;


destructor Destroy;


function GetNextPageIndex(Page: Integer): Integer;


function GetPriorPageIndex(Page: Integer): Integer;


procedure NextPage;


procedure PriorPage;


procedure Resync;


procedure SetPage(NewPageIndex: Integer; Next: Boolean);


procedure ChangePage(Next: Boolean);


procedure GetChildren(Proc: TGetChildProc );


procedure Loaded;


procedure Notification(AComponent: TComponent; AOperation: TOperation);


procedure AddProxy(Proxy: TPageProxy);

NewProxy.Name := GetUniqueName(NewProxy);


procedure BtnClick(Sender: TObject);


procedure DestroyProxies;


function FindFreePage: string;


function GetButton(Index: Integer): TControl;


function GetNextEnabled: Boolean;

update owner form help context


function GetPageCount: Integer;


function GetPageIndex: Integer;


function GetPageName(Index: Integer): string;


function GetPriorEnabled: Boolean;


function GetProxyIndex(const PageName: string): Integer;


procedure PageEnter(Page: Integer; Next: Boolean);


procedure PageHide(Page: Integer; Next: Boolean);


procedure PageLeave(Page: Integer; Next: Boolean);


procedure PageShow(Page: Integer; Next: Boolean);


procedure RemoveProxy(Proxy: TPageProxy);


procedure SetButton(Index: Integer; Value: TControl);


procedure SetPageIndex(Value: Integer);


procedure SetPageOwner(Value: TPageOwner);


procedure SetPageProxies(Value: TList);


procedure SyncBtnClick(Index: Integer; Sync: Boolean);


Properties


property NextBtn : TControl


property PageOwner : TPageOwner

for internal use only


property PageProxies : TList


property PriorBtn : TControl


property SetStartPage : Boolean


property NextEnabled : Boolean


property PageCount : Integer


property PageIndex : Integer


property PageNames : string


property PriorEnabled : Boolean


Events


event OnCheckButtons : TNotifyEvent


event OnGetNextPage : TPageRequestEvent


event OnGetPriorPage : TPageRequestEvent


event OnCheckProxy : TNotifyEvent


Variables


FButtons : array [Boolean] of TControl;


FChangeHelpContext : Boolean;


FOnCheckButtons : TNotifyEvent;


FOnCheckProxy : TNotifyEvent;


FOnGetNextPage : TPageRequestEvent;


FOnGetPriorPage : TPageRequestEvent;


FPageOwner : TPageOwner;


FPageProxies : TList;


FSaveBtnClick : array [Boolean] of TNotifyEvent;


FSetStartPage : Boolean;