delphi - 如何获得视觉上不同颜色的列表？

Question

我需要分配颜色来区分不同的项目。简单案例：根据客户订购不同颜色的行。

我不想让用户为每个客户选择一种颜色，我想在运行时这样做。

如果有一个客户我会使用“红色”，如果有两个“红色”和“白色”，...

当然，我可以创建GimmeRandomColour(i: index)自己的函数来使用i和RGB创建良好随机颜色的函数（但在这种情况下，创建漂亮的颜色可能会很棘手）。或者我可以说 if iis 0 给我 clRed, ... （这样创建许多颜色可能是个问题）。

如何获得具有可接受对比度的“良好颜色列表”？

Answer 1

Delphi 没有内置函数。有关生成令人愉悦的配色方案的方法，请参阅此问题。

随机生成美观调色板的算法

Answer 2

一种常见的方法是对每个 RGB 颜色分量使用值 $00、$33、$66、$99、$CC 和 $FF ( Random(6) * $33)。

这将产生 216 种可以安全使用的不同颜色。

请参阅维基百科上的示例。