oForm = CREATEOBJECT('colorpickerform') oForm.Show() READ EVENTS DEFINE CLASS colorpickerform AS form Top = 0 Left = 0 Height = 360 Width = 449 DoCreate = .T. Caption = "Color Picker for system.windows.media.color" Name = "ColorPicker" DIMENSION pacolors[1,6] ADD OBJECT colorlist AS listbox WITH ; RowSourceType = 9, ; Height = 300, ; Left = 24, ; Top = 24, ; Width = 204, ; Name = "ColorList" ADD OBJECT text1 AS textbox WITH ; Alignment = 1, ; Height = 23, ; Left = 276, ; Top = 36, ; Width = 144, ; Name = "Text1" ADD OBJECT text2 AS textbox WITH ; Alignment = 1, ; Height = 23, ; Left = 276, ; Top = 72, ; Width = 144, ; Name = "Text2" ADD OBJECT text3 AS textbox WITH ; Alignment = 1, ; Height = 23, ; Left = 277, ; Top = 108, ; Width = 144, ; Name = "Text3" PROCEDURE Init *--Create system.windows.media.color array* Dimension aColors[133,6] aColors[1,1] = 'White' aColors[1,2] = '255' aColors[1,3] = '255' aColors[1,4] = '255' aColors[1,5] = 'RGB(255,255,255)' aColors[1,6] = 16777215 aColors[2,1] = 'WhiteSmoke' aColors[2,2] = '245' aColors[2,3] = '245' aColors[2,4] = '245' aColors[2,5] = 'RGB(245,245,245)' aColors[2,6] = 16119285 aColors[3,1] = 'Gainsboro' aColors[3,2] = '220' aColors[3,3] = '220' aColors[3,4] = '220' aColors[3,5] = 'RGB(220,220,220)' aColors[3,6] = 14474460 aColors[4,1] = 'LightGrey' aColors[4,2] = '211' aColors[4,3] = '211' aColors[4,4] = '211' aColors[4,5] = 'RGB(211,211,211)' aColors[4,6] = 13882323 aColors[5,1] = 'Silver' aColors[5,2] = '192' aColors[5,3] = '192' aColors[5,4] = '192' aColors[5,5] = 'RGB(192,192,192)' aColors[5,6] = 12632256 aColors[6,1] = 'DarkGray' aColors[6,2] = '169' aColors[6,3] = '169' aColors[6,4] = '169' aColors[6,5] = 'RGB(169,169,169)' aColors[6,6] = 11119017 aColors[7,1] = 'Gray' aColors[7,2] = '128' aColors[7,3] = '128' aColors[7,4] = '128' aColors[7,5] = 'RGB(128,128,128)' aColors[7,6] = 8421504 aColors[8,1] = 'DimGray' aColors[8,2] = '105' aColors[8,3] = '105' aColors[8,4] = '105' aColors[8,5] = 'RGB(105,105,105)' aColors[8,6] = 6908265 aColors[9,1] = 'Black' aColors[9,2] = '0' aColors[9,3] = '0' aColors[9,4] = '0' aColors[9,5] = 'RGB(0,0,0)' aColors[9,6] = 0 aColors[10,1] = 'RosyBrown' aColors[10,2] = '188' aColors[10,3] = '143' aColors[10,4] = '143' aColors[10,5] = 'RGB(188,143,143)' aColors[10,6] = 9408444 aColors[11,1] = 'Lightcoral' aColors[11,2] = '240' aColors[11,3] = '128' aColors[11,4] = '128' aColors[11,5] = 'RGB(240,128,128)' aColors[11,6] = 8421616 aColors[12,1] = 'IndianRed' aColors[12,2] = '205' aColors[12,3] = '92' aColors[12,4] = '92' aColors[12,5] = 'RGB(205,92,92)' aColors[12,6] = 6053069 aColors[13,1] = 'Brown' aColors[13,2] = '165' aColors[13,3] = '42' aColors[13,4] = '42' aColors[13,5] = 'RGB(165,42,42)' aColors[13,6] = 2763429 aColors[14,1] = 'FireBrick' aColors[14,2] = '178' aColors[14,3] = '34' aColors[14,4] = '34' aColors[14,5] = 'RGB(178,34,34)' aColors[14,6] = 2237106 aColors[15,1] = 'Red' aColors[15,2] = '255' aColors[15,3] = '0' aColors[15,4] = '0' aColors[15,5] = 'RGB(255,0,0)' aColors[15,6] = 255 aColors[16,1] = 'DarkRed' aColors[16,2] = '139' aColors[16,3] = '0' aColors[16,4] = '0' aColors[16,5] = 'RGB(139,0,0)' aColors[16,6] = 139 aColors[17,1] = 'Maroon' aColors[17,2] = '128' aColors[17,3] = '0' aColors[17,4] = '0' aColors[17,5] = 'RGB(128,0,0)' aColors[17,6] = 128 aColors[18,1] = 'LightPink' aColors[18,2] = '255' aColors[18,3] = '182' aColors[18,4] = '193' aColors[18,5] = 'RGB(255,182,193)' aColors[18,6] = 12695295 aColors[19,1] = 'Crimson' aColors[19,2] = '220' aColors[19,3] = '20' aColors[19,4] = '60' aColors[19,5] = 'RGB(220,20,60)' aColors[19,6] = 3937500 aColors[20,1] = 'PalevioletRed' aColors[20,2] = '219' aColors[20,3] = '112' aColors[20,4] = '147' aColors[20,5] = 'RGB(219,112,147)' aColors[20,6] = 9662683 aColors[21,1] = 'LavenderBlush' aColors[21,2] = '255' aColors[21,3] = '240' aColors[21,4] = '245' aColors[21,5] = 'RGB(255,240,245)' aColors[21,6] = 16118015 aColors[22,1] = 'HotPink' aColors[22,2] = '255' aColors[22,3] = '105' aColors[22,4] = '180' aColors[22,5] = 'RGB(255,105,180)' aColors[22,6] = 11823615 aColors[23,1] = 'DeepPink' aColors[23,2] = '255' aColors[23,3] = '20' aColors[23,4] = '147' aColors[23,5] = 'RGB(255,20,147)' aColors[23,6] = 9639167 aColors[24,1] = 'MediumvioletRed' aColors[24,2] = '199' aColors[24,3] = '21' aColors[24,4] = '133' aColors[24,5] = 'RGB(199,21,133)' aColors[24,6] = 8721863 aColors[25,1] = 'Orchid' aColors[25,2] = '218' aColors[25,3] = '112' aColors[25,4] = '214' aColors[25,5] = 'RGB(218,112,214)' aColors[25,6] = 14053594 aColors[26,1] = 'Thistle' aColors[26,2] = '216' aColors[26,3] = '191' aColors[26,4] = '216' aColors[26,5] = 'RGB(216,191,216)' aColors[26,6] = 14204888 aColors[27,1] = 'Violet' aColors[27,2] = '238' aColors[27,3] = '130' aColors[27,4] = '238' aColors[27,5] = 'RGB(238,130,238)' aColors[27,6] = 15631086 aColors[28,1] = 'Fuchsia' aColors[28,2] = '255' aColors[28,3] = '0' aColors[28,4] = '255' aColors[28,5] = 'RGB(255,0,255)' aColors[28,6] = 16711935 aColors[29,1] = 'Magenta' aColors[29,2] = '255' aColors[29,3] = '0' aColors[29,4] = '255' aColors[29,5] = 'RGB(255,0,255)' aColors[29,6] = 16711935 aColors[30,1] = 'DarkMagenta' aColors[30,2] = '139' aColors[30,3] = '0' aColors[30,4] = '139' aColors[30,5] = 'RGB(139,0,139)' aColors[30,6] = 9109643 aColors[31,1] = 'Purple' aColors[31,2] = '128' aColors[31,3] = '0' aColors[31,4] = '128' aColors[31,5] = 'RGB(128,0,128)' aColors[31,6] = 8388736 aColors[32,1] = 'MediumOrchid' aColors[32,2] = '186' aColors[32,3] = '85' aColors[32,4] = '211' aColors[32,5] = 'RGB(186,85,211)' aColors[32,6] = 13850042 aColors[33,1] = 'DarkViolet' aColors[33,2] = '148' aColors[33,3] = '0' aColors[33,4] = '211' aColors[33,5] = 'RGB(148,0,211)' aColors[33,6] = 13828244 aColors[34,1] = 'DarkOrchid' aColors[34,2] = '153' aColors[34,3] = '50' aColors[34,4] = '204' aColors[34,5] = 'RGB(153,50,204)' aColors[34,6] = 13382297 aColors[35,1] = 'Indigo' aColors[35,2] = '75' aColors[35,3] = '0' aColors[35,4] = '130' aColors[35,5] = 'RGB(75,0,130)' aColors[35,6] = 8519755 aColors[36,1] = 'BlueViolet' aColors[36,2] = '138' aColors[36,3] = '43' aColors[36,4] = '226' aColors[36,5] = 'RGB(138,43,226)' aColors[36,6] = 14822282 aColors[37,1] = 'MediumPurple' aColors[37,2] = '147' aColors[37,3] = '112' aColors[37,4] = '219' aColors[37,5] = 'RGB(147,112,219)' aColors[37,6] = 14381203 aColors[38,1] = 'SlateBlue' aColors[38,2] = '106' aColors[38,3] = '90' aColors[38,4] = '205' aColors[38,5] = 'RGB(106,90,205)' aColors[38,6] = 13458026 aColors[39,1] = 'DarkSlateBlue' aColors[39,2] = '72' aColors[39,3] = '61' aColors[39,4] = '139' aColors[39,5] = 'RGB(72,61,139)' aColors[39,6] = 9125192 aColors[40,1] = 'MediumSlateBlue' aColors[40,2] = '123' aColors[40,3] = '104' aColors[40,4] = '238' aColors[40,5] = 'RGB(123,104,238)' aColors[40,6] = 15624315 aColors[41,1] = 'GhostWhite' aColors[41,2] = '248' aColors[41,3] = '248' aColors[41,4] = '255' aColors[41,5] = 'RGB(248,248,255)' aColors[41,6] = 16775416 aColors[42,1] = 'Lavender' aColors[42,2] = '230' aColors[42,3] = '230' aColors[42,4] = '250' aColors[42,5] = 'RGB(230,230,250)' aColors[42,6] = 16443110 aColors[43,1] = 'MidnightBlue' aColors[43,2] = '25' aColors[43,3] = '25' aColors[43,4] = '112' aColors[43,5] = 'RGB(25,25,112)' aColors[43,6] = 7346457 aColors[44,1] = 'Blue' aColors[44,2] = '0' aColors[44,3] = '0' aColors[44,4] = '255' aColors[44,5] = 'RGB(0,0,255)' aColors[44,6] = 16711680 aColors[45,1] = 'MediumBlue' aColors[45,2] = '0' aColors[45,3] = '0' aColors[45,4] = '205' aColors[45,5] = 'RGB(0,0,205)' aColors[45,6] = 13434880 aColors[46,1] = 'DarkBlue' aColors[46,2] = '0' aColors[46,3] = '0' aColors[46,4] = '139' aColors[46,5] = 'RGB(0,0,139)' aColors[46,6] = 9109504 aColors[47,1] = 'Navy' aColors[47,2] = '0' aColors[47,3] = '0' aColors[47,4] = '128' aColors[47,5] = 'RGB(0,0,128)' aColors[47,6] = 8388608 aColors[48,1] = 'RoyalBlue' aColors[48,2] = '65' aColors[48,3] = '105' aColors[48,4] = '225' aColors[48,5] = 'RGB(65,105,225)' aColors[48,6] = 14772545 aColors[49,1] = 'CornflowerBlue' aColors[49,2] = '100' aColors[49,3] = '149' aColors[49,4] = '237' aColors[49,5] = 'RGB(100,149,237)' aColors[49,6] = 15570276 aColors[50,1] = 'LightSteelBlue' aColors[50,2] = '176' aColors[50,3] = '196' aColors[50,4] = '222' aColors[50,5] = 'RGB(176,196,222)' aColors[50,6] = 14599344 aColors[51,1] = 'LightSlateGray' aColors[51,2] = '119' aColors[51,3] = '136' aColors[51,4] = '153' aColors[51,5] = 'RGB(119,136,153)' aColors[51,6] = 10061943 aColors[52,1] = 'SlateGray' aColors[52,2] = '112' aColors[52,3] = '128' aColors[52,4] = '144' aColors[52,5] = 'RGB(112,128,144)' aColors[52,6] = 9470064 aColors[53,1] = 'DodgerBlue' aColors[53,2] = '30' aColors[53,3] = '144' aColors[53,4] = '255' aColors[53,5] = 'RGB(30,144,255)' aColors[53,6] = 16748574 aColors[54,1] = 'AliceBlue' aColors[54,2] = '240' aColors[54,3] = '248' aColors[54,4] = '255' aColors[54,5] = 'RGB(240,248,255)' aColors[54,6] = 16775408 aColors[55,1] = 'SteelBlue' aColors[55,2] = '70' aColors[55,3] = '130' aColors[55,4] = '180' aColors[55,5] = 'RGB(70,130,180)' aColors[55,6] = 11829830 aColors[56,1] = 'LightSkyBlue' aColors[56,2] = '135' aColors[56,3] = '206' aColors[56,4] = '250' aColors[56,5] = 'RGB(135,206,250)' aColors[56,6] = 16436871 aColors[57,1] = 'SkyBlue' aColors[57,2] = '135' aColors[57,3] = '206' aColors[57,4] = '235' aColors[57,5] = 'RGB(135,206,235)' aColors[57,6] = 15453831 aColors[58,1] = 'DeepSkyBlue' aColors[58,2] = '0' aColors[58,3] = '191' aColors[58,4] = '255' aColors[58,5] = 'RGB(0,191,255)' aColors[58,6] = 16760576 aColors[59,1] = 'LightBlue' aColors[59,2] = '173' aColors[59,3] = '216' aColors[59,4] = '230' aColors[59,5] = 'RGB(173,216,230)' aColors[59,6] = 15128749 aColors[60,1] = 'PowderBlue' aColors[60,2] = '176' aColors[60,3] = '224' aColors[60,4] = '230' aColors[60,5] = 'RGB(176,224,230)' aColors[60,6] = 15130800 aColors[61,1] = 'CadetBlue' aColors[61,2] = '95' aColors[61,3] = '158' aColors[61,4] = '160' aColors[61,5] = 'RGB(95,158,160)' aColors[61,6] = 10526303 aColors[62,1] = 'DarkTurquoise' aColors[62,2] = '0' aColors[62,3] = '206' aColors[62,4] = '209' aColors[62,5] = 'RGB(0,206,209)' aColors[62,6] = 13749760 aColors[63,1] = 'Azure' aColors[63,2] = '240' aColors[63,3] = '255' aColors[63,4] = '255' aColors[63,5] = 'RGB(240,255,255)' aColors[63,6] = 16777200 aColors[64,1] = 'LightCyan' aColors[64,2] = '224' aColors[64,3] = '255' aColors[64,4] = '255' aColors[64,5] = 'RGB(224,255,255)' aColors[64,6] = 16777184 aColors[65,1] = 'PaleTurquoise' aColors[65,2] = '175' aColors[65,3] = '238' aColors[65,4] = '238' aColors[65,5] = 'RGB(175,238,238)' aColors[65,6] = 15658671 aColors[66,1] = 'DarkSlateGray' aColors[66,2] = '47' aColors[66,3] = '79' aColors[66,4] = '79' aColors[66,5] = 'RGB(47,79,79)' aColors[66,6] = 5197615 aColors[67,1] = 'Aqua' aColors[67,2] = '0' aColors[67,3] = '255' aColors[67,4] = '255' aColors[67,5] = 'RGB(0,255,255)' aColors[67,6] = 16776960 aColors[68,1] = 'DarkCyan' aColors[68,2] = '0' aColors[68,3] = '139' aColors[68,4] = '139' aColors[68,5] = 'RGB(0,139,139)' aColors[68,6] = 9145088 aColors[69,1] = 'Teal' aColors[69,2] = '0' aColors[69,3] = '128' aColors[69,4] = '128' aColors[69,5] = 'RGB(0,128,128)' aColors[69,6] = 8421376 aColors[70,1] = 'MediumTurquoise' aColors[70,2] = '72' aColors[70,3] = '209' aColors[70,4] = '204' aColors[70,5] = 'RGB(72,209,204)' aColors[70,6] = 13422920 aColors[71,1] = 'LightSeaGreen' aColors[71,2] = '32' aColors[71,3] = '178' aColors[71,4] = '170' aColors[71,5] = 'RGB(32,178,170)' aColors[71,6] = 11186720 aColors[72,1] = 'Turquoise' aColors[72,2] = '64' aColors[72,3] = '224' aColors[72,4] = '208' aColors[72,5] = 'RGB(64,224,208)' aColors[72,6] = 13688896 aColors[73,1] = 'Aquamarine' aColors[73,2] = '127' aColors[73,3] = '205' aColors[73,4] = '170' aColors[73,5] = 'RGB(127,205,170)' aColors[73,6] = 11193727 aColors[74,1] = 'MediumAquamarine' aColors[74,2] = '102' aColors[74,3] = '205' aColors[74,4] = '170' aColors[74,5] = 'RGB(102,205,170)' aColors[74,6] = 11193702 aColors[75,1] = 'MediumSpringGreen' aColors[75,2] = '0' aColors[75,3] = '250' aColors[75,4] = '154' aColors[75,5] = 'RGB(0,250,154)' aColors[75,6] = 10156544 aColors[76,1] = 'MintCream' aColors[76,2] = '245' aColors[76,3] = '255' aColors[76,4] = '250' aColors[76,5] = 'RGB(245,255,250)' aColors[76,6] = 16449525 aColors[77,1] = 'SpringGreen' aColors[77,2] = '0' aColors[77,3] = '255' aColors[77,4] = '127' aColors[77,5] = 'RGB(0,255,127)' aColors[77,6] = 8388352 aColors[78,1] = 'MediumSeaGreen' aColors[78,2] = '60' aColors[78,3] = '179' aColors[78,4] = '113' aColors[78,5] = 'RGB(60,179,113)' aColors[78,6] = 7451452 aColors[79,1] = 'SeaGreen' aColors[79,2] = '46' aColors[79,3] = '139' aColors[79,4] = '87' aColors[79,5] = 'RGB(46,139,87)' aColors[79,6] = 5737262 aColors[80,1] = 'honeydew' aColors[80,2] = '240' aColors[80,3] = '255' aColors[80,4] = '240' aColors[80,5] = 'RGB(240,255,240)' aColors[80,6] = 15794160 aColors[81,1] = 'DarkSeaGreen' aColors[81,2] = '143' aColors[81,3] = '188' aColors[81,4] = '143' aColors[81,5] = 'RGB(143,188,143)' aColors[81,6] = 9419919 aColors[82,1] = 'PaleGreen' aColors[82,2] = '152' aColors[82,3] = '251' aColors[82,4] = '152' aColors[82,5] = 'RGB(152,251,152)' aColors[82,6] = 10025880 aColors[83,1] = 'LightGreen' aColors[83,2] = '144' aColors[83,3] = '238' aColors[83,4] = '144' aColors[83,5] = 'RGB(144,238,144)' aColors[83,6] = 9498256 aColors[84,1] = 'ForestGreen' aColors[84,2] = '34' aColors[84,3] = '139' aColors[84,4] = '34' aColors[84,5] = 'RGB(34,139,34)' aColors[84,6] = 2263842 aColors[85,1] = 'LimeGreen' aColors[85,2] = '50' aColors[85,3] = '205' aColors[85,4] = '50' aColors[85,5] = 'RGB(50,205,50)' aColors[85,6] = 3329330 aColors[86,1] = 'Lime' aColors[86,2] = '0' aColors[86,3] = '255' aColors[86,4] = '0' aColors[86,5] = 'RGB(0,255,0)' aColors[86,6] = 65280 aColors[87,1] = 'Green' aColors[87,2] = '0' aColors[87,3] = '128' aColors[87,4] = '0' aColors[87,5] = 'RGB(0,128,0)' aColors[87,6] = 32768 aColors[88,1] = 'DarkGreen' aColors[88,2] = '0' aColors[88,3] = '100' aColors[88,4] = '0' aColors[88,5] = 'RGB(0,100,0)' aColors[88,6] = 25600 aColors[89,1] = 'LawnGreen' aColors[89,2] = '124' aColors[89,3] = '252' aColors[89,4] = '0' aColors[89,5] = 'RGB(124,252,0)' aColors[89,6] = 64636 aColors[90,1] = 'Chartreuse' aColors[90,2] = '127' aColors[90,3] = '255' aColors[90,4] = '0' aColors[90,5] = 'RGB(127,255,0)' aColors[90,6] = 65407 aColors[91,1] = 'GreenYellow' aColors[91,2] = '173' aColors[91,3] = '255' aColors[91,4] = '47' aColors[91,5] = 'RGB(173,255,47)' aColors[91,6] = 3145645 aColors[92,1] = 'DarkOliveGreen' aColors[92,2] = '85' aColors[92,3] = '107' aColors[92,4] = '47' aColors[92,5] = 'RGB(85,107,47)' aColors[92,6] = 3107669 aColors[93,1] = 'YellowGreen' aColors[93,2] = '154' aColors[93,3] = '205' aColors[93,4] = '50' aColors[93,5] = 'RGB(154,205,50)' aColors[93,6] = 3329434 aColors[94,1] = 'OliveDrab' aColors[94,2] = '107' aColors[94,3] = '142' aColors[94,4] = '35' aColors[94,5] = 'RGB(107,142,35)' aColors[94,6] = 2330219 aColors[95,1] = 'Ivory' aColors[95,2] = '255' aColors[95,3] = '255' aColors[95,4] = '240' aColors[95,5] = 'RGB(255,255,240)' aColors[95,6] = 15794175 aColors[96,1] = 'Beige' aColors[96,2] = '245' aColors[96,3] = '245' aColors[96,4] = '220' aColors[96,5] = 'RGB(245,245,220)' aColors[96,6] = 14480885 aColors[97,1] = 'LightYellow' aColors[97,2] = '255' aColors[97,3] = '255' aColors[97,4] = '224' aColors[97,5] = 'RGB(255,255,224)' aColors[97,6] = 14745599 aColors[98,1] = 'LightGoldenrodYellow' aColors[98,2] = '250' aColors[98,3] = '250' aColors[98,4] = '210' aColors[98,5] = 'RGB(250,250,210)' aColors[98,6] = 13826810 aColors[99,1] = 'Yellow' aColors[99,2] = '255' aColors[99,3] = '255' aColors[99,4] = '0' aColors[99,5] = 'RGB(255,255,0)' aColors[99,6] = 65535 aColors[100,1] = 'Olive' aColors[100,2] = '128' aColors[100,3] = '128' aColors[100,4] = '0' aColors[100,5] = 'RGB(128,128,0)' aColors[100,6] = 32896 aColors[101,1] = 'DarkKhaki' aColors[101,2] = '189' aColors[101,3] = '183' aColors[101,4] = '107' aColors[101,5] = 'RGB(189,183,107)' aColors[101,6] = 7059389 aColors[102,1] = 'PaleGoldenrod' aColors[102,2] = '238' aColors[102,3] = '232' aColors[102,4] = '170' aColors[102,5] = 'RGB(238,232,170)' aColors[102,6] = 11200750 aColors[103,1] = 'LemonChiffon' aColors[103,2] = '255' aColors[103,3] = '250' aColors[103,4] = '205' aColors[103,5] = 'RGB(255,250,205)' aColors[103,6] = 13499135 aColors[104,1] = 'Khaki' aColors[104,2] = '240' aColors[104,3] = '230' aColors[104,4] = '140' aColors[104,5] = 'RGB(240,230,140)' aColors[104,6] = 9234160 aColors[105,1] = 'Cornsilk' aColors[105,2] = '255' aColors[105,3] = '248' aColors[105,4] = '220' aColors[105,5] = 'RGB(255,248,220)' aColors[105,6] = 14481663 aColors[106,1] = 'Goldenrod' aColors[106,2] = '218' aColors[106,3] = '165' aColors[106,4] = '32' aColors[106,5] = 'RGB(218,165,32)' aColors[106,6] = 2139610 aColors[107,1] = 'DarkGoldenrod' aColors[107,2] = '184' aColors[107,3] = '134' aColors[107,4] = '11' aColors[107,5] = 'RGB(184,134,11)' aColors[107,6] = 755384 aColors[108,1] = 'FloralWhite' aColors[108,2] = '255' aColors[108,3] = '250' aColors[108,4] = '240' aColors[108,5] = 'RGB(255,250,240)' aColors[108,6] = 15792895 aColors[109,1] = 'OldLace' aColors[109,2] = '253' aColors[109,3] = '245' aColors[109,4] = '230' aColors[109,5] = 'RGB(253,245,230)' aColors[109,6] = 15136253 aColors[110,1] = 'Wheat' aColors[110,2] = '245' aColors[110,3] = '222' aColors[110,4] = '179' aColors[110,5] = 'RGB(245,222,179)' aColors[110,6] = 11788021 aColors[111,1] = 'Orange' aColors[111,2] = '255' aColors[111,3] = '165' aColors[111,4] = '0' aColors[111,5] = 'RGB(255,165,0)' aColors[111,6] = 42495 aColors[112,1] = 'Moccasin' aColors[112,2] = '255' aColors[112,3] = '228' aColors[112,4] = '181' aColors[112,5] = 'RGB(255,228,181)' aColors[112,6] = 11920639 aColors[113,1] = 'PapayaWhip' aColors[113,2] = '255' aColors[113,3] = '239' aColors[113,4] = '213' aColors[113,5] = 'RGB(255,239,213)' aColors[113,6] = 14020607 aColors[114,1] = 'BlanchedAlmond' aColors[114,2] = '255' aColors[114,3] = '235' aColors[114,4] = '205' aColors[114,5] = 'RGB(255,235,205)' aColors[114,6] = 13495295 aColors[115,1] = 'NavajoWhite' aColors[115,2] = '255' aColors[115,3] = '222' aColors[115,4] = '173' aColors[115,5] = 'RGB(255,222,173)' aColors[115,6] = 11394815 aColors[116,1] = 'AntiqueWhite' aColors[116,2] = '250' aColors[116,3] = '235' aColors[116,4] = '215' aColors[116,5] = 'RGB(250,235,215)' aColors[116,6] = 14150650 aColors[117,1] = 'Burlywood' aColors[117,2] = '222' aColors[117,3] = '184' aColors[117,4] = '135' aColors[117,5] = 'RGB(222,184,135)' aColors[117,6] = 8894686 aColors[118,1] = 'DarkOrange' aColors[118,2] = '255' aColors[118,3] = '140' aColors[118,4] = '0' aColors[118,5] = 'RGB(255,140,0)' aColors[118,6] = 36095 aColors[119,1] = 'Bisque' aColors[119,2] = '255' aColors[119,3] = '228' aColors[119,4] = '196' aColors[119,5] = 'RGB(255,228,196)' aColors[119,6] = 12903679 aColors[120,1] = 'Linen' aColors[120,2] = '250' aColors[120,3] = '240' aColors[120,4] = '230' aColors[120,5] = 'RGB(250,240,230)' aColors[120,6] = 15134970 aColors[121,1] = 'PeachPuff' aColors[121,2] = '255' aColors[121,3] = '218' aColors[121,4] = '185' aColors[121,5] = 'RGB(255,218,185)' aColors[121,6] = 12180223 aColors[122,1] = 'SandyBrown' aColors[122,2] = '244' aColors[122,3] = '164' aColors[122,4] = '96' aColors[122,5] = 'RGB(244,164,96)' aColors[122,6] = 6333684 aColors[123,1] = 'Seashell' aColors[123,2] = '255' aColors[123,3] = '245' aColors[123,4] = '238' aColors[123,5] = 'RGB(255,245,238)' aColors[123,6] = 15660543 aColors[124,1] = 'Chocolate' aColors[124,2] = '210' aColors[124,3] = '105' aColors[124,4] = '30' aColors[124,5] = 'RGB(210,105,30)' aColors[124,6] = 1993170 aColors[125,1] = 'SaddleBrown' aColors[125,2] = '139' aColors[125,3] = '69' aColors[125,4] = '19' aColors[125,5] = 'RGB(139,69,19)' aColors[125,6] = 1262987 aColors[126,1] = 'Sienna' aColors[126,2] = '160' aColors[126,3] = '82' aColors[126,4] = '45' aColors[126,5] = 'RGB(160,82,45)' aColors[126,6] = 2970272 aColors[127,1] = 'LightSalmon' aColors[127,2] = '255' aColors[127,3] = '160' aColors[127,4] = '122' aColors[127,5] = 'RGB(255,160,122)' aColors[127,6] = 8036607 aColors[128,1] = 'Coral' aColors[128,2] = '255' aColors[128,3] = '127' aColors[128,4] = '80' aColors[128,5] = 'RGB(255,127,80)' aColors[128,6] = 5275647 aColors[129,1] = 'OrangeRed' aColors[129,2] = '255' aColors[129,3] = '69' aColors[129,4] = '0' aColors[129,5] = 'RGB(255,69,0)' aColors[129,6] = 17919 aColors[130,1] = 'DarkSalmon' aColors[130,2] = '233' aColors[130,3] = '150' aColors[130,4] = '122' aColors[130,5] = 'RGB(233,150,122)' aColors[130,6] = 8034025 aColors[131,1] = 'Tomato' aColors[131,2] = '255' aColors[131,3] = '99' aColors[131,4] = '71' aColors[131,5] = 'RGB(255,99,71)' aColors[131,6] = 4678655 aColors[132,1] = 'MistyRose' aColors[132,2] = '255' aColors[132,3] = '228' aColors[132,4] = '225' aColors[132,5] = 'RGB(255,228,225)' aColors[132,6] = 14804223 aColors[133,1] = 'Salmon' aColors[133,2] = '250' aColors[133,3] = '128' aColors[133,4] = '114' aColors[133,5] = 'RGB(250,128,114)' aColors[133,6] = 7504122 DIMENSION THISFORM.paColors[ALEN(aColors,1),6] =ACOPY(aColors,THISFORM.paColors) ENDPROC PROCEDURE colorlist.Init PUBLIC ColorPopup DEFINE POPUP ColorPopup DEFINE BAR 1 OF ColorPopup ; PROMPT 'White'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,255,255) DEFINE BAR 2 OF ColorPopup ; PROMPT 'WhiteSmoke'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,245,245,245) DEFINE BAR 3 OF ColorPopup ; PROMPT 'Gainsboro'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,220,220,220) DEFINE BAR 4 OF ColorPopup ; PROMPT 'LightGrey'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,211,211,211) DEFINE BAR 5 OF ColorPopup ; PROMPT 'Silver'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,192,192,192) DEFINE BAR 6 OF ColorPopup ; PROMPT 'DarkGray'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,169,169,169) DEFINE BAR 7 OF ColorPopup ; PROMPT 'Gray'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,128,128,128) DEFINE BAR 8 OF ColorPopup ; PROMPT 'DimGray'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,105,105,105) DEFINE BAR 9 OF ColorPopup ; PROMPT 'Black'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,0,0) DEFINE BAR 10 OF ColorPopup ; PROMPT 'RosyBrown'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,188,143,143) DEFINE BAR 11 OF ColorPopup ; PROMPT 'Lightcoral'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,240,128,128) DEFINE BAR 12 OF ColorPopup ; PROMPT 'IndianRed'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,205,92,92) DEFINE BAR 13 OF ColorPopup ; PROMPT 'Brown'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,165,42,42) DEFINE BAR 14 OF ColorPopup ; PROMPT 'FireBrick'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,178,34,34) DEFINE BAR 15 OF ColorPopup ; PROMPT 'Red'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,0,0) DEFINE BAR 16 OF ColorPopup ; PROMPT 'DarkRed'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,139,0,0) DEFINE BAR 17 OF ColorPopup ; PROMPT 'Maroon'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,128,0,0) DEFINE BAR 18 OF ColorPopup ; PROMPT 'LightPink'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,182,193) DEFINE BAR 19 OF ColorPopup ; PROMPT 'Crimson'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,220,20,60) DEFINE BAR 20 OF ColorPopup ; PROMPT 'PalevioletRed'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,219,112,147) DEFINE BAR 21 OF ColorPopup ; PROMPT 'LavenderBlush'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,240,245) DEFINE BAR 22 OF ColorPopup ; PROMPT 'HotPink'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,105,180) DEFINE BAR 23 OF ColorPopup ; PROMPT 'DeepPink'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,20,147) DEFINE BAR 24 OF ColorPopup ; PROMPT 'MediumvioletRed'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,199,21,133) DEFINE BAR 25 OF ColorPopup ; PROMPT 'Orchid'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,218,112,214) DEFINE BAR 26 OF ColorPopup ; PROMPT 'Thistle'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,216,191,216) DEFINE BAR 27 OF ColorPopup ; PROMPT 'Violet'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,238,130,238) DEFINE BAR 28 OF ColorPopup ; PROMPT 'Fuchsia'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,0,255) DEFINE BAR 29 OF ColorPopup ; PROMPT 'Magenta'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,0,255) DEFINE BAR 30 OF ColorPopup ; PROMPT 'DarkMagenta'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,139,0,139) DEFINE BAR 31 OF ColorPopup ; PROMPT 'Purple'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,128,0,128) DEFINE BAR 32 OF ColorPopup ; PROMPT 'MediumOrchid'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,186,85,211) DEFINE BAR 33 OF ColorPopup ; PROMPT 'DarkViolet'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,148,0,211) DEFINE BAR 34 OF ColorPopup ; PROMPT 'DarkOrchid'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,153,50,204) DEFINE BAR 35 OF ColorPopup ; PROMPT 'Indigo'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,75,0,130) DEFINE BAR 36 OF ColorPopup ; PROMPT 'BlueViolet'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,138,43,226) DEFINE BAR 37 OF ColorPopup ; PROMPT 'MediumPurple'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,147,112,219) DEFINE BAR 38 OF ColorPopup ; PROMPT 'SlateBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,106,90,205) DEFINE BAR 39 OF ColorPopup ; PROMPT 'DarkSlateBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,72,61,139) DEFINE BAR 40 OF ColorPopup ; PROMPT 'MediumSlateBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,123,104,238) DEFINE BAR 41 OF ColorPopup ; PROMPT 'GhostWhite'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,248,248,255) DEFINE BAR 42 OF ColorPopup ; PROMPT 'Lavender'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,230,230,250) DEFINE BAR 43 OF ColorPopup ; PROMPT 'MidnightBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,25,25,112) DEFINE BAR 44 OF ColorPopup ; PROMPT 'Blue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,0,255) DEFINE BAR 45 OF ColorPopup ; PROMPT 'MediumBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,0,205) DEFINE BAR 46 OF ColorPopup ; PROMPT 'DarkBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,0,139) DEFINE BAR 47 OF ColorPopup ; PROMPT 'Navy'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,0,128) DEFINE BAR 48 OF ColorPopup ; PROMPT 'RoyalBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,65,105,225) DEFINE BAR 49 OF ColorPopup ; PROMPT 'CornflowerBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,100,149,237) DEFINE BAR 50 OF ColorPopup ; PROMPT 'LightSteelBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,176,196,222) DEFINE BAR 51 OF ColorPopup ; PROMPT 'LightSlateGray'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,119,136,153) DEFINE BAR 52 OF ColorPopup ; PROMPT 'SlateGray'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,112,128,144) DEFINE BAR 53 OF ColorPopup ; PROMPT 'DodgerBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,30,144,255) DEFINE BAR 54 OF ColorPopup ; PROMPT 'AliceBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,240,248,255) DEFINE BAR 55 OF ColorPopup ; PROMPT 'SteelBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,70,130,180) DEFINE BAR 56 OF ColorPopup ; PROMPT 'LightSkyBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,135,206,250) DEFINE BAR 57 OF ColorPopup ; PROMPT 'SkyBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,135,206,235) DEFINE BAR 58 OF ColorPopup ; PROMPT 'DeepSkyBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,0,191,255) DEFINE BAR 59 OF ColorPopup ; PROMPT 'LightBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,173,216,230) DEFINE BAR 60 OF ColorPopup ; PROMPT 'PowderBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,176,224,230) DEFINE BAR 61 OF ColorPopup ; PROMPT 'CadetBlue'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,95,158,160) DEFINE BAR 62 OF ColorPopup ; PROMPT 'DarkTurquoise'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,0,206,209) DEFINE BAR 63 OF ColorPopup ; PROMPT 'Azure'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,240,255,255) DEFINE BAR 64 OF ColorPopup ; PROMPT 'LightCyan'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,224,255,255) DEFINE BAR 65 OF ColorPopup ; PROMPT 'PaleTurquoise'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,175,238,238) DEFINE BAR 66 OF ColorPopup ; PROMPT 'DarkSlateGray'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,47,79,79) DEFINE BAR 67 OF ColorPopup ; PROMPT 'Aqua'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,0,255,255) DEFINE BAR 68 OF ColorPopup ; PROMPT 'DarkCyan'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,139,139) DEFINE BAR 69 OF ColorPopup ; PROMPT 'Teal'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,128,128) DEFINE BAR 70 OF ColorPopup ; PROMPT 'MediumTurquoise'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,72,209,204) DEFINE BAR 71 OF ColorPopup ; PROMPT 'LightSeaGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,32,178,170) DEFINE BAR 72 OF ColorPopup ; PROMPT 'Turquoise'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,64,224,208) DEFINE BAR 73 OF ColorPopup ; PROMPT 'Aquamarine'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,127,205,170) DEFINE BAR 74 OF ColorPopup ; PROMPT 'MediumAquamarine'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,102,205,170) DEFINE BAR 75 OF ColorPopup ; PROMPT 'MediumSpringGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,0,250,154) DEFINE BAR 76 OF ColorPopup ; PROMPT 'MintCream'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,245,255,250) DEFINE BAR 77 OF ColorPopup ; PROMPT 'SpringGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,0,255,127) DEFINE BAR 78 OF ColorPopup ; PROMPT 'MediumSeaGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,60,179,113) DEFINE BAR 79 OF ColorPopup ; PROMPT 'SeaGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,46,139,87) DEFINE BAR 80 OF ColorPopup ; PROMPT 'honeydew'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,240,255,240) DEFINE BAR 81 OF ColorPopup ; PROMPT 'DarkSeaGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,143,188,143) DEFINE BAR 82 OF ColorPopup ; PROMPT 'PaleGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,152,251,152) DEFINE BAR 83 OF ColorPopup ; PROMPT 'LightGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,144,238,144) DEFINE BAR 84 OF ColorPopup ; PROMPT 'ForestGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,34,139,34) DEFINE BAR 85 OF ColorPopup ; PROMPT 'LimeGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,50,205,50) DEFINE BAR 86 OF ColorPopup ; PROMPT 'Lime'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,0,255,0) DEFINE BAR 87 OF ColorPopup ; PROMPT 'Green'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,128,0) DEFINE BAR 88 OF ColorPopup ; PROMPT 'DarkGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,0,100,0) DEFINE BAR 89 OF ColorPopup ; PROMPT 'LawnGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,124,252,0) DEFINE BAR 90 OF ColorPopup ; PROMPT 'Chartreuse'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,127,255,0) DEFINE BAR 91 OF ColorPopup ; PROMPT 'GreenYellow'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,173,255,47) DEFINE BAR 92 OF ColorPopup ; PROMPT 'DarkOliveGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,85,107,47) DEFINE BAR 93 OF ColorPopup ; PROMPT 'YellowGreen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,154,205,50) DEFINE BAR 94 OF ColorPopup ; PROMPT 'OliveDrab'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,107,142,35) DEFINE BAR 95 OF ColorPopup ; PROMPT 'Ivory'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,255,240) DEFINE BAR 96 OF ColorPopup ; PROMPT 'Beige'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,245,245,220) DEFINE BAR 97 OF ColorPopup ; PROMPT 'LightYellow'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,255,224) DEFINE BAR 98 OF ColorPopup ; PROMPT 'LightGoldenrodYellow'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,250,250,210) DEFINE BAR 99 OF ColorPopup ; PROMPT 'Yellow'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,255,0) DEFINE BAR 100 OF ColorPopup ; PROMPT 'Olive'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,128,128,0) DEFINE BAR 101 OF ColorPopup ; PROMPT 'DarkKhaki'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,189,183,107) DEFINE BAR 102 OF ColorPopup ; PROMPT 'PaleGoldenrod'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,238,232,170) DEFINE BAR 103 OF ColorPopup ; PROMPT 'LemonChiffon'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,250,205) DEFINE BAR 104 OF ColorPopup ; PROMPT 'Khaki'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,240,230,140) DEFINE BAR 105 OF ColorPopup ; PROMPT 'Cornsilk'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,248,220) DEFINE BAR 106 OF ColorPopup ; PROMPT 'Goldenrod'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,218,165,32) DEFINE BAR 107 OF ColorPopup ; PROMPT 'DarkGoldenrod'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,184,134,11) DEFINE BAR 108 OF ColorPopup ; PROMPT 'FloralWhite'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,250,240) DEFINE BAR 109 OF ColorPopup ; PROMPT 'OldLace'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,253,245,230) DEFINE BAR 110 OF ColorPopup ; PROMPT 'Wheat'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,245,222,179) DEFINE BAR 111 OF ColorPopup ; PROMPT 'Orange'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,165,0) DEFINE BAR 112 OF ColorPopup ; PROMPT 'Moccasin'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,228,181) DEFINE BAR 113 OF ColorPopup ; PROMPT 'PapayaWhip'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,239,213) DEFINE BAR 114 OF ColorPopup ; PROMPT 'BlanchedAlmond'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,235,205) DEFINE BAR 115 OF ColorPopup ; PROMPT 'NavajoWhite'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,222,173) DEFINE BAR 116 OF ColorPopup ; PROMPT 'AntiqueWhite'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,250,235,215) DEFINE BAR 117 OF ColorPopup ; PROMPT 'Burlywood'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,222,184,135) DEFINE BAR 118 OF ColorPopup ; PROMPT 'DarkOrange'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,140,0) DEFINE BAR 119 OF ColorPopup ; PROMPT 'Bisque'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,228,196) DEFINE BAR 120 OF ColorPopup ; PROMPT 'Linen'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,250,240,230) DEFINE BAR 121 OF ColorPopup ; PROMPT 'PeachPuff'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,218,185) DEFINE BAR 122 OF ColorPopup ; PROMPT 'SandyBrown'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,244,164,96) DEFINE BAR 123 OF ColorPopup ; PROMPT 'Seashell'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,245,238) DEFINE BAR 124 OF ColorPopup ; PROMPT 'Chocolate'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,210,105,30) DEFINE BAR 125 OF ColorPopup ; PROMPT 'SaddleBrown'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,139,69,19) DEFINE BAR 126 OF ColorPopup ; PROMPT 'Sienna'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,160,82,45) DEFINE BAR 127 OF ColorPopup ; PROMPT 'LightSalmon'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,160,122) DEFINE BAR 128 OF ColorPopup ; PROMPT 'Coral'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,127,80) DEFINE BAR 129 OF ColorPopup ; PROMPT 'OrangeRed'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,69,0) DEFINE BAR 130 OF ColorPopup ; PROMPT 'DarkSalmon'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,233,150,122) DEFINE BAR 131 OF ColorPopup ; PROMPT 'Tomato'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,255,99,71) DEFINE BAR 132 OF ColorPopup ; PROMPT 'MistyRose'; FONT 'Arial',9 style 'B' ; COLOR , RGB(0,0,0,255,228,225) DEFINE BAR 133 OF ColorPopup ; PROMPT 'Salmon'; FONT 'Arial',9 style 'B' ; COLOR , RGB(255,255,255,250,128,114) this.RowSource = "ColorPopup" ENDPROC PROCEDURE Destroy CLEAR EVENTS ENDPROC PROCEDURE colorlist.DblClick thisform.text1.value = this.list[this.listindex] thisform.text2.value = thisform.paColors[this.listindex,5] thisform.text3.value = thisform.paColors[this.listindex,6] ENDPROC ENDDEFINE