RbBFBlokpObj(NameStrn HistoryClassContInt paswStrnbClsInt bNtrInt CompStrnMethGrup nameStrnAdd CompStrnsorcGrupp EncoInt srclStrnSub Add(URL as String) srclStrnDim maxHist as Integer srclStrnUIf Not fromHistory then // URL didn't come from Back/Fwd buttons so add to history srclStrnhistoryList.append URL srclStrnmaxHist = ubound(historyList) srclStrn9if maxHist > 100 then //Restrict length of history array srclStrnhistoryList.remove(0) srclStrnmaxHist = maxHist - 1 srclStrnEnd If srclStrnJhistoryPos = maxHist //Remember where we are in history list (at the end) srclStrnFmValidFwd= False //We're at the end of history list, so Fwd is invalid srclStrnEnd If srclStrnIif historyPos > 0 then //We're not at start of history, so Back is valid srclStrnmValidBack = True srclStrnEnd If srclStrnSfromHistory = false // We've finished doing Back or Forward, if we were doing them srclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt parmStrn URL as String rsltStrnEndGInt MethGrup nameStrnBackCompStrnsorcGrup EncoInt srclStrnFunction Back() As String srclStrnif historyPos > 0 Then srclStrnhistoryPos = historyPos - 1 srclStrnUfromHistory = True //Flag that we're in history - don't need to remember URL again srclStrn@mValidFwd = True //There must now be somewhere to go forward tosrclStrn5if historyPos < 1 Then //We've gone all the way back srclStrn(mValidBack = False //So Back is invalidsrclStrnEnd If srclStrnEnd If srclStrnReturn historyList(historyPos) srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt parmStrnrsltStrnString EndGInt MethGrup nameStrnFwd CompStrnsorcGrup EncoInt srclStrnFunction Fwd() As StringsrclStrnDim maxHist as Integer srclStrnmaxHist = ubound(historyList) srclStrn>if historyPos < maxHist Then //There's somewhere Forward to go srclStrnhistoryPos = historyPos + 1 srclStrnUfromHistory = True //Flag that we're in history - don't need to remember URL again srclStrn-//HTMLViewer1.LoadURL historyList(historyPos) srclStrn;if historyPos >= maxHist Then //We've gone right to the end srclStrn*mValidFwd = False //So Fwd is now invalid srclStrnEnd If srclStrnEnd If srclStrnReturn historyList(historyPos) srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt parmStrnrsltStrnString EndGInt MethGrup nameStrn validBack CompStrnsorcGrupt EncoInt srclStrnFunction validBack() As Boolean srclStrnReturn mValidBack srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt parmStrnrsltStrnBoolean EndGInt MethGrup nameStrnvalidFwdCompStrnsorcGrupp EncoInt srclStrnFunction validFwd() As Boolean srclStrnReturn mValidFwdsrclStrn End FunctionEndGInt EncoInt AlasStrnflagInt parmStrnrsltStrnBoolean EndGInt PropGrup EncoInt declStrnfromHistory As Boolean flagInt !sorcGrup@ EncoInt srclStrnfromHistory As Boolean srclStrnEndGInt EndGInt PropGrup EncoInt declStrnhistoryList() As String flagInt !sorcGrup@ EncoInt srclStrnhistoryList() As String srclStrnEndGInt EndGInt PropGrup EncoInt declStrnhistoryPos As Integer flagInt !sorcGrup@ EncoInt srclStrnhistoryPos As Integer srclStrnEndGInt EndGInt PropGrup EncoInt declStrnmValidFwd As BooleanflagInt !sorcGrup< EncoInt srclStrnmValidFwd As BooleansrclStrnEndGInt EndGInt PropGrup EncoInt declStrnmValidBack As Boolean flagInt !sorcGrup@ EncoInt srclStrnmValidBack As Boolean srclStrnEndGInt EndGInt PropGrup EncoInt declStrnprevAddressBar As StringflagInt sorcGrup EncoInt srclStrnprevAddressBar As StringsrclStrnBSaves previous address to be redisplayed if new link is cancelled, srclStrn"even if Back/Fwd buttons were used EndGInt EndGInt VwBhGrup VwPrGrup0 NameStrnNameVsblInt PrGpStrnID EndGInt VwPrGrupL NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 EndGInt VwPrGrup4 NameStrnSuper VsblInt PrGpStrnID EndGInt VwPrGrupD NameStrnLeftVsblInt PrGpStrnPositionPValStrn0 EndGInt VwPrGrupD NameStrnTop VsblInt PrGpStrnPositionPValStrn0 EndGInt EndGInt PadnPadn@********************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!