/units/RxColors.pas

https://bitbucket.org/stden/rxlib · Pascal · 794 lines · 730 code · 43 blank · 21 comment · 7 complexity · e8d483aacf1fadd0c297ba43e84a6f52 MD5 · raw file 

    

  1. {*******************************************************}
    2. 

  2. {                                                       }
    3. 

  3. {         Delphi VCL Extensions (RX)                    }
    4. 

  4. {                                                       }
    5. 

  5. {         Copyright (c) 1997 Master-Bank                }
    6. 

  6. {                                                       }
    7. 

  7. { Patched by Polaris Software                           }
    8. 

  8. { Patched by Jouni Airaksinen                           }
    9. 

  9. {*******************************************************}
    10. 

  10. 

  11. unit RxColors;
    12. 

  12. 

  13. {$C PRELOAD}
    14. 

  14. {$I RX.INC}
    15. 

  15. {$DEFINE RX_COLOR_APPENDED}
    16. 

  16. interface
    17. 

  17. 

  18. uses Classes, Controls, Graphics, Forms, RxVCLUtils;
    19. 

  19. 

  20. function RxIdentToColor(const Ident: string; var Color: TColor): Boolean;
    21. 

  21. function RxColorToString(Color: TColor): string;
    22. 

  22. function RxStringToColor(S: string): TColor;
    23. 

  23. procedure RxGetColorValues(Proc: TGetStrProc); 
    24. 

  24. 

  25. const
    26. 

  26.   clInfoBk16 = TColor($02E1FFFF);
    27. 

  27.   clNone16 = TColor($02FFFFFF);
    28. 

  28. 

  29.   { Added colors }
    30. 

  30. 

  31.   clWavePale = TColor($00D0D0D0);         { selected tab }
    32. 

  32.   clWaveDarkGray = TColor($00505050);     { borders }
    33. 

  33.   clWaveGray = TColor($00A0A0A0);         { menus, unselected tabs }
    34. 

  34.   clWaveLightGray = TColor($00BCBCBC);    { gray button }
    35. 

  35. 

  36.   clWaveBeige = TColor($00B4C4C4);        { button face }
    37. 

  37.   clWaveBrightBeige = TColor($00BFFFFF);  { selected text }
    38. 

  38.   clWaveLightBeige = TColor($00D8E8E8);   { hotkey }
    39. 

  39. 

  40.   clWaveCyan = TColor($00C4C4B4);         { button face }
    41. 

  41.   clWaveBrightCyan = TColor($00FFFFBF);   { selected text }
    42. 

  42.   clWaveLightCyan = TColor($00E8E8D8);    { hotkey }
    43. 

  43. 

  44.   clWaveGreen = TColor($00B8BAB8);        { button face }
    45. 

  45.   clWaveBrightGreen = TColor($00CFFFCF);  { selected text }
    46. 

  46.   clWaveLightGreen = TColor($00DCE8DC);   { hotkey }
    47. 

  47. 

  48.   clWaveViolet = TColor($02C4C2B8);       { button face }
    49. 

  49.   clWaveBrightViolet = TColor($02FFCFCF); { selected text }
    50. 

  50.   clWaveLightViolet = TColor($02E8DCDC);  { hotkey }
    51. 

  51. 

  52.   { Standard Encarta & FlatStyle Color Constants }
    53. 

  53. 

  54.   clRxDarkBlue = TColor($00996633);
    55. 

  55.   clRxBlue = TColor($00CF9030);
    56. 

  56.   clRxLightBlue = TColor($00CFB78F);
    57. 

  57. 

  58.   clRxDarkRed = TColor($00302794);
    59. 

  59.   clRxRed = TColor($005F58B0);
    60. 

  60.   clRxLightRed = TColor($006963B6);
    61. 

  61. 

  62.   clRxDarkGreen = TColor($00385937);
    63. 

  63.   clRxGreen = TColor($00518150);
    64. 

  64.   clRxLightGreen = TColor($0093CAB1);
    65. 

  65. 

  66.   clRxDarkYellow = TColor($004EB6CF);
    67. 

  67.   clRxYellow = TColor($0057D1FF);
    68. 

  68.   clRxLightYellow = TColor($00B3F8FF);
    69. 

  69. 

  70.   clRxDarkBrown = TColor($00394D4D);
    71. 

  71.   clRxBrown = TColor($00555E66);
    72. 

  72.   clRxLightBrown = TColor($00829AA2);
    73. 

  73. 

  74.   clRxDarkKhaki = TColor($00D3D3D3);
    75. 

  75.   clRxKhaki = TColor($00C8D7D7);
    76. 

  76.   clRxLightKhaki = TColor($00E0E9EF);
    77. 

  77.   
    78. 

  78.   { added standard named html colors }
    79. 

  79.   clHtmBlack = TColor($00000000);
    80. 

  80.   clHtmGray0 = TColor($00171505);
    81. 

  81.   clHtmGray18 = TColor($00172505);
    82. 

  82.   clHtmGray21 = TColor($00172B1B);
    83. 

  83.   clHtmGray23 = TColor($00173022);
    84. 

  84.   clHtmGray24 = TColor($00263022);
    85. 

  85.   clHtmGray25 = TColor($00263428);
    86. 

  86.   clHtmGray26 = TColor($002C3428);
    87. 

  87.   clHtmGray27 = TColor($002C382D);
    88. 

  88.   clHtmGray28 = TColor($00313b31);
    89. 

  89.   clHtmGray29 = TColor($00353E35);
    90. 

  90.   clHtmGray30 = TColor($00394138);
    91. 

  91.   clHtmGray31 = TColor($003C4138);
    92. 

  92.   clHtmGray32 = TColor($003F463E);
    93. 

  93.   clHtmGray34 = TColor($00444A43);
    94. 

  94.   clHtmGray35 = TColor($00464C46);
    95. 

  95.   clHtmGray36 = TColor($00484E48);
    96. 

  96.   clHtmGray37 = TColor($004B504A);
    97. 

  97.   clHtmGray38 = TColor($004F544E);
    98. 

  98.   clHtmGray39 = TColor($00515650);
    99. 

  99.   clHtmGray40 = TColor($00545954);
    100. 

  100.   clHtmGray41 = TColor($00585C58);
    101. 

  101.   clHtmGray42 = TColor($00595F5A);
    102. 

  102.   clHtmGray43 = TColor($005D625D);
    103. 

  103.   clHtmGray44 = TColor($00606460);
    104. 

  104.   clHtmGray45 = TColor($00626663);
    105. 

  105.   clHtmGray46 = TColor($00656965);
    106. 

  106.   clHtmGray47 = TColor($00686D69);
    107. 

  107.   clHtmGray48 = TColor($006B6E6A);
    108. 

  108.   clHtmGray49 = TColor($006D726E);
    109. 

  109.   clHtmGray50 = TColor($00707471);
    110. 

  110.   clHtmGray = TColor($006E736F);
    111. 

  111.   clHtmSlateGray4 = TColor($007E616D);
    112. 

  112.   clHtmSlateGray = TColor($00836573);
    113. 

  113.   clHtmLightSteelBlue4 = TColor($007E646D);
    114. 

  114.   clHtmLightSlateGray = TColor($008D6D7B);
    115. 

  115.   clHtmCadetBlue4 = TColor($007E4C78);
    116. 

  116.   clHtmDarkSlateGray4 = TColor($007E4C7D);
    117. 

  117.   clHtmThistle4 = TColor($007E806D);
    118. 

  118.   clHtmMediumSlateBlue = TColor($00805E5A);
    119. 

  119.   clHtmMediumPurple4 = TColor($007E4E38);
    120. 

  120.   clHtmMidnightBlue = TColor($0054151B);
    121. 

  121.   clHtmDarkSlateBlue = TColor($00562B38);
    122. 

  122.   clHtmDarkSlateGray = TColor($003C2538);
    123. 

  123.   clHtmDimGray = TColor($0041463E);
    124. 

  124.   clHtmCornflowerBlue = TColor($008D151B);
    125. 

  125.   clHtmRoyalBlue4 = TColor($007E1531);
    126. 

  126.   clHtmSlateBlue4 = TColor($007E342D);
    127. 

  127.   clHtmRoyalBlue = TColor($00DE2B60);
    128. 

  128.   clHtmRoyalBlue1 = TColor($00FF306E);
    129. 

  129.   clHtmRoyalBlue2 = TColor($00EC2B65);
    130. 

  130.   clHtmRoyalBlue3 = TColor($00C72554);
    131. 

  131.   clHtmDeepSkyBlue = TColor($00FF3BB9);
    132. 

  132.   clHtmDeepSkyBlue2 = TColor($00EC38AC);
    133. 

  133.   clHtmSlateBlue = TColor($00C7357E);
    134. 

  134.   clHtmDeepSkyBlue3 = TColor($00C73090);
    135. 

  135.   clHtmDeepSkyBlue4 = TColor($007E2558);
    136. 

  136.   clHtmDodgerBlue = TColor($00FF1589);
    137. 

  137.   clHtmDodgerBlue2 = TColor($00EC157D);
    138. 

  138.   clHtmDodgerBlue3 = TColor($00C71569);
    139. 

  139.   clHtmDodgerBlue4 = TColor($007E153E);
    140. 

  140.   clHtmSteelBlue4 = TColor($007E2B54);
    141. 

  141.   clHtmSteelBlue = TColor($00A04863);
    142. 

  142.   clHtmSlateBlue2 = TColor($00EC6960);
    143. 

  143.   clHtmViolet = TColor($00C98D38);
    144. 

  144.   clHtmMediumPurple3 = TColor($00C77A5D);
    145. 

  145.   clHtmMediumPurple = TColor($00D78467);
    146. 

  146.   clHtmMediumPurple2 = TColor($00EC9172);
    147. 

  147.   clHtmMediumPurple1 = TColor($00FF9E7B);
    148. 

  148.   clHtmLightSteelBlue = TColor($00CE728F);
    149. 

  149.   clHtmSteelBlue3 = TColor($00C7488A);
    150. 

  150.   clHtmSteelBlue2 = TColor($00EC56A5);
    151. 

  151.   clHtmSteelBlue1 = TColor($00FF5CB3);
    152. 

  152.   clHtmSkyBlue3 = TColor($00C7659E);
    153. 

  153.   clHtmSkyBlue4 = TColor($007E4162);
    154. 

  154.   clHtmSlateBlue3 = TColor($00A1737C);
    155. 

  155.   clHtmSlateGray3 = TColor($00C798AF);
    156. 

  156.   clHtmVioletRed = TColor($008AF635);
    157. 

  157.   clHtmVioletRed1 = TColor($008AF635);
    158. 

  158.   clHtmVioletRed2 = TColor($007FE431);
    159. 

  159.   clHtmDeepPink = TColor($0087F528);
    160. 

  160.   clHtmDeepPink2 = TColor($007CE428);
    161. 

  161.   clHtmDeepPink3 = TColor($0067C122);
    162. 

  162.   clHtmDeepPink4 = TColor($003F7D05);
    163. 

  163.   clHtmMediumVioletRed = TColor($006BCA22);
    164. 

  164.   clHtmVioletRed3 = TColor($0069C128);
    165. 

  165.   clHtmFirebrick = TColor($00178005);
    166. 

  166.   clHtmVioletRed4 = TColor($00417D05);
    167. 

  167.   clHtmMaroon4 = TColor($00527D05);
    168. 

  168.   clHtmMaroon = TColor($00418105);
    169. 

  169.   clHtmMaroon3 = TColor($0083C122);
    170. 

  170.   clHtmMaroon2 = TColor($009DE331);
    171. 

  171.   clHtmMaroon1 = TColor($00AAF535);
    172. 

  172.   clHtmMagenta = TColor($00FFFF00);
    173. 

  173.   clHtmMagenta1 = TColor($00FFF433);
    174. 

  174.   clHtmMagenta2 = TColor($00ECE238);
    175. 

  175.   clHtmMagenta3 = TColor($00C7C031);
    176. 

  176.   clHtmMediumOrchid = TColor($00B5B048);
    177. 

  177.   clHtmMediumOrchid1 = TColor($00FFD462);
    178. 

  178.   clHtmMediumOrchid2 = TColor($00ECC45A);
    179. 

  179.   clHtmMediumOrchid3 = TColor($00C7A74A);
    180. 

  180.   clHtmMediumOrchid4 = TColor($007E6A28);
    181. 

  181.   clHtmPurple = TColor($00EF8E35);
    182. 

  182.   clHtmPurple1 = TColor($00FF893B);
    183. 

  183.   clHtmPurple2 = TColor($00EC7F38);
    184. 

  184.   clHtmPurple3 = TColor($00C76C2D);
    185. 

  185.   clHtmPurple4 = TColor($007E461B);
    186. 

  186.   clHtmDarkOrchid4 = TColor($007e571B);
    187. 

  187.   clHtmDarkOrchid = TColor($007E7D1B);
    188. 

  188.   clHtmDarkViolet = TColor($00CE842D);
    189. 

  189.   clHtmDarkOrchid3 = TColor($00C78B31);
    190. 

  190.   clHtmDarkOrchid2 = TColor($00ECA23B);
    191. 

  191.   clHtmDarkOrchid1 = TColor($00FFB041);
    192. 

  192.   clHtmPlum4 = TColor($007E7E58);
    193. 

  193.   clHtmPaleVioletRed = TColor($0087D165);
    194. 

  194.   clHtmPaleVioletRed1 = TColor($00A1F778);
    195. 

  195.   clHtmPaleVioletRed2 = TColor($0094E56E);
    196. 

  196.   clHtmPaleVioletRed3 = TColor($007CC25A);
    197. 

  197.   clHtmPaleVioletRed4 = TColor($004D7E35);
    198. 

  198.   clHtmPlum = TColor($008FB93B);
    199. 

  199.   clHtmPlum1 = TColor($00FFF9B7);
    200. 

  200.   clHtmPlum2 = TColor($00ECE6A9);
    201. 

  201.   clHtmPlum3 = TColor($00C7C38E);
    202. 

  202.   clHtmThistle = TColor($00D3D2B9);
    203. 

  203.   clHtmThistle3 = TColor($00C7C6AE);
    204. 

  204.   clHtmLavenderBlush2 = TColor($00E2EBDD);
    205. 

  205.   clHtmLavenderBlush3 = TColor($00BEC8BB);
    206. 

  206.   clHtmThistle2 = TColor($00ECE9CF);
    207. 

  207.   clHtmThistle1 = TColor($00FFFCDF);
    208. 

  208.   clHtmLavender = TColor($00FAE3E4);
    209. 

  209.   clHtmLavenderBlush = TColor($00F4FDEE);
    210. 

  210.   clHtmLightSteelBlue1 = TColor($00FFC6DE);
    211. 

  211.   clHtmLightBlue = TColor($00FFADDF);
    212. 

  212.   clHtmLightBlue1 = TColor($00FFBDED);
    213. 

  213.   clHtmLightCyan = TColor($00FFE0FF);
    214. 

  214.   clHtmSlateGray1 = TColor($00FFC2DF);
    215. 

  215.   clHtmSlateGray2 = TColor($00ECB4CF);
    216. 

  216.   clHtmLightSteelBlue2 = TColor($00ECB7CE);
    217. 

  217.   clHtmTurquoise1 = TColor($00FF52F3);
    218. 

  218.   clHtmCyan = TColor($00FF00FF);
    219. 

  219.   clHtmCyan1 = TColor($00FF57FE);
    220. 

  220.   clHtmCyan2 = TColor($00EC50EB);
    221. 

  221.   clHtmTurquoise2 = TColor($00EC4EE2);
    222. 

  222.   clHtmMediumTurquoise = TColor($00CD48CC);
    223. 

  223.   clHtmTurquoise = TColor($00DB43C6);
    224. 

  224.   clHtmDarkSlateGray1 = TColor($00FF9AFE);
    225. 

  225.   clHtmDarkSlateGray2 = TColor($00EC8EEB);
    226. 

  226.   clHtmDarkSlateGray3 = TColor($00c778c7);
    227. 

  227.   clHtmCyan3 = TColor($00C746C7);
    228. 

  228.   clHtmTurquoise3 = TColor($00C743BF);
    229. 

  229.   clHtmCadetBlue3 = TColor($00C777BF);
    230. 

  230.   clHtmPaleTurquoise3 = TColor($00C792C7);
    231. 

  231.   clHtmLightBlue2 = TColor($00ECAFDC);
    232. 

  232.   clHtmDarkTurquoise = TColor($009C3B9C);
    233. 

  233.   clHtmCyan4 = TColor($007E307D);
    234. 

  234.   clHtmLightSeaGreen = TColor($009F3EA9);
    235. 

  235.   clHtmLightSkyBlue = TColor($00FA82CA);
    236. 

  236.   clHtmLightSkyBlue2 = TColor($00ECA0CF);
    237. 

  237.   clHtmLightSkyBlue3 = TColor($00C787AF);
    238. 

  238.   clHtmSkyBlue = TColor($00FF82CA);
    239. 

  239.   clHtmSkyBlue2 = TColor($00EC79BA);
    240. 

  240.   clHtmLightSkyBlue4 = TColor($007E566D);
    241. 

  241.   clHtmSkyBlue5 = TColor($00FF6698);
    242. 

  242.   clHtmLightSlateBlue = TColor($00FF736A);
    243. 

  243.   clHtmLightCyan2 = TColor($00ECCFEC);
    244. 

  244.   clHtmLightCyan3 = TColor($00C7AFC7);
    245. 

  245.   clHtmLightCyan4 = TColor($007D717D);
    246. 

  246.   clHtmLightBlue3 = TColor($00C795B9);
    247. 

  247.   clHtmLightBlue4 = TColor($007E5E76);
    248. 

  248.   clHtmPaleTurquoise4 = TColor($007E5E7D);
    249. 

  249.   clHtmDarkSeaGreen4 = TColor($0058617C);
    250. 

  250.   clHtmMediumAquamarine = TColor($00813487);
    251. 

  251.   clHtmMediumSeaGreen = TColor($00543067);
    252. 

  252.   clHtmSeaGreen = TColor($00754E89);
    253. 

  253.   clHtmDarkGreen = TColor($00172541);
    254. 

  254.   clHtmSeaGreen4 = TColor($0044387C);
    255. 

  255.   clHtmForestGreen = TColor($00584E92);
    256. 

  256.   clHtmMediumForestGreen = TColor($00353472);
    257. 

  257.   clHtmSpringGreen4 = TColor($002C347C);
    258. 

  258.   clHtmDarkOliveGreen4 = TColor($0026667C);
    259. 

  259.   clHtmChartreuse4 = TColor($0017437C);
    260. 

  260.   clHtmGreen4 = TColor($0017347C);
    261. 

  261.   clHtmMediumSpringGreen = TColor($00173480);
    262. 

  262.   clHtmSpringGreen = TColor($002C4AA0);
    263. 

  263.   clHtmLimeGreen = TColor($001741A3);
    264. 

  264.   clHtmDarkSeaGreen = TColor($00818BB3);
    265. 

  265.   clHtmDarkSeaGreen3 = TColor($008E99C6);
    266. 

  266.   clHtmGreen3 = TColor($00174CC4);
    267. 

  267.   clHtmChartreuse3 = TColor($00176CC4);
    268. 

  268.   clHtmYellowGreen = TColor($001752D0);
    269. 

  269.   clHtmSpringGreen3 = TColor($00524CC5);
    270. 

  270.   clHtmSeaGreen3 = TColor($007154C5);
    271. 

  271.   clHtmSpringGreen2 = TColor($006457E9);
    272. 

  272.   clHtmSpringGreen1 = TColor($006E5EFB);
    273. 

  273.   clHtmSeaGreen2 = TColor($008664E9);
    274. 

  274.   clHtmSeaGreen1 = TColor($00926AFB);
    275. 

  275.   clHtmDarkSeaGreen2 = TColor($00AAB5EA);
    276. 

  276.   clHtmDarkSeaGreen1 = TColor($00B8C3FD);
    277. 

  277.   clHtmGreen = TColor($000000FF);
    278. 

  278.   clHtmLawnGreen = TColor($001787F7);
    279. 

  279.   clHtmGreen1 = TColor($00175FFB);
    280. 

  280.   clHtmGreen2 = TColor($001759E8);
    281. 

  281.   clHtmChartreuse2 = TColor($00177FE8);
    282. 

  282.   clHtmChartreuse = TColor($00178AFB);
    283. 

  283.   clHtmGreenYellow = TColor($0017B1FB);
    284. 

  284.   clHtmDarkOliveGreen1 = TColor($005DCCFB);
    285. 

  285.   clHtmDarkOliveGreen2 = TColor($0054BCE9);
    286. 

  286.   clHtmDarkOliveGreen3 = TColor($0044A0C5);
    287. 

  287.   clHtmYellow = TColor($0000FFFF);
    288. 

  288.   clHtmYellow1 = TColor($0017FFFC);
    289. 

  289.   clHtmKhaki1 = TColor($0080FFF3);
    290. 

  290.   clHtmKhaki2 = TColor($0075EDE2);
    291. 

  291.   clHtmGoldenrod = TColor($0074EDDA);
    292. 

  292.   clHtmGold2 = TColor($0017EAC1);
    293. 

  293.   clHtmGold1 = TColor($0017FDD0);
    294. 

  294.   clHtmGoldenrod1 = TColor($0017FBB9);
    295. 

  295.   clHtmGoldenrod2 = TColor($0017E9AB);
    296. 

  296.   clHtmGold = TColor($0017D4A0);
    297. 

  297.   clHtmGold3 = TColor($0017C7A3);
    298. 

  298.   clHtmGoldenrod3 = TColor($0017C68E);
    299. 

  299.   clHtmDarkGoldenrod = TColor($0017AF78);
    300. 

  300.   clHtmKhaki = TColor($006EADA9);
    301. 

  301.   clHtmKhaki3 = TColor($0062C9BE);
    302. 

  302.   clHtmKhaki4 = TColor($00398278);
    303. 

  303.   clHtmDarkGoldenrod1 = TColor($0017FBB1);
    304. 

  304.   clHtmDarkGoldenrod2 = TColor($0017E8A3);
    305. 

  305.   clHtmDarkGoldenrod3 = TColor($0017C589);
    306. 

  306.   clHtmSienna1 = TColor($0031F874);
    307. 

  307.   clHtmSienna2 = TColor($002CE66C);
    308. 

  308.   clHtmDarkOrange = TColor($0017F880);
    309. 

  309.   clHtmDarkOrange1 = TColor($0017F872);
    310. 

  310.   clHtmDarkOrange2 = TColor($0017E567);
    311. 

  311.   clHtmDarkOrange3 = TColor($0017C356);
    312. 

  312.   clHtmSienna3 = TColor($0017C358);
    313. 

  313.   clHtmSienna = TColor($00178A41);
    314. 

  314.   clHtmSienna4 = TColor($00177E35);
    315. 

  315.   clHtmIndianRed4 = TColor($00177E22);
    316. 

  316.   clHtmDarkOrange4 = TColor($00177E31);
    317. 

  317.   clHtmSalmon4 = TColor($00177E38);
    318. 

  318.   clHtmDarkGoldenrod4 = TColor($00177F52);
    319. 

  319.   clHtmGold4 = TColor($00178065);
    320. 

  320.   clHtmGoldenrod4 = TColor($00178058);
    321. 

  321.   clHtmLightSalmon4 = TColor($002C7F46);
    322. 

  322.   clHtmChocolate = TColor($0017C85A);
    323. 

  323.   clHtmCoral3 = TColor($002CC34A);
    324. 

  324.   clHtmCoral2 = TColor($003CE55B);
    325. 

  325.   clHtmCoral = TColor($0041F765);
    326. 

  326.   clHtmDarkSalmon = TColor($006BE18B);
    327. 

  327.   clHtmSalmon1 = TColor($0058F881);
    328. 

  328.   clHtmSalmon2 = TColor($0051E674);
    329. 

  329.   clHtmSalmon3 = TColor($0041C362);
    330. 

  330.   clHtmLightSalmon3 = TColor($0051C474);
    331. 

  331.   clHtmLightSalmon2 = TColor($0061E78A);
    332. 

  332.   clHtmLightSalmon = TColor($006BF996);
    333. 

  333.   clHtmSandyBrown = TColor($004DEE9A);
    334. 

  334.   clHtmHotPink = TColor($00ABF660);
    335. 

  335.   clHtmHotPink1 = TColor($00ABF665);
    336. 

  336.   clHtmHotPink2 = TColor($009DE45E);
    337. 

  337.   clHtmHotPink3 = TColor($0083C252);
    338. 

  338.   clHtmHotPink4 = TColor($00527D22);
    339. 

  339.   clHtmLightCoral = TColor($0071E774);
    340. 

  340.   clHtmIndianRed1 = TColor($0059F75D);
    341. 

  341.   clHtmIndianRed2 = TColor($0051E554);
    342. 

  342.   clHtmIndianRed3 = TColor($0041C246);
    343. 

  343.   clHtmRed = TColor($0000FF00);
    344. 

  344.   clHtmRed1 = TColor($0017F622);
    345. 

  345.   clHtmRed2 = TColor($0017E41B);
    346. 

  346.   clHtmFirebrick1 = TColor($0017F628);
    347. 

  347.   clHtmFirebrick2 = TColor($0017E422);
    348. 

  348.   clHtmFirebrick3 = TColor($0017C11B);
    349. 

  349.   clHtmPink = TColor($00BEFAAF);
    350. 

  350.   clHtmRosyBrown1 = TColor($00B9FBBB);
    351. 

  351.   clHtmRosyBrown2 = TColor($00AAE8AD);
    352. 

  352.   clHtmPink2 = TColor($00B0E7A1);
    353. 

  353.   clHtmLightPink = TColor($00BAFAAF);
    354. 

  354.   clHtmLightPink1 = TColor($00B0F9A7);
    355. 

  355.   clHtmLightPink2 = TColor($00A3E799);
    356. 

  356.   clHtmPink3 = TColor($0093C487);
    357. 

  357.   clHtmRosyBrown3 = TColor($008EC590);
    358. 

  358.   clHtmRosyBrown = TColor($0081B384);
    359. 

  359.   clHtmLightPink3 = TColor($0089C481);
    360. 

  360.   clHtmRosyBrown4 = TColor($00587F5A);
    361. 

  361.   clHtmLightPink4 = TColor($00527F4E);
    362. 

  362.   clHtmPink4 = TColor($005D7F52);
    363. 

  363.   clHtmLavenderBlush4 = TColor($00798176);
    364. 

  364.   clHtmLightGoldenrod4 = TColor($00398173);
    365. 

  365.   clHtmLemonChiffon4 = TColor($0060827B);
    366. 

  366.   clHtmLemonChiffon3 = TColor($0099C9C2);
    367. 

  367.   clHtmLightGoldenrod3 = TColor($0060C8B5);
    368. 

  368.   clHtmLightGolden2 = TColor($0072ECD6);
    369. 

  369.   clHtmLightGoldenrod = TColor($0072ECD8);
    370. 

  370.   clHtmLightGoldenrod1 = TColor($007CFFE8);
    371. 

  371.   clHtmLemonChiffon2 = TColor($00B6ECE5);
    372. 

  372.   clHtmLemonChiffon = TColor($00C6FFF8);
    373. 

  373.   clHtmLightGoldenrodYellow = TColor($00CCFAF8);
    374. 

  374. 

  375. implementation
    376. 

  376. 

  377. uses
    378. 

  378.   {$IFDEF RX_D5}Windows, {$ENDIF}SysUtils; // Polaris
    379. 

  379. 

  380. type
    381. 

  381.   TColorEntry = record
    382. 

  382.     Value: TColor;
    383. 

  383.     Name: PChar;
    384. 

  384.   end;
    385. 

  385. 

  386. const
    387. 

  387.   ColorCount = 3 {$IFDEF RX_COLOR_APPENDED}+ 34 + 295{$ENDIF};
    388. 

  388. 

  389.   Colors: array[0..ColorCount - 1] of TColorEntry = (
    390. 

  390. 

  391.     (Value: clCream; Name: 'clCream'),
    392. 

  392.     (Value: clMoneyGreen; Name: 'clMoneyGreen'),
    393. 

  393.     (Value: clSkyBlue; Name: 'clSkyBlue')
    394. 

  394.     {$IFDEF RX_COLOR_APPENDED},
    395. 

  395.     { added colors }
    396. 

  396. 

  397.     (Value: clWavePale; Name: 'clWavePale'),
    398. 

  398.     (Value: clWaveDarkGray; Name: 'clWaveDarkGray'),
    399. 

  399.     (Value: clWaveGray; Name: 'clWaveGray'),
    400. 

  400.     (Value: clWaveLightGray; Name: 'clWaveLightGray'),
    401. 

  401. 

  402.     (Value: clWaveBeige; Name: 'clWaveBeige'),
    403. 

  403.     (Value: clWaveBrightBeige; Name: 'clWaveBrightBeige'),
    404. 

  404.     (Value: clWaveLightBeige; Name: 'clWaveLightBeige'),
    405. 

  405. 

  406.     (Value: clWaveCyan; Name: 'clWaveCyan'),
    407. 

  407.     (Value: clWaveBrightCyan; Name: 'clWaveBrightCyan'),
    408. 

  408.     (Value: clWaveLightCyan; Name: 'clWaveLightCyan'),
    409. 

  409. 

  410.     (Value: clWaveGreen; Name: 'clWaveGreen'),
    411. 

  411.     (Value: clWaveBrightGreen; Name: 'clWaveBrightGreen'),
    412. 

  412.     (Value: clWaveLightGreen; Name: 'clWaveLightGreen'),
    413. 

  413. 

  414.     (Value: clWaveViolet; Name: 'clWaveViolet'),
    415. 

  415.     (Value: clWaveBrightViolet; Name: 'clWaveBrightViolet'),
    416. 

  416.     (Value: clWaveLightViolet; Name: 'clWaveLightViolet'),
    417. 

  417. 

  418.     { Standard Encarta & FlatStyle Color Constants }
    419. 

  419. 

  420.     (Value: clRxDarkBlue; Name: 'clRxDarkBlue'),
    421. 

  421.     (Value: clRxBlue; Name: 'clRxBlue'),
    422. 

  422.     (Value: clRxLightBlue; Name: 'clRxLightBlue'),
    423. 

  423. 

  424.     (Value: clRxDarkRed; Name: 'clRxDarkRed'),
    425. 

  425.     (Value: clRxRed; Name: 'clRxRed'),
    426. 

  426.     (Value: clRxLightRed; Name: 'clRxLightRed'),
    427. 

  427. 

  428.     (Value: clRxDarkGreen; Name: 'clRxDarkGreen'),
    429. 

  429.     (Value: clRxGreen; Name: 'clRxGreen'),
    430. 

  430.     (Value: clRxLightGreen; Name: 'clRxLightGreen'),
    431. 

  431. 

  432.     (Value: clRxDarkYellow; Name: 'clRxDarkYellow'),
    433. 

  433.     (Value: clRxYellow; Name: 'clRxYellow'),
    434. 

  434.     (Value: clRxLightYellow; Name: 'clRxLightYellow'),
    435. 

  435. 

  436.     (Value: clRxDarkBrown; Name: 'clRxDarkBrown'),
    437. 

  437.     (Value: clRxBrown; Name: 'clRxBrown'),
    438. 

  438.     (Value: clRxLightBrown; Name: 'clRxLightBrown'),
    439. 

  439. 

  440.     (Value: clRxDarkKhaki; Name: 'clRxDarkKhaki'),
    441. 

  441.     (Value: clRxKhaki; Name: 'clRxKhaki'),
    442. 

  442.     (Value: clRxLightKhaki; Name: 'clRxLightKhaki'),
    443. 

  443.     
    444. 

  444.     { added standard named html colors }
    445. 

  445.     (Value: clHtmBlack; Name: 'clHtmBlack'),
    446. 

  446.     (Value: clHtmGray0; Name: 'clHtmGray0'),
    447. 

  447.     (Value: clHtmGray18; Name: 'clHtmGray18'),
    448. 

  448.     (Value: clHtmGray21; Name: 'clHtmGray21'),
    449. 

  449.     (Value: clHtmGray23; Name: 'clHtmGray23'),
    450. 

  450.     (Value: clHtmGray24; Name: 'clHtmGray24'),
    451. 

  451.     (Value: clHtmGray25; Name: 'clHtmGray25'),
    452. 

  452.     (Value: clHtmGray26; Name: 'clHtmGray26'),
    453. 

  453.     (Value: clHtmGray27; Name: 'clHtmGray27'),
    454. 

  454.     (Value: clHtmGray28; Name: 'clHtmGray28'),
    455. 

  455.     (Value: clHtmGray29; Name: 'clHtmGray29'),
    456. 

  456.     (Value: clHtmGray30; Name: 'clHtmGray30'),
    457. 

  457.     (Value: clHtmGray31; Name: 'clHtmGray31'),
    458. 

  458.     (Value: clHtmGray32; Name: 'clHtmGray32'),
    459. 

  459.     (Value: clHtmGray34; Name: 'clHtmGray34'),
    460. 

  460.     (Value: clHtmGray35; Name: 'clHtmGray35'),
    461. 

  461.     (Value: clHtmGray36; Name: 'clHtmGray36'),
    462. 

  462.     (Value: clHtmGray37; Name: 'clHtmGray37'),
    463. 

  463.     (Value: clHtmGray38; Name: 'clHtmGray38'),
    464. 

  464.     (Value: clHtmGray39; Name: 'clHtmGray39'),
    465. 

  465.     (Value: clHtmGray40; Name: 'clHtmGray40'),
    466. 

  466.     (Value: clHtmGray41; Name: 'clHtmGray41'),
    467. 

  467.     (Value: clHtmGray42; Name: 'clHtmGray42'),
    468. 

  468.     (Value: clHtmGray43; Name: 'clHtmGray43'),
    469. 

  469.     (Value: clHtmGray44; Name: 'clHtmGray44'),
    470. 

  470.     (Value: clHtmGray45; Name: 'clHtmGray45'),
    471. 

  471.     (Value: clHtmGray46; Name: 'clHtmGray46'),
    472. 

  472.     (Value: clHtmGray47; Name: 'clHtmGray47'),
    473. 

  473.     (Value: clHtmGray48; Name: 'clHtmGray48'),
    474. 

  474.     (Value: clHtmGray49; Name: 'clHtmGray49'),
    475. 

  475.     (Value: clHtmGray50; Name: 'clHtmGray50'),
    476. 

  476.     (Value: clHtmGray; Name: 'clHtmGray'),
    477. 

  477.     (Value: clHtmSlateGray4; Name: 'clHtmSlateGray4'),
    478. 

  478.     (Value: clHtmSlateGray; Name: 'clHtmSlateGray'),
    479. 

  479.     (Value: clHtmLightSteelBlue4; Name: 'clHtmLightSteelBlue4'),
    480. 

  480.     (Value: clHtmLightSlateGray; Name: 'clHtmLightSlateGray'),
    481. 

  481.     (Value: clHtmCadetBlue4; Name: 'clHtmCadetBlue4'),
    482. 

  482.     (Value: clHtmDarkSlateGray4; Name: 'clHtmDarkSlateGray4'),
    483. 

  483.     (Value: clHtmThistle4; Name: 'clHtmThistle4'),
    484. 

  484.     (Value: clHtmMediumSlateBlue; Name: 'clHtmMediumSlateBlue'),
    485. 

  485.     (Value: clHtmMediumPurple4; Name: 'clHtmMediumPurple4'),
    486. 

  486.     (Value: clHtmMidnightBlue; Name: 'clHtmMidnightBlue'),
    487. 

  487.     (Value: clHtmDarkSlateBlue; Name: 'clHtmDarkSlateBlue'),
    488. 

  488.     (Value: clHtmDarkSlateGray; Name: 'clHtmDarkSlateGray'),
    489. 

  489.     (Value: clHtmDimGray; Name: 'clHtmDimGray'),
    490. 

  490.     (Value: clHtmCornflowerBlue; Name: 'clHtmCornflowerBlue'),
    491. 

  491.     (Value: clHtmRoyalBlue4; Name: 'clHtmRoyalBlue4'),
    492. 

  492.     (Value: clHtmSlateBlue4; Name: 'clHtmSlateBlue4'),
    493. 

  493.     (Value: clHtmRoyalBlue; Name: 'clHtmRoyalBlue'),
    494. 

  494.     (Value: clHtmRoyalBlue1; Name: 'clHtmRoyalBlue1'),
    495. 

  495.     (Value: clHtmRoyalBlue2; Name: 'clHtmRoyalBlue2'),
    496. 

  496.     (Value: clHtmRoyalBlue3; Name: 'clHtmRoyalBlue3'),
    497. 

  497.     (Value: clHtmDeepSkyBlue; Name: 'clHtmDeepSkyBlue'),
    498. 

  498.     (Value: clHtmDeepSkyBlue2; Name: 'clHtmDeepSkyBlue2'),
    499. 

  499.     (Value: clHtmSlateBlue; Name: 'clHtmSlateBlue'),
    500. 

  500.     (Value: clHtmDeepSkyBlue3; Name: 'clHtmDeepSkyBlue3'),
    501. 

  501.     (Value: clHtmDeepSkyBlue4; Name: 'clHtmDeepSkyBlue4'),
    502. 

  502.     (Value: clHtmDodgerBlue; Name: 'clHtmDodgerBlue'),
    503. 

  503.     (Value: clHtmDodgerBlue2; Name: 'clHtmDodgerBlue2'),
    504. 

  504.     (Value: clHtmDodgerBlue3; Name: 'clHtmDodgerBlue3'),
    505. 

  505.     (Value: clHtmDodgerBlue4; Name: 'clHtmDodgerBlue4'),
    506. 

  506.     (Value: clHtmSteelBlue4; Name: 'clHtmSteelBlue4'),
    507. 

  507.     (Value: clHtmSteelBlue; Name: 'clHtmSteelBlue'),
    508. 

  508.     (Value: clHtmSlateBlue2; Name: 'clHtmSlateBlue2'),
    509. 

  509.     (Value: clHtmViolet; Name: 'clHtmViolet'),
    510. 

  510.     (Value: clHtmMediumPurple3; Name: 'clHtmMediumPurple3'),
    511. 

  511.     (Value: clHtmMediumPurple; Name: 'clHtmMediumPurple'),
    512. 

  512.     (Value: clHtmMediumPurple2; Name: 'clHtmMediumPurple2'),
    513. 

  513.     (Value: clHtmMediumPurple1; Name: 'clHtmMediumPurple1'),
    514. 

  514.     (Value: clHtmLightSteelBlue; Name: 'clHtmLightSteelBlue'),
    515. 

  515.     (Value: clHtmSteelBlue3; Name: 'clHtmSteelBlue3'),
    516. 

  516.     (Value: clHtmSteelBlue2; Name: 'clHtmSteelBlue2'),
    517. 

  517.     (Value: clHtmSteelBlue1; Name: 'clHtmSteelBlue1'),
    518. 

  518.     (Value: clHtmSkyBlue3; Name: 'clHtmSkyBlue3'),
    519. 

  519.     (Value: clHtmSkyBlue4; Name: 'clHtmSkyBlue4'),
    520. 

  520.     (Value: clHtmSlateBlue3; Name: 'clHtmSlateBlue3'),
    521. 

  521.     (Value: clHtmSlateGray3; Name: 'clHtmSlateGray3'),
    522. 

  522.     (Value: clHtmVioletRed; Name: 'clHtmVioletRed'),
    523. 

  523.     (Value: clHtmVioletRed1; Name: 'clHtmVioletRed1'),
    524. 

  524.     (Value: clHtmVioletRed2; Name: 'clHtmVioletRed2'),
    525. 

  525.     (Value: clHtmDeepPink; Name: 'clHtmDeepPink'),
    526. 

  526.     (Value: clHtmDeepPink2; Name: 'clHtmDeepPink2'),
    527. 

  527.     (Value: clHtmDeepPink3; Name: 'clHtmDeepPink3'),
    528. 

  528.     (Value: clHtmDeepPink4; Name: 'clHtmDeepPink4'),
    529. 

  529.     (Value: clHtmMediumVioletRed; Name: 'clHtmMediumVioletRed'),
    530. 

  530.     (Value: clHtmVioletRed3; Name: 'clHtmVioletRed3'),
    531. 

  531.     (Value: clHtmFirebrick; Name: 'clHtmFirebrick'),
    532. 

  532.     (Value: clHtmVioletRed4; Name: 'clHtmVioletRed4'),
    533. 

  533.     (Value: clHtmMaroon4; Name: 'clHtmMaroon4'),
    534. 

  534.     (Value: clHtmMaroon; Name: 'clHtmMaroon'),
    535. 

  535.     (Value: clHtmMaroon3; Name: 'clHtmMaroon3'),
    536. 

  536.     (Value: clHtmMaroon2; Name: 'clHtmMaroon2'),
    537. 

  537.     (Value: clHtmMaroon1; Name: 'clHtmMaroon1'),
    538. 

  538.     (Value: clHtmMagenta; Name: 'clHtmMagenta'),
    539. 

  539.     (Value: clHtmMagenta1; Name: 'clHtmMagenta1'),
    540. 

  540.     (Value: clHtmMagenta2; Name: 'clHtmMagenta2'),
    541. 

  541.     (Value: clHtmMagenta3; Name: 'clHtmMagenta3'),
    542. 

  542.     (Value: clHtmMediumOrchid; Name: 'clHtmMediumOrchid'),
    543. 

  543.     (Value: clHtmMediumOrchid1; Name: 'clHtmMediumOrchid1'),
    544. 

  544.     (Value: clHtmMediumOrchid2; Name: 'clHtmMediumOrchid2'),
    545. 

  545.     (Value: clHtmMediumOrchid3; Name: 'clHtmMediumOrchid3'),
    546. 

  546.     (Value: clHtmMediumOrchid4; Name: 'clHtmMediumOrchid4'),
    547. 

  547.     (Value: clHtmPurple; Name: 'clHtmPurple'),
    548. 

  548.     (Value: clHtmPurple1; Name: 'clHtmPurple1'),
    549. 

  549.     (Value: clHtmPurple2; Name: 'clHtmPurple2'),
    550. 

  550.     (Value: clHtmPurple3; Name: 'clHtmPurple3'),
    551. 

  551.     (Value: clHtmPurple4; Name: 'clHtmPurple4'),
    552. 

  552.     (Value: clHtmDarkOrchid4; Name: 'clHtmDarkOrchid4'),
    553. 

  553.     (Value: clHtmDarkOrchid; Name: 'clHtmDarkOrchid'),
    554. 

  554.     (Value: clHtmDarkViolet; Name: 'clHtmDarkViolet'),
    555. 

  555.     (Value: clHtmDarkOrchid3; Name: 'clHtmDarkOrchid3'),
    556. 

  556.     (Value: clHtmDarkOrchid2; Name: 'clHtmDarkOrchid2'),
    557. 

  557.     (Value: clHtmDarkOrchid1; Name: 'clHtmDarkOrchid1'),
    558. 

  558.     (Value: clHtmPlum4; Name: 'clHtmPlum4'),
    559. 

  559.     (Value: clHtmPaleVioletRed; Name: 'clHtmPaleVioletRed'),
    560. 

  560.     (Value: clHtmPaleVioletRed1; Name: 'clHtmPaleVioletRed1'),
    561. 

  561.     (Value: clHtmPaleVioletRed2; Name: 'clHtmPaleVioletRed2'),
    562. 

  562.     (Value: clHtmPaleVioletRed3; Name: 'clHtmPaleVioletRed3'),
    563. 

  563.     (Value: clHtmPaleVioletRed4; Name: 'clHtmPaleVioletRed4'),
    564. 

  564.     (Value: clHtmPlum; Name: 'clHtmPlum'),
    565. 

  565.     (Value: clHtmPlum1; Name: 'clHtmPlum1'),
    566. 

  566.     (Value: clHtmPlum2; Name: 'clHtmPlum2'),
    567. 

  567.     (Value: clHtmPlum3; Name: 'clHtmPlum3'),
    568. 

  568.     (Value: clHtmThistle; Name: 'clHtmThistle'),
    569. 

  569.     (Value: clHtmThistle3; Name: 'clHtmThistle3'),
    570. 

  570.     (Value: clHtmLavenderBlush2; Name: 'clHtmLavenderBlush2'),
    571. 

  571.     (Value: clHtmLavenderBlush3; Name: 'clHtmLavenderBlush3'),
    572. 

  572.     (Value: clHtmThistle2; Name: 'clHtmThistle2'),
    573. 

  573.     (Value: clHtmThistle1; Name: 'clHtmThistle1'),
    574. 

  574.     (Value: clHtmLavender; Name: 'clHtmLavender'),
    575. 

  575.     (Value: clHtmLavenderBlush; Name: 'clHtmLavenderBlush'),
    576. 

  576.     (Value: clHtmLightSteelBlue1; Name: 'clHtmLightSteelBlue1'),
    577. 

  577.     (Value: clHtmLightBlue; Name: 'clHtmLightBlue'),
    578. 

  578.     (Value: clHtmLightBlue1; Name: 'clHtmLightBlue1'),
    579. 

  579.     (Value: clHtmLightCyan; Name: 'clHtmLightCyan'),
    580. 

  580.     (Value: clHtmSlateGray1; Name: 'clHtmSlateGray1'),
    581. 

  581.     (Value: clHtmSlateGray2; Name: 'clHtmSlateGray2'),
    582. 

  582.     (Value: clHtmLightSteelBlue2; Name: 'clHtmLightSteelBlue2'),
    583. 

  583.     (Value: clHtmTurquoise1; Name: 'clHtmTurquoise1'),
    584. 

  584.     (Value: clHtmCyan; Name: 'clHtmCyan'),
    585. 

  585.     (Value: clHtmCyan1; Name: 'clHtmCyan1'),
    586. 

  586.     (Value: clHtmCyan2; Name: 'clHtmCyan2'),
    587. 

  587.     (Value: clHtmTurquoise2; Name: 'clHtmTurquoise2'),
    588. 

  588.     (Value: clHtmMediumTurquoise; Name: 'clHtmMediumTurquoise'),
    589. 

  589.     (Value: clHtmTurquoise; Name: 'clHtmTurquoise'),
    590. 

  590.     (Value: clHtmDarkSlateGray1; Name: 'clHtmDarkSlateGray1'),
    591. 

  591.     (Value: clHtmDarkSlateGray2; Name: 'clHtmDarkSlateGray2'),
    592. 

  592.     (Value: clHtmDarkSlateGray3; Name: 'clHtmDarkSlateGray3'),
    593. 

  593.     (Value: clHtmCyan3; Name: 'clHtmCyan3'),
    594. 

  594.     (Value: clHtmTurquoise3; Name: 'clHtmTurquoise3'),
    595. 

  595.     (Value: clHtmCadetBlue3; Name: 'clHtmCadetBlue3'),
    596. 

  596.     (Value: clHtmPaleTurquoise3; Name: 'clHtmPaleTurquoise3'),
    597. 

  597.     (Value: clHtmLightBlue2; Name: 'clHtmLightBlue2'),
    598. 

  598.     (Value: clHtmDarkTurquoise; Name: 'clHtmDarkTurquoise'),
    599. 

  599.     (Value: clHtmCyan4; Name: 'clHtmCyan4'),
    600. 

  600.     (Value: clHtmLightSeaGreen; Name: 'clHtmLightSeaGreen'),
    601. 

  601.     (Value: clHtmLightSkyBlue; Name: 'clHtmLightSkyBlue'),
    602. 

  602.     (Value: clHtmLightSkyBlue2; Name: 'clHtmLightSkyBlue2'),
    603. 

  603.     (Value: clHtmLightSkyBlue3; Name: 'clHtmLightSkyBlue3'),
    604. 

  604.     (Value: clHtmSkyBlue; Name: 'clHtmSkyBlue'),
    605. 

  605.     (Value: clHtmSkyBlue2; Name: 'clHtmSkyBlue2'),
    606. 

  606.     (Value: clHtmLightSkyBlue4; Name: 'clHtmLightSkyBlue4'),
    607. 

  607.     (Value: clHtmSkyBlue5; Name: 'clHtmSkyBlue5'),
    608. 

  608.     (Value: clHtmLightSlateBlue; Name: 'clHtmLightSlateBlue'),
    609. 

  609.     (Value: clHtmLightCyan2; Name: 'clHtmLightCyan2'),
    610. 

  610.     (Value: clHtmLightCyan3; Name: 'clHtmLightCyan3'),
    611. 

  611.     (Value: clHtmLightCyan4; Name: 'clHtmLightCyan4'),
    612. 

  612.     (Value: clHtmLightBlue3; Name: 'clHtmLightBlue3'),
    613. 

  613.     (Value: clHtmLightBlue4; Name: 'clHtmLightBlue4'),
    614. 

  614.     (Value: clHtmPaleTurquoise4; Name: 'clHtmPaleTurquoise4'),
    615. 

  615.     (Value: clHtmDarkSeaGreen4; Name: 'clHtmDarkSeaGreen4'),
    616. 

  616.     (Value: clHtmMediumAquamarine; Name: 'clHtmMediumAquamarine'),
    617. 

  617.     (Value: clHtmMediumSeaGreen; Name: 'clHtmMediumSeaGreen'),
    618. 

  618.     (Value: clHtmSeaGreen; Name: 'clHtmSeaGreen'),
    619. 

  619.     (Value: clHtmDarkGreen; Name: 'clHtmDarkGreen'),
    620. 

  620.     (Value: clHtmSeaGreen4; Name: 'clHtmSeaGreen4'),
    621. 

  621.     (Value: clHtmForestGreen; Name: 'clHtmForestGreen'),
    622. 

  622.     (Value: clHtmMediumForestGreen; Name: 'clHtmMediumForestGreen'),
    623. 

  623.     (Value: clHtmSpringGreen4; Name: 'clHtmSpringGreen4'),
    624. 

  624.     (Value: clHtmDarkOliveGreen4; Name: 'clHtmDarkOliveGreen4'),
    625. 

  625.     (Value: clHtmChartreuse4; Name: 'clHtmChartreuse4'),
    626. 

  626.     (Value: clHtmGreen4; Name: 'clHtmGreen4'),
    627. 

  627.     (Value: clHtmMediumSpringGreen; Name: 'clHtmMediumSpringGreen'),
    628. 

  628.     (Value: clHtmSpringGreen; Name: 'clHtmSpringGreen'),
    629. 

  629.     (Value: clHtmLimeGreen; Name: 'clHtmLimeGreen'),
    630. 

  630.     (Value: clHtmDarkSeaGreen; Name: 'clHtmDarkSeaGreen'),
    631. 

  631.     (Value: clHtmDarkSeaGreen3; Name: 'clHtmDarkSeaGreen3'),
    632. 

  632.     (Value: clHtmGreen3; Name: 'clHtmGreen3'),
    633. 

  633.     (Value: clHtmChartreuse3; Name: 'clHtmChartreuse3'),
    634. 

  634.     (Value: clHtmYellowGreen; Name: 'clHtmYellowGreen'),
    635. 

  635.     (Value: clHtmSpringGreen3; Name: 'clHtmSpringGreen3'),
    636. 

  636.     (Value: clHtmSeaGreen3; Name: 'clHtmSeaGreen3'),
    637. 

  637.     (Value: clHtmSpringGreen2; Name: 'clHtmSpringGreen2'),
    638. 

  638.     (Value: clHtmSpringGreen1; Name: 'clHtmSpringGreen1'),
    639. 

  639.     (Value: clHtmSeaGreen2; Name: 'clHtmSeaGreen2'),
    640. 

  640.     (Value: clHtmSeaGreen1; Name: 'clHtmSeaGreen1'),
    641. 

  641.     (Value: clHtmDarkSeaGreen2; Name: 'clHtmDarkSeaGreen2'),
    642. 

  642.     (Value: clHtmDarkSeaGreen1; Name: 'clHtmDarkSeaGreen1'),
    643. 

  643.     (Value: clHtmGreen; Name: 'clHtmGreen'),
    644. 

  644.     (Value: clHtmLawnGreen; Name: 'clHtmLawnGreen'),
    645. 

  645.     (Value: clHtmGreen1; Name: 'clHtmGreen1'),
    646. 

  646.     (Value: clHtmGreen2; Name: 'clHtmGreen2'),
    647. 

  647.     (Value: clHtmChartreuse2; Name: 'clHtmChartreuse2'),
    648. 

  648.     (Value: clHtmChartreuse; Name: 'clHtmChartreuse'),
    649. 

  649.     (Value: clHtmGreenYellow; Name: 'clHtmGreenYellow'),
    650. 

  650.     (Value: clHtmDarkOliveGreen1; Name: 'clHtmDarkOliveGreen1'),
    651. 

  651.     (Value: clHtmDarkOliveGreen2; Name: 'clHtmDarkOliveGreen2'),
    652. 

  652.     (Value: clHtmDarkOliveGreen3; Name: 'clHtmDarkOliveGreen3'),
    653. 

  653.     (Value: clHtmYellow; Name: 'clHtmYellow'),
    654. 

  654.     (Value: clHtmYellow1; Name: 'clHtmYellow1'),
    655. 

  655.     (Value: clHtmKhaki1; Name: 'clHtmKhaki1'),
    656. 

  656.     (Value: clHtmKhaki2; Name: 'clHtmKhaki2'),
    657. 

  657.     (Value: clHtmGoldenrod; Name: 'clHtmGoldenrod'),
    658. 

  658.     (Value: clHtmGold2; Name: 'clHtmGold2'),
    659. 

  659.     (Value: clHtmGold1; Name: 'clHtmGold1'),
    660. 

  660.     (Value: clHtmGoldenrod1; Name: 'clHtmGoldenrod1'),
    661. 

  661.     (Value: clHtmGoldenrod2; Name: 'clHtmGoldenrod2'),
    662. 

  662.     (Value: clHtmGold; Name: 'clHtmGold'),
    663. 

  663.     (Value: clHtmGold3; Name: 'clHtmGold3'),
    664. 

  664.     (Value: clHtmGoldenrod3; Name: 'clHtmGoldenrod3'),
    665. 

  665.     (Value: clHtmDarkGoldenrod; Name: 'clHtmDarkGoldenrod'),
    666. 

  666.     (Value: clHtmKhaki; Name: 'clHtmKhaki'),
    667. 

  667.     (Value: clHtmKhaki3; Name: 'clHtmKhaki3'),
    668. 

  668.     (Value: clHtmKhaki4; Name: 'clHtmKhaki4'),
    669. 

  669.     (Value: clHtmDarkGoldenrod1; Name: 'clHtmDarkGoldenrod1'),
    670. 

  670.     (Value: clHtmDarkGoldenrod2; Name: 'clHtmDarkGoldenrod2'),
    671. 

  671.     (Value: clHtmDarkGoldenrod3; Name: 'clHtmDarkGoldenrod3'),
    672. 

  672.     (Value: clHtmSienna1; Name: 'clHtmSienna1'),
    673. 

  673.     (Value: clHtmSienna2; Name: 'clHtmSienna2'),
    674. 

  674.     (Value: clHtmDarkOrange; Name: 'clHtmDarkOrange'),
    675. 

  675.     (Value: clHtmDarkOrange1; Name: 'clHtmDarkOrange1'),
    676. 

  676.     (Value: clHtmDarkOrange2; Name: 'clHtmDarkOrange2'),
    677. 

  677.     (Value: clHtmDarkOrange3; Name: 'clHtmDarkOrange3'),
    678. 

  678.     (Value: clHtmSienna3; Name: 'clHtmSienna3'),
    679. 

  679.     (Value: clHtmSienna; Name: 'clHtmSienna'),
    680. 

  680.     (Value: clHtmSienna4; Name: 'clHtmSienna4'),
    681. 

  681.     (Value: clHtmIndianRed4; Name: 'clHtmIndianRed4'),
    682. 

  682.     (Value: clHtmDarkOrange4; Name: 'clHtmDarkOrange4'),
    683. 

  683.     (Value: clHtmSalmon4; Name: 'clHtmSalmon4'),
    684. 

  684.     (Value: clHtmDarkGoldenrod4; Name: 'clHtmDarkGoldenrod4'),
    685. 

  685.     (Value: clHtmGold4; Name: 'clHtmGold4'),
    686. 

  686.     (Value: clHtmGoldenrod4; Name: 'clHtmGoldenrod4'),
    687. 

  687.     (Value: clHtmLightSalmon4; Name: 'clHtmLightSalmon4'),
    688. 

  688.     (Value: clHtmChocolate; Name: 'clHtmChocolate'),
    689. 

  689.     (Value: clHtmCoral3; Name: 'clHtmCoral3'),
    690. 

  690.     (Value: clHtmCoral2; Name: 'clHtmCoral2'),
    691. 

  691.     (Value: clHtmCoral; Name: 'clHtmCoral'),
    692. 

  692.     (Value: clHtmDarkSalmon; Name: 'clHtmDarkSalmon'),
    693. 

  693.     (Value: clHtmSalmon1; Name: 'clHtmSalmon1'),
    694. 

  694.     (Value: clHtmSalmon2; Name: 'clHtmSalmon2'),
    695. 

  695.     (Value: clHtmSalmon3; Name: 'clHtmSalmon3'),
    696. 

  696.     (Value: clHtmLightSalmon3; Name: 'clHtmLightSalmon3'),
    697. 

  697.     (Value: clHtmLightSalmon2; Name: 'clHtmLightSalmon2'),
    698. 

  698.     (Value: clHtmLightSalmon; Name: 'clHtmLightSalmon'),
    699. 

  699.     (Value: clHtmSandyBrown; Name: 'clHtmSandyBrown'),
    700. 

  700.     (Value: clHtmHotPink; Name: 'clHtmHotPink'),
    701. 

  701.     (Value: clHtmHotPink1; Name: 'clHtmHotPink1'),
    702. 

  702.     (Value: clHtmHotPink2; Name: 'clHtmHotPink2'),
    703. 

  703.     (Value: clHtmHotPink3; Name: 'clHtmHotPink3'),
    704. 

  704.     (Value: clHtmHotPink4; Name: 'clHtmHotPink4'),
    705. 

  705.     (Value: clHtmLightCoral; Name: 'clHtmLightCoral'),
    706. 

  706.     (Value: clHtmIndianRed1; Name: 'clHtmIndianRed1'),
    707. 

  707.     (Value: clHtmIndianRed2; Name: 'clHtmIndianRed2'),
    708. 

  708.     (Value: clHtmIndianRed3; Name: 'clHtmIndianRed3'),
    709. 

  709.     (Value: clHtmRed; Name: 'clHtmRed'),
    710. 

  710.     (Value: clHtmRed1; Name: 'clHtmRed1'),
    711. 

  711.     (Value: clHtmRed2; Name: 'clHtmRed2'),
    712. 

  712.     (Value: clHtmFirebrick1; Name: 'clHtmFirebrick1'),
    713. 

  713.     (Value: clHtmFirebrick2; Name: 'clHtmFirebrick2'),
    714. 

  714.     (Value: clHtmFirebrick3; Name: 'clHtmFirebrick3'),
    715. 

  715.     (Value: clHtmPink; Name: 'clHtmPink'),
    716. 

  716.     (Value: clHtmRosyBrown1; Name: 'clHtmRosyBrown1'),
    717. 

  717.     (Value: clHtmRosyBrown2; Name: 'clHtmRosyBrown2'),
    718. 

  718.     (Value: clHtmPink2; Name: 'clHtmPink2'),
    719. 

  719.     (Value: clHtmLightPink; Name: 'clHtmLightPink'),
    720. 

  720.     (Value: clHtmLightPink1; Name: 'clHtmLightPink1'),
    721. 

  721.     (Value: clHtmLightPink2; Name: 'clHtmLightPink2'),
    722. 

  722.     (Value: clHtmPink3; Name: 'clHtmPink3'),
    723. 

  723.     (Value: clHtmRosyBrown3; Name: 'clHtmRosyBrown3'),
    724. 

  724.     (Value: clHtmRosyBrown; Name: 'clHtmRosyBrown'),
    725. 

  725.     (Value: clHtmLightPink3; Name: 'clHtmLightPink3'),
    726. 

  726.     (Value: clHtmRosyBrown4; Name: 'clHtmRosyBrown4'),
    727. 

  727.     (Value: clHtmLightPink4; Name: 'clHtmLightPink4'),
    728. 

  728.     (Value: clHtmPink4; Name: 'clHtmPink4'),
    729. 

  729.     (Value: clHtmLavenderBlush4; Name: 'clHtmLavenderBlush4'),
    730. 

  730.     (Value: clHtmLightGoldenrod4; Name: 'clHtmLightGoldenrod4'),
    731. 

  731.     (Value: clHtmLemonChiffon4; Name: 'clHtmLemonChiffon4'),
    732. 

  732.     (Value: clHtmLemonChiffon3; Name: 'clHtmLemonChiffon3'),
    733. 

  733.     (Value: clHtmLightGoldenrod3; Name: 'clHtmLightGoldenrod3'),
    734. 

  734.     (Value: clHtmLightGolden2; Name: 'clHtmLightGolden2'),
    735. 

  735.     (Value: clHtmLightGoldenrod; Name: 'clHtmLightGoldenrod'),
    736. 

  736.     (Value: clHtmLightGoldenrod1; Name: 'clHtmLightGoldenrod1'),
    737. 

  737.     (Value: clHtmLemonChiffon2; Name: 'clHtmLemonChiffon2'),
    738. 

  738.     (Value: clHtmLemonChiffon; Name: 'clHtmLemonChiffon'),
    739. 

  739.     (Value: clHtmLightGoldenrodYellow; Name: 'clHtmLightGoldenrodYellow')
    740. 

  740.     {$ENDIF}
    741. 

  741.     );
    742. 

  742. 

  743. function RxColorToString(Color: TColor): string;
    744. 

  744. var
    745. 

  745.   I: Integer;
    746. 

  746. begin
    747. 

  747.   if not ColorToIdent(Color, Result) then
    748. 

  748.   begin
    749. 

  749.     for I := Low(Colors) to High(Colors) do
    750. 

  750.       if Colors[I].Value = Color then
    751. 

  751.       begin
    752. 

  752.         Result := Colors[I].Name;
    753. 

  753.         Exit;
    754. 

  754.       end;
    755. 

  755.     Result := Format('$%.8x', [Color]);
    756. 

  756.   end;
    757. 

  757. end;
    758. 

  758. 

  759. function RxIdentToColor(const Ident: string; var Color: TColor): Boolean;
    760. 

  760. var
    761. 

  761.   I: Integer;
    762. 

  762. begin
    763. 

  763.   {own colors}
    764. 

  764.   for I := Low(Colors) to High(Colors) do
    765. 

  765.     if AnsiCompareText(Colors[I].Name, Ident) = 0 then
    766. 

  766.     begin
    767. 

  767.       Color := Colors[I].Value;
    768. 

  768.       Result := True;
    769. 

  769.       Exit;
    770. 

  770.     end;
    771. 

  771.   {systems colors}
    772. 

  772.   Result := IdentToColor(Ident, Integer(Color));
    773. 

  773. end;
    774. 

  774. 

  775. function RxStringToColor(S: string): TColor;
    776. 

  776. begin
    777. 

  777.   if not RxIdentToColor(S, Result) then
    778. 

  778.   try
    779. 

  779.     Result := StringToColor(S);
    780. 

  780.   except
    781. 

  781.     Result := clNone;
    782. 

  782.   end;
    783. 

  783. end;
    784. 

  784. 

  785. procedure RxGetColorValues(Proc: TGetStrProc);
    786. 

  786. var
    787. 

  787.   I: Integer;
    788. 

  788. begin
    789. 

  789.   GetColorValues(Proc);
    790. 

  790.   for I := Low(Colors) to High(Colors) do
    791. 

  791.     Proc(StrPas(Colors[I].Name));
    792. 

  792. end;
    793. 

  793. 

  794. end.
    795.