2006. augusztus 17., csütörtök

Find the contrasting colour (2)


Problem/Question/Abstract:

I have x items, and I want to assign a color for each, but I want the colors to be as different as possible. I think the best would be to distribute x points with the greatest distance possible in an RGB cube. I have no idea how to implement that, or is there some other solution?

Answer:

You can use the invers color:

InversColor := ColorToRGB(AColor) xor $FFFFFF;

I you need a maximal contrast, the result is black or white, dependent of the brightness:

function MaximumContrastColor(Value: TColor): TColor;
var
  R, G, B: Integer;
  Min, Max: Integer;
begin
  Value := ColorToRGB(Value);
  R := GetRValue(Value);
  G := GetGValue(Value);
  B := GetBValue(Value);
  Min := R;
  if Min > G then
    Min := G;
  if Min > B then
    Min := B;
  Max := R;
  if Max < G then
    Max := G;
  if Max < B then
    Max := B;
  if Min + Max > 255 then
    Result := clBlack
  else
    Result := clWhite;
end;

Nincsenek megjegyzések:

Megjegyzés küldése