RbBFBlokProjPSIVStrn2005.01 ACnmStrnAChpStrnACsvStrnVer1Strn0 Ver2Strn0 Ver3Strn1 RelsStrnNnRlStrnRegnStrn0 SVerStrnLVerStrnIVerStrnDVewInt =/prTpInt DLanInt CLanInt DEncInt BflgInt IconGrup AEndGInt AMacCStrnBMacStrnMy App (Classic)BCarStrn miniBrowser1BCMOStrnMy Application BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnminiBrowser.exe BMDIInt BL86Strn miniBrowser PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj XNameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$ BnameStrnMenuBar PValInt dEndGInt BCnstGrup CEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0 DpltfInt langInt defnStrnCmd+Q EndGInt DEndGInt CCnstGrup EEncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0 FpltfInt langInt defnStrnE&xit EndGInt FCInsGrup0 GpltfInt langInt defnStrnE&xit EndGInt GEndGInt ECnstGrup HEncoInt nameStrn kEditClear typeInt defnStrnClear flagInt CInsGrup0 IpltfInt langInt defnStrn&Delete EndGInt ICInsGrup0 JpltfInt langInt defnStrn&Delete EndGInt JEndGInt HPadnPadn********************************************************************************************************************************BlokpVew=/XNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnMnuHGrup KnameStrnFileQuitCompStrnsorcGrupd LEncoInt srclStrnFunction FileQuit() As Boolean srclStrnQuitsrclStrn End FunctionEndGInt LEndGInt KMethGrupd MnameStrnReport CompStrnsorcGrup NEncoInt srclStrnSub Report(s as String) srclStrn5//Used for Tracing events while designing / debugging srclStrnDim d As New Date srclStrn&ComboBox1.AddRow s + " " + d.ShortTime srclStrnEnd Sub EndGInt NEncoInt AlasStrnflagInt !parmStrn s as String rsltStrnEndGInt MPropGrup OEncoInt declStrncancelling As Boolean flagInt !sorcGrup@ PEncoInt srclStrncancelling As Boolean srclStrnEndGInt PEndGInt OPDefGrup0 QnameStrnMenuBar PValStrn 1678936063 EndGInt QPDefGrup( RnameStrn MacProcID PValInt EndGInt RPDefGrup4 SnameStrn BalloonHelp EncoInt PValStrnEndGInt SPDefGrup0 TnameStrnMaximizeButton PValStrnTrueEndGInt TPDefGrup0 UnameStrn LiveResize PValStrnFalse EndGInt UPDefGrup, VnameStrn Resizeable PValStrnTrueEndGInt VPDefGrup, WnameStrn CloseButton PValStrnTrueEndGInt WPDefGrup0 XnameStrnMenuBarVisible PValStrnTrueEndGInt XPDefGrup0 YnameStrn FullScreen PValStrnFalse EndGInt YPDefGrup( ZnameStrnVisible PValStrnTrueEndGInt ZPDefGrup< [nameStrnTitle EncoInt PValStrn Mini BrowserEndGInt [PDefGrup$ \nameStrnBackdropPValStrnEndGInt \PDefGrup( ]nameStrn BackColor PValInt EndGInt ]PDefGrup0 ^nameStrn HasBackColorPValStrnFalse EndGInt ^PDefGrup, _nameStrn Composite PValStrnTrueEndGInt _PDefGrup$ `nameStrnFrame PValInt EndGInt `PDefGrup( anameStrn MaxHeight PValInt }EndGInt aPDefGrup$ bnameStrnMaxWidthPValInt }EndGInt bPDefGrup( cnameStrn MinHeight PValInt @EndGInt cPDefGrup$ dnameStrnMinWidthPValInt @EndGInt dPDefGrup$ enameStrnHeight PValInt EndGInt ePDefGrup$ fnameStrnWidth PValInt mEndGInt fPDefGrup( gnameStrn Placement PValInt EndGInt gCBhvGrup hSuprStrn EditField HInsGrupX inameStrnKeyDown CompStrnsorcGrup jEncoInt srclStrn*Function KeyDown(Key As String) As Boolean srclStrn//Accept Return key as "Go" srclStrnCif (key = chr(3) or Key = chr(13)) and len(AddrField.Text) > 0 then srclStrn"HTMLViewer1.LoadURL AddrField.Text srclStrnEnd If srclStrn End FunctionEndGInt jEndGInt iEndGInt hCBhvGrup kSuprStrn PushButton HInsGrup lnameStrnAction CompStrnsorcGrupl mEncoInt srclStrn Sub Action()srclStrn"HTMLViewer1.LoadURL AddrField.Text srclStrnEnd Sub EndGInt mEndGInt lEndGInt kCBhvGrup nSuprStrn HTMLViewer HInsGrup onameStrnAction CompStrnsorcGrup pEncoInt srclStrn,Function Action(item as MenuItem) As BooleansrclStrn//Report "Action" srclStrn End FunctionEndGInt pEndGInt oHInsGrup$ qnameStrn CancelLoad CompStrnsorcGrup rEncoInt srclStrn-Function CancelLoad(URL as String) As Boolean srclStrnDim maxHist as Integer srclStrnDim lcUrl as String srclStrn//Report "CancelLoad "+ URL srclStrnlcUrl = Lowercase(URL) srclStrnnameStrn InitialParent EncoInt PValStrnEndGInt >PDefGrup( ?nameStrn Underline PValStrnEndGInt ?PDefGrup$ @nameStrnItalic PValStrnEndGInt @PDefGrup AnameStrnBoldPValStrnEndGInt APDefGrup$ BnameStrnTextSizePValInt EndGInt BPDefGrup8 CnameStrnTextFontEncoInt PValStrnSystem EndGInt CPDefGrup0 DnameStrnAutoDeactivate PValStrnTrueEndGInt DPDefGrup0 EnameStrnHelpTag EncoInt PValStrnEndGInt EPDefGrup( FnameStrnVisible PValStrnTrueEndGInt FPDefGrup, GnameStrnEnabled PValStrnFalse EndGInt GPDefGrup$ HnameStrnCancel PValStrnEndGInt HPDefGrup$ InameStrnDefault PValStrnEndGInt IPDefGrup4 JnameStrnCaption EncoInt PValStrnFwd EndGInt JPDefGrup, KnameStrn TabPanelIndex PValInt EndGInt KPDefGrup( LnameStrn LockBottom PValStrnEndGInt LPDefGrup( MnameStrn LockRight PValStrnEndGInt MPDefGrup$ NnameStrnLockTop PValStrnEndGInt NPDefGrup$ OnameStrnLockLeftPValStrnEndGInt OPDefGrup$ PnameStrnHeight PValInt EndGInt PPDefGrup$ QnameStrnWidth PValInt EndGInt QPDefGrup RnameStrnTop PValInt EndGInt RPDefGrup SnameStrnLeftPValInt +EndGInt SPDefGrup8 TnameStrn ControlOrderEncoInt PValStrn6 EndGInt TPDefGrup< UnameStrnSuper EncoInt PValStrn PushButton EndGInt UPDefGrup$ VnameStrnIndex PValInt EndGInt VPDefGrup8 WnameStrnNameEncoInt PValStrn FwdButton EndGInt WCBixInt EndGInt =CtrlGrup XcclsStrn HistoryClassnameStrn HistoryClassPDefGrup YnameStrnTop PValInt rEndGInt YPDefGrup ZnameStrnLeftPValInt EndGInt ZPDefGrup< [nameStrnSuper EncoInt PValStrn HistoryClassEndGInt [PDefGrup$ \nameStrnIndex PValInt EndGInt \PDefGrup8 ]nameStrnNameEncoInt PValStrn URLhistory EndGInt ]CBixInt EndGInt XPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************BlokpMnud NameStrnMenuBar1ContInt paswStrnMItmGrupp ^spmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup _spmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt _EndGInt ^MItmGrup\ `spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup aspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt aMItmGrup bspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt bMItmGrup cspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt cMItmGrup dspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt dMItmGrup espmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt eMItmGrup fspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt fMItmGrup gspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt gMItmGrup hspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt hEndGInt `PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj(NameStrn HistoryClassContInt paswStrnbClsInt bNtrInt CompStrnMethGrup inameStrnAdd CompStrnsorcGrupp jEncoInt 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 jEncoInt AlasStrnflagInt parmStrn URL as String rsltStrnEndGInt iMethGrup knameStrnBackCompStrnsorcGrup lEncoInt 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 lEncoInt AlasStrnflagInt parmStrnrsltStrnString EndGInt kMethGrup mnameStrnFwd CompStrnsorcGrup nEncoInt 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 nEncoInt AlasStrnflagInt parmStrnrsltStrnString EndGInt mMethGrup onameStrn validBack CompStrnsorcGrupt pEncoInt srclStrnFunction validBack() As Boolean srclStrnReturn mValidBack srclStrn End FunctionEndGInt pEncoInt AlasStrnflagInt parmStrnrsltStrnBoolean EndGInt oMethGrup qnameStrnvalidFwdCompStrnsorcGrupp rEncoInt srclStrnFunction validFwd() As Boolean srclStrnReturn mValidFwdsrclStrn End FunctionEndGInt rEncoInt AlasStrnflagInt parmStrnrsltStrnBoolean EndGInt qPropGrup sEncoInt declStrnfromHistory As Boolean flagInt !sorcGrup@ tEncoInt srclStrnfromHistory As Boolean srclStrnEndGInt tEndGInt sPropGrup uEncoInt declStrnhistoryList() As String flagInt !sorcGrup@ vEncoInt srclStrnhistoryList() As String srclStrnEndGInt vEndGInt uPropGrup wEncoInt declStrnhistoryPos As Integer flagInt !sorcGrup@ xEncoInt srclStrnhistoryPos As Integer srclStrnEndGInt xEndGInt wPropGrup yEncoInt declStrnmValidFwd As BooleanflagInt !sorcGrup< zEncoInt srclStrnmValidFwd As BooleansrclStrnEndGInt zEndGInt yPropGrup {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@********************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup OTabGrup ContInt eSptInt EndGInt OTabGrup ContInt (EndGInt OTabGrup ContInt =/EndGInt OTabGrup ContInt =/EndGInt rEdtRect.EndGInt PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!