const
{$IFDEF PAIDVERS}
SDLVersionInfo = 'sdlcolors_r1050_full';
IsLightEd = false;
{$ELSE}
SDLVersionInfo = 'sdlcolors_r1050_lighted';
IsLightEd = true;
{$ENDIF}
release = 1050;
{$IFDEF ISCLX}
clMoneyGreen = TColor($00C0DCC0);
clCream = TColor($00F0FBFF);
clMedGray = TColor($00A4A0A0);
{$ENDIF}
{$IFNDEF GE_LEV6} // these colors have been made available with Delphi 6
clMoneyGreen = TColor($00C0DCC0);
clCream = TColor($00F0FBFF);
clMedGray = TColor($00A4A0A0);
{$ENDIF}
clAliceBlue = TColor($00FFF8F0);
clAntiqueWhite = TColor($00D7EBFA);
clAntiqueWhite1 = TColor($00DBEFFF);
clAntiqueWhite2 = TColor($00CCDFEE);
clAntiqueWhite3 = TColor($00B0C0CD);
clAntiqueWhite4 = TColor($0078838B);
clAquamarine = TColor($00D4FF7F);
clAquamarine1 = TColor($00D4FF7F);
clAquamarine2 = TColor($00C6EE76);
clAquamarine3 = TColor($00AACD66);
clAquamarine4 = TColor($00748B45);
clAzure = TColor($00FFFFF0);
clAzure1 = TColor($00FFFFF0);
clAzure2 = TColor($00EEEEE0);
clAzure3 = TColor($00CDCDC1);
clAzure4 = TColor($008B8B83);
clBeige = TColor($00DCF5F5);
clBisque = TColor($00C4E4FF);
clBisque1 = TColor($00C4E4FF);
clBisque2 = TColor($00B7D5EE);
clBisque3 = TColor($009EB7CD);
clBisque4 = TColor($006B7D8B);
clBlanchedAlmond = TColor($00CDEBFF);
clBlue1 = TColor($00FF0000);
clBlue2 = TColor($00EE0000);
clBlue3 = TColor($00CD0000);
clBlue4 = TColor($008B0000);
clBlueViolet = TColor($00E22B8A);
clBronze = TColor($00778899);
clBrown = TColor($002A2AA5);
clBrown1 = TColor($004040FF);
clBrown2 = TColor($003B3BEE);
clBrown3 = TColor($003333CD);
clBrown4 = TColor($0023238B);
clBurlyWood = TColor($0087B8DE);
clBurlyWood1 = TColor($009BD3FF);
clBurlyWood2 = TColor($0091C5EE);
clBurlyWood3 = TColor($007DAACD);
clBurlyWood4 = TColor($0055738B);
clCadetBlue = TColor($00A09E5F);
clCadetBlue1 = TColor($00FFF598);
clCadetBlue2 = TColor($00EEE58E);
clCadetBlue3 = TColor($00CDC57A);
clCadetBlue4 = TColor($008B8653);
clCarbon = TColor($00222222);
clChartreuse = TColor($0000FF7F);
clChartreuse1 = TColor($0000FF7F);
clChartreuse2 = TColor($0000EE76);
clChartreuse3 = TColor($0000CD66);
clChartreuse4 = TColor($00008B45);
clChocolate = TColor($001E69D2);
clChocolate1 = TColor($00247FFF);
clChocolate2 = TColor($002176EE);
clChocolate3 = TColor($001D66CD);
clChocolate4 = TColor($0013458B);
clCoral = TColor($00507FFF);
clCoral1 = TColor($005672FF);
clCoral2 = TColor($00506AEE);
clCoral3 = TColor($00455BCD);
clCoral4 = TColor($002F3E8B);
clCornflowerBlue = TColor($00ED9564);
clCornSilk = TColor($00DCF8FF);
clCornSilk1 = TColor($00DCF8FF);
clCornSilk2 = TColor($00CDE8EE);
clCornSilk3 = TColor($00B1C8CD);
clCornSilk4 = TColor($0078888B);
clCrimson = TColor($003C14DC);
clCyan = TColor($00FFFF00);
clCyan1 = TColor($00FFFF00);
clCyan2 = TColor($00EEEE00);
clCyan3 = TColor($00CDCD00);
clCyan4 = TColor($008B8B00);
clDarkBlue = TColor($008B0000);
clDarkCyan = TColor($008B8B00);
clDarkGoldenRod = TColor($000B86B8);
clDarkGoldenRod1 = TColor($000FB9FF);
clDarkGoldenRod2 = TColor($000EADEE);
clDarkGoldenRod3 = TColor($000C95CD);
clDarkGoldenRod4 = TColor($0008658B);
clDarkGray = TColor($00A9A9A9);
clDarkGreen = TColor($00006400);
clDarkKhaki = TColor($006BB7BD);
clDarkMagenta = TColor($008B008B);
clDarkOliveGreen = TColor($002F6B55);
clDarkOliveGreen1 = TColor($0070FFCA);
clDarkOliveGreen2 = TColor($0068EEBC);
clDarkOliveGreen3 = TColor($005ACDA2);
clDarkOliveGreen4 = TColor($003D8B6E);
clDarkOrange = TColor($00008CFF);
clDarkOrange1 = TColor($00007FFF);
clDarkOrange2 = TColor($000076EE);
clDarkOrange3 = TColor($000066CD);
clDarkOrange4 = TColor($0000458B);
clDarkOrchid = TColor($00CC3299);
clDarkOrchid1 = TColor($00FF3EBF);
clDarkOrchid2 = TColor($00EE3AB2);
clDarkOrchid3 = TColor($00CD329A);
clDarkOrchid4 = TColor($008B2268);
clDarkRed = TColor($0000008B);
clDarkSalmon = TColor($007A96E9);
clDarkSeaGreen = TColor($008FBC8F);
clDarkSeaGreen1 = TColor($00C1FFC1);
clDarkSeaGreen2 = TColor($00B4EEB4);
clDarkSeaGreen3 = TColor($009BCD9B);
clDarkSeaGreen4 = TColor($00698B69);
clDarkSlateBlue = TColor($008B3D48);
clDarkSlateGray = TColor($004F4F2F);
clDarkSlateGray1 = TColor($00FFFF97);
clDarkSlateGray2 = TColor($00EEEE8D);
clDarkSlateGray3 = TColor($00CDCD79);
clDarkSlateGray4 = TColor($008B8B52);
clDarkTurquoise = TColor($00D1CE00);
clDarkViolet = TColor($00D30094);
clDeepPink = TColor($009314FF);
clDeepPink1 = TColor($009314FF);
clDeepPink2 = TColor($008912EE);
clDeepPink3 = TColor($007610CD);
clDeepPink4 = TColor($00500A8B);
clDeepSkyBlue = TColor($00FFBF00);
clDeepSkyBlue1 = TColor($00FFBF00);
clDeepSkyBlue2 = TColor($00EEB200);
clDeepSkyBlue3 = TColor($00CD9A00);
clDeepSkyBlue4 = TColor($008B6800);
clDimGray = TColor($00696969);
clDodgerBlue = TColor($00FF901E);
clDodgerBlue1 = TColor($00FF901E);
clDodgerBlue2 = TColor($00EE861C);
clDodgerBlue3 = TColor($00CD7418);
clDodgerBlue4 = TColor($008B4E10);
clFireBrick = TColor($002222B2);
clFireBrick1 = TColor($003030FF);
clFireBrick2 = TColor($002C2CEE);
clFireBrick3 = TColor($002626CD);
clFireBrick4 = TColor($001A1A8B);
clFloralWhite = TColor($00F0FAFF);
clForestGreen = TColor($00228B22);
clGainsboro = TColor($00DCDCDC);
clGhostWhite = TColor($00FFF8F8);
clGold = TColor($0000D7FF);
clGold1 = TColor($0000D7FF);
clGold2 = TColor($0000C9EE);
clGold3 = TColor($0000ADCD);
clGold4 = TColor($0000758B);
clGoldenRod = TColor($0020A5DA);
clGoldenRod1 = TColor($0025C1FF);
clGoldenRod2 = TColor($0022B4EE);
clGoldenRod3 = TColor($001D9BCD);
clGoldenRod4 = TColor($0014698B);
clGreen1 = TColor($0000FF00);
clGreen2 = TColor($0000EE00);
clGreen3 = TColor($0000CD00);
clGreen4 = TColor($00008B00);
clGreenYellow = TColor($002FFFAD);
clHoneyDew = TColor($00F0FFF0);
clHoneyDew1 = TColor($00F0FFF0);
clHoneyDew2 = TColor($00E0EEE0);
clHoneyDew3 = TColor($00C1CDC1);
clHoneyDew4 = TColor($00838B83);
clHotPink = TColor($00B469FF);
clHotPink1 = TColor($00B46EFF);
clHotPink2 = TColor($00A76AEE);
clHotPink3 = TColor($009060CD);
clHotPink4 = TColor($00623A8B);
clIndianRed = TColor($005C5CCD);
clIndianRed1 = TColor($006A6AFF);
clIndianRed2 = TColor($006363EE);
clIndianRed3 = TColor($005555CD);
clIndianRed4 = TColor($003A3A8B);
clIndigo = TColor($0082004B);
clIvory = TColor($00F0FFFF);
clIvory1 = TColor($00F0FFFF);
clIvory2 = TColor($00E0EEEE);
clIvory3 = TColor($00C1CDCD);
clIvory4 = TColor($00838B8B);
clKhaki = TColor($008CE6F0);
clKhaki1 = TColor($008FF6FF);
clKhaki2 = TColor($0085E6EE);
clKhaki3 = TColor($0073C6CD);
clKhaki4 = TColor($004E868B);
clLavender = TColor($00FAE6E6);
clLavenderBlush = TColor($00F5F0FF);
clLavenderBlush1 = TColor($00F5F0FF);
clLavenderBlush2 = TColor($00E5E0EE);
clLavenderBlush3 = TColor($00C5C1CD);
clLavenderBlush4 = TColor($0086838B);
clLawnGreen = TColor($0000FC7C);
clLemonChiffon = TColor($00CDFAFF);
clLemonChiffon1 = TColor($00CDFAFF);
clLemonChiffon2 = TColor($00BFE9EE);
clLemonChiffon3 = TColor($00A5C9CD);
clLemonChiffon4 = TColor($0070898B);
clLightBlue = TColor($00E6D8AD);
clLightBlue1 = TColor($00FFEFBF);
clLightBlue2 = TColor($00EEDFB2);
clLightBlue3 = TColor($00CDC09A);
clLightBlue4 = TColor($008B8368);
clLightCoral = TColor($008080F0);
clLightCyan = TColor($00FFFFE0);
clLightCyan1 = TColor($00FFFFE0);
clLightCyan2 = TColor($00EEEED1);
clLightCyan3 = TColor($00CDCDB4);
clLightCyan4 = TColor($008B8B7A);
clLightGoldenRod = TColor($0082DDEE);
clLightGoldenRod1 = TColor($008BECFF);
clLightGoldenRod2 = TColor($0082DCEE);
clLightGoldenRod3 = TColor($0070BECD);
clLightGoldenRod4 = TColor($004C818B);
clLightGoldenRodYellow = TColor($00D2FAFA);
clLightGray = TColor($00D3D3D3);
clLightGreen = TColor($0090EE90);
clLightPink = TColor($00C1B6FF);
clLightPink1 = TColor($00B9AEFF);
clLightPink2 = TColor($00ADA2EE);
clLightPink3 = TColor($00958CCD);
clLightPink4 = TColor($00655F8B);
clLightSalmon = TColor($007AA0FF);
clLightSalmon1 = TColor($007AA0FF);
clLightSalmon2 = TColor($007295EE);
clLightSalmon3 = TColor($006281CD);
clLightSalmon4 = TColor($0042578B);
clLightSeaGreen = TColor($00AAB220);
clLightSkyBlue = TColor($00FACE87);
clLightSkyBlue1 = TColor($00FFE2B0);
clLightSkyBlue2 = TColor($00EED3A4);
clLightSkyBlue3 = TColor($00CDB68D);
clLightSkyBlue4 = TColor($008B7B60);
clLightSlateBlue = TColor($00FF7084);
clLightSlateGray = TColor($00998877);
clLightSteelBlue = TColor($00DEC4B0);
clLightSteelBlue1 = TColor($00FFE1CA);
clLightSteelBlue2 = TColor($00EED2BC);
clLightSteelBlue3 = TColor($00CDB5A2);
clLightSteelBlue4 = TColor($008B7B6E);
clLightYellow = TColor($00E0FFFF);
clLightYellow1 = TColor($00E0FFFF);
clLightYellow2 = TColor($00D1EEEE);
clLightYellow3 = TColor($00B4CDCD);
clLightYellow4 = TColor($007A8B8B);
clLimeGreen = TColor($0032CD32);
clLinen = TColor($00E6F0FA);
clMagenta = TColor($00FF00FF);
clMagenta1 = TColor($00FF00FF);
clMagenta2 = TColor($00EE00EE);
clMagenta3 = TColor($00CD00CD);
clMagenta4 = TColor($008B008B);
clMaroon1 = TColor($00B334FF);
clMaroon2 = TColor($00A730EE);
clMaroon3 = TColor($009029CD);
clMaroon4 = TColor($00621C8B);
clMediumAquamarine = TColor($00AACD66);
clMediumBlue = TColor($00CD0000);
clMediumOrchid = TColor($00D355BA);
clMediumOrchid1 = TColor($00FF66E0);
clMediumOrchid2 = TColor($00EE5FD1);
clMediumOrchid3 = TColor($00CD52B4);
clMediumOrchid4 = TColor($008B377A);
clMediumPurple = TColor($00DB7093);
clMediumPurple1 = TColor($00FF82AB);
clMediumPurple2 = TColor($00EE799F);
clMediumPurple3 = TColor($00CD6889);
clMediumPurple4 = TColor($008B475D);
clMediumSeaGreen = TColor($0071B33C);
clMediumSlateBlue = TColor($00EE687B);
clMediumSpringGreen = TColor($009AFA00);
clMediumTurquoise = TColor($00CCD148);
clMediumVioletRed = TColor($008515C7);
clMidnightBlue = TColor($00701919);
clMintCream = TColor($00FAFFF5);
clMistyRose = TColor($00E1E4FF);
clMistyRose1 = TColor($00E1E4FF);
clMistyRose2 = TColor($00D2D5EE);
clMistyRose3 = TColor($00B5B7CD);
clMistyRose4 = TColor($007B7D8B);
clMoccasin = TColor($00B5E4FF);
clNavajoWhite = TColor($00ADDEFF);
clNavajoWhite1 = TColor($00ADDEFF);
clNavajoWhite2 = TColor($00A1CFEE);
clNavajoWhite3 = TColor($008BB3CD);
clNavajoWhite4 = TColor($005E798B);
clNavyBlue = TColor($00800000);
clOldLace = TColor($00E6F5FD);
clOliveDrab = TColor($00238E6B);
clOliveDrab1 = TColor($003EFFC0);
clOliveDrab2 = TColor($003AEEB3);
clOliveDrab3 = TColor($0032CD9A);
clOliveDrab4 = TColor($00228B69);
clOrange = TColor($0000A5FF);
clOrange1 = TColor($0000A5FF);
clOrange2 = TColor($00009AEE);
clOrange3 = TColor($000085CD);
clOrange4 = TColor($00005A8B);
clOrangeRed = TColor($000045FF);
clOrangeRed1 = TColor($000045FF);
clOrangeRed2 = TColor($000040EE);
clOrangeRed3 = TColor($000037CD);
clOrangeRed4 = TColor($0000258B);
clOrchid = TColor($00D670DA);
clOrchid1 = TColor($00FA83FF);
clOrchid2 = TColor($00E97AEE);
clOrchid3 = TColor($00C969CD);
clOrchid4 = TColor($0089478B);
clPaleGoldenRod = TColor($00AAE8EE);
clPaleGreen = TColor($0098FB98);
clPaleGreen1 = TColor($009AFF9A);
clPaleGreen2 = TColor($0090EE90);
clPaleGreen3 = TColor($007CCD7C);
clPaleGreen4 = TColor($00548B54);
clPaleTurquoise = TColor($00EEEEAF);
clPaleTurquoise1 = TColor($00FFFFBB);
clPaleTurquoise2 = TColor($00EEEEAE);
clPaleTurquoise3 = TColor($00CDCD96);
clPaleTurquoise4 = TColor($008B8B66);
clPaleVioletRed = TColor($009370DB);
clPaleVioletRed1 = TColor($00AB82FF);
clPaleVioletRed2 = TColor($009F79EE);
clPaleVioletRed3 = TColor($008968CD);
clPaleVioletRed4 = TColor($005D478B);
clPapayaWhip = TColor($00D5EFFF);
clPeachPuff = TColor($00B9DAFF);
clPeachPuff1 = TColor($00B9DAFF);
clPeachPuff2 = TColor($00ADCBEE);
clPeachPuff3 = TColor($0095AFCD);
clPeachPuff4 = TColor($0065778B);
clPeru = TColor($003F85CD);
clPink = TColor($00CBC0FF);
clPink1 = TColor($00C5B5FF);
clPink2 = TColor($00B8A9EE);
clPink3 = TColor($009E91CD);
clPink4 = TColor($006C638B);
clPlum = TColor($00DDA0DD);
clPlum1 = TColor($00FFBBFF);
clPlum2 = TColor($00EEAEEE);
clPlum3 = TColor($00CD96CD);
clPlum4 = TColor($008B668B);
clPowderBlue = TColor($00E6E0B0);
clPurple1 = TColor($00FF309B);
clPurple2 = TColor($00EE2C91);
clPurple3 = TColor($00CD267D);
clPurple4 = TColor($008B1A55);
clRebeccaPurple = TColor($00993366);
clRed1 = TColor($000000FF);
clRed2 = TColor($000000EE);
clRed3 = TColor($000000CD);
clRed4 = TColor($0000008B);
clRosyBrown = TColor($008F8FBC);
clRosyBrown1 = TColor($00C1C1FF);
clRosyBrown2 = TColor($00B4B4EE);
clRosyBrown3 = TColor($009B9BCD);
clRosyBrown4 = TColor($0069698B);
clRoyalBlue = TColor($00E16941);
clRoyalBlue1 = TColor($00FF7648);
clRoyalBlue2 = TColor($00EE6E43);
clRoyalBlue3 = TColor($00CD5F3A);
clRoyalBlue4 = TColor($008B4027);
clSaddleBrown = TColor($0013458B);
clSalmon = TColor($007280FA);
clSalmon1 = TColor($00698CFF);
clSalmon2 = TColor($006282EE);
clSalmon3 = TColor($005470CD);
clSalmon4 = TColor($00394C8B);
clSandyBrown = TColor($0060A4F4);
clSeaGreen = TColor($00578B2E);
clSeaGreen1 = TColor($009FFF54);
clSeaGreen2 = TColor($0094EE4E);
clSeaGreen3 = TColor($0080CD43);
clSeaGreen4 = TColor($00578B2E);
clSeaShell = TColor($00EEF5FF);
clSeaShell1 = TColor($00EEF5FF);
clSeaShell2 = TColor($00DEE5EE);
clSeaShell3 = TColor($00BFC5CD);
clSeaShell4 = TColor($0082868B);
clSienna = TColor($002D52A0);
clSienna1 = TColor($004782FF);
clSienna2 = TColor($004279EE);
clSienna3 = TColor($003968CD);
clSienna4 = TColor($0026478B);
{$IFNDEF GE_LEV6} // this color has been made available with Delphi 6
clSkyBlue = TColor($00F0CAA6);
{$ENDIF}
clSkyBlue1 = TColor($00EBCE87);
clSkyBlue2 = TColor($00EEC07E);
clSkyBlue3 = TColor($00CDA66C);
clSkyBlue4 = TColor($008B704A);
clSlateBlue = TColor($00CD5A6A);
clSlateBlue1 = TColor($00FF6F83);
clSlateBlue2 = TColor($00EE677A);
clSlateBlue3 = TColor($00CD5969);
clSlateBlue4 = TColor($008B3C47);
clSlateGray = TColor($00908070);
clSlateGray1 = TColor($00FFE2C6);
clSlateGray2 = TColor($00EED3B9);
clSlateGray3 = TColor($00CDB69F);
clSlateGray4 = TColor($008B7B6C);
clSnow = TColor($00FAFAFF);
clSnow1 = TColor($00FAFAFF);
clSnow2 = TColor($00E9E9EE);
clSnow3 = TColor($00C9C9CD);
clSnow4 = TColor($0089898B);
clSpringGreen = TColor($007FFF00);
clSpringGreen1 = TColor($007FFF00);
clSpringGreen2 = TColor($0076EE00);
clSpringGreen3 = TColor($0066CD00);
clSpringGreen4 = TColor($00458B00);
clSteelBlue = TColor($00B48246);
clSteelBlue1 = TColor($00FFB863);
clSteelBlue2 = TColor($00EEAC5C);
clSteelBlue3 = TColor($00CD944F);
clSteelBlue4 = TColor($008B6436);
clTan = TColor($008CB4D2);
clTan1 = TColor($004FA5FF);
clTan2 = TColor($00499AEE);
clTan3 = TColor($003F85CD);
clTan4 = TColor($002B5A8B);
clThistle = TColor($00D8BFD8);
clThistle1 = TColor($00FFE1FF);
clThistle2 = TColor($00EED2EE);
clThistle3 = TColor($00CDB5CD);
clThistle4 = TColor($008B7B8B);
clTomato = TColor($004763FF);
clTomato1 = TColor($004763FF);
clTomato2 = TColor($00425CEE);
clTomato3 = TColor($00394FCD);
clTomato4 = TColor($0026368B);
clTurquoise = TColor($00D0E040);
clTurquoise1 = TColor($00FFF500);
clTurquoise2 = TColor($00EEE500);
clTurquoise3 = TColor($00CDC500);
clTurquoise4 = TColor($008B8600);
clViolet = TColor($00EE82EE);
clVioletRed = TColor($009020D0);
clVioletRed1 = TColor($00963EFF);
clVioletRed2 = TColor($008C3AEE);
clVioletRed3 = TColor($007832CD);
clVioletRed4 = TColor($0052228B);
{$IFNDEF GE_LEV10} // these colors have been made available with Delphi 2006
clWebGray = TColor($00808080);
clWebGreen = TColor($00008000);
clWebMaroon = TColor($00000080);
clWebPurple = TColor($00800080);
{$ENDIF}
clWheat = TColor($00B3DEF5);
clWheat1 = TColor($00BAE7FF);
clWheat2 = TColor($00AED8EE);
clWheat3 = TColor($0096BACD);
clWheat4 = TColor($00667E8B);
clWhiteSmoke = TColor($00F5F5F5);
clYellow1 = TColor($0000FFFF);
clYellow2 = TColor($0000EEEE);
clYellow3 = TColor($0000CDCD);
clYellow4 = TColor($00008B8B);
clYellowGreen = TColor($0032CD9A);
MaxX11 = 145;
X11Colors : array [1..MaxX11] of TColor =
(clAliceBlue, clAntiqueWhite, clAqua, clAquamarine, clAzure, clBeige,
clBisque, clBlack, clBlanchedAlmond, clBlue, clBlueViolet, clBrown,
clBurlyWood, clCadetBlue, clChartreuse, clChocolate, clCoral,
clCornflowerBlue, clCornSilk, clCrimson, clCyan, clDarkBlue,
clDarkCyan, clDarkGoldenRod, clDarkGray, clDarkGreen, clDarkKhaki,
clDarkMagenta, clDarkOliveGreen, clDarkOrange, clDarkOrchid,
clDarkRed, clDarkSalmon, clDarkSeaGreen, clDarkSlateBlue,
clDarkSlateGray, clDarkTurquoise, clDarkViolet, clDeepPink,
clDeepSkyBlue, clDimGray, clDodgerBlue, clFireBrick, clFloralWhite,
clForestGreen, clFuchsia, clGainsboro, clGhostWhite, clGold,
clGoldenRod, clGray, clGreen, clGreenYellow, clHoneyDew, clHotPink,
clIndianRed, clIndigo, clIvory, clKhaki, clLavender, clLavenderBlush,
clLawnGreen, clLemonChiffon, clLightBlue, clLightCoral, clLightCyan,
clLightGoldenRod, clLightGray, clLightGreen, clLightPink,
clLightSalmon, clLightSeaGreen, clLightSkyBlue, clLightSlateBlue,
clLightSlateGray, clLightSteelBlue, clLightYellow, clLime,
clLimeGreen, clLinen, clMagenta, clMaroon, clMediumAquamarine,
clMediumBlue, clMediumOrchid, clMediumPurple, clMediumSeaGreen,
clMediumSlateBlue, clMediumSpringGreen, clMediumTurquoise,
clMediumVioletRed, clMidnightBlue, clMintCream, clMistyRose,
clMoccasin, clNavajoWhite, clNavyBlue, clOldLace, clOlive,
clOliveDrab, clOrange, clOrangeRed, clOrchid, clPaleGoldenRod,
clPaleGreen, clPaleTurquoise, clPaleVioletRed, clPapayaWhip,
clPeachPuff, clPeru, clPink, clPlum, clPowderBlue, clPurple,
clRebeccaPurple, clRed, clRosyBrown, clRoyalBlue, clSaddleBrown,
clSalmon, clSandyBrown, clSeaGreen, clSeaShell, clSienna, clSilver,
clSkyBlue, clSlateBlue, clSlateGray, clSnow, clSpringGreen,
clSteelBlue, clTan, clThistle, clTomato, clTurquoise, clViolet,
clWebGray, clWebGreen, clWebMaroon, clWebPurple, clWheat, clWhite,
clWhiteSmoke, clYellow, clYellowGreen);
MaxPreDefColors = 47;
NumVGAColors = 16;
NumStandardColors = 20; // first colors in list, rest is windows system colors
PredefinedColors : array [1..MaxPreDefColors] of TColor =
(clBlack, clMaroon, clGreen, clOlive, clNavy,
clPurple, clTeal, clGray, clSilver, clRed,
clLime, clYellow, clBlue, clFuchsia, clAqua,
clWhite, clMoneyGreen, clSkyBlue, clCream, clMedGray,
clActiveBorder, clActiveCaption, clAppWorkSpace, clBackground, clBtnFace,
clBtnHighlight, clBtnShadow, clBtnText, clCaptionText, clDefault,
clGrayText, clHighLight, clHighLightText, clInactiveBorder,
clInactiveCaption, clInactiveCaptionText, clInfoBk, clInfoText, clMenu,
clMenuText, clNone, clScrollBar, cl3DDkShadow, cl3DLight, clWindow,
clWindowFrame, clWindowText);
ColorArray_Geo1: array[0..10] of TColor = // colors of geographic map 1
($00DED2BD, $00639F63, $0089BA88, $00A7CFAD, $00C5E5D2, $00CBF1F5,
$0096CEEA, $006CAED8, $003586BD, $00426594, $00F0FAFC);
ColorArray_Geo2: array[0..10] of TColor = // colors of geographic map 2
($00DFAE7F, $00DEB68C, $00E3BE9B, $00E2C9AD, $00DCCCBB, $0090BBAC,
$0099C9C6, $00A4D7DA, $00A1C8DA, $009AB6C5, $0096ACC8);
ColorArray_Geo3: array[0..10] of TColor = // colors of geographic map 3
($00FF8A2B, $00FF9C43, $00FFAF61, $00FFCA89, $00F9D1A8, $004AA885,
$005DCAC2, $0074EDF4, $006DC7F4, $005F9CC0, $005685C7);
ColorArray_Rainbow: array[0..10] of TColor = // rainbow colors
($00400020, $00800060, $00EF1200, $00F56E00, $00FFF400, $0000FF18,
$0000F6FF, $0000C1FF, $000013FF, $0000008D, $00000040);
ColorArray_Circle: array[0..6] of TColor = // colors along the color circle
($000000FF, $0000FFFF, $0000FF00, $00FFFF00, $00FF0000,
$00FF00FF, $000000FF);
ColorArray_MorgenStemning: array[0..6] of TColor =
// colors for color deficient people
($00000000, $004E2F0E, $00742880, $00711BC2, $004C61EF,
$002AFBFF, $00FFFFFF);
ColorArray_Contrast: array[0..15] of TColor = // contrast colors
(clBlack,clBlue,clGreen,clRed,$0080FF,clGray,$404080,clFuchsia,
clNavy,clLime,$c5cd18,clTeal,$FF0080,$41e1EE,$800080,$8000FF);
type
ESDLColArrayError = class(ESDLError); { exception type to indicate errors }
TColorArray = class (TComponent)
private
FNColors : longint;
FColArray : array of TColor;
FOnChange : TNotifyEvent;
function Resize (size: longint): boolean;
function GetColorElem (ix: longint): TColor;
procedure SetColorElem (ix: longint; Value: TColor);
procedure SetSize (val: integer);
protected
procedure AssignTo (Dest: TPersistent); override;
public
constructor Create (AOwner: TComponent); override;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
property ColorElem[ix: longint]: TColor
read GetColorElem write SetColorElem; default;
procedure Changed;
procedure Fill (Color: TColor);
procedure FillByInterpolation (DiscreteLevels: integer;
Colors: array of TColor);
function ColorToIndex (cl: TColor;
var distance: double): integer;
procedure CopyFrom (ColArraySource: TColorArray;
SourceElemLo, SourceElemHi,
DestElem: integer);
procedure InvertColors;
function IsEqual (OtherColorArray: TColorArray): boolean;
function LoadFromFile (FileName: string;
AdjustSize: boolean): boolean;
procedure MirrorColors;
function ReadFromOpenTextFile (var InFile: TextFile;
AdjustSize: boolean): boolean;
function StoreOnFile (FirstElem, LastElem: integer;
FileName:string): boolean;
function WriteToOpenTextFile (var OutFile: TextFile;
FirstElem, LastElem: integer): boolean;
published
property Size: integer read FNColors write SetSize;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
end;
procedure CMYKtoCMY (var Cyan, Magenta, Yellow: double; Black: double);
procedure CMYtoCMYK (var Cyan, Magenta, Yellow, Black: double);
procedure CMYtoRGB (Cyan, Magenta, Yellow: double; var R, G, B: byte);
function ColorToGray (Cl: TColor): integer;
function ColorToGrayColor (Cl: TColor): TColor;
function ColorToHexStr (Cl: TColor): string;
function HexStrToColor (HexStr: string): TColor;
procedure HSItoRGB (Hue, Sat, Intens: double; var r, g, b: integer);
function InterpolateColor (Cl1, Cl2: TColor; Level: double): TColor;
function Interpolate3Colors (Cl1, Cl2, Cl3: TColor; Level: double): TColor;
function InvertColor (Cl: TColor): TColor;
function MeanColor (Cl1, Cl2: TColor): TColor;
function RandomColor: TColor; overload;
function RandomColor (RedMin, RedMax, GreenMin, GreenMax,
BlueMin, BlueMax: byte): TColor; overload;
function ReverseRGBColor (Cl: TColor): TColor;
function RGBColorDistance (c1, c2: TColor): double;
procedure RGBtoCMY (R, G, B: byte; var Cyan, Magenta, Yellow: double);
function RGBtoGray (r, g, b: integer): integer;
function RGBtoGrayColor (r, g, b: integer): TColor;
procedure RGBtoHSI (r, g, b: integer; var Hue, Sat, Intens: double);
function WavelengthToColor (wl: integer; Gamma: double): TColor;
|