RbBFBlokProjxkm~*PSIVStrn5.5OPSpStrnXPath.rbACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Strn1Ver2Strn0Ver3Strn0RelsStrn0NnRlStrn0RegnStrn0SVerStrnLVerStrnIVerStrnDVewInt `kprTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrupEndGInt CPalGrupflagInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt elemInt EndGInt MacCStrn????BMacStrnMy Application (Classic)BCarStrnMy ApplicationBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy Application (Classic)BWinStrnMy Application.exeBMDIInt BL86Strn MyApplicationrEdtRect2fTypGrupLnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt PadnPadn0************************************************BlokpVew`kd-P7|bTNameStrnWindow1ContInt rEdtRect [eSptInt 3bPGpGrupPbPElGrup4scKyInt rEdtRect [eSptInt 3EndGInt EndGInt lstHInt lstVInt PDefGrup4nameStrnNamePValStrnWindow1EncoInt EndGInt PDefGrup(nameStrnFramePValStrn0EndGInt PDefGrup0 nameStrn CompositePValStrnFalseEndGInt PDefGrup0 nameStrn HasBackColorPValStrnFalseEndGInt PDefGrup0 nameStrn BackColorPValStrn16777215EndGInt PDefGrup( nameStrnBackdropPValStrn0EndGInt PDefGrup8 nameStrnTitlePValStrnXPathEncoInt EndGInt PDefGrup(nameStrnVisiblePValStrnTrueEndGInt PDefGrup0nameStrn FullScreenPValStrnFalseEndGInt PDefGrup0nameStrnMenuBarVisiblePValStrnTrueEndGInt PDefGrup(nameStrnCloseBoxPValStrnTrueEndGInt PDefGrup,nameStrnGrowIconPValStrnFalseEndGInt PDefGrup0nameStrn LiveResizePValStrnFalseEndGInt PDefGrup,nameStrnZoomIconPValStrnFalseEndGInt PDefGrup(nameStrn BalloonHelpPValStrnEndGInt PDefGrup,nameStrn MacProcIDPValStrn0EndGInt PDefGrup0nameStrnMenuBarPValStrn -1134496662EndGInt PDefGrup,nameStrn PlacementPValStrn0EndGInt PDefGrup(nameStrnWidthPValStrn744EndGInt PDefGrup(nameStrnHeightPValStrn630EndGInt PDefGrup(nameStrnMinWidthPValStrn64EndGInt PDefGrup,nameStrn MinHeightPValStrn64EndGInt PDefGrup,nameStrnMaxWidthPValStrn32000EndGInt PDefGrup0nameStrn MaxHeightPValStrn32000EndGInt FDefGrupNameStrnWindow1SizeInt SuprStrnWindowbNtrInt MethGrupH EncoInt nameStrn ParseNodeparmStrn^nodes() As XmlNode, parent As XmlNode, st As StyledText, runFont As String, runSize As IntegerrsltStrnflagInt sorcGrup!stsrInt 7stscInt 'ndsrInt 7ndscInt 'EncoInt srclStrnmSub ParseNode(nodes() As XmlNode, parent As XmlNode, st As StyledText, runFont As String, runSize As Integer)srclStrnDim i, j, k As IntegersrclStrnEDim node As XmlNode, element As XmlElement, attribute As XmlAttributesrclStrnDim run As StyleRunsrclStrnDim black As Color = &c000000srclStrnDim red As Color = &cFF0000srclStrnDim endColor As ColorsrclStrnsrclStrn"For i = 0 To parent.ChildCount - 1srclStrnnode = parent.Child(i)srclStrn,If node.type = XmlNodeType.ELEMENT_NODE ThensrclStrnelement = XmlElement(node)srclStrn/// Compare the node itself, plus its attributessrclStrnrun = New StyleRunsrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrnrun.TextColor = blacksrclStrnrun.Text = "<"srclStrnst.AppendStyleRun runsrclStrnrun = New StyleRunsrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrnrun.Text = element.NamesrclStrnrun.TextColor = blacksrclStrnendColor = blacksrclStrnFor j = 0 To UBound(nodes)srclStrn%If element.Compare(nodes(j)) = 0 ThensrclStrn// It's a match!srclStrnrun.TextColor = redsrclStrnendColor = redsrclStrnnodes.Remove jsrclStrnExitsrclStrnEnd IfsrclStrnNextsrclStrnst.AppendStyleRun runsrclStrnk = 0srclStrn'attribute = element.GetAttributeNode(k)srclStrnWhile attribute <> nilsrclStrnaIf Not ((attribute.Name = "xmlns" And attribute.Value = "") Or attribute.Name = "xmlns:xml") ThensrclStrnrun = New StyleRunsrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrn@run.Text = " " + attribute.Name + "=""" + attribute.Value + """"srclStrnrun.TextColor = blacksrclStrnFor j = 0 To UBound(nodes)srclStrn'If attribute.Compare(nodes(j)) = 0 ThensrclStrn// It's a match!srclStrnrun.TextColor = redsrclStrnnodes.Remove jsrclStrnExitsrclStrnEnd IfsrclStrnNextsrclStrnst.AppendStyleRun runsrclStrnEnd IfsrclStrn k = k + 1srclStrn'attribute = element.GetAttributeNode(k)srclStrnWendsrclStrnrun = New StyleRunsrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrnrun.TextColor = blacksrclStrnIf element.ChildCount <> 0 ThensrclStrnrun.Text = ">"srclStrnst.AppendStyleRun runsrclStrn.ParseNode nodes, element, st, runFont, runSizesrclStrnrun = New StyleRunsrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrnrun.TextColor = blacksrclStrnrun.Text = ""srclStrnst.AppendStyleRun runsrclStrnElsesrclStrnrun.Text = "/>"srclStrnst.AppendStyleRun runsrclStrnEnd IfsrclStrn-ElseIf node.Type = XmlNodeType.TEXT_NODE ThensrclStrnrun = New StyleRunsrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrnrun.TextColor = blacksrclStrnrun.Text = node.ValuesrclStrnFor j = 0 To UBound(nodes)srclStrn"If node.Compare(nodes(j)) = 0 ThensrclStrn// It's a match!srclStrnrun.TextColor = redsrclStrnnodes.Remove jsrclStrnExitsrclStrnEnd IfsrclStrnNExtsrclStrnst.AppendStyleRun runsrclStrnElsesrclStrnrun = New StyleRunsrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrnrun.TextColor = blacksrclStrnrun.Text = node.ValuesrclStrnst.AppendStyleRun runsrclStrnEnd IfsrclStrnNextsrclStrnEnd SubEndGInt !EndGInt EndGInt CBhvGrup@"NameStrnSizeInt SuprStrn StaticTextbNtrInt EndGInt "CBhvGrup #NameStrnSizeInt SuprStrn PushButtonbNtrInt HInsGrup X$EncoInt nameStrnActionsorcGrup %stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrnDim xdoc As XmlDocumentsrclStrnDim nodelist As XmlNodeListsrclStrnDim nodes(-1) As XmlNodesrclStrn%Dim st As StyledText, run As StyleRunsrclStrnDim i As IntegersrclStrn)Dim runFont As String = XMLField.TextFontsrclStrn*Dim runSize As Integer = XMLField.TextSizesrclStrnDim black As Color = &c000000srclStrnDim red As Color = &cFF0000srclStrnsrclStrnxdoc = New XmlDocument()srclStrnxdoc.PreserveWhitespace = TruesrclStrnxdoc.LoadXml(XMLField.Text)srclStrnsrclStrn // Lets querysrclStrn$nodelist = xdoc.xql(QueryField.Text)srclStrnsrclStrnst = New StyledTextsrclStrn&// Lets put the XML header in our textsrclStrnrun = New StyleRunsrclStrnCrun.Text = "" + EndOfLinesrclStrnrun.Font = runFontsrclStrnrun.Size = runSizesrclStrnrun.TextColor = blacksrclStrnst.AppendStyleRun runsrclStrnsrclStrn/// Lets translate the XmlNodeList into an arraysrclStrnReDim nodes(-1)srclStrn For i = 0 To nodelist.Length - 1srclStrnnodes.Append nodelist.Item(i)srclStrnNextsrclStrnsrclStrn>// Now here we walk the XmlDocument looking for matching nodessrclStrn$// If we find one, lets color it redsrclStrn'// Remember to check the attributes toosrclStrn+ParseNode nodes, xdoc, st, runFont, runSizesrclStrnsrclStrn// Now display!srclStrnXMLField.StyledText = stsrclStrnsrclStrnException err As XmlExceptionsrclStrnBeepsrclStrnMsgBox err.MessagesrclStrnException err2 As XmlExceptionsrclStrnBeepsrclStrnMsgBox err.MessagesrclStrn#Exception domerr As XmlDomExceptionsrclStrnBeepsrclStrnAMsgBox "Error " + Str(domerr.ErrorNumber) + ": " + domerr.MessagesrclStrn$Exception domerr2 As XmlDomExceptionsrclStrnBeepsrclStrnAMsgBox "Error " + Str(domerr.ErrorNumber) + ": " + domerr.MessagesrclStrn Exception foosrclStrnBeepsrclStrnIf foo IsA XmlException ThensrclStrnMsgBox "XmlException"srclStrn#ElseIf foo IsA XmlDomException ThensrclStrnMsgBox "XmlDomException"srclStrnElsesrclStrn MsgBox "Foo"srclStrnEnd IfsrclStrnEnd SubEndGInt %EndGInt $EndGInt #CBhvGrupD&NameStrnSizeInt SuprStrnSelectAllFieldbNtrInt EndGInt &CBhvGrupD'NameStrnSizeInt SuprStrnSelectAllFieldbNtrInt EndGInt 'CtrlGrup (cclsStrnSelectAllFieldnameStrn EditFieldPDefGrup8)nameStrnNamePValStrn QueryFieldEncoInt EndGInt )PDefGrup0*nameStrnIndexPValStrn -2147483648EndGInt *PDefGrup0+nameStrn TabPanelIndexPValStrn0EndGInt +PDefGrup(,nameStrnVisiblePValStrnTrueEndGInt ,PDefGrup$-nameStrnLeftPValStrn62EndGInt -PDefGrup$.nameStrnTopPValStrn14EndGInt .PDefGrup(/nameStrnWidthPValStrn581EndGInt /PDefGrup(0nameStrnHeightPValStrn22EndGInt 0PDefGrup,1nameStrn InitialParentPValStrnEndGInt 1PDefGrup$2nameStrnHelpTagPValStrnEndGInt 2PDefGrup(3nameStrn BalloonHelpPValStrnEndGInt 3PDefGrup04nameStrnDisabledBalloonHelpPValStrnEndGInt 4PDefGrup05nameStrnAutoDeactivatePValStrnTrueEndGInt 5PDefGrup(6nameStrnLockLeftPValStrnTrueEndGInt 6PDefGrup(7nameStrnLockTopPValStrnTrueEndGInt 7PDefGrup,8nameStrn LockRightPValStrnTrueEndGInt 8PDefGrup09nameStrn LockBottomPValStrnFalseEndGInt 9PDefGrup8:nameStrnTextFontPValStrnSystemEncoInt EndGInt :PDefGrup(;nameStrnTextSizePValStrn12EndGInt ;PDefGrup(nameStrn UnderlinePValStrnFalseEndGInt >PDefGrup(?nameStrnBorderPValStrnTrueEndGInt ?PDefGrup0@nameStrn MultiLinePValStrnFalseEndGInt @PDefGrup8AnameStrnScrollBarHorizontalPValStrnFalseEndGInt APDefGrup,BnameStrn ScrollBarPValStrnTrueEndGInt BPDefGrup4CnameStrnScrollBarVerticalPValStrnTrueEndGInt CPDefGrup,DnameStrnStyledPValStrnFalseEndGInt DPDefGrup,EnameStrnPasswordPValStrnFalseEndGInt EPDefGrup,FnameStrn UseFocusRingPValStrnTrueEndGInt FPDefGrup,GnameStrnReadOnlyPValStrnFalseEndGInt GPDefGrup,HnameStrn LimitTextPValStrn0EndGInt HPDefGrup0InameStrn AcceptTabsPValStrnFalseEndGInt IPDefGrup,JnameStrn AlignmentPValStrn0EndGInt JPDefGrup,KnameStrn TextColorPValStrn0EndGInt KPDefGrup0LnameStrn BackColorPValStrn16777215EndGInt LPDefGrup(MnameStrnEnabledPValStrnTrueEndGInt MPDefGrupTNnameStrnTextPValStrn&//food[calories/@fat>=100]/name/text()EncoInt EndGInt NPDefGrup(OnameStrn DataSourcePValStrnEndGInt OPDefGrup(PnameStrn DataFieldPValStrnEndGInt PPDefGrup$QnameStrnFormatPValStrnEndGInt QPDefGrup RnameStrnMaskPValStrnEndGInt RCBixInt EndGInt (CtrlGrupScclsStrn StaticTextnameStrn StaticTextPDefGrup8TnameStrnNamePValStrn StaticText1EncoInt EndGInt TPDefGrup0UnameStrnIndexPValStrn -2147483648EndGInt UPDefGrup0VnameStrn TabPanelIndexPValStrn0EndGInt VPDefGrup(WnameStrnVisiblePValStrnTrueEndGInt WPDefGrup$XnameStrnLeftPValStrn20EndGInt XPDefGrup$YnameStrnTopPValStrn15EndGInt YPDefGrup(ZnameStrnWidthPValStrn43EndGInt ZPDefGrup([nameStrnHeightPValStrn20EndGInt [PDefGrup,\nameStrn InitialParentPValStrnEndGInt \PDefGrup$]nameStrnHelpTagPValStrnEndGInt ]PDefGrup(^nameStrn BalloonHelpPValStrnEndGInt ^PDefGrup0_nameStrnDisabledBalloonHelpPValStrnEndGInt _PDefGrup0`nameStrnAutoDeactivatePValStrnTrueEndGInt `PDefGrup(anameStrnLockLeftPValStrnTrueEndGInt aPDefGrup(bnameStrnLockTopPValStrnTrueEndGInt bPDefGrup0cnameStrn LockRightPValStrnFalseEndGInt cPDefGrup0dnameStrn LockBottomPValStrnFalseEndGInt dPDefGrup8enameStrnTextFontPValStrnSystemEncoInt EndGInt ePDefGrup(fnameStrnTextSizePValStrn12EndGInt fPDefGrup(gnameStrnBoldPValStrnFalseEndGInt gPDefGrup,hnameStrnItalicPValStrnFalseEndGInt hPDefGrup0inameStrn UnderlinePValStrnFalseEndGInt iPDefGrup4jnameStrnTextPValStrnQuery:EncoInt EndGInt jPDefGrup,knameStrn TextAlignPValStrn0EndGInt kPDefGrup,lnameStrn TextColorPValStrn0EndGInt lPDefGrup0mnameStrn MultiLinePValStrnFalseEndGInt mPDefGrup(nnameStrnEnabledPValStrnTrueEndGInt nPDefGrup(onameStrn DataSourcePValStrnEndGInt oPDefGrup(pnameStrn DataFieldPValStrnEndGInt pCBixInt EndGInt SCtrlGrup(qcclsStrn PushButtonnameStrn PushButtonPDefGrup8rnameStrnNamePValStrn QueryButtonEncoInt EndGInt rPDefGrup0snameStrnIndexPValStrn -2147483648EndGInt sPDefGrup0tnameStrn TabPanelIndexPValStrn0EndGInt tPDefGrup(unameStrnVisiblePValStrnTrueEndGInt uPDefGrup$vnameStrnLeftPValStrn655EndGInt vPDefGrup$wnameStrnTopPValStrn15EndGInt wPDefGrup(xnameStrnWidthPValStrn69EndGInt xPDefGrup(ynameStrnHeightPValStrn20EndGInt yPDefGrup,znameStrn InitialParentPValStrnEndGInt zPDefGrup${nameStrnHelpTagPValStrnEndGInt {PDefGrup(|nameStrn BalloonHelpPValStrnEndGInt |PDefGrup0}nameStrnDisabledBalloonHelpPValStrnEndGInt }PDefGrup0~nameStrnAutoDeactivatePValStrnTrueEndGInt ~PDefGrup,nameStrnLockLeftPValStrnFalseEndGInt PDefGrup(nameStrnLockTopPValStrnTrueEndGInt PDefGrup,nameStrn LockRightPValStrnTrueEndGInt PDefGrup0nameStrn LockBottomPValStrnFalseEndGInt PDefGrup8nameStrnTextFontPValStrnSystemEncoInt EndGInt PDefGrup(nameStrnTextSizePValStrn12EndGInt PDefGrup(nameStrnBoldPValStrnFalseEndGInt PDefGrup,nameStrnItalicPValStrnFalseEndGInt PDefGrup0nameStrn UnderlinePValStrnFalseEndGInt PDefGrup8nameStrnCaptionPValStrnQueryEncoInt EndGInt PDefGrup(nameStrnDefaultPValStrnTrueEndGInt PDefGrup,nameStrnCancelPValStrnFalseEndGInt PDefGrup(nameStrnEnabledPValStrnTrueEndGInt CBixInt EndGInt qCtrlGrup"cclsStrnSelectAllFieldnameStrn EditFieldPDefGrup4nameStrnNamePValStrnXMLFieldEncoInt EndGInt PDefGrup0nameStrnIndexPValStrn -2147483648EndGInt PDefGrup0nameStrn TabPanelIndexPValStrn0EndGInt PDefGrup(nameStrnVisiblePValStrnTrueEndGInt PDefGrup$nameStrnLeftPValStrn20EndGInt PDefGrup$nameStrnTopPValStrn47EndGInt PDefGrup(nameStrnWidthPValStrn704EndGInt PDefGrup(nameStrnHeightPValStrn563EndGInt PDefGrup,nameStrn InitialParentPValStrnEndGInt PDefGrup$nameStrnHelpTagPValStrnEndGInt PDefGrup(nameStrn BalloonHelpPValStrnEndGInt PDefGrup0nameStrnDisabledBalloonHelpPValStrnEndGInt PDefGrup0nameStrnAutoDeactivatePValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup(nameStrnLockTopPValStrnTrueEndGInt PDefGrup,nameStrn LockRightPValStrnTrueEndGInt PDefGrup,nameStrn LockBottomPValStrnTrueEndGInt PDefGrup8nameStrnTextFontPValStrnSystemEncoInt EndGInt PDefGrup(nameStrnTextSizePValStrn12EndGInt PDefGrup(nameStrnBoldPValStrnFalseEndGInt PDefGrup,nameStrnItalicPValStrnFalseEndGInt PDefGrup0nameStrn UnderlinePValStrnFalseEndGInt PDefGrup(nameStrnBorderPValStrnTrueEndGInt PDefGrup,nameStrn MultiLinePValStrnTrueEndGInt PDefGrup8nameStrnScrollBarHorizontalPValStrnFalseEndGInt PDefGrup,nameStrn ScrollBarPValStrnTrueEndGInt PDefGrup4nameStrnScrollBarVerticalPValStrnTrueEndGInt PDefGrup(nameStrnStyledPValStrnTrueEndGInt PDefGrup,nameStrnPasswordPValStrnFalseEndGInt PDefGrup,nameStrn UseFocusRingPValStrnTrueEndGInt PDefGrup,nameStrnReadOnlyPValStrnFalseEndGInt PDefGrup,nameStrn LimitTextPValStrn0EndGInt PDefGrup0nameStrn AcceptTabsPValStrnFalseEndGInt PDefGrup,nameStrn AlignmentPValStrn0EndGInt PDefGrup,nameStrn TextColorPValStrn0EndGInt PDefGrup0nameStrn BackColorPValStrn16777215EndGInt PDefGrup(nameStrnEnabledPValStrnTrueEndGInt PDefGrupnameStrnTextPValStrn[ 65 20 300 2400 300 25 50 Avocado Dip Sunnydale 29 11 3 5 210 2 0 1 0 0 0 0 Bagels, New York Style Thompson 104 4 1 0 510 54 3 11 0 0 8 20 Beef Frankfurter, Quarter Pound Armitage 115 32 15 65 1100 8 0 13 0 2 1 6 Chicken Pot Pie Lakeson 198 22 9 25 810 42 2 10 20 2 2 10 Cole Slaw Fresh Quick 1.5 0 0 0 15 5 2 1 30 45 4 2 Eggs Goodpath 50 4.5 1.5 215 65 1 0 6 6 0 2 4 Hazelnut Spread Ferreira 2 10 2 0 20 23 2 3 0 0 6 4 Potato Chips Lees 28 10 3 0 180 15 1 2 0 10 0 0 Soy Patties, Grilled Gardenproducts 96 5 0 0 420 10 4 9 0 0 0 0 Truffles, Dark Chocolate Lyndon's 39 19 14 25 10 16 1 1 0 0 0 0 EncoInt EndGInt PDefGrup(nameStrn DataSourcePValStrnEndGInt PDefGrup(nameStrn DataFieldPValStrnEndGInt PDefGrup$nameStrnFormatPValStrnEndGInt PDefGrup nameStrnMaskPValStrnEndGInt CBixInt EndGInt PadnPadn\********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu`j=E~NameStrnMenuBar1ContInt rEdtRectdd,MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt MItmGrupspmuInt nameStrnFileMenutextStrn&FileindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrnFileQuittextStrnQuitindxInt scutStrnQbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrn QuitMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt MItmGrupspmuInt nameStrnEditMenutextStrn&EditindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrnEditUndotextStrnUndoindxInt scutStrnZbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrntextStrn-indxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrnEditCuttextStrnCutindxInt scutStrnXbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrnEditCopytextStrnCopyindxInt scutStrnCbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditPastetextStrnPasteindxInt scutStrnVbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditCleartextStrnClearindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt MItmGrupspmuInt nameStrn EditSelectAlltextStrn Select AllindxInt scutStrnAbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt EndGInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt PadnPadnh************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj`iru@NameStrnAppContInt rEdtRect_K!eSptInt bPGpGrupPbPElGrup4scKyInt rEdtRect_K!eSptInt EndGInt EndGInt bClsInt NameStrnAppSizeInt 4SuprStrn ApplicationbNtrInt IntrStrnbApOInt PDefGrup0nameStrnMenuBarPValStrn -1134496662EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjfNO#YNameStrnSelectAllFieldContInt rEdtRect_K!eSptInt bPGpGrupPbPElGrup4scKyInt rEdtRect_K!eSptInt EndGInt EndGInt bClsInt NameStrnSelectAllFieldSizeInt SuprStrn EditFieldbNtrInt MnuHGrupEncoInt nameStrn EditSelectAllsorcGrupstsrInt stscInt ndsrInt ndscInt EncoInt srclStrnFunction Action() As BooleansrclStrnself.SelStart = 0srclStrnself.SelLength = Len(self.Text)srclStrn End FunctionEndGInt EndGInt IntrStrnPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!