RbBFBlokProjPSIVStrn2008.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt prTpInt DLanInt CLanInt DEncInt BflgInt IconGrupEndGInt MacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication DgCLStrnPadnPadn|********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj?GNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnHInsGrupnameStrnOpenCompStrnVsblInt sorcGruptEncoInt srclStrn Sub Open() srclStrnDim w as new winTypeMainsrclStrnw.Show srclStrnEnd Sub EndGInt EndGInt PDefGrup$nameStrnMenuBar PValInt YvEndGInt VwBhGrupEndGInt CnstGrupEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0pltfInt langInt defnStrnCmd+Q EndGInt CInsGrup0pltfInt langInt defnStrnCtrl+Q EndGInt EndGInt CnstGrup EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0 pltfInt langInt defnStrnE&xit EndGInt EndGInt CnstGrup EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0 pltfInt langInt defnStrn&Delete EndGInt CInsGrup0 pltfInt langInt defnStrn&Delete EndGInt EndGInt PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewGDNameStrn winTypeMain ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrupnameStrnOpenCompStrnVsblInt sorcGrupEncoInt srclStrn Sub Open() srclStrn7self.BackColor = ColorExtends.X11Colour( "WhiteSmoke" ) srclStrnEnd Sub EndGInt EndGInt MethGruptnameStrn AddColour CompStrnVsblInt sorcGrupEncoInt srclStrn(Sub AddColour(lb As Listbox, c As Color)srclStrndim s as String = c.x11name srclStrn lb.AddRow s srclStrn lb.CellTag( lb.LastIndex, 1) = csrclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnlb As Listbox, c As Color rsltStrnEndGInt PDefGrup<nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt PDefGrup0nameStrnMenuBar PValStrn 1500971007 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup0nameStrnMaximizeButton PValStrnTrueEndGInt PDefGrup,nameStrn LiveResize PValStrnTrueEndGInt PDefGrup,nameStrn Resizeable PValStrnTrueEndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup<nameStrnTitle EncoInt PValStrn rb2007r5b3 EndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup( nameStrn BackColor PValInt EndGInt PDefGrup,!nameStrn HasBackColorPValStrnTrueEndGInt !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 *VwBhGrupt+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 EnumGrup0defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt 0EndGInt /VwPrGrupp1NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt 1VwPrGrupp2NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt 2VwPrGrupp3NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt 3VwPrGrupt4NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt 4VwPrGrupt5NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt 5VwPrGrupx6NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt 6VwPrGrup 7NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp8defnStrn 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 8EndGInt 7VwPrGrup|9NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 9VwPrGrup|:NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt :VwPrGrup|;NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt ;VwPrGrupxNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt >VwPrGrup|?NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?VwPrGrup|@NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGrupxANameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt AVwPrGrup|BNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt BVwPrGrupxCNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt CVwPrGrupDNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt DVwPrGrup|ENameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt EVwPrGruphFNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt FVwPrGrupxGNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt GVwPrGrupxHNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt HVwPrGrup|INameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt IEndGInt +CBhvGruppJSuprStrnListbox HInsGrup`KnameStrnOpenCompStrnVsblInt sorcGrupLEncoInt srclStrn Sub Open() srclStrnAddColour me, &cCD5C5C srclStrnAddColour me, &cF08080 srclStrnAddColour me, &cFA8072 srclStrnAddColour me, &cE9967A srclStrnAddColour me, &cFFA07A srclStrnAddColour me, &cDC143C srclStrnAddColour me, &cFF0000 srclStrnAddColour me, &cB22222 srclStrnAddColour me, &c8B0000 srclStrnAddColour me, &cFFC0CB srclStrnAddColour me, &cFFB6C1 srclStrnAddColour me, &cFF69B4 srclStrnAddColour me, &cFF1493 srclStrnAddColour me, &cC71585 srclStrnAddColour me, &cDB7093 srclStrnAddColour me, &cFFA07A srclStrnAddColour me, &cFF7F50 srclStrnAddColour me, &cFF6347 srclStrnAddColour me, &cFF4500 srclStrnAddColour me, &cFF8C00 srclStrnAddColour me, &cFFA500 srclStrnAddColour me, &cFFD700 srclStrnAddColour me, &cFFFF00 srclStrnAddColour me, &cFFFFE0 srclStrnAddColour me, &cFFFACD srclStrnAddColour me, &cFAFAD2 srclStrnAddColour me, &cFFEFD5 srclStrnAddColour me, &cFFE4B5 srclStrnAddColour me, &cFFDAB9 srclStrnAddColour me, &cEEE8AA srclStrnAddColour me, &cF0E68C srclStrnAddColour me, &cBDB76B srclStrnAddColour me, &cE6E6FA srclStrnAddColour me, &cD8BFD8 srclStrnAddColour me, &cDDA0DD srclStrnAddColour me, &cEE82EE srclStrnAddColour me, &cDA70D6 srclStrnAddColour me, &cFF00FF srclStrnAddColour me, &cFF00FF srclStrnAddColour me, &cBA55D3 srclStrnAddColour me, &c9370DB srclStrnAddColour me, &c8A2BE2 srclStrnAddColour me, &c9400D3 srclStrnAddColour me, &c9932CC srclStrnAddColour me, &c8B008B srclStrnAddColour me, &c800080 srclStrnAddColour me, &c4B0082 srclStrnAddColour me, &c6A5ACD srclStrnAddColour me, &c483D8B srclStrnAddColour me, &cADFF2F srclStrnAddColour me, &c7FFF00 srclStrnAddColour me, &c7CFC00 srclStrnAddColour me, &c00FF00 srclStrnAddColour me, &c32CD32 srclStrnAddColour me, &c98FB98 srclStrnAddColour me, &c90EE90 srclStrnAddColour me, &c00FA9A srclStrnAddColour me, &c00FF7F srclStrnAddColour me, &c3CB371 srclStrnAddColour me, &c2E8B57 srclStrnAddColour me, &c228B22 srclStrnAddColour me, &c008000 srclStrnAddColour me, &c006400 srclStrnAddColour me, &c9ACD32 srclStrnAddColour me, &c6B8E23 srclStrnAddColour me, &c808000 srclStrnAddColour me, &c556B2F srclStrnAddColour me, &c66CDAA srclStrnAddColour me, &c8FBC8F srclStrnAddColour me, &c20B2AA srclStrnAddColour me, &c008B8B srclStrnAddColour me, &c008080 srclStrnAddColour me, &c00FFFF srclStrnAddColour me, &c00FFFF srclStrnAddColour me, &cE0FFFF srclStrnAddColour me, &cAFEEEE srclStrnAddColour me, &c7FFFD4 srclStrnAddColour me, &c40E0D0 srclStrnAddColour me, &c48D1CC srclStrnAddColour me, &c00CED1 srclStrnAddColour me, &c5F9EA0 srclStrnAddColour me, &c4682B4 srclStrnAddColour me, &cB0C4DE srclStrnAddColour me, &cB0E0E6 srclStrnAddColour me, &cADD8E6 srclStrnAddColour me, &c87CEEB srclStrnAddColour me, &c87CEFA srclStrnAddColour me, &c00BFFF srclStrnAddColour me, &c1E90FF srclStrnAddColour me, &c6495ED srclStrnAddColour me, &c7B68EE srclStrnAddColour me, &c4169E1 srclStrnAddColour me, &c0000FF srclStrnAddColour me, &c0000CD srclStrnAddColour me, &c00008B srclStrnAddColour me, &c000080 srclStrnAddColour me, &c191970 srclStrnAddColour me, &cFFF8DC srclStrnAddColour me, &cFFEBCD srclStrnAddColour me, &cFFE4C4 srclStrnAddColour me, &cFFDEAD srclStrnAddColour me, &cF5DEB3 srclStrnAddColour me, &cDEB887 srclStrnAddColour me, &cD2B48C srclStrnAddColour me, &cBC8F8F srclStrnAddColour me, &cF4A460 srclStrnAddColour me, &cDAA520 srclStrnAddColour me, &cB8860B srclStrnAddColour me, &cCD853F srclStrnAddColour me, &cD2691E srclStrnAddColour me, &c8B4513 srclStrnAddColour me, &cA0522D srclStrnAddColour me, &cA52A2A srclStrnAddColour me, &c800000 srclStrnAddColour me, &cFFFFFF srclStrnAddColour me, &cFFFAFA srclStrnAddColour me, &cF0FFF0 srclStrnAddColour me, &cF5FFFA srclStrnAddColour me, &cF0FFFF srclStrnAddColour me, &cF0F8FF srclStrnAddColour me, &cF8F8FF srclStrnAddColour me, &cF5F5F5 srclStrnAddColour me, &cFFF5EE srclStrnAddColour me, &cF5F5DC srclStrnAddColour me, &cFDF5E6 srclStrnAddColour me, &cFFFAF0 srclStrnAddColour me, &cFFFFF0 srclStrnAddColour me, &cFAEBD7 srclStrnAddColour me, &cFAF0E6 srclStrnAddColour me, &cFFF0F5 srclStrnAddColour me, &cFFE4E1 srclStrnAddColour me, &cDCDCDC srclStrnAddColour me, &cD3D3D3 srclStrnAddColour me, &cC0C0C0 srclStrnAddColour me, &cA9A9A9 srclStrnAddColour me, &c808080 srclStrnAddColour me, &c696969 srclStrnAddColour me, &c778899 srclStrnAddColour me, &c708090 srclStrnAddColour me, &c2F4F4F srclStrnAddColour me, &c000000 srclStrnsrclStrnEnd Sub EndGInt LEndGInt KHInsGrupMnameStrnCellBackgroundPaint CompStrnVsblInt sorcGrupNEncoInt srclStrnYFunction CellBackgroundPaint(g As Graphics, row As Integer, column As Integer) As Boolean srclStrn(if row >= me.ListCount then return falsesrclStrn5if column = 1 and me.CellTag(row, column) <> nil then srclStrn0g.ForeColor = me.CellTag(row, column).ColorValuesrclStrn%g.FillRect( 0, 0, g.Width, g.Height ) srclStrn Return true srclStrnend if srclStrn End FunctionEndGInt NEndGInt MHInsGrupOnameStrnChange CompStrnVsblInt sorcGruppPEncoInt srclStrn Sub Change()srclStrn!dim row as Integer = me.ListIndex srclStrn'if row >= 0 and row < me.ListCount then srclStrn5if me.CellTag( row, 1 ).Type = variant.TypeColor then srclStrn%self.BackColor = me.CellTag( row, 1 ) srclStrn#self.Title = self.BackColor.x11name srclStrnend if srclStrnend if srclStrnEnd Sub EndGInt PEndGInt OEndGInt JCtrlGruphQcclsStrnListBox nameStrnListBox PDefGrup4RnameStrnNameEncoInt PValStrnListBox1EndGInt RPDefGrup<SnameStrnIndex EncoInt PValStrn -2147483648 EndGInt SPDefGrup4TnameStrnScope EncoInt PValStrn0 EndGInt TPDefGrup0UnameStrnLeftEncoInt PValStrn11 EndGInt UPDefGrup0VnameStrnTop EncoInt PValStrn14 EndGInt VPDefGrup4WnameStrnWidth EncoInt PValStrn278 EndGInt WPDefGrup4XnameStrnHeight EncoInt PValStrn266 EndGInt XPDefGrup4YnameStrnLockLeftEncoInt PValStrnTrueEndGInt YPDefGrup4ZnameStrnLockTop EncoInt PValStrnTrueEndGInt ZPDefGrup8[nameStrn LockRight EncoInt PValStrnTrueEndGInt [PDefGrup8\nameStrn LockBottom EncoInt PValStrnTrueEndGInt \PDefGrup<]nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt ]PDefGrup4^nameStrnTabIndexEncoInt PValStrn0 EndGInt ^PDefGrup4_nameStrnVisible EncoInt PValStrnTrueEndGInt _PDefGrup0`nameStrnHelpTag EncoInt PValStrnEndGInt `PDefGrup<anameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt aPDefGrup4bnameStrnEnabled EncoInt PValStrnTrueEndGInt bPDefGrup8cnameStrn ColumnCount EncoInt PValStrn2 EndGInt cPDefGrup4dnameStrn ColumnWidthsEncoInt PValStrnEndGInt dPDefGrup4enameStrn HasHeading EncoInt PValStrnEndGInt ePDefGrup8fnameStrn UseFocusRingEncoInt PValStrnTrueEndGInt fPDefGrup4gnameStrn InitialValueEncoInt PValStrnEndGInt gPDefGrup8hnameStrn HeadingIndexEncoInt PValStrn-1 EndGInt hPDefGrup<inameStrnScrollbarHorizontal EncoInt PValStrnEndGInt iPDefGrup@jnameStrnScrollBarVertical EncoInt PValStrnTrueEndGInt jPDefGrup@knameStrnGridLinesHorizontal EncoInt PValStrn3 EndGInt kPDefGrup@lnameStrnGridLinesVertical EncoInt PValStrn0 EndGInt lPDefGrup<mnameStrnDefaultRowHeightEncoInt PValStrn-1 EndGInt mPDefGrup8nnameStrn _ScrollWidthEncoInt PValStrn-1 EndGInt nPDefGrup<onameStrn _ScrollOffset EncoInt PValStrn0 EndGInt oPDefGrup8pnameStrnTextFontEncoInt PValStrnSystem EndGInt pPDefGrup4qnameStrnTextSizeEncoInt PValStrn0 EndGInt qPDefGrup,rnameStrnBoldEncoInt PValStrnEndGInt rPDefGrup0snameStrnItalic EncoInt PValStrnEndGInt sPDefGrup4tnameStrn Underline EncoInt PValStrnEndGInt tPDefGrup4unameStrn HierarchicalEncoInt PValStrnEndGInt uPDefGrup4vnameStrn EnableDrag EncoInt PValStrnEndGInt vPDefGrup<wnameStrnEnableDragReorder EncoInt PValStrnEndGInt wPDefGrup<xnameStrnRequiresSelection EncoInt PValStrnEndGInt xPDefGrup<ynameStrn SelectionType EncoInt PValStrn0 EndGInt yPDefGrup8znameStrnColumnsResizableEncoInt PValStrnEndGInt zPDefGrup@{nameStrnAutoHideScrollbars EncoInt PValStrnTrueEndGInt {PDefGrup4|nameStrn DataSource EncoInt PValStrnEndGInt |PDefGrup4}nameStrn DataField EncoInt PValStrnEndGInt }PDefGrup8~nameStrn InitialParent EncoInt PValStrnEndGInt ~PDefGrup8nameStrnSuper EncoInt PValStrnListBox EndGInt CBixInt EndGInt QPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuYv NameStrnMenuBar1ContInt paswStrnMItmGruppspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EndGInt MItmGrup\spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj!DNameStrn ColorExtendsContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupnameStrnX11name CompStrnVsblInt sorcGrup0EncoInt srclStrnMFunction X11name(Extends c As Color, allowBlanks As Boolean = true) As String srclStrnStatic Dict as Dictionary srclStrnif dict is nil then srclStrndict = new Dictionary srclStrn Dict.Value( &c000000 ) = "Black"srclStrnDict.Value( &c000080 ) = "Navy" srclStrn#Dict.Value( &c00008B ) = "DarkBlue" srclStrn%Dict.Value( &c0000CD ) = "MediumBlue" srclStrnDict.Value( &c0000FF ) = "Blue" srclStrn$Dict.Value( &c006400 ) = "DarkGreen"srclStrn Dict.Value( &c008000 ) = "Green"srclStrnDict.Value( &c008080 ) = "Teal" srclStrn#Dict.Value( &c008B8B ) = "DarkCyan" srclStrn&Dict.Value( &c00BFFF ) = "DeepSkyBlue" srclStrn(Dict.Value( &c00CED1 ) = "DarkTurquoise"srclStrn,Dict.Value( &c00FA9A ) = "MediumSpringGreen"srclStrnDict.Value( &c00FF00 ) = "Lime" srclStrn&Dict.Value( &c00FF7F ) = "SpringGreen" srclStrnDict.Value( &c00FFFF ) = "Aqua" srclStrnDict.Value( &c00FFFF ) = "Cyan" srclStrn'Dict.Value( &c191970 ) = "MidnightBlue" srclStrn%Dict.Value( &c1E90FF ) = "DodgerBlue" srclStrn(Dict.Value( &c20B2AA ) = "LightSeaGreen"srclStrn&Dict.Value( &c228B22 ) = "ForestGreen" srclStrn#Dict.Value( &c2E8B57 ) = "SeaGreen" srclStrn(Dict.Value( &c2F4F4F ) = "DarkSlateGray"srclStrn$Dict.Value( &c32CD32 ) = "LimeGreen"srclStrn)Dict.Value( &c3CB371 ) = "MediumSeaGreen" srclStrn$Dict.Value( &c40E0D0 ) = "Turquoise"srclStrn$Dict.Value( &c4169E1 ) = "RoyalBlue"srclStrn$Dict.Value( &c4682B4 ) = "SteelBlue"srclStrn(Dict.Value( &c483D8B ) = "DarkSlateBlue"srclStrn*Dict.Value( &c48D1CC ) = "MediumTurquoise" srclStrn!Dict.Value( &c4B0082 ) = "Indigo" srclStrn)Dict.Value( &c556B2F ) = "DarkOliveGreen" srclStrn$Dict.Value( &c5F9EA0 ) = "CadetBlue"srclStrn)Dict.Value( &c6495ED ) = "CornflowerBlue" srclStrn+Dict.Value( &c66CDAA ) = "MediumAquamarine" srclStrn"Dict.Value( &c696969 ) = "DimGray" srclStrn$Dict.Value( &c6A5ACD ) = "SlateBlue"srclStrn$Dict.Value( &c6B8E23 ) = "OliveDrab"srclStrn$Dict.Value( &c708090 ) = "SlateGray"srclStrn)Dict.Value( &c778899 ) = "LightSlateGray" srclStrn*Dict.Value( &c7B68EE ) = "MediumSlateBlue" srclStrn$Dict.Value( &c7CFC00 ) = "LawnGreen"srclStrn%Dict.Value( &c7FFF00 ) = "Chartreuse" srclStrn%Dict.Value( &c7FFFD4 ) = "Aquamarine" srclStrn!Dict.Value( &c800000 ) = "Maroon" srclStrn!Dict.Value( &c800080 ) = "Purple" srclStrn Dict.Value( &c808000 ) = "Olive"srclStrnDict.Value( &c808080 ) = "Gray" srclStrn"Dict.Value( &c87CEEB ) = "SkyBlue" srclStrn'Dict.Value( &c87CEFA ) = "LightSkyBlue" srclStrn%Dict.Value( &c8A2BE2 ) = "BlueViolet" srclStrn"Dict.Value( &c8B0000 ) = "DarkRed" srclStrn&Dict.Value( &c8B008B ) = "DarkMagenta" srclStrn&Dict.Value( &c8B4513 ) = "SaddleBrown" srclStrn'Dict.Value( &c8FBC8F ) = "DarkSeaGreen" srclStrn%Dict.Value( &c90EE90 ) = "LightGreen" srclStrn'Dict.Value( &c9370DB ) = "MediumPurple" srclStrn%Dict.Value( &c9400D3 ) = "DarkViolet" srclStrn$Dict.Value( &c98FB98 ) = "PaleGreen"srclStrn%Dict.Value( &c9932CC ) = "DarkOrchid" srclStrn&Dict.Value( &c9ACD32 ) = "YellowGreen" srclStrn!Dict.Value( &cA0522D ) = "Sienna" srclStrn Dict.Value( &cA52A2A ) = "Brown"srclStrn#Dict.Value( &cA9A9A9 ) = "DarkGray" srclStrn$Dict.Value( &cADD8E6 ) = "LightBlue"srclStrn&Dict.Value( &cADFF2F ) = "GreenYellow" srclStrn(Dict.Value( &cAFEEEE ) = "PaleTurquoise"srclStrn)Dict.Value( &cB0C4DE ) = "LightSteelBlue" srclStrn%Dict.Value( &cB0E0E6 ) = "PowderBlue" srclStrn$Dict.Value( &cB22222 ) = "FireBrick"srclStrn(Dict.Value( &cB8860B ) = "DarkGoldenrod"srclStrn'Dict.Value( &cBA55D3 ) = "MediumOrchid" srclStrn$Dict.Value( &cBC8F8F ) = "RosyBrown"srclStrn$Dict.Value( &cBDB76B ) = "DarkKhaki"srclStrn!Dict.Value( &cC0C0C0 ) = "Silver" srclStrn*Dict.Value( &cC71585 ) = "MediumVioletRed" srclStrn$Dict.Value( &cCD5C5C ) = "IndianRed"srclStrnDict.Value( &cCD853F ) = "Peru" srclStrn$Dict.Value( &cD2691E ) = "Chocolate"srclStrnDict.Value( &cD2B48C ) = "Tan" srclStrn$Dict.Value( &cD3D3D3 ) = "LightGrey"srclStrn"Dict.Value( &cD8BFD8 ) = "Thistle" srclStrn!Dict.Value( &cDA70D6 ) = "Orchid" srclStrn$Dict.Value( &cDAA520 ) = "Goldenrod"srclStrn(Dict.Value( &cDB7093 ) = "PaleVioletRed"srclStrn"Dict.Value( &cDC143C ) = "Crimson" srclStrn$Dict.Value( &cDCDCDC ) = "Gainsboro"srclStrnDict.Value( &cDDA0DD ) = "Plum" srclStrn$Dict.Value( &cDEB887 ) = "BurlyWood"srclStrn$Dict.Value( &cE0FFFF ) = "LightCyan"srclStrn#Dict.Value( &cE6E6FA ) = "Lavender" srclStrn%Dict.Value( &cE9967A ) = "DarkSalmon" srclStrn!Dict.Value( &cEE82EE ) = "Violet" srclStrn(Dict.Value( &cEEE8AA ) = "PaleGoldenrod"srclStrn%Dict.Value( &cF08080 ) = "LightCoral" srclStrn Dict.Value( &cF0E68C ) = "Khaki"srclStrn$Dict.Value( &cF0F8FF ) = "AliceBlue"srclStrn#Dict.Value( &cF0FFF0 ) = "Honeydew" srclStrn Dict.Value( &cF0FFFF ) = "Azure"srclStrn%Dict.Value( &cF4A460 ) = "SandyBrown" srclStrn Dict.Value( &cF5DEB3 ) = "Wheat"srclStrn Dict.Value( &cF5F5DC ) = "Beige"srclStrn%Dict.Value( &cF5F5F5 ) = "WhiteSmoke" srclStrn$Dict.Value( &cF5FFFA ) = "MintCream"srclStrn%Dict.Value( &cF8F8FF ) = "GhostWhite" srclStrn!Dict.Value( &cFA8072 ) = "Salmon" srclStrn'Dict.Value( &cFAEBD7 ) = "AntiqueWhite" srclStrn Dict.Value( &cFAF0E6 ) = "Linen"srclStrn/Dict.Value( &cFAFAD2 ) = "LightGoldenrodYellow" srclStrn"Dict.Value( &cFDF5E6 ) = "OldLace" srclStrnDict.Value( &cFF0000 ) = "Red" srclStrn"Dict.Value( &cFF00FF ) = "Magenta" srclStrn"Dict.Value( &cFF00FF ) = "Fuchsia" srclStrn#Dict.Value( &cFF1493 ) = "DeepPink" srclStrn$Dict.Value( &cFF4500 ) = "OrangeRed"srclStrn!Dict.Value( &cFF6347 ) = "Tomato" srclStrn"Dict.Value( &cFF69B4 ) = "HotPink" srclStrn Dict.Value( &cFF7F50 ) = "Coral"srclStrn%Dict.Value( &cFF8C00 ) = "DarkOrange" srclStrn&Dict.Value( &cFFA07A ) = "LightSalmon" srclStrn&Dict.Value( &cFFA07A ) = "LightSalmon" srclStrn!Dict.Value( &cFFA500 ) = "Orange" srclStrn$Dict.Value( &cFFB6C1 ) = "LightPink"srclStrnDict.Value( &cFFC0CB ) = "Pink" srclStrnDict.Value( &cFFD700 ) = "Gold" srclStrn$Dict.Value( &cFFDAB9 ) = "PeachPuff"srclStrn&Dict.Value( &cFFDEAD ) = "NavajoWhite" srclStrn#Dict.Value( &cFFE4B5 ) = "Moccasin" srclStrn!Dict.Value( &cFFE4C4 ) = "Bisque" srclStrn$Dict.Value( &cFFE4E1 ) = "MistyRose"srclStrn)Dict.Value( &cFFEBCD ) = "BlanchedAlmond" srclStrn%Dict.Value( &cFFEFD5 ) = "PapayaWhip" srclStrn(Dict.Value( &cFFF0F5 ) = "LavenderBlush"srclStrn#Dict.Value( &cFFF5EE ) = "Seashell" srclStrn#Dict.Value( &cFFF8DC ) = "Cornsilk" srclStrn'Dict.Value( &cFFFACD ) = "LemonChiffon" srclStrn&Dict.Value( &cFFFAF0 ) = "FloralWhite" srclStrnDict.Value( &cFFFAFA ) = "Snow" srclStrn!Dict.Value( &cFFFF00 ) = "Yellow" srclStrn&Dict.Value( &cFFFFE0 ) = "LightYellow" srclStrn Dict.Value( &cFFFFF0 ) = "Ivory"srclStrn Dict.Value( &cFFFFFF ) = "White"srclStrnend if srclStrnDim retval as StringsrclStrnretval = dict.Lookup( c, "" ) srclStrn,If retval = "" and allowBlanks = false thensrclStrndim v as VariantsrclStrnv = c srclStrn retval = mid( v.StringValue, 3 )srclStrnEnd If srclStrn Return retval srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrn1Extends c As Color, allowBlanks As Boolean = true rsltStrnString EndGInt MethGrup nameStrn X11Colour CompStrnVsblInt sorcGrupEncoInt srclStrnNFunction X11Colour(Name As String, DefaultColour as Color = &c000000) As Color srclStrnif mX11Colour is nil then srclStrnmX11Colour = new Dictionary srclStrn&mX11Colour.Value( "Black" ) = &c000000 srclStrn%mX11Colour.Value( "Navy" ) = &c000080 srclStrn)mX11Colour.Value( "DarkBlue" ) = &c00008B srclStrn+mX11Colour.Value( "MediumBlue" ) = &c0000CD srclStrn%mX11Colour.Value( "Blue" ) = &c0000FF srclStrn*mX11Colour.Value( "DarkGreen" ) = &c006400 srclStrn&mX11Colour.Value( "Green" ) = &c008000 srclStrn%mX11Colour.Value( "Teal" ) = &c008080 srclStrn)mX11Colour.Value( "DarkCyan" ) = &c008B8B srclStrn,mX11Colour.Value( "DeepSkyBlue" ) = &c00BFFFsrclStrn.mX11Colour.Value( "DarkTurquoise" ) = &c00CED1 srclStrn2mX11Colour.Value( "MediumSpringGreen" ) = &c00FA9A srclStrn%mX11Colour.Value( "Lime" ) = &c00FF00 srclStrn,mX11Colour.Value( "SpringGreen" ) = &c00FF7FsrclStrn%mX11Colour.Value( "Aqua" ) = &c00FFFF srclStrn%mX11Colour.Value( "Cyan" ) = &c00FFFF srclStrn-mX11Colour.Value( "MidnightBlue" ) = &c191970 srclStrn+mX11Colour.Value( "DodgerBlue" ) = &c1E90FF srclStrn.mX11Colour.Value( "LightSeaGreen" ) = &c20B2AA srclStrn,mX11Colour.Value( "ForestGreen" ) = &c228B22srclStrn)mX11Colour.Value( "SeaGreen" ) = &c2E8B57 srclStrn.mX11Colour.Value( "DarkSlateGray" ) = &c2F4F4F srclStrn*mX11Colour.Value( "LimeGreen" ) = &c32CD32 srclStrn/mX11Colour.Value( "MediumSeaGreen" ) = &c3CB371 srclStrn*mX11Colour.Value( "Turquoise" ) = &c40E0D0 srclStrn*mX11Colour.Value( "RoyalBlue" ) = &c4169E1 srclStrn*mX11Colour.Value( "SteelBlue" ) = &c4682B4 srclStrn.mX11Colour.Value( "DarkSlateBlue" ) = &c483D8B srclStrn0mX11Colour.Value( "MediumTurquoise" ) = &c48D1CCsrclStrn'mX11Colour.Value( "Indigo" ) = &c4B0082 srclStrn/mX11Colour.Value( "DarkOliveGreen" ) = &c556B2F srclStrn*mX11Colour.Value( "CadetBlue" ) = &c5F9EA0 srclStrn/mX11Colour.Value( "CornflowerBlue" ) = &c6495ED srclStrn1mX11Colour.Value( "MediumAquamarine" ) = &c66CDAA srclStrn(mX11Colour.Value( "DimGray" ) = &c696969srclStrn*mX11Colour.Value( "SlateBlue" ) = &c6A5ACD srclStrn*mX11Colour.Value( "OliveDrab" ) = &c6B8E23 srclStrn*mX11Colour.Value( "SlateGray" ) = &c708090 srclStrn/mX11Colour.Value( "LightSlateGray" ) = &c778899 srclStrn0mX11Colour.Value( "MediumSlateBlue" ) = &c7B68EEsrclStrn*mX11Colour.Value( "LawnGreen" ) = &c7CFC00 srclStrn+mX11Colour.Value( "Chartreuse" ) = &c7FFF00 srclStrn+mX11Colour.Value( "Aquamarine" ) = &c7FFFD4 srclStrn'mX11Colour.Value( "Maroon" ) = &c800000 srclStrn'mX11Colour.Value( "Purple" ) = &c800080 srclStrn&mX11Colour.Value( "Olive" ) = &c808000 srclStrn%mX11Colour.Value( "Gray" ) = &c808080 srclStrn(mX11Colour.Value( "SkyBlue" ) = &c87CEEBsrclStrn-mX11Colour.Value( "LightSkyBlue" ) = &c87CEFA srclStrn+mX11Colour.Value( "BlueViolet" ) = &c8A2BE2 srclStrn(mX11Colour.Value( "DarkRed" ) = &c8B0000srclStrn,mX11Colour.Value( "DarkMagenta" ) = &c8B008BsrclStrn,mX11Colour.Value( "SaddleBrown" ) = &c8B4513srclStrn-mX11Colour.Value( "DarkSeaGreen" ) = &c8FBC8F srclStrn+mX11Colour.Value( "LightGreen" ) = &c90EE90 srclStrn-mX11Colour.Value( "MediumPurple" ) = &c9370DB srclStrn+mX11Colour.Value( "DarkViolet" ) = &c9400D3 srclStrn*mX11Colour.Value( "PaleGreen" ) = &c98FB98 srclStrn+mX11Colour.Value( "DarkOrchid" ) = &c9932CC srclStrn,mX11Colour.Value( "YellowGreen" ) = &c9ACD32srclStrn'mX11Colour.Value( "Sienna" ) = &cA0522D srclStrn&mX11Colour.Value( "Brown" ) = &cA52A2A srclStrn)mX11Colour.Value( "DarkGray" ) = &cA9A9A9 srclStrn*mX11Colour.Value( "LightBlue" ) = &cADD8E6 srclStrn,mX11Colour.Value( "GreenYellow" ) = &cADFF2FsrclStrn.mX11Colour.Value( "PaleTurquoise" ) = &cAFEEEE srclStrn/mX11Colour.Value( "LightSteelBlue" ) = &cB0C4DE srclStrn+mX11Colour.Value( "PowderBlue" ) = &cB0E0E6 srclStrn*mX11Colour.Value( "FireBrick" ) = &cB22222 srclStrn.mX11Colour.Value( "DarkGoldenrod" ) = &cB8860B srclStrn-mX11Colour.Value( "MediumOrchid" ) = &cBA55D3 srclStrn*mX11Colour.Value( "RosyBrown" ) = &cBC8F8F srclStrn*mX11Colour.Value( "DarkKhaki" ) = &cBDB76B srclStrn'mX11Colour.Value( "Silver" ) = &cC0C0C0 srclStrn0mX11Colour.Value( "MediumVioletRed" ) = &cC71585srclStrn*mX11Colour.Value( "IndianRed" ) = &cCD5C5C srclStrn%mX11Colour.Value( "Peru" ) = &cCD853F srclStrn*mX11Colour.Value( "Chocolate" ) = &cD2691E srclStrn$mX11Colour.Value( "Tan" ) = &cD2B48CsrclStrn*mX11Colour.Value( "LightGrey" ) = &cD3D3D3 srclStrn(mX11Colour.Value( "Thistle" ) = &cD8BFD8srclStrn'mX11Colour.Value( "Orchid" ) = &cDA70D6 srclStrn*mX11Colour.Value( "Goldenrod" ) = &cDAA520 srclStrn.mX11Colour.Value( "PaleVioletRed" ) = &cDB7093 srclStrn(mX11Colour.Value( "Crimson" ) = &cDC143CsrclStrn*mX11Colour.Value( "Gainsboro" ) = &cDCDCDC srclStrn%mX11Colour.Value( "Plum" ) = &cDDA0DD srclStrn*mX11Colour.Value( "BurlyWood" ) = &cDEB887 srclStrn*mX11Colour.Value( "LightCyan" ) = &cE0FFFF srclStrn)mX11Colour.Value( "Lavender" ) = &cE6E6FA srclStrn+mX11Colour.Value( "DarkSalmon" ) = &cE9967A srclStrn'mX11Colour.Value( "Violet" ) = &cEE82EE srclStrn.mX11Colour.Value( "PaleGoldenrod" ) = &cEEE8AA srclStrn+mX11Colour.Value( "LightCoral" ) = &cF08080 srclStrn&mX11Colour.Value( "Khaki" ) = &cF0E68C srclStrn*mX11Colour.Value( "AliceBlue" ) = &cF0F8FF srclStrn)mX11Colour.Value( "Honeydew" ) = &cF0FFF0 srclStrn&mX11Colour.Value( "Azure" ) = &cF0FFFF srclStrn+mX11Colour.Value( "SandyBrown" ) = &cF4A460 srclStrn&mX11Colour.Value( "Wheat" ) = &cF5DEB3 srclStrn&mX11Colour.Value( "Beige" ) = &cF5F5DC srclStrn+mX11Colour.Value( "WhiteSmoke" ) = &cF5F5F5 srclStrn*mX11Colour.Value( "MintCream" ) = &cF5FFFA srclStrn+mX11Colour.Value( "GhostWhite" ) = &cF8F8FF srclStrn'mX11Colour.Value( "Salmon" ) = &cFA8072 srclStrn-mX11Colour.Value( "AntiqueWhite" ) = &cFAEBD7 srclStrn&mX11Colour.Value( "Linen" ) = &cFAF0E6 srclStrn5mX11Colour.Value( "LightGoldenrodYellow" ) = &cFAFAD2 srclStrn(mX11Colour.Value( "OldLace" ) = &cFDF5E6srclStrn$mX11Colour.Value( "Red" ) = &cFF0000srclStrn(mX11Colour.Value( "Magenta" ) = &cFF00FFsrclStrn(mX11Colour.Value( "Fuchsia" ) = &cFF00FFsrclStrn)mX11Colour.Value( "DeepPink" ) = &cFF1493 srclStrn*mX11Colour.Value( "OrangeRed" ) = &cFF4500 srclStrn'mX11Colour.Value( "Tomato" ) = &cFF6347 srclStrn(mX11Colour.Value( "HotPink" ) = &cFF69B4srclStrn&mX11Colour.Value( "Coral" ) = &cFF7F50 srclStrn+mX11Colour.Value( "DarkOrange" ) = &cFF8C00 srclStrn,mX11Colour.Value( "LightSalmon" ) = &cFFA07AsrclStrn,mX11Colour.Value( "LightSalmon" ) = &cFFA07AsrclStrn'mX11Colour.Value( "Orange" ) = &cFFA500 srclStrn*mX11Colour.Value( "LightPink" ) = &cFFB6C1 srclStrn%mX11Colour.Value( "Pink" ) = &cFFC0CB srclStrn%mX11Colour.Value( "Gold" ) = &cFFD700 srclStrn*mX11Colour.Value( "PeachPuff" ) = &cFFDAB9 srclStrn,mX11Colour.Value( "NavajoWhite" ) = &cFFDEADsrclStrn)mX11Colour.Value( "Moccasin" ) = &cFFE4B5 srclStrn'mX11Colour.Value( "Bisque" ) = &cFFE4C4 srclStrn*mX11Colour.Value( "MistyRose" ) = &cFFE4E1 srclStrn/mX11Colour.Value( "BlanchedAlmond" ) = &cFFEBCD srclStrn+mX11Colour.Value( "PapayaWhip" ) = &cFFEFD5 srclStrn.mX11Colour.Value( "LavenderBlush" ) = &cFFF0F5 srclStrn)mX11Colour.Value( "Seashell" ) = &cFFF5EE srclStrn)mX11Colour.Value( "Cornsilk" ) = &cFFF8DC srclStrn-mX11Colour.Value( "LemonChiffon" ) = &cFFFACD srclStrn,mX11Colour.Value( "FloralWhite" ) = &cFFFAF0srclStrn%mX11Colour.Value( "Snow" ) = &cFFFAFA srclStrn'mX11Colour.Value( "Yellow" ) = &cFFFF00 srclStrn,mX11Colour.Value( "LightYellow" ) = &cFFFFE0srclStrn&mX11Colour.Value( "Ivory" ) = &cFFFFF0 srclStrn&mX11Colour.Value( "White" ) = &cFFFFFF srclStrnend if srclStrn0return mX11Colour.Lookup( Name , DefaultColour )srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrn1Name As String, DefaultColour as Color = &c000000 rsltStrnColor EndGInt PropGrupXEncoInt declStrnmX11Colour As DictionaryflagInt !CompStrnshrdInt EndGInt VwBhGrupVwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt VwPrGrup`NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt VwPrGrupXNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt VwPrGrupXNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt EndGInt PadnPadn ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupOTabGrupContInt eSptInt EndGInt OTabGrup4ContInt !AltEInt LSptInt ciIDInt EndGInt LsLcStrnColorExtends.X11namerEdtRect FEndGInt PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!