RbBFBlokProjPSIVStrn2007.03 ACnmStrnAChpStrnACsvStrnVer1Strn0 Ver2Strn9 Ver3Strn2 RelsStrn1 NnRlStrnRegnStrn0 SVerStrnLVerStrn2005 by Barry TraverIVerStrn-RB Browser/Editor for HTML Language Reference aiviInt DVewInt PprTpInt DLanInt CLanInt DEncInt BflgInt IconGrup>EndGInt >MacCStrnBMacStrnDownloader (Classic)BCarStrn Downloader BCMOStrn Downloader BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnDownloader2.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn Downloader PadnPadnX********************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj {NameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnMnuHGrup>nameStrnUntitledCompStrnVsblInt sorcGrup`>EncoInt srclStrnFunction Untitled() As Boolean srclStrnsrclStrn End FunctionEndGInt >EndGInt >PDefGrup$>nameStrnMenuBar PValInt Z7EndGInt >VwBhGrup>EndGInt >CnstGrup>EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0>pltfInt langInt defnStrnCmd+Q EndGInt >EndGInt >CnstGrup>EncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0>pltfInt langInt defnStrnE&xit EndGInt >CInsGrup0>pltfInt langInt defnStrnE&xit EndGInt >EndGInt >CnstGrup>EncoInt nameStrn kEditClear typeInt defnStrnClear flagInt CInsGrup0>pltfInt langInt defnStrn&Delete EndGInt >CInsGrup0>pltfInt langInt defnStrn&Delete EndGInt >EndGInt >PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewPNameStrn TextWindow ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup>nameStrnResizingCompStrnVsblInt sorcGrup>EncoInt srclStrnSub Resizing() srclStrn/horizSplit.Top = ListBox1.Top + ListBox1.Height srclStrn8HTMLViewer1.Top = horizSplit.Top + horizSplit.Height + 1srclStrnEnd Sub EndGInt >EndGInt >HInsGrup>nameStrnOpenCompStrnVsblInt sorcGrup>EncoInt srclStrn Sub Open() srclStrnTextWindow.Left = 20srclStrn0TextWIndow.Width = Screen(0).AvailableWidth - 40srclStrnsrclStrnTextWIndow.Top = 50 srclStrn2TextWindow.Height = Screen(0).AvailableHeight - 70 srclStrnsrclStrn@ListBox1.Height = ( TextWindow.Height - horizSplit.Height ) / 2srclStrn$HTMLViewer1.Height = ListBox1.HeightsrclStrnhorizSplit.Height = 5 srclStrnsrclStrn/horizSplit.Top = ListBox1.Top + ListBox1.Height srclStrn8HTMLViewer1.Top = horizSplit.Top + horizSplit.Height + 1srclStrnsrclStrnVeryFirstTIme = TruesrclStrnsrclStrnsrclStrnEnd Sub EndGInt >EndGInt >MethGrup>nameStrnMyJoin CompStrnVsblInt sorcGrup>EncoInt srclStrn?Function MyJoin(sarray() as string, delim as string ) As String srclStrn' Dim delimlen, I As Integer srclStrn' Dim mb As MemoryBlocksrclStrn)' Dim mbloc, mbsize, slen, UB As Integer srclStrn' UB = Ubound (sarray) srclStrn@' 'iterate thru loop once to total up the length of the stringssrclStrn' For I = 0 To UB srclStrn&' mbsize = mbsize + Len (sarray (I) ) srclStrn ' Next I srclStrn<' 'add the number of bytes that the delimiters will take upsrclStrn' delimlen = Len (delim) srclStrn+' mbsize = mbsize + (delimlen * (UB + 1) ) srclStrn' mb = NewMemoryBlock (mbsize) srclStrn' If mb = Nil Then Return "" srclStrn=' 'iterate thru loop again, copying strings into memoryblock srclStrn' For I = 0 To UB srclStrn&' slen = Len (sarray (I) ) + delimlen srclStrn4' mb.StringValue (mbloc, slen) = sarray (I) + delimsrclStrn' mbloc = mbloc + slen srclStrn ' Next I srclStrnH' Return mb.StringValue (0, mbsize - delimlen) ///doing -delimlen chopssrclStrnI' ///off an extra delimiter at the end; if you want the final delimiter, srclStrn' ///comment out at this line srclStrn End FunctionEndGInt >EncoInt AlasStrnflagInt shrdInt parmStrn$sarray() as string, delim as string rsltStrnString EndGInt >MethGrup>nameStrnRemoveDuplicatesCompStrnVsblInt sorcGrupp>EncoInt srclStrn)Sub RemoveDuplicates(MyArray() As String) srclStrnDim I, UpperBound1 As Integer srclStrn MyArray.SortsrclStrn UpperBound1 = Ubound ( MyArray )srclStrnFor I = UpperBound1 DownTo 1srclStrn)If MyArray ( I ) = MyArray ( I - 1 ) Then srclStrnMyArray.Remove IsrclStrnEnd If srclStrnNext I srclStrnEnd Sub EndGInt >EncoInt AlasStrnflagInt shrdInt parmStrnMyArray() As String rsltStrnEndGInt >MethGrup(>nameStrnStartIt CompStrnVsblInt sorcGrup>EncoInt srclStrn Sub StartIt() srclStrnDIm Pos1 As Integer srclStrnURL1 = Trim (EditField1.Text) srclStrnsrclStrn!If Left(URL1, 7) = "http://" Then srclStrnURL1 = Mid(URl1, 8) srclStrnEnd If srclStrnsrclStrnPos1 = RevInStr(URL1, "/") srclStrnIf Pos1 = 0 ThensrclStrnRootPath = URL1 + "/" srclStrnFileName1 = "" srclStrnElsesrclStrnRootPath = Left (URL1, Pos1)srclStrn FileName1 = Mid (URL1, Pos1 + 1)srclStrnEnd If srclStrn'URL1 = "http://" + RootPath + FileName1 srclStrnsrclStrnHTMLViewer1.LoadURL URL1srclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt >EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt >MethGrup >nameStrnRevInStrCompStrnVsblInt sorcGrupd>EncoInt srclStrnBFunction RevInStr(String1 As String, String2 As String) As Integer srclStrnDim I As IntegersrclStrnFor I = Len(String1) DownTo 1 srclStrn5If Mid ( String1, I, Len ( String2 ) ) = String2 Then srclStrnReturn IsrclStrnExitsrclStrnEnd If srclStrnNext I srclStrnReturn 0srclStrn End FunctionEndGInt >EncoInt AlasStrnflagInt shrdInt parmStrn$String1 As String, String2 As StringrsltStrnInteger EndGInt >MethGrup?nameStrnMakeListCompStrnVsblInt sorcGrup?EncoInt srclStrnSub MakeList() srclStrn.If TitleOfNewPage = "Cannot find server" Then srclStrnListBox1.DeleteAllRows srclStrn3ListBox1.AddRow "Invalid URL or Cannot Find Server" srclStrnExitsrclStrnEnd If srclStrnsrclStrnIf ListAlreadyMade Then ExitsrclStrnsrclStrnTextWindow.Title = URL1srclStrnsrclStrn+/////// If RIght(URL1, 2) = "//" Then Exit srclStrnsrclStrn(DIm I, Pos1, Pos2, Pos3, Pos4 As IntegersrclStrnDIm M, Temp2 As String srclStrn!DIm LeftPart, RightPart As String srclStrnsrclStrnMakingList = True srclStrnsrclStrn!If Left(URL1, 7) = "http://" Then srclStrnURL1 = Mid(URl1, 8) srclStrnEnd If srclStrnsrclStrnPos1 = RevInStr(URL1, "/") srclStrnIf Pos1 = 0 ThensrclStrnRootPath = URL1 + "/" srclStrnFileName1 = "" srclStrnElsesrclStrnRootPath = Left (URL1, Pos1)srclStrn FileName1 = Mid (URL1, Pos1 + 1)srclStrnEnd If srclStrnsrclStrnURL1 = RootPath + FileName1 srclStrnsrclStrn!Dim HTTPSocket1 as New HTTPSocket srclStrn$HTMLText = HTTPSocket1.Get(URL1, 30)srclStrnReDim Array1(-1)srclStrn+HTMLText = ReplaceAll (HTMLText, "= ", "=") srclStrn+HTMLText = ReplaceAll (HTMLText, " =", "=") srclStrnPos1 = 1srclStrnDo srclStrn%Pos2 = InStr(Pos1, HTMLText, "href=") srclStrnIf Pos2 = 0 Then Exit srclStrnPos2 = Pos2 + 1 srclStrn%Pos3 = InStr(Pos2, HTMLText, Chr(34)) srclStrnPos3 = Pos3 + 1 srclStrn%Pos4 = InStr(Pos3, HTMLText, Chr(34)) srclStrn)Temp2 = Mid (HTMLText, Pos3, Pos4 - Pos3) srclStrnM = Lowercase(Left(Temp2, 4)) srclStrn LeftPart = "" srclStrnIf M <> "http" Then srclStrnLeftPart = "http://" + RootPath srclStrnRightPart = Temp2 srclStrnTemp2 = LeftPart + RightPartsrclStrnEnd If srclStrn%Temp2 = ReplaceAll (Temp2, "//", "/") srclStrn/Temp2 = ReplaceAll (Temp2, "http:/", "http://") srclStrn1Temp2 = ReplaceAll (Temp2, "https:/", "https://") srclStrnFIf Left (Temp2, 7) <> "http://" And Left (Temp2, 8) <> "https://" Then srclStrnTemp2 = "http://" +Temp2srclStrnEnd If srclStrnArray1.Append Temp2 srclStrnPos1 = Pos2 + 1 srclStrnLoopsrclStrnPos1 = 1srclStrnDo srclStrn$Pos2 = InStr(Pos1, HTMLText, "src=")srclStrnIf Pos2 = 0 Then Exit srclStrnPos2 = Pos2 + 1 srclStrn%Pos3 = InStr(Pos2, HTMLText, Chr(34)) srclStrnPos3 = Pos3 + 1 srclStrn%Pos4 = InStr(Pos3, HTMLText, Chr(34)) srclStrn)Temp2 = Mid (HTMLText, Pos3, Pos4 - Pos3) srclStrnM = Lowercase(Left(Temp2, 4)) srclStrn LeftPart = "" srclStrnIf M <> "http" Then srclStrnLeftPart = "http://" + RootPath srclStrnRightPart = Temp2 srclStrnTemp2 = LeftPart + RightPartsrclStrnEnd If srclStrn%Temp2 = ReplaceAll (Temp2, "//", "/") srclStrn/Temp2 = ReplaceAll (Temp2, "http:/", "http://") srclStrn1Temp2 = ReplaceAll (Temp2, "https:/", "https://") srclStrnsrclStrnFIf Left (Temp2, 7) <> "http://" And Left (Temp2, 8) <> "https://" Then srclStrnTemp2 = "http://" +Temp2srclStrnEnd If srclStrnsrclStrnArray1.Append Temp2 srclStrnPos1 = Pos2 + 1 srclStrnLoopsrclStrnRemoveDuplicates Array1 srclStrn///// ListBox1.DeleteAllRows srclStrnsrclStrn"If Left(URL1, 7) <> "http://" Then srclStrnURL1 = "http://" + URL1 srclStrnEnd If srclStrnsrclStrn@ListBox1.AddRow "Double-click on any item below to download it."srclStrnListBox1.AddRow "" srclStrnsrclStrn$//// If Right(URL1, 2) <> "//" ThensrclStrnListBox1.AddRow URL1srclStrnListBox1.AddRow "" srclStrn ///// End If srclStrnFor I = 0 to UBound(Array1) srclStrnListBox1.AddRow Array1(I) srclStrnNext I srclStrnListBox1.ScrollPosition = 0 srclStrnsrclStrnMakingList = False srclStrnListAlreadyMade = True srclStrnsrclStrnsrclStrnEnd Sub EndGInt ?EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt ?MethGrup?nameStrn PrintList CompStrnVsblInt sorcGrup$?EncoInt srclStrnSub PrintList(lb As ListBox)srclStrn)'/ Name of Routine: PrintResultsListBox srclStrn '/ Location: srclStrn'/ Programmer: srclStrn'/ Date: 8/11/2007srclStrnDim g As Graphics srclStrnDim I, LastRow As Integer srclStrn%Dim LeftMargin As Integer = 1.25 * 72 srclStrnDim LineSpacing As Integer srclStrnDim p As PrinterSetup srclStrn!Dim TopMargin As Integer = 1 * 72 srclStrnDim X, Y, yStart As Integer srclStrn(/// Procedure Header For PrintListBox()srclStrn"/// Name of Routine: PrintSource srclStrn3/// Programmer: "CV" ("Jack") on the RB mail list srclStrn/// Date Added: 9/21/2005 srclStrn/// srclStrnp = New PrinterSetupsrclStrng = OpenPrinter ( p ) srclStrnLineSpacing = g.TextHeight srclStrn#X = LeftMargin - Abs ( p.PageLeft ) srclStrn5yStart = TopMargin - Abs ( p.PageTop ) + g.TextAscent srclStrn Y = yStart srclStrn/////////g.DrawString ResultsTopLabel.Text, X, Y srclStrnY = Y + LineSpacing srclStrng.DrawString "", X, Y srclStrnY = Y + LineSpacing srclStrnLastRow = lb.ListCount - 1 srclStrnFor I = 0 To LastRowsrclStrnIf Y > p.Height ThensrclStrn g.NextPage srclStrn Y = yStart srclStrnEnd If srclStrn!g.DrawString lb.List ( I ) , X, Y srclStrnY = Y + LineSpacing srclStrnNext I srclStrng = Nil srclStrn8Exception 'srclStrn=MsgBox "An error occurred in Window1.PrintResultsListBox." ' srclStrnEnd Sub EndGInt ?EncoInt AlasStrnflagInt shrdInt parmStrn lb As ListBox rsltStrnEndGInt ?PropGrupT?EncoInt declStrnHTMLText As String flagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnLines() As String flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnURLToDownload As String flagInt CompStrnshrdInt EndGInt ?PropGrupP?EncoInt declStrnURL1 As String flagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnRootPath As String flagInt CompStrnshrdInt EndGInt ?PropGrupT? EncoInt declStrnFIleName1 As String flagInt CompStrnshrdInt EndGInt ? PropGrupT? EncoInt declStrnArray1() As String flagInt CompStrnshrdInt EndGInt ? PropGrupX? EncoInt declStrnMakingList As Boolean flagInt CompStrnshrdInt EndGInt ? PropGrupX? EncoInt declStrnClickableLink As String flagInt CompStrnshrdInt EndGInt ? PropGrupX? EncoInt declStrnTitleUseful As Boolean flagInt CompStrnshrdInt EndGInt ? PropGrupX?EncoInt declStrnTitleOfNewPage As StringflagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnLastStatus As StringflagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnLastTitle As String flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnInvalidURL As Boolean flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnFirstDownload As BooleanflagInt CompStrnshrdInt EndGInt ?PropGrup\?EncoInt declStrnListAlreadyMade As Boolean flagInt CompStrnshrdInt EndGInt ?PropGrupX?EncoInt declStrnVeryFirstTime As BooleanflagInt CompStrnshrdInt EndGInt ?PropGrupT?EncoInt declStrnURLHolder As String flagInt CompStrnshrdInt EndGInt ?PropGrup\?EncoInt declStrnCannotFindServer As Boolean flagInt CompStrnshrdInt EndGInt ?PDefGrup0?nameStrnMenuBar PValStrn 542783487 EndGInt ?PDefGrup(?nameStrn MacProcID PValInt EndGInt ?PDefGrup4?nameStrn BalloonHelp EncoInt PValStrnEndGInt ?PDefGrup0?nameStrnMinimizeButton PValStrnTrueEndGInt ?PDefGrup0?nameStrnMaximizeButton PValStrnTrueEndGInt ?PDefGrup0?nameStrn LiveResize PValStrnFalse EndGInt ?PDefGrup,?nameStrn Resizeable PValStrnTrueEndGInt ?PDefGrup,?nameStrn CloseButton PValStrnTrueEndGInt ?PDefGrup0?nameStrnMenuBarVisible PValStrnTrueEndGInt ?PDefGrup0? nameStrn FullScreen PValStrnFalse EndGInt ? PDefGrup(?!nameStrnVisible PValStrnTrueEndGInt ?!PDefGruph?"nameStrnTitle EncoInt PValStrn7Downloaderby Barry Traver (with help from Steve Garman) EndGInt ?"PDefGrup$?#nameStrnBackdropPValStrnEndGInt ?#PDefGrup(?$nameStrn BackColor PValInt EndGInt ?$PDefGrup0?%nameStrn HasBackColorPValStrnFalse EndGInt ?%PDefGrup,?&nameStrn Composite PValStrnTrueEndGInt ?&PDefGrup$?'nameStrnFrame PValInt EndGInt ?'PDefGrup(?(nameStrn MaxHeight PValInt }EndGInt ?(PDefGrup$?)nameStrnMaxWidthPValInt }EndGInt ?)PDefGrup(?*nameStrn MinHeight PValInt @EndGInt ?*PDefGrup$?+nameStrnMinWidthPValInt @EndGInt ?+PDefGrup$?,nameStrnHeight PValInt 7EndGInt ?,PDefGrup$?-nameStrnWidth PValInt EndGInt ?-PDefGrup(?.nameStrn Placement PValInt EndGInt ?.VwBhGrup?/VwPrGrupD?0NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt ?0VwPrGrupL?1NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt ?1VwPrGrupH?2NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt ?2VwPrGrup0?3NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup?4defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt ?4EndGInt ?3VwPrGrupp?5NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt ?5VwPrGrupp?6NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt ?6VwPrGrupp?7NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt ?7VwPrGrupt?8NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt ?8VwPrGrupt?9NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt ?9VwPrGrupx?:NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt ?:VwPrGrup ?;NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp?NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?>VwPrGrup|??NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt ??VwPrGrupx?@NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt ?@VwPrGrupx?ANameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt ?AVwPrGrupt?BNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?BVwPrGrup|?CNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?CVwPrGrup|?DNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?DVwPrGrupx?ENameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?EVwPrGrup|?FNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?FVwPrGrupx?GNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?GVwPrGrup?HNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?HVwPrGrup|?INameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ?IVwPrGruph?JNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt ?JVwPrGrupx?KNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt ?KVwPrGrupx?LNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt ?LVwPrGrup\?MNameStrnHTMLTextPrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?MVwPrGrupd?NNameStrn URLToDownload PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?NVwPrGrupX?ONameStrnURL1PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?OVwPrGrup\?PNameStrnRootPathPrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?PVwPrGrup`?QNameStrn FIleName1 PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?QVwPrGrupT?RNameStrn MakingList PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?RVwPrGrupd?SNameStrn ClickableLink PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?SVwPrGrupT?TNameStrn TitleUseful PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?TVwPrGrupd?UNameStrnTitleOfNewPage PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?UVwPrGrup`?VNameStrn LastStatus PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?VVwPrGrup`?WNameStrn LastTitle PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?WVwPrGrupT?XNameStrn InvalidURL PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?XVwPrGrupX?YNameStrn FirstDownload PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?YVwPrGrup`?ZNameStrn URLHolder PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt ?ZVwPrGrupX?[NameStrnListAlreadyMade PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?[VwPrGrupX?\NameStrn VeryFirstTime PrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?\VwPrGrupX?]NameStrnCannotFindServerPrGpStrnBehaviorPValStrn0 typeStrnBoolean EndGInt ?]EndGInt ?/CBhvGrup \?^SuprStrn HTMLViewer HInsGrupD?_nameStrnDocumentCompleteCompStrnVsblInt sorcGrup?`EncoInt srclStrn#Sub DocumentComplete(URL as String) srclStrnIf MakingList = True Then Exit srclStrn#If ListAlreadyMade = True Then Exit srclStrnMakeListsrclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt ?`EndGInt ?_HInsGrup?anameStrn TitleChangedCompStrnVsblInt sorcGrup?bEncoInt srclStrn$Sub TitleChanged(newTitle as String)srclStrn!If LastTitle = newTitle Then Exit srclStrnsrclStrnIf TItleUseful = True Then srclStrnsrclStrn'If Left (newTitle, 7) <> "http://" Then srclStrnTItleOfNewPage = newTitle srclStrnEnd If srclStrnsrclStrnEnd If srclStrnsrclStrnLastTitle = newTitlesrclStrnsrclStrnsrclStrnEnd Sub EndGInt ?bEndGInt ?aHInsGruph?cnameStrn StatusChanged CompStrnVsblInt sorcGrup?dEncoInt srclStrn&Sub StatusChanged(newStatus as String) srclStrnIf InvalidURL = True Then srclStrnHTMLViewer1.Cancel srclStrnExitsrclStrnEnd If srclStrnsrclStrnIf VeryFirstTime = True ThensrclStrnVeryFirstTime = False srclStrnExitsrclStrnEnd If srclStrnsrclStrn0If LastStatus = newStatus Or newStatus = "" ThensrclStrnExitsrclStrnEnd If srclStrnsrclStrnIf MakingList = True Then Exit srclStrnsrclStrn&If Left(newStatus, 7) = "http://" Then srclStrnClickableLink = newStatus srclStrnEnd If srclStrnsrclStrn-If Left(newStatus, 13) = "Opening Page " Then srclStrnTitleUseful = True srclStrnEnd If srclStrnsrclStrnLastStatus = newStatus srclStrnsrclStrnEnd Sub EndGInt ?dEndGInt ?cHInsGrupP?enameStrn DocumentBegin CompStrnVsblInt sorcGrup?fEncoInt srclStrn Sub DocumentBegin(URL as String)srclStrnURLToDownload = URL srclStrnsrclStrnIf URL = ClickableLink Then srclStrn URL1 = URL srclStrnListAlreadyMade = False srclStrnTitleOfNewPage = "" srclStrnListBox1.DeleteAllRows srclStrnsrclStrnsrclStrnElsesrclStrnHTMLViewer1.Cancel srclStrnEnd If srclStrnsrclStrnTitleUseful = False srclStrnsrclStrnInvalidURL = False srclStrnsrclStrnURLHolder = URL srclStrnEnd Sub EndGInt ?fEndGInt ?eEndGInt ?^CBhvGrup P?gSuprStrnCanvas HInsGrup?hnameStrn MouseDown CompStrnVsblInt sorcGrup?iEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrn Return True srclStrn End FunctionEndGInt ?iEndGInt ?hHInsGrupD?jnameStrnPaint CompStrnVsblInt sorcGrup?kEncoInt srclStrnSub Paint(g As Graphics)srclStrng.ForeColor = FillColor srclStrng.FillRect 0,0,g.Width,g.Height srclStrng.ForeColor = DarkTingeColorsrclStrng.DrawLine 0,0,g.Width,0srclStrng.DrawLine 0,0, 0, g.Height srclStrng.ForeColor = LightTingeColor srclStrn*g.DrawLine 0,g.Height-1,g.Width,g.Height-1 srclStrn)g.DrawLine g.Width-1,0,g.Width-1,g.Height srclStrn<' Draw a little handle at the middle of the splitter region.srclStrnDim x,y As Integer srclStrn If Me.Active And Me.Enabled ThensrclStrnx = Me.Width / 2srclStrny = Me.Height / 2 srclStrng.Pixel(x+4,y) = DarkBevelColor srclStrn"g.Pixel(x+5,y+1) = LightBevelColor srclStrng.Pixel(x+8,y) = DarkBevelColor srclStrn"g.Pixel(x+9,y+1) = LightBevelColor srclStrng.Pixel(x-4,y) = DarkBevelColor srclStrn"g.Pixel(x-3,y+1) = LightBevelColor srclStrng.Pixel(x-8,y) = DarkBevelColor srclStrn"g.Pixel(x-7,y+1) = LightBevelColor srclStrnEnd If srclStrnEnd Sub EndGInt ?kEndGInt ?jHInsGrup?lnameStrnOpenCompStrnVsblInt sorcGrup|?mEncoInt srclStrn Sub Open() srclStrn2me.MouseCursor = System.Cursors.SplitterNorthSouth srclStrnEnd Sub EndGInt ?mEndGInt ?lHInsGrup?nnameStrnMouseUp CompStrnVsblInt sorcGrupp?oEncoInt srclStrn'Sub MouseUp(X As Integer, Y As Integer) srclStrn me.Refresh srclStrnEnd Sub EndGInt ?oEndGInt ?nHInsGrup0?pnameStrn MouseDrag CompStrnVsblInt sorcGrup?qEncoInt srclStrn)Sub MouseDrag(X As Integer, Y As Integer) srclStrnDim tp As Integer srclStrn tp = Self.MouseY - Me.Height / 2srclStrntp = max(tp,ListBox1.Top + 20 ) srclStrnBtp = min(tp,HTMLViewer1.Top + HTMLViewer1.Height - 20 - me.Height) srclStrn Me.Top = tp srclStrn'ListBox1.Height = Me.top - ListBox1.Top srclStrn(HTMLViewer1.Top = Me.Top + Me.Height + 1srclStrn2HTMLViewer1.Height = Self.Height - HTMLViewer1.Top srclStrnEnd Sub EndGInt ?qEndGInt ?pEndGInt ?gCBhvGrup?rSuprStrn EditField EndGInt ?rCBhvGrupX?sSuprStrnListBox HInsGrup(?tnameStrn DoubleClick CompStrnVsblInt sorcGrup?uEncoInt srclStrnSub DoubleClick() srclStrnDim Temp1 As String srclStrnJ' If ListBox1.Text = "" Or Left(ListBox1.Text, 13) = "Double-click " Then srclStrn' Exit srclStrn ' End If srclStrnDim http as New HTTPSocket srclStrnDim DefaultFile As String srclStrnURLToDownload = ListBox1.Text srclStrnDim I As IntegersrclStrnDim f As FolderItem srclStrn#For I = Len(URLToDownload) DownTo 1 srclStrn&If Mid(URLToDownload, I, 1) = "/" Then srclStrn(DefaultFile = Mid (URLToDownload, I + 1)srclStrnExitsrclStrnEnd If srclStrnNext I srclStrnTemp1 = DefaultFile srclStrn)If "http://" + Temp1 = URLToDownload Then srclStrnDefaultFile = "index.html" srclStrnEnd If srclStrn3If DefaultFile = "" Then DefaultFile = "index.html" srclStrn.DefaultFile = ReplaceAll(DefaultFile, "?", "") srclStrn'f = GetSaveFolderItem ("", DefaultFile) srclStrnhttp.Get URLToDownload, f srclStrnEnd Sub EndGInt ?uEndGInt ?tEndGInt ?sCBhvGrup?vSuprStrn StaticText EndGInt ?vCBhvGrup4?wSuprStrn PushButton HInsGrup?xnameStrnAction CompStrnVsblInt sorcGrup?yEncoInt srclStrn Sub Action()srclStrnListAlreadyMade = False srclStrnListBox1.DeleteAllRows srclStrnTitleOfNewPage = "" srclStrnStartIt srclStrnEnd Sub EndGInt ?yEndGInt ?xEndGInt ?wCtrlGrup?zcclsStrn HTMLViewer nameStrn HTMLViewer PDefGrup(?{nameStrnEnabled PValStrnTrueEndGInt ?{PDefGrup0?|nameStrnAutoDeactivate PValStrnTrueEndGInt ?|PDefGrup0?}nameStrnHelpTag EncoInt PValStrnEndGInt ?}PDefGrup(?~nameStrnVisible PValStrnTrueEndGInt ?~PDefGrup8?nameStrn InitialParent EncoInt PValStrnEndGInt ?PDefGrup,?nameStrn TabPanelIndex PValInt EndGInt ?PDefGrup,?nameStrn LockBottom PValStrnTrueEndGInt ?PDefGrup,?nameStrn LockRight PValStrnTrueEndGInt ?PDefGrup(?nameStrnLockTop PValStrnTrueEndGInt ?PDefGrup(?nameStrnLockLeftPValStrnTrueEndGInt ?PDefGrup$?nameStrnHeight PValInt EndGInt ?PDefGrup$?nameStrnWidth PValInt EndGInt ?PDefGrup ?nameStrnTop PValInt EndGInt ?PDefGrup ?nameStrnLeftPValInt EndGInt ?PDefGrup8?nameStrn ControlOrderEncoInt PValStrn0 EndGInt ?PDefGrup<?nameStrnSuper EncoInt PValStrn HTMLViewer EndGInt ?PDefGrup$?nameStrnIndex PValInt EndGInt ?PDefGrup8?nameStrnNameEncoInt PValStrn HTMLViewer1 EndGInt ?CBixInt EndGInt ?zCtrlGrup8?cclsStrnCanvas nameStrnCanvas PDefGrup8?nameStrn InitialParent EncoInt PValStrnEndGInt ?PDefGrup0?nameStrnEraseBackground PValStrnTrueEndGInt ?PDefGrup(?nameStrn AcceptTabs PValStrnEndGInt ?PDefGrup(?nameStrn AcceptFocus PValStrnEndGInt ?PDefGrup$?nameStrnBackdropPValStrnEndGInt ?PDefGrup,?nameStrn UseFocusRingPValStrnTrueEndGInt ?PDefGrup(?nameStrnEnabled PValStrnTrueEndGInt ?PDefGrup0?nameStrnAutoDeactivate PValStrnTrueEndGInt ?PDefGrup0?nameStrnHelpTag EncoInt PValStrnEndGInt ?PDefGrup(?nameStrnVisible PValStrnTrueEndGInt ?PDefGrup,?nameStrn TabPanelIndex PValInt EndGInt ?PDefGrup(?nameStrn LockBottom PValStrnEndGInt ?PDefGrup,?nameStrn LockRight PValStrnTrueEndGInt ?PDefGrup$?nameStrnLockTop PValStrnEndGInt ?PDefGrup(?nameStrnLockLeftPValStrnTrueEndGInt ?PDefGrup$?nameStrnHeight PValInt EndGInt ?PDefGrup$?nameStrnWidth PValInt EndGInt ?PDefGrup ?nameStrnTop PValInt EndGInt ?PDefGrup ?nameStrnLeftPValInt EndGInt ?PDefGrup8?nameStrn ControlOrderEncoInt PValStrn1 EndGInt ?PDefGrup8?nameStrnSuper EncoInt PValStrnCanvas EndGInt ?PDefGrup$?nameStrnIndex PValInt EndGInt ?PDefGrup8?nameStrnNameEncoInt PValStrn horizSplit EndGInt ?CBixInt EndGInt ?CtrlGrup ?cclsStrn EditField nameStrn EditField PDefGrup8?nameStrn InitialParent EncoInt PValStrnEndGInt ?PDefGrup4?nameStrn DataField EncoInt PValStrnEndGInt ?PDefGrup4?nameStrn DataSource EncoInt PValStrnEndGInt ?PDefGrup(?nameStrn Alignment PValInt EndGInt ?PDefGrup(?nameStrn AcceptTabs PValStrnEndGInt ?PDefGrup(?nameStrn LimitText PValInt EndGInt ?PDefGrup$?nameStrnReadOnlyPValStrnEndGInt ?PDefGrup,?nameStrnMaskEncoInt PValStrnEndGInt ?PDefGrup<?nameStrnTextEncoInt PValStrnrealsoftware.comEndGInt ?PDefGrup(?nameStrn Underline PValStrnEndGInt ?PDefGrup$?nameStrnItalic PValStrnEndGInt ?PDefGrup ?nameStrnBoldPValStrnEndGInt ?PDefGrup$?nameStrnTextSizePValInt EndGInt ?PDefGrup8?nameStrnTextFontEncoInt PValStrnSystem EndGInt ?PDefGrup0?nameStrnAutoDeactivate PValStrnTrueEndGInt ?PDefGrup0?nameStrnHelpTag EncoInt PValStrnEndGInt ?PDefGrup(?nameStrnVisible PValStrnTrueEndGInt ?PDefGrup0?nameStrnFormat EncoInt PValStrnEndGInt ?PDefGrup(?nameStrnEnabled PValStrnTrueEndGInt ?PDefGrup(?nameStrn BackColor PValInt EndGInt ?PDefGrup(?nameStrn TextColor PValInt EndGInt ?PDefGrup,?nameStrn UseFocusRingPValStrnTrueEndGInt ?PDefGrup$?nameStrnPasswordPValStrnEndGInt ?PDefGrup$?nameStrnStyled PValStrnEndGInt ?PDefGrup4?nameStrnScrollbarVertical PValStrnTrueEndGInt ?PDefGrup0?nameStrnScrollbarHorizontal PValStrnEndGInt ?PDefGrup(?nameStrn Multiline PValStrnEndGInt ?PDefGrup(?nameStrnBorder PValStrnTrueEndGInt ?PDefGrup,?nameStrn TabPanelIndex PValInt EndGInt ?PDefGrup(?nameStrn LockBottom PValStrnEndGInt ?PDefGrup,?nameStrn LockRight PValStrnTrueEndGInt ?PDefGrup(?nameStrnLockTop PValStrnTrueEndGInt ?PDefGrup(?nameStrnLockLeftPValStrnTrueEndGInt ?PDefGrup$?nameStrnHeight PValInt #EndGInt ?PDefGrup$?nameStrnWidth PValInt EndGInt ?PDefGrup ?nameStrnTop PValInt EndGInt ?PDefGrup ?nameStrnLeftPValInt KEndGInt ?PDefGrup8?nameStrn ControlOrderEncoInt PValStrn2 EndGInt ?PDefGrup<?nameStrnSuper EncoInt PValStrn EditField EndGInt ?PDefGrup$?nameStrnIndex PValInt EndGInt ?PDefGrup8?nameStrnNameEncoInt PValStrn EditField1 EndGInt ?CBixInt EndGInt ?CtrlGrup 4?cclsStrnListBox nameStrnListBox PDefGrup8?nameStrn InitialParent EncoInt PValStrnEndGInt ?PDefGrup4?nameStrn DataField EncoInt PValStrnEndGInt ?PDefGrup4?nameStrn DataSource EncoInt PValStrnEndGInt ?PDefGrup4?nameStrnAutoHideScrollbars PValStrnTrueEndGInt ?PDefGrup,?nameStrnColumnsResizablePValStrnEndGInt ?PDefGrup,?nameStrn SelectionType PValInt EndGInt ?PDefGrup0?nameStrnRequiresSelection PValStrnEndGInt ?PDefGrup0?nameStrnEnableDragReorder PValStrnEndGInt ?PDefGrup(?nameStrn EnableDrag PValStrnEndGInt ?PDefGrup(?nameStrn HierarchicalPValStrnEndGInt ?PDefGrup(?nameStrn Underline PValStrnEndGInt ?PDefGrup$?nameStrnItalic PValStrnEndGInt ?PDefGrup ?nameStrnBoldPValStrnEndGInt ?PDefGrup$?nameStrnTextSizePValInt EndGInt ?PDefGrup8?nameStrnTextFontEncoInt PValStrnSystem EndGInt ?PDefGrup,?nameStrn _ScrollOffset PValInt EndGInt ?PDefGrup(?nameStrn _ScrollWidthPValInt EndGInt ?PDefGrup,?nameStrnDefaultRowHeightPValInt EndGInt ?PDefGrup0?nameStrnGridLinesVertical PValInt EndGInt ?PDefGrup0?nameStrnGridLinesHorizontal PValInt EndGInt ?PDefGrup4?nameStrnScrollBarVertical PValStrnTrueEndGInt ?PDefGrup0?nameStrnScrollbarHorizontal PValStrnEndGInt ?PDefGrup(?nameStrn HeadingIndexPValInt EndGInt ?PDefGrup4?nameStrn InitialValueEncoInt PValStrnEndGInt ?PDefGrup,?nameStrn UseFocusRingPValStrnTrueEndGInt ?PDefGrup(?nameStrn HasHeading PValStrnEndGInt ?PDefGrup4?nameStrn ColumnWidthsEncoInt PValStrnEndGInt ?PDefGrup(?nameStrn ColumnCount PValInt EndGInt ?PDefGrup(?nameStrnEnabled PValStrnTrueEndGInt ?PDefGrup0?nameStrnAutoDeactivate PValStrnTrueEndGInt ?PDefGrup0?nameStrnHelpTag EncoInt PValStrnEndGInt ?PDefGrup(?nameStrnVisible PValStrnTrueEndGInt ?PDefGrup,?nameStrn TabPanelIndex PValInt EndGInt ?PDefGrup(?nameStrn LockBottom PValStrnEndGInt ?PDefGrup,?nameStrn LockRight PValStrnTrueEndGInt ?PDefGrup(?nameStrnLockTop PValStrnTrueEndGInt ?PDefGrup(?nameStrnLockLeftPValStrnTrueEndGInt ?PDefGrup$?nameStrnHeight PValInt nEndGInt ?PDefGrup$?nameStrnWidth PValInt EndGInt ?PDefGrup ?nameStrnTop PValInt 0EndGInt ?PDefGrup ?nameStrnLeftPValInt EndGInt ?PDefGrup8?nameStrn ControlOrderEncoInt PValStrn3 EndGInt ?PDefGrup8?nameStrnSuper EncoInt PValStrnListBox EndGInt ?PDefGrup$?nameStrnIndex PValInt EndGInt ?PDefGrup4?nameStrnNameEncoInt PValStrnListBox1EndGInt ?CBixInt EndGInt ?CtrlGrup?cclsStrn StaticText nameStrn StaticText PDefGrup8?nameStrn InitialParent EncoInt PValStrnEndGInt ?PDefGrup4?nameStrn DataField EncoInt PValStrnEndGInt ?PDefGrup4@nameStrn DataSource EncoInt PValStrnEndGInt @PDefGrup(@nameStrn Underline PValStrnEndGInt @PDefGrup$@nameStrnItalic PValStrnEndGInt @PDefGrup @nameStrnBoldPValStrnEndGInt @PDefGrup$@nameStrnTextSizePValInt EndGInt @PDefGrup8@nameStrnTextFontEncoInt PValStrnSystem EndGInt @PDefGrup0@nameStrnAutoDeactivate PValStrnTrueEndGInt @PDefGrup0@nameStrnHelpTag EncoInt PValStrnEndGInt @PDefGrup(@nameStrnVisible PValStrnTrueEndGInt @PDefGrup(@ nameStrnEnabled PValStrnTrueEndGInt @ PDefGrup(@ nameStrn Multiline PValStrnEndGInt @ PDefGrup(@ nameStrn TextColor PValInt EndGInt @ PDefGrup(@ nameStrn TextAlign PValInt EndGInt @ PDefGrup0@ nameStrnTextEncoInt PValStrnURL:EndGInt @ PDefGrup,@nameStrn TabPanelIndex PValInt EndGInt @PDefGrup(@nameStrn LockBottom PValStrnEndGInt @PDefGrup(@nameStrn LockRight PValStrnEndGInt @PDefGrup(@nameStrnLockTop PValStrnTrueEndGInt @PDefGrup(@nameStrnLockLeftPValStrnTrueEndGInt @PDefGrup$@nameStrnHeight PValInt #EndGInt @PDefGrup$@nameStrnWidth PValInt +EndGInt @PDefGrup @nameStrnTop PValInt EndGInt @PDefGrup @nameStrnLeftPValInt EndGInt @PDefGrup8@nameStrn ControlOrderEncoInt PValStrn4 EndGInt @PDefGrup<@nameStrnSuper EncoInt PValStrn StaticText EndGInt @PDefGrup$@nameStrnIndex PValInt EndGInt @PDefGrup8@nameStrnNameEncoInt PValStrn StaticText1 EndGInt @CBixInt EndGInt ?CtrlGrup@cclsStrn PushButton nameStrn PushButton PDefGrup8@nameStrn InitialParent EncoInt PValStrnEndGInt @PDefGrup(@nameStrn Underline PValStrnEndGInt @PDefGrup$@nameStrnItalic PValStrnEndGInt @PDefGrup @nameStrnBoldPValStrnEndGInt @PDefGrup$@ nameStrnTextSizePValInt EndGInt @ PDefGrup8@!nameStrnTextFontEncoInt PValStrnSystem EndGInt @!PDefGrup0@"nameStrnAutoDeactivate PValStrnTrueEndGInt @"PDefGrup0@#nameStrnHelpTag EncoInt PValStrnEndGInt @#PDefGrup(@$nameStrnVisible PValStrnTrueEndGInt @$PDefGrup(@%nameStrnEnabled PValStrnTrueEndGInt @%PDefGrup$@&nameStrnCancel PValStrnEndGInt @&PDefGrup(@'nameStrnDefault PValStrnTrueEndGInt @'PDefGrup4@(nameStrnCaption EncoInt PValStrnGo! EndGInt @(PDefGrup,@)nameStrn TabPanelIndex PValInt EndGInt @)PDefGrup(@*nameStrn LockBottom PValStrnEndGInt @*PDefGrup,@+nameStrn LockRight PValStrnTrueEndGInt @+PDefGrup(@,nameStrnLockTop PValStrnTrueEndGInt @,PDefGrup$@-nameStrnLockLeftPValStrnEndGInt @-PDefGrup$@.nameStrnHeight PValInt #EndGInt @.PDefGrup$@/nameStrnWidth PValInt 5EndGInt @/PDefGrup @0nameStrnTop PValInt EndGInt @0PDefGrup @1nameStrnLeftPValInt EEndGInt @1PDefGrup8@2nameStrn ControlOrderEncoInt PValStrn5 EndGInt @2PDefGrup<@3nameStrnSuper EncoInt PValStrn PushButton EndGInt @3PDefGrup$@4nameStrnIndex PValInt EndGInt @4PDefGrup8@5nameStrnNameEncoInt PValStrn PushButton1 EndGInt @5CBixInt EndGInt @PadnPadn************************************************************************************************************************************************************************************************************************BlokpFTymNameStrn FileTypes1 ContInt paswStrnfTypGrupt@6nameStrnTextMacCStrn????typeStrnTEXTdefnStrn.html; .htm; .css; .xml flagInt NameStrnTEXTEndGInt @6PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewO3NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup$@7nameStrnMenuBar PValStrnEndGInt @7PDefGrup(@8nameStrn MacProcID PValInt EndGInt @8PDefGrup4@9nameStrn BalloonHelp EncoInt PValStrnEndGInt @9PDefGrup0@:nameStrnMinimizeButton PValStrnTrueEndGInt @:PDefGrup4@;nameStrnMaximizeButton PValStrnFalse EndGInt @;PDefGrup,@nameStrn CloseButton PValStrnTrueEndGInt @>PDefGrup0@?nameStrnMenuBarVisible PValStrnTrueEndGInt @?PDefGrup0@@nameStrn FullScreen PValStrnFalse EndGInt @@PDefGrup(@AnameStrnVisible PValStrnTrueEndGInt @APDefGrup8@BnameStrnTitle EncoInt PValStrnUntitledEndGInt @BPDefGrup$@CnameStrnBackdropPValStrnEndGInt @CPDefGrup(@DnameStrn BackColor PValInt EndGInt @DPDefGrup0@EnameStrn HasBackColorPValStrnFalse EndGInt @EPDefGrup0@FnameStrn Composite PValStrnFalse EndGInt @FPDefGrup$@GnameStrnFrame PValInt EndGInt @GPDefGrup(@HnameStrn MaxHeight PValInt }EndGInt @HPDefGrup$@InameStrnMaxWidthPValInt }EndGInt @IPDefGrup(@JnameStrn MinHeight PValInt @EndGInt @JPDefGrup$@KnameStrnMinWidthPValInt @EndGInt @KPDefGrup$@LnameStrnHeight PValInt ,EndGInt @LPDefGrup$@MnameStrnWidth PValInt ,EndGInt @MPDefGrup(@NnameStrn Placement PValInt EndGInt @NVwBhGrup@OVwPrGrupD@PNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt @PVwPrGrupL@QNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt @QVwPrGrupH@RNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt @RVwPrGrup0@SNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup@TdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt @TEndGInt @SVwPrGrupp@UNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @UVwPrGrupp@VNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @VVwPrGrupp@WNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @WVwPrGrupt@XNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @XVwPrGrupt@YNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @YVwPrGrupx@ZNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @ZVwPrGrup @[NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp@\defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt @\EndGInt @[VwPrGrup|@]NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @]VwPrGrup|@^NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @^VwPrGrup|@_NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt @_VwPrGrupx@`NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt @`VwPrGrupx@aNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt @aVwPrGrupt@bNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @bVwPrGrup|@cNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @cVwPrGrup|@dNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @dVwPrGrupx@eNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @eVwPrGrup|@fNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @fVwPrGrupx@gNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @gVwPrGrup@hNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @hVwPrGrup|@iNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @iVwPrGruph@jNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt @jVwPrGrupx@kNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt @kVwPrGrupx@lNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt @lEndGInt @OPadnPadn(****************************************BlokpVew)NameStrnWindow2 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup$@mnameStrnMenuBar PValStrnEndGInt @mPDefGrup(@nnameStrn MacProcID PValInt EndGInt @nPDefGrup4@onameStrn BalloonHelp EncoInt PValStrnEndGInt @oPDefGrup0@pnameStrnMinimizeButton PValStrnTrueEndGInt @pPDefGrup4@qnameStrnMaximizeButton PValStrnFalse EndGInt @qPDefGrup0@rnameStrn LiveResize PValStrnFalse EndGInt @rPDefGrup0@snameStrn Resizeable PValStrnFalse EndGInt @sPDefGrup,@tnameStrn CloseButton PValStrnTrueEndGInt @tPDefGrup0@unameStrnMenuBarVisible PValStrnTrueEndGInt @uPDefGrup0@vnameStrn FullScreen PValStrnFalse EndGInt @vPDefGrup(@wnameStrnVisible PValStrnTrueEndGInt @wPDefGrup8@xnameStrnTitle EncoInt PValStrnUntitledEndGInt @xPDefGrup$@ynameStrnBackdropPValStrnEndGInt @yPDefGrup(@znameStrn BackColor PValInt EndGInt @zPDefGrup0@{nameStrn HasBackColorPValStrnFalse EndGInt @{PDefGrup0@|nameStrn Composite PValStrnFalse EndGInt @|PDefGrup$@}nameStrnFrame PValInt EndGInt @}PDefGrup(@~nameStrn MaxHeight PValInt }EndGInt @~PDefGrup$@nameStrnMaxWidthPValInt }EndGInt @PDefGrup(@nameStrn MinHeight PValInt @EndGInt @PDefGrup$@nameStrnMinWidthPValInt @EndGInt @PDefGrup$@nameStrnHeight PValInt ,EndGInt @PDefGrup$@nameStrnWidth PValInt ,EndGInt @PDefGrup(@nameStrn Placement PValInt EndGInt @VwBhGrup@VwPrGrupD@NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt @VwPrGrupL@NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt @VwPrGrupH@NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt @VwPrGrup0@NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup@defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt @EndGInt @VwPrGrupp@NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupp@NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupp@NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupt@NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupt@NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupx@NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrup @NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp@defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt @EndGInt @VwPrGrup|@NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup|@NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup|@NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt @VwPrGrupx@NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt @VwPrGrupx@NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt @VwPrGrupt@NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup|@NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup|@NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGrupx@NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup|@NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @VwPrGrupx@NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup@NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt @VwPrGrup|@NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGruph@NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt @VwPrGrupx@NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupx@NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt @EndGInt @PadnPadn$************************************BlokpUIsWnStGrup@OTabGrup@ContInt eSptInt  EndGInt @OTabGrup4@ContInt {AltEInt LSptInt ciIDInt EndGInt @OTabGrup@ContInt mEndGInt @OTabGrupd@ContInt PLSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt @OTabGrup4@ContInt PAltEInt LSptInt ciIDInt EndGInt @OTabGrup@EndGInt @LsLcStrnTextWindow Layout rEdtRect2EndGInt @PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!