Harmionierende Farben

[Popov]

Danke, hab paar Anregungen gefunden.

[Neco]

Experimentiere doch einmal hiermit ...
ist zwar gegen Intrawebfarben geschrieben, sollte aber mit Ändern des Typs in TColor auch funktionieren.
Siehe wegen Hilfsfunktionen http://www.delphipraxis.net/4067-rgb-tcolor-rgb.html

function generateRandomColor(aMixColor: TIWColor): TIWColor;
var
B: Integer;
blue: Integer;
G: Integer;
green: Integer;
R: Integer;
red: Integer;
begin
red := Random(256);
green := Random(256);
blue := Random(256);
// mix the color
TColor2RGB(aMixColor, R, G, B);
red := red + round(R / 2);
green := green + round(G / 2);
blue := blue + round(B / 2);
Result := RGB2TColor(red, green, blue);
end;