The SDL Component Suite is an industry leading collection of components supporting scientific and engineering computing. Please visit the SDL Web site for more information....



Interface of SDL_SDLColors

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;





Last Update: 2012-Oct-20