const
{$IFDEF PAIDVERS}
SDLVersionInfo = 'sdlcolors_r1200_full';
IsLightEd = false;
{$ELSE}
SDLVersionInfo = 'sdlcolors_r1200_lighted';
IsLightEd = true;
{$ENDIF}
Release = 1200;
{$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);
NumAllSDLCOlors = 466;
AllSDLColors : array[1..NumAllSDLColors] of TColor =
(clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray,
clSilver, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite,
clMoneyGreen, clCream, clMedGray, clAliceBlue, clAntiqueWhite,
clAntiqueWhite1, clAntiqueWhite2, clAntiqueWhite3, clAntiqueWhite4,
clAquamarine, clAquamarine1, clAquamarine2, clAquamarine3, clAquamarine4,
clAzure, clAzure1, clAzure2, clAzure3, clAzure4, clBeige, clBisque,
clBisque1, clBisque2, clBisque3, clBisque4, clBlanchedAlmond, clBlue1,
clBlue2, clBlue3, clBlue4, clBlueViolet, clBronze, clBrown, clBrown1,
clBrown2, clBrown3, clBrown4, clBurlyWood, clBurlyWood1, clBurlyWood2,
clBurlyWood3, clBurlyWood4, clCadetBlue, clCadetBlue1, clCadetBlue2,
clCadetBlue3, clCadetBlue4, clCarbon, clChartreuse, clChartreuse1,
clChartreuse2, clChartreuse3, clChartreuse4, clChocolate, clChocolate1,
clChocolate2, clChocolate3, clChocolate4, clCoral, clCoral1, clCoral2,
clCoral3, clCoral4, clCornflowerBlue, clCornSilk, clCornSilk1,
clCornSilk2, clCornSilk3, clCornSilk4, clCrimson, clCyan, clCyan1,
clCyan2, clCyan3, clCyan4, clDarkBlue, clDarkCyan, clDarkGoldenRod,
clDarkGoldenRod1, clDarkGoldenRod2, clDarkGoldenRod3, clDarkGoldenRod4,
clDarkGray, clDarkGreen, clDarkKhaki, clDarkMagenta, clDarkOliveGreen,
clDarkOliveGreen1, clDarkOliveGreen2, clDarkOliveGreen3, clDarkOliveGreen4,
clDarkOrange, clDarkOrange1, clDarkOrange2, clDarkOrange3, clDarkOrange4,
clDarkOrchid, clDarkOrchid1, clDarkOrchid2, clDarkOrchid3, clDarkOrchid4,
clDarkRed, clDarkSalmon, clDarkSeaGreen, clDarkSeaGreen1, clDarkSeaGreen2,
clDarkSeaGreen3, clDarkSeaGreen4, clDarkSlateBlue, clDarkSlateGray,
clDarkSlateGray1, clDarkSlateGray2, clDarkSlateGray3, clDarkSlateGray4,
clDarkTurquoise, clDarkViolet, clDeepPink, clDeepPink1, clDeepPink2,
clDeepPink3, clDeepPink4, clDeepSkyBlue, clDeepSkyBlue1, clDeepSkyBlue2,
clDeepSkyBlue3, clDeepSkyBlue4, clDimGray, clDodgerBlue, clDodgerBlue1,
clDodgerBlue2, clDodgerBlue3, clDodgerBlue4, clFireBrick, clFireBrick1,
clFireBrick2, clFireBrick3, clFireBrick4, clFloralWhite, clForestGreen,
clGainsboro, clGhostWhite, clGold, clGold1, clGold2, clGold3, clGold4,
clGoldenRod, clGoldenRod1, clGoldenRod2, clGoldenRod3, clGoldenRod4,
clGreen1, clGreen2, clGreen3, clGreen4, clGreenYellow, clHoneyDew,
clHoneyDew1, clHoneyDew2, clHoneyDew3, clHoneyDew4, clHotPink,
clHotPink1, clHotPink2, clHotPink3, clHotPink4, clIndianRed, clIndianRed1,
clIndianRed2, clIndianRed3, clIndianRed4, clIndigo, clIvory, clIvory1,
clIvory2, clIvory3, clIvory4, clKhaki, clKhaki1, clKhaki2, clKhaki3,
clKhaki4, clLavender, clLavenderBlush, clLavenderBlush1, clLavenderBlush2,
clLavenderBlush3, clLavenderBlush4, clLawnGreen, clLemonChiffon,
clLemonChiffon1, clLemonChiffon2, clLemonChiffon3, clLemonChiffon4,
clLightBlue, clLightBlue1, clLightBlue2, clLightBlue3, clLightBlue4,
clLightCoral, clLightCyan, clLightCyan1, clLightCyan2, clLightCyan3,
clLightCyan4, clLightGoldenRod, clLightGoldenRod1, clLightGoldenRod2,
clLightGoldenRod3, clLightGoldenRod4, clLightGoldenRodYellow, clLightGray,
clLightGreen, clLightPink, clLightPink1, clLightPink2, clLightPink3,
clLightPink4, clLightSalmon, clLightSalmon1, clLightSalmon2,
clLightSalmon3, clLightSalmon4, clLightSeaGreen, clLightSkyBlue,
clLightSkyBlue1, clLightSkyBlue2, clLightSkyBlue3, clLightSkyBlue4,
clLightSlateBlue, clLightSlateGray, clLightSteelBlue, clLightSteelBlue1,
clLightSteelBlue2, clLightSteelBlue3, clLightSteelBlue4, clLightYellow,
clLightYellow1, clLightYellow2, clLightYellow3, clLightYellow4,
clLimeGreen, clLinen, clMagenta, clMagenta1, clMagenta2, clMagenta3,
clMagenta4, clMaroon1, clMaroon2, clMaroon3, clMaroon4,
clMediumAquamarine, clMediumBlue, clMediumOrchid, clMediumOrchid1,
clMediumOrchid2, clMediumOrchid3, clMediumOrchid4, clMediumPurple,
clMediumPurple1, clMediumPurple2, clMediumPurple3, clMediumPurple4,
clMediumSeaGreen, clMediumSlateBlue, clMediumSpringGreen,
clMediumTurquoise, clMediumVioletRed, clMidnightBlue, clMintCream,
clMistyRose, clMistyRose1, clMistyRose2, clMistyRose3, clMistyRose4,
clMoccasin, clNavajoWhite, clNavajoWhite1, clNavajoWhite2, clNavajoWhite3,
clNavajoWhite4, clNavyBlue, clOldLace, clOliveDrab, clOliveDrab1,
clOliveDrab2, clOliveDrab3, clOliveDrab4, clOrange, clOrange1, clOrange2,
clOrange3, clOrange4, clOrangeRed, clOrangeRed1, clOrangeRed2,
clOrangeRed3, clOrangeRed4, clOrchid, clOrchid1, clOrchid2, clOrchid3,
clOrchid4, clPaleGoldenRod, clPaleGreen, clPaleGreen1, clPaleGreen2,
clPaleGreen3, clPaleGreen4, clPaleTurquoise, clPaleTurquoise1,
clPaleTurquoise2, clPaleTurquoise3, clPaleTurquoise4, clPaleVioletRed,
clPaleVioletRed1, clPaleVioletRed2, clPaleVioletRed3, clPaleVioletRed4,
clPapayaWhip, clPeachPuff, clPeachPuff1, clPeachPuff2, clPeachPuff3,
clPeachPuff4, clPeru, clPink, clPink1, clPink2, clPink3, clPink4, clPlum,
clPlum1, clPlum2, clPlum3, clPlum4, clPowderBlue, clPurple1, clPurple2,
clPurple3, clPurple4, clRebeccaPurple, clRed1, clRed2, clRed3, clRed4,
clRosyBrown, clRosyBrown1, clRosyBrown2, clRosyBrown3, clRosyBrown4,
clRoyalBlue, clRoyalBlue1, clRoyalBlue2, clRoyalBlue3, clRoyalBlue4,
clSaddleBrown, clSalmon, clSalmon1, clSalmon2, clSalmon3, clSalmon4,
clSandyBrown, clSeaGreen, clSeaGreen1, clSeaGreen2, clSeaGreen3,
clSeaGreen4, clSeaShell, clSeaShell1, clSeaShell2, clSeaShell3,
clSeaShell4, clSienna, clSienna1, clSienna2, clSienna3, clSienna4,
clSkyBlue, clSkyBlue1, clSkyBlue2, clSkyBlue3, clSkyBlue4, clSlateBlue,
clSlateBlue1, clSlateBlue2, clSlateBlue3, clSlateBlue4, clSlateGray,
clSlateGray1, clSlateGray2, clSlateGray3, clSlateGray4, clSnow, clSnow1,
clSnow2, clSnow3, clSnow4, clSpringGreen, clSpringGreen1, clSpringGreen2,
clSpringGreen3, clSpringGreen4, clSteelBlue, clSteelBlue1, clSteelBlue2,
clSteelBlue3, clSteelBlue4, clTan, clTan1, clTan2, clTan3, clTan4,
clThistle, clThistle1, clThistle2, clThistle3, clThistle4, clTomato,
clTomato1, clTomato2, clTomato3, clTomato4, clTurquoise, clTurquoise1,
clTurquoise2, clTurquoise3, clTurquoise4, clViolet, clVioletRed,
clVioletRed1, clVioletRed2, clVioletRed3, clVioletRed4, clWebGray,
clWebGreen, clWebMaroon, clWebPurple, clWheat, clWheat1, clWheat2,
clWheat3, clWheat4, clWhiteSmoke, clYellow1, clYellow2, clYellow3,
clYellow4, clYellowGreen);
AllSDLColorNames : array [1..NumAllSDLColors] of string =
('Black', 'Maroon', 'Green', 'Olive', 'Navy', 'Purple', 'Teal', 'Gray',
'Silver', 'Red', 'Lime', 'Yellow', 'Blue', 'Fuchsia', 'Aqua', 'White',
'MoneyGreen', 'Cream', 'MedGray', 'AliceBlue', 'AntiqueWhite',
'AntiqueWhite1', 'AntiqueWhite2', 'AntiqueWhite3', 'AntiqueWhite4',
'Aquamarine', 'Aquamarine1', 'Aquamarine2', 'Aquamarine3', 'Aquamarine4',
'Azure', 'Azure1', 'Azure2', 'Azure3', 'Azure4', 'Beige', 'Bisque',
'Bisque1', 'Bisque2', 'Bisque3', 'Bisque4', 'BlanchedAlmond', 'Blue1',
'Blue2', 'Blue3', 'Blue4', 'BlueViolet', 'Bronze', 'Brown', 'Brown1',
'Brown2', 'Brown3', 'Brown4', 'BurlyWood', 'BurlyWood1', 'BurlyWood2',
'BurlyWood3', 'BurlyWood4', 'CadetBlue', 'CadetBlue1', 'CadetBlue2',
'CadetBlue3', 'CadetBlue4', 'Carbon', 'Chartreuse', 'Chartreuse1',
'Chartreuse2', 'Chartreuse3', 'Chartreuse4', 'Chocolate', 'Chocolate1',
'Chocolate2', 'Chocolate3', 'Chocolate4', 'Coral', 'Coral1', 'Coral2',
'Coral3', 'Coral4', 'CornflowerBlue', 'CornSilk', 'CornSilk1',
'CornSilk2', 'CornSilk3', 'CornSilk4', 'Crimson', 'Cyan', 'Cyan1',
'Cyan2', 'Cyan3', 'Cyan4', 'DarkBlue', 'DarkCyan', 'DarkGoldenRod',
'DarkGoldenRod1', 'DarkGoldenRod2', 'DarkGoldenRod3', 'DarkGoldenRod4',
'DarkGray', 'DarkGreen', 'DarkKhaki', 'DarkMagenta', 'DarkOliveGreen',
'DarkOliveGreen1', 'DarkOliveGreen2', 'DarkOliveGreen3', 'DarkOliveGreen4',
'DarkOrange', 'DarkOrange1', 'DarkOrange2', 'DarkOrange3', 'DarkOrange4',
'DarkOrchid', 'DarkOrchid1', 'DarkOrchid2', 'DarkOrchid3', 'DarkOrchid4',
'DarkRed', 'DarkSalmon', 'DarkSeaGreen', 'DarkSeaGreen1', 'DarkSeaGreen2',
'DarkSeaGreen3', 'DarkSeaGreen4', 'DarkSlateBlue', 'DarkSlateGray',
'DarkSlateGray1', 'DarkSlateGray2', 'DarkSlateGray3', 'DarkSlateGray4',
'DarkTurquoise', 'DarkViolet', 'DeepPink', 'DeepPink1', 'DeepPink2',
'DeepPink3', 'DeepPink4', 'DeepSkyBlue', 'DeepSkyBlue1', 'DeepSkyBlue2',
'DeepSkyBlue3', 'DeepSkyBlue4', 'DimGray', 'DodgerBlue', 'DodgerBlue1',
'DodgerBlue2', 'DodgerBlue3', 'DodgerBlue4', 'FireBrick', 'FireBrick1',
'FireBrick2', 'FireBrick3', 'FireBrick4', 'FloralWhite', 'ForestGreen',
'Gainsboro', 'GhostWhite', 'Gold', 'Gold1', 'Gold2', 'Gold3', 'Gold4',
'GoldenRod', 'GoldenRod1', 'GoldenRod2', 'GoldenRod3', 'GoldenRod4',
'Green1', 'Green2', 'Green3', 'Green4', 'GreenYellow', 'HoneyDew',
'HoneyDew1', 'HoneyDew2', 'HoneyDew3', 'HoneyDew4', 'HotPink',
'HotPink1', 'HotPink2', 'HotPink3', 'HotPink4', 'IndianRed', 'IndianRed1',
'IndianRed2', 'IndianRed3', 'IndianRed4', 'Indigo', 'Ivory', 'Ivory1',
'Ivory2', 'Ivory3', 'Ivory4', 'Khaki', 'Khaki1', 'Khaki2', 'Khaki3',
'Khaki4', 'Lavender', 'LavenderBlush', 'LavenderBlush1', 'LavenderBlush2',
'LavenderBlush3', 'LavenderBlush4', 'LawnGreen', 'LemonChiffon',
'LemonChiffon1', 'LemonChiffon2', 'LemonChiffon3', 'LemonChiffon4',
'LightBlue', 'LightBlue1', 'LightBlue2', 'LightBlue3', 'LightBlue4',
'LightCoral', 'LightCyan', 'LightCyan1', 'LightCyan2', 'LightCyan3',
'LightCyan4', 'LightGoldenRod', 'LightGoldenRod1', 'LightGoldenRod2',
'LightGoldenRod3', 'LightGoldenRod4', 'LightGoldenRodYellow', 'LightGray',
'LightGreen', 'LightPink', 'LightPink1', 'LightPink2', 'LightPink3',
'LightPink4', 'LightSalmon', 'LightSalmon1', 'LightSalmon2',
'LightSalmon3', 'LightSalmon4', 'LightSeaGreen', 'LightSkyBlue',
'LightSkyBlue1', 'LightSkyBlue2', 'LightSkyBlue3', 'LightSkyBlue4',
'LightSlateBlue', 'LightSlateGray', 'LightSteelBlue', 'LightSteelBlue1',
'LightSteelBlue2', 'LightSteelBlue3', 'LightSteelBlue4', 'LightYellow',
'LightYellow1', 'LightYellow2', 'LightYellow3', 'LightYellow4',
'LimeGreen', 'Linen', 'Magenta', 'Magenta1', 'Magenta2', 'Magenta3',
'Magenta4', 'Maroon1', 'Maroon2', 'Maroon3', 'Maroon4',
'MediumAquamarine', 'MediumBlue', 'MediumOrchid', 'MediumOrchid1',
'MediumOrchid2', 'MediumOrchid3', 'MediumOrchid4', 'MediumPurple',
'MediumPurple1', 'MediumPurple2', 'MediumPurple3', 'MediumPurple4',
'MediumSeaGreen', 'MediumSlateBlue', 'MediumSpringGreen',
'MediumTurquoise', 'MediumVioletRed', 'MidnightBlue', 'MintCream',
'MistyRose', 'MistyRose1', 'MistyRose2', 'MistyRose3', 'MistyRose4',
'Moccasin', 'NavajoWhite', 'NavajoWhite1', 'NavajoWhite2', 'NavajoWhite3',
'NavajoWhite4', 'NavyBlue', 'OldLace', 'OliveDrab', 'OliveDrab1',
'OliveDrab2', 'OliveDrab3', 'OliveDrab4', 'Orange', 'Orange1', 'Orange2',
'Orange3', 'Orange4', 'OrangeRed', 'OrangeRed1', 'OrangeRed2',
'OrangeRed3', 'OrangeRed4', 'Orchid', 'Orchid1', 'Orchid2', 'Orchid3',
'Orchid4', 'PaleGoldenRod', 'PaleGreen', 'PaleGreen1', 'PaleGreen2',
'PaleGreen3', 'PaleGreen4', 'PaleTurquoise', 'PaleTurquoise1',
'PaleTurquoise2', 'PaleTurquoise3', 'PaleTurquoise4', 'PaleVioletRed',
'PaleVioletRed1', 'PaleVioletRed2', 'PaleVioletRed3', 'PaleVioletRed4',
'PapayaWhip', 'PeachPuff', 'PeachPuff1', 'PeachPuff2', 'PeachPuff3',
'PeachPuff4', 'Peru', 'Pink', 'Pink1', 'Pink2', 'Pink3', 'Pink4', 'Plum',
'Plum1', 'Plum2', 'Plum3', 'Plum4', 'PowderBlue', 'Purple1', 'Purple2',
'Purple3', 'Purple4', 'RebeccaPurple', 'Red1', 'Red2', 'Red3', 'Red4',
'RosyBrown', 'RosyBrown1', 'RosyBrown2', 'RosyBrown3', 'RosyBrown4',
'RoyalBlue', 'RoyalBlue1', 'RoyalBlue2', 'RoyalBlue3', 'RoyalBlue4',
'SaddleBrown', 'Salmon', 'Salmon1', 'Salmon2', 'Salmon3', 'Salmon4',
'SandyBrown', 'SeaGreen', 'SeaGreen1', 'SeaGreen2', 'SeaGreen3',
'SeaGreen4', 'SeaShell', 'SeaShell1', 'SeaShell2', 'SeaShell3',
'SeaShell4', 'Sienna', 'Sienna1', 'Sienna2', 'Sienna3', 'Sienna4',
'SkyBlue', 'SkyBlue1', 'SkyBlue2', 'SkyBlue3', 'SkyBlue4', 'SlateBlue',
'SlateBlue1', 'SlateBlue2', 'SlateBlue3', 'SlateBlue4', 'SlateGray',
'SlateGray1', 'SlateGray2', 'SlateGray3', 'SlateGray4', 'Snow', 'Snow1',
'Snow2', 'Snow3', 'Snow4', 'SpringGreen', 'SpringGreen1', 'SpringGreen2',
'SpringGreen3', 'SpringGreen4', 'SteelBlue', 'SteelBlue1', 'SteelBlue2',
'SteelBlue3', 'SteelBlue4', 'Tan', 'Tan1', 'Tan2', 'Tan3', 'Tan4',
'Thistle', 'Thistle1', 'Thistle2', 'Thistle3', 'Thistle4', 'Tomato',
'Tomato1', 'Tomato2', 'Tomato3', 'Tomato4', 'Turquoise', 'Turquoise1',
'Turquoise2', 'Turquoise3', 'Turquoise4', 'Violet', 'VioletRed',
'VioletRed1', 'VioletRed2', 'VioletRed3', 'VioletRed4', 'WebGray',
'WebGreen', 'WebMaroon', 'WebPurple', 'Wheat', 'Wheat1', 'Wheat2',
'Wheat3', 'Wheat4', 'WhiteSmoke', 'Yellow1', 'Yellow2', 'Yellow3',
'Yellow4', 'YellowGreen');
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;
FColArrayBak : 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;
procedure Backup;
procedure Changed;
property ColorElem[ix: longint]: TColor
read GetColorElem write SetColorElem; default;
function ColorToIndex (cl: TColor;
var distance: double): integer;
procedure CopyFrom (ColArraySource: TColorArray;
SourceElemLo, SourceElemHi,
DestElem: integer);
procedure Fill (Color: TColor);
procedure FillByInterpolation (DiscreteLevels: integer;
Colors: array of TColor);
procedure InvertColors;
function IsEqual (OtherColorArray: TColorArray): boolean;
function LoadFromFile (FileName: string;
AdjustSize: boolean): boolean;
procedure LogTransform (Gamma: double);
procedure MirrorColors;
function ReadFromOpenTextFile (var InFile: TextFile;
AdjustSize: boolean): boolean;
procedure Restore;
procedure ReverseRGB;
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;
function AdjustColorIntSat (Color: TColor; DeltaSat, DeltaInt: double): TColor;
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;
procedure ColorToHSL (Color: TColor; var Hue, Sat, Lum: double);
procedure ColorToHSI (Color: TColor; var Hue, Sat, Intens: double);
procedure ColorToHSV (Color: TColor; var Hue, Sat, Value: double);
function ContrastBWColor (Color: TColor): TColor;
function HexStrToColor (HexStr: string): TColor;
procedure HSItoRGB (Hue, Sat, Intens: double; var r, g, b: integer);
function HSItoColor (Hue, Sat, Intens: double): TColor;
function HSLtoColor (Hue, Sat, Lum: double): TColor;
procedure HSLtoRGB (Hue, Sat, Lum: double; var r, g, b: integer);
procedure HSVtoRGB (Hue, Sat, Value: double; var r, g, b: integer);
function HSVtoColor (Hue, Sat, Value: double): TColor;
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 ObtainColorName (cl: TColor): string; overload;
function ObtainColorName (cl: TColor; IncludeHexCode: boolean): string; overload;
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 RGBtoHSL (r, g, b: integer; var Hue, Sat, Lum: double);
procedure RGBtoHSI (r, g, b: integer; var Hue, Sat, Intens: double);
procedure RGBtoHSV (r, g, b: integer; var Hue, Sat, Value: double);
function WavelengthToColor (wl: integer; Gamma: double): TColor;
|