RbBF BlokProj ŠÃI7éXÌ!PSIVStrn 5.5 OPSpStrn TextWithHyperlinksNTH.rbACnmStrn AChpStrn ACsvStrn localhost:7325 Ver1Strn 1 Ver2Strn 0 Ver3Strn 0 RelsStrn 0 NnRlStrn 0 RegnStrn 0 SVerStrn LVerStrn IVerStrn DVewInt ½÷YprTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrup 1žEndGInt 1žCPalGrup Ð 1ŸflagInt elemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿEndGInt 1ŸMacCStrn ????BMacStrn My Application (Classic)BCarStrn My Application BSizInt @ BMSzInt BSzSStrn 4096BMSSStrn 2048MDIcStrn My Application BWinStrn My Application.exe BMDIInt BL86Strn
MyApplication rEdtRect × > H ¾fTypGrup L 1 nameStrn textMacCStrn R*chtypeStrn TEXTdefnStrn flagInt EndGInt 1 PadnPadn (****************************************BlokpVew½÷Y ( .}Uù‡¼ÂNameStrn Window1 ContInt rEdtRect ñ a À
eSptInt µbPGpGrup P 1¡bPElGrup 4 1¢scKyInt õâúrEdtRect ñ a À
eSptInt µEndGInt 1¢EndGInt 1¡lstHInt lstVInt DPDefGrup 4 1£nameStrn NamePValStrn Window1 EncoInt EndGInt 1£PDefGrup ( 1¤nameStrn Frame PValStrn 0 EndGInt 1¤PDefGrup 0 1¥nameStrn Composite PValStrn False EndGInt 1¥PDefGrup 0 1¦nameStrn HasBackColorPValStrn False EndGInt 1¦PDefGrup 0 1§nameStrn BackColor PValStrn 16777215EndGInt 1§PDefGrup ( 1¨nameStrn BackdropPValStrn 0 EndGInt 1¨PDefGrup D 1©nameStrn Title PValStrn Text With HyperlinksEncoInt EndGInt 1©PDefGrup ( 1ªnameStrn Visible PValStrn TrueEndGInt 1ªPDefGrup 0 1«nameStrn
FullScreen PValStrn False EndGInt 1«PDefGrup 0 1¬nameStrn MenuBarVisible PValStrn TrueEndGInt 1¬PDefGrup ( 1nameStrn CloseBoxPValStrn TrueEndGInt 1PDefGrup , 1®nameStrn GrowIconPValStrn False EndGInt 1®PDefGrup 0 1¯nameStrn
LiveResize PValStrn False EndGInt 1¯PDefGrup , 1°nameStrn ZoomIconPValStrn False EndGInt 1°PDefGrup ( 1±nameStrn BalloonHelp PValStrn EndGInt 1±PDefGrup , 1²nameStrn MacProcID PValStrn 0 EndGInt 1²PDefGrup 0 1³nameStrn MenuBar PValStrn -1123682472 EndGInt 1³PDefGrup , 1´nameStrn Placement PValStrn 0 EndGInt 1´PDefGrup ( 1µnameStrn Width PValStrn 520 EndGInt 1µPDefGrup ( 1¶nameStrn Height PValStrn 158 EndGInt 1¶PDefGrup ( 1·nameStrn MinWidthPValStrn 64 EndGInt 1·PDefGrup , 1¸nameStrn MinHeight PValStrn 64 EndGInt 1¸PDefGrup , 1¹nameStrn MaxWidthPValStrn 32000 EndGInt 1¹PDefGrup 0 1ºnameStrn MaxHeight PValStrn 32000 EndGInt 1ºFDefGrup D 1»NameStrn Window1 SizeInt ŒSuprStrn Window bNtrInt EndGInt 1»CBhvGrup 1¼NameStrn SizeInt ˆSuprStrn TextWithHyperlinksNTH bNtrInt HInsGrup À 1½EncoInt nameStrn Paint sorcGrup „ 1¾stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Paint(g as Graphics)srclStrn srclStrn End Sub EndGInt 1¾EndGInt 1½HInsGrup Ø 1¿EncoInt nameStrn TextClicked sorcGrup ˜ 1ÀstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub TextClicked() srclStrn txtLinkValue.Text = "" srclStrn End Sub EndGInt 1ÀEndGInt 1¿HInsGrup € 1ÁEncoInt nameStrn OpensorcGrup H 1ÂstsrInt stscInt "ndsrInt ndscInt "EncoInt srclStrn
Sub Open() srclStrn dim d as Dictionary srclStrn srclStrn d = new Dictionary srclStrn srclStrn d.Value("2") = "2 Door" srclStrn d.Value("4") = "4 Door" srclStrn srclStrn "hypMain.TextBlocks(1).LinkData = d srclStrn End Sub EndGInt 1ÂEndGInt 1ÁHInsGrup H 1ÃEncoInt nameStrn LinkClicked sorcGrup 1ÄstsrInt stscInt dndsrInt ndscInt dEncoInt srclStrn 6Sub LinkClicked(TheLink as TextWithHyperlinksBlockNTH) srclStrn dtxtLinkValue.Text = "Name: " + TheLink.LinkName + " : Value: " + TheLink.LinkValuesrclStrn End Sub EndGInt 1ÄEndGInt 1ÃEndGInt 1¼CBhvGrup D 1ÅNameStrn SizeInt tSuprStrn RoundRectangle bNtrInt EndGInt 1ÅCBhvGrup @ 1ÆNameStrn SizeInt ˆSuprStrn
StaticText bNtrInt EndGInt 1ÆCtrlGrup 1ÇcclsStrn TextWithHyperlinksNTH nameStrn Canvas PDefGrup 4 1ÈnameStrn NamePValStrn hypMain EncoInt EndGInt 1ÈPDefGrup 0 1ÉnameStrn Index PValStrn -2147483648 EndGInt 1ÉPDefGrup 0 1ÊnameStrn
TabPanelIndex PValStrn 0 EndGInt 1ÊPDefGrup ( 1ËnameStrn Visible PValStrn TrueEndGInt 1ËPDefGrup $ 1ÌnameStrn LeftPValStrn 30 EndGInt 1ÌPDefGrup $ 1ÍnameStrn Top PValStrn 35 EndGInt 1ÍPDefGrup ( 1ÎnameStrn Width PValStrn 460 EndGInt 1ÎPDefGrup ( 1ÏnameStrn Height PValStrn 21 EndGInt 1ÏPDefGrup , 1ÐnameStrn
InitialParent PValStrn EndGInt 1ÐPDefGrup $ 1ÑnameStrn HelpTag PValStrn EndGInt 1ÑPDefGrup ( 1ÒnameStrn BalloonHelp PValStrn EndGInt 1ÒPDefGrup 0 1ÓnameStrn DisabledBalloonHelp PValStrn EndGInt 1ÓPDefGrup 0 1ÔnameStrn AutoDeactivate PValStrn TrueEndGInt 1ÔPDefGrup , 1ÕnameStrn LockLeftPValStrn False EndGInt 1ÕPDefGrup , 1ÖnameStrn LockTop PValStrn False EndGInt 1ÖPDefGrup 0 1×nameStrn LockRight PValStrn False EndGInt 1×PDefGrup 0 1ØnameStrn
LockBottom PValStrn False EndGInt 1ØPDefGrup ( 1ÙnameStrn BackdropPValStrn 0 EndGInt 1ÙPDefGrup ( 1ÚnameStrn Enabled PValStrn TrueEndGInt 1ÚPDefGrup , 1ÛnameStrn UseFocusRingPValStrn TrueEndGInt 1ÛPDefGrup 0 1ÜnameStrn AcceptFocus PValStrn False EndGInt 1ÜPDefGrup 0 1ÝnameStrn
AcceptTabs PValStrn False EndGInt 1ÝPDefGrup 0 1ÞnameStrn UnderlineOnHoverPValStrn TrueEndGInt 1ÞPDefGrup , 1ßnameStrn LinkColor PValStrn 255 EndGInt 1ßPDefGrup , 1ànameStrn TextColor PValStrn 0 EndGInt 1àPDefGrup 1ánameStrn InitialText PValStrn ÚShow all 2 Door Cars with Automatic Transmissions. EncoInt EndGInt 1áCBixInt EndGInt 1ÇCtrlGrup d 1âcclsStrn RoundRectangle nameStrn RoundRectangle PDefGrup < 1ãnameStrn NamePValStrn RoundRectangle1 EncoInt EndGInt 1ãPDefGrup 0 1änameStrn Index PValStrn -2147483648 EndGInt 1äPDefGrup 0 1ånameStrn
TabPanelIndex PValStrn 0 EndGInt 1åPDefGrup ( 1ænameStrn Visible PValStrn TrueEndGInt 1æPDefGrup $ 1çnameStrn LeftPValStrn 30 EndGInt 1çPDefGrup $ 1ènameStrn Top PValStrn 80 EndGInt 1èPDefGrup ( 1énameStrn Width PValStrn 460 EndGInt 1éPDefGrup ( 1ênameStrn Height PValStrn 40 EndGInt 1êPDefGrup , 1ënameStrn
InitialParent PValStrn EndGInt 1ëPDefGrup $ 1ìnameStrn HelpTag PValStrn EndGInt 1ìPDefGrup ( 1ínameStrn BalloonHelp PValStrn EndGInt 1íPDefGrup 0 1înameStrn DisabledBalloonHelp PValStrn EndGInt 1îPDefGrup 0 1ïnameStrn AutoDeactivate PValStrn TrueEndGInt 1ïPDefGrup , 1ðnameStrn LockLeftPValStrn False EndGInt 1ðPDefGrup , 1ñnameStrn LockTop PValStrn False EndGInt 1ñPDefGrup 0 1ònameStrn LockRight PValStrn False EndGInt 1òPDefGrup 0 1ónameStrn
LockBottom PValStrn False EndGInt 1óPDefGrup ( 1ônameStrn Enabled PValStrn TrueEndGInt 1ôPDefGrup 0 1õnameStrn FillColor PValStrn 16777215EndGInt 1õPDefGrup , 1önameStrn BorderWidth PValStrn 1 EndGInt 1öPDefGrup , 1÷nameStrn BorderColor PValStrn 0 EndGInt 1÷PDefGrup , 1ønameStrn OvalWidth PValStrn 10 EndGInt 1øPDefGrup , 1ùnameStrn
OvalHeight PValStrn 10 EndGInt 1ùCBixInt EndGInt 1âCtrlGrup 1úcclsStrn
StaticText nameStrn
StaticText PDefGrup 8 1ûnameStrn NamePValStrn txtLinkValueEncoInt EndGInt 1ûPDefGrup 0 1ünameStrn Index PValStrn -2147483648 EndGInt 1üPDefGrup 0 1ýnameStrn
TabPanelIndex PValStrn 0 EndGInt 1ýPDefGrup ( 1þnameStrn Visible PValStrn TrueEndGInt 1þPDefGrup $ 1ÿnameStrn LeftPValStrn 50 EndGInt 1ÿPDefGrup $ 2 nameStrn Top PValStrn 90 EndGInt 2 PDefGrup ( 2nameStrn Width PValStrn 421 EndGInt 2PDefGrup ( 2nameStrn Height PValStrn 20 EndGInt 2PDefGrup H 2nameStrn
InitialParent PValStrn RoundRectangle1 EncoInt EndGInt 2PDefGrup $ 2nameStrn HelpTag PValStrn EndGInt 2PDefGrup ( 2nameStrn BalloonHelp PValStrn EndGInt 2PDefGrup 0 2nameStrn DisabledBalloonHelp PValStrn EndGInt 2PDefGrup 0 2nameStrn AutoDeactivate PValStrn TrueEndGInt 2PDefGrup , 2nameStrn LockLeftPValStrn False EndGInt 2PDefGrup , 2 nameStrn LockTop PValStrn False EndGInt 2 PDefGrup 0 2
nameStrn LockRight PValStrn False EndGInt 2
PDefGrup 0 2 nameStrn
LockBottom PValStrn False EndGInt 2 PDefGrup 8 2 nameStrn TextFontPValStrn System EncoInt EndGInt 2 PDefGrup ( 2
nameStrn TextSizePValStrn 12 EndGInt 2
PDefGrup ( 2nameStrn BoldPValStrn False EndGInt 2PDefGrup , 2nameStrn Italic PValStrn False EndGInt 2PDefGrup 0 2nameStrn Underline PValStrn False EndGInt 2PDefGrup 2nameStrn TextPValStrn EndGInt 2PDefGrup , 2nameStrn TextAlign PValStrn 0 EndGInt 2PDefGrup , 2nameStrn TextColor PValStrn 0 EndGInt 2PDefGrup 0 2nameStrn MultiLine PValStrn False EndGInt 2PDefGrup ( 2nameStrn Enabled PValStrn TrueEndGInt 2PDefGrup ( 2nameStrn
DataSource PValStrn EndGInt 2PDefGrup ( 2nameStrn DataField PValStrn EndGInt 2CBixInt EndGInt 1úPadnPadn ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu½÷X .}Uù‡¼ÂNameStrn MenuBar1ContInt rEdtRect d d , ÈMItmGrup ˜ 2spmuInt nameStrn textStrn indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt MItmGrup À 2spmuInt nameStrn textStrn indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2EndGInt 2MItmGrup ˜ 2spmuInt nameStrn FileMenutextStrn &File indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt MItmGrup Ø 2spmuInt nameStrn FileQuittextStrn E&xit indxInt € scutStrn Q bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn QuitMenuItembNtrInt EndGInt 2MItmGrup À 2 spmuInt nameStrn textStrn indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2 EndGInt 2MItmGrup 2 spmuInt nameStrn EditMenutextStrn &Edit indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt MItmGrup Ô 2 spmuInt nameStrn EditUndotextStrn &Undo indxInt € scutStrn Z bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2 MItmGrup Ä 2 spmuInt nameStrn textStrn - indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2 MItmGrup Ð 2 spmuInt nameStrn EditCut textStrn Cu&tindxInt € scutStrn X bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2 MItmGrup Ô 2!spmuInt nameStrn EditCopytextStrn &Copy indxInt € scutStrn C bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2!MItmGrup Ø 2"spmuInt nameStrn EditPaste textStrn &Paste indxInt € scutStrn V bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2"MItmGrup Ô 2#spmuInt nameStrn EditClear textStrn Clear indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2#MItmGrup À 2$spmuInt nameStrn textStrn indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2$EndGInt 2 MItmGrup À 2%spmuInt nameStrn textStrn indxInt € scutStrn bhlpStrn dhlpStrn stylInt EncoInt flagInt maEnInt NameStrn SizeInt LSuprStrn MenuItembNtrInt EndGInt 2%PadnPadn ,********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj½÷W .}Uù‡¼ÂNameStrn App ContInt rEdtRect _ K ! •eSptInt ÿÿübPGpGrup P 2&bPElGrup 4 2'scKyInt õâúrEdtRect _ K ! •eSptInt ÿÿüEndGInt 2'EndGInt 2&bClsInt NameStrn App SizeInt 4SuprStrn Application bNtrInt IntrStrn bApOInt PDefGrup 0 2(nameStrn MenuBar PValStrn -1123682472 EndGInt 2(PadnPadn €****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj½û .}Uù‡¼ÂNameStrn TextWithHyperlinksBlockNTH ContInt rEdtRect r ¯ ! •eSptInt bPGpGrup P 2)bPElGrup 4 2*scKyInt õâúrEdtRect r ¯ ! •eSptInt EndGInt 2*EndGInt 2)bClsInt NameStrn TextWithHyperlinksBlockNTH SizeInt 0bNtrInt PropGrup È 2+EncoInt declStrn IsHovering as Boolean sorcGrup | 2,stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn IsHovering as Boolean ntlnStrn ntlnStrn EndGInt 2,EndGInt 2+PropGrup ¸ 2-EncoInt declStrn Text as String sorcGrup t 2.stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn Text as String ntlnStrn ntlnStrn EndGInt 2.EndGInt 2-PropGrup À 2/EncoInt declStrn LinkName as String sorcGrup x 20stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn LinkName as String ntlnStrn ntlnStrn EndGInt 20EndGInt 2/PropGrup À 21EncoInt declStrn IsLink as Boolean sorcGrup x 22stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn IsLink as Boolean ntlnStrn ntlnStrn EndGInt 22EndGInt 21PropGrup À 23EncoInt declStrn LinkValue as String sorcGrup x 24stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn LinkValue as String ntlnStrn ntlnStrn EndGInt 24EndGInt 23PropGrup À 25EncoInt declStrn LinkData as Variant sorcGrup x 26stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn LinkData as Variant ntlnStrn ntlnStrn EndGInt 26EndGInt 25IntrStrn PadnPadn ¬********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj½÷® 4 .}Uù‡¼ÂNameStrn TextWithHyperlinksNTH ContInt rEdtRect \ ’ Z íeSptInt bPGpGrup P 27bPElGrup 4 28scKyInt õâúrEdtRect \ ’ Z íeSptInt EndGInt 28EndGInt 27bClsInt NameStrn TextWithHyperlinksNTH SizeInt ˆSuprStrn Canvas bNtrInt PropGrup Ü 29EncoInt declStrn UnderlineOnHover as Boolean flagInt sorcGrup € 2:stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn UnderlineOnHover as Boolean ntlnStrn ntlnStrn EndGInt 2:EndGInt 29PropGrup 2;EncoInt declStrn /StringListNTH(-1) as TextWithHyperlinksBlockNTH flagInt sorcGrup ” 2stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn LinkColor as Color ntlnStrn ntlnStrn EndGInt 2>EndGInt 2=PropGrup Ì 2?EncoInt declStrn TextColor as Color flagInt sorcGrup x 2@stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn TextColor as Color ntlnStrn ntlnStrn EndGInt 2@EndGInt 2?PropGrup Ô 2AEncoInt declStrn InitialText as String flagInt sorcGrup | 2BstsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrn InitialText as String ntlnStrn ntlnStrn EndGInt 2BEndGInt 2AMethGrup 2CEncoInt nameStrn TextparmStrn Assigns s as String rsltStrn flagInt sorcGrup 2DstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Text(Assigns s as String) srclStrn DoTextAssignment(s) srclStrn End Sub EndGInt 2DEndGInt 2CMethGrup 4 2EEncoInt nameStrn DoTextAssignmentparmStrn s as String rsltStrn flagInt sorcGrup À 2FstsrInt (stscInt ndsrInt (ndscInt EncoInt srclStrn !Sub DoTextAssignment(s as String) srclStrn dim x as XMLDocumentsrclStrn dim i as integersrclStrn srclStrn if s <> "" then srclStrn srclStrn #//First, we need to make an XML Doc srclStrn x = new XMLDocument srclStrn srclStrn 3//Trim s of all trailing and preceding white space. srclStrn s = trim(s) srclStrn srclStrn @//Next, we need to push in tags in the beginning and end.srclStrn if left(s, 5) <> " "" thensrclStrn s = s + "" srclStrn end srclStrn srclStrn *//Next, we push text tags in where needed. srclStrn *s = ReplaceAll(s, "", "") srclStrn srclStrn if right(s, 6) = "" then srclStrn s = left(s, len(s) - 6) srclStrn end srclStrn srclStrn s = "" + s + ""srclStrn srclStrn x.LoadXml(s)srclStrn srclStrn &for i = uBound(StringListNTH) DownTo 0 srclStrn StringListNTH.Remove(i) srclStrn nextsrclStrn srclStrn -for i = 0 to x.DocumentElement.ChildCount - 1 srclStrn 3StringListNTH.Append new TextWithHyperlinksBlockNTH srclStrn srclStrn 1if x.DocumentElement.Child(i).ChildCount = 0 then srclStrn StringListNTH(i).Text = " " srclStrn elsesrclStrn CStringListNTH(i).Text = x.DocumentElement.Child(i).FirstChild.Value srclStrn end srclStrn srclStrn 0if x.DocumentElement.Child(i).Name = "link" thensrclStrn StringListNTH(i).IsLink = True srclStrn OStringListNTH(i).LinkName = x.DocumentElement.Child(i).GetAttribute("linkname") srclStrn QStringListNTH(i).LinkValue = x.DocumentElement.Child(i).GetAttribute("linkvalue") srclStrn end srclStrn srclStrn srclStrn nextsrclStrn srclStrn Refresh srclStrn srclStrn end srclStrn End Sub EndGInt 2FEndGInt 2EMethGrup ` 2GEncoInt nameStrn
TextBlocks parmStrn Index as IntegerrsltStrn TextWithHyperlinksBlockNTH flagInt sorcGrup Ð 2HstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn CFunction TextBlocks(Index as Integer) As TextWithHyperlinksBlockNTH srclStrn Return StringListNTH(Index) srclStrn End FunctionEndGInt 2HEndGInt 2GMethGrup X 2IEncoInt nameStrn AppendTextBlock parmStrn 'TextBlock as TextWithHyperlinksBlockNTH rsltStrn flagInt sorcGrup È 2JstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn RefreshRect OldLength, 0, (ExistingLength - OldLength), Height srclStrn end srclStrn end srclStrn srclStrn nextsrclStrn srclStrn end srclStrn End Sub EndGInt 2WEndGInt 2VHInsGrup Ä 2XEncoInt nameStrn MouseMove sorcGrup „ 2YstsrInt stscInt ndsrInt 4ndscInt EncoInt srclStrn )Sub MouseMove(X As Integer, Y As Integer) srclStrn dim i as integersrclStrn dim s as string srclStrn dim n as integersrclStrn dim ExistingLength as Integer srclStrn dim OldLength as IntegersrclStrn srclStrn if UnderlineOnHover = True then srclStrn srclStrn "for i = 0 to uBound(StringListNth) srclStrn srclStrn =//First we need to find out how long the previous text was... srclStrn s = "" srclStrn srclStrn "//Build a string of all the texts. srclStrn for n = 0 to i srclStrn s = s + StringListNTH(n).Text srclStrn nextsrclStrn srclStrn OldLength = ExistingLength srclStrn srclStrn (ExistingLength = graphics.StringWidth(s)srclStrn srclStrn 9//If the mouse is within our click area, then we need to srclStrn ;//hover and refresh if the area was not previously hovered. srclStrn -if X < ExistingLength AND X > OldLength then srclStrn if StringListNTH(i).IsLink then srclStrn srclStrn +if StringListNTH(i).IsHovering = False then srclStrn "StringListNTH(i).IsHovering = True srclStrn srclStrn "//Finally, refresh this rectangle. srclStrn >RefreshRect OldLength, 0, (ExistingLength - OldLength), Height srclStrn end srclStrn end srclStrn srclStrn 9//If our mouse is outside the click area, then we need to srclStrn J//un-hover and refresh if the area is a link, and was previously hovered. srclStrn elsesrclStrn if StringListNTH(i).IsLink then srclStrn srclStrn *if StringListNTH(i).IsHovering = True then srclStrn #StringListNTH(i).IsHovering = False srclStrn srclStrn "//Finally, refresh this rectangle. srclStrn >RefreshRect OldLength, 0, (ExistingLength - OldLength), Height srclStrn end srclStrn end srclStrn end srclStrn srclStrn nextsrclStrn srclStrn end srclStrn End Sub EndGInt 2YEndGInt 2XHInsGrup $ 2ZEncoInt nameStrn OpensorcGrup ì 2[stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn
Sub Open() srclStrn If InitialText <> "" then srclStrn DoTextAssignment(InitialText) srclStrn end srclStrn srclStrn OpensrclStrn End Sub EndGInt 2[EndGInt 2ZHInsGrup 8 2\EncoInt nameStrn MouseUp sorcGrup ü 2]stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn 'Sub MouseUp(X As Integer, Y As Integer) srclStrn dim i as integersrclStrn dim s as string srclStrn dim n as integersrclStrn dim ExistingLength as DoublesrclStrn srclStrn "for i = 0 to uBound(StringListNth) srclStrn srclStrn =//First we need to find out how long the previous text was... srclStrn s = "" srclStrn srclStrn "//Build a string of all the texts. srclStrn for n = 0 to i srclStrn s = s + StringListNTH(n).Text srclStrn nextsrclStrn srclStrn (ExistingLength = graphics.StringWidth(s)srclStrn srclStrn K//msgBox str(i) + " = " + str(ExistingLength) + EndOfLine + "X = " + str(X) srclStrn if X < ExistingLength then srclStrn if StringListNTH(i).IsLink then srclStrn LinkClicked(StringListNTH(i)) srclStrn elsesrclStrn TextClicked srclStrn end srclStrn srclStrn ExitsrclStrn end srclStrn nextsrclStrn srclStrn MouseUp(X,Y)srclStrn End Sub EndGInt 2]EndGInt 2\HInsGrup ¼ 2^EncoInt nameStrn
MouseEnter sorcGrup | 2_stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub MouseEnter()srclStrn srclStrn End Sub EndGInt 2_EndGInt 2^HInsGrup ø 2`EncoInt nameStrn MouseDown sorcGrup ¸ 2astsrInt stscInt ndsrInt ndscInt EncoInt srclStrn 9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrn Return True srclStrn End FunctionEndGInt 2aEndGInt 2`HInsGrup 2bEncoInt nameStrn Paint sorcGrup Ø 2cstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Paint(g As Graphics)srclStrn dim i as integersrclStrn dim s as string srclStrn dim n as integersrclStrn dim ExistingLength as DoublesrclStrn srclStrn "for i = 0 to uBound(StringListNth) srclStrn srclStrn =//First we need to find out how long the previous text was... srclStrn s = "" srclStrn srclStrn *//Build a string of all the previous text. srclStrn for n = 0 to i - 1 srclStrn s = s + StringListNTH(n).Text srclStrn nextsrclStrn srclStrn !ExistingLength = g.StringWidth(s) srclStrn srclStrn if StringListNTH(i).IsLink then srclStrn g.ForeColor = LinkColor srclStrn 8if UnderlineOnHover AND StringListNTH(i).IsHovering thensrclStrn g.Underline = True srclStrn Delseif UnderlineOnHover AND StringListNTH(i).IsHovering = False thensrclStrn g.Underline = False srclStrn elsesrclStrn g.Underline = True srclStrn end srclStrn srclStrn elsesrclStrn g.ForeColor = TextColor srclStrn g.Underline = False srclStrn end srclStrn srclStrn 6g.DrawString StringListNTH(i).Text, ExistingLength, 10 srclStrn nextsrclStrn srclStrn Paint(g)srclStrn End Sub EndGInt 2cEndGInt 2bIntrStrn PadnPadn ¨************************************************************************************************************************************************************************EOF!