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_r1060_full';
  IsLightEd = false;
{$ELSE}
  SDLVersionInfo = 'sdlcolors_r1060_lighted';
  IsLightEd = true;
{$ENDIF}
  release = 1060;

{$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;
                    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  ObtainColorName (cl: TColor): string;
  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-Okt-20