Алгоритм случайной генерации цветовой палитры в Delphi

Question

Как красиво генерировать случайные цвета в Delphi? У меня этот код в java, но мне не удалось перевести его в Delphi.

public Color generateRandomColor(Color mix) { 
    Random random = new Random(); 
    int red = random.nextInt(256); 
    int green = random.nextInt(256); 
    int blue = random.nextInt(256); 

    // mix the color 
    if (mix != null) { 
     red = (red + mix.getRed())/2; 
     green = (green + mix.getGreen())/2; 
     blue = (blue + mix.getBlue())/2; 
    } 

    Color color = new Color(red, green, blue); 
    return color; 
} 

Answer 1

просто следовать код размещен в качестве примера и перевести его на Delphi, это довольно легко сделать

function GenerateRandomColor(const Mix: TColor = clWhite): TColor; 
var 
    Red, Green, Blue: Integer; 
begin 
    Red := Random(256);  
    Green := Random(256); 
    Blue := Random(256); 

    Red := (Red + GetRValue(ColorToRGB(Mix))) div 2;  
    Green := (Green + GetGValue(ColorToRGB(Mix))) div 2; 
    Blue := (Blue + GetBValue(ColorToRGB(Mix))) div 2; 
    Result := RGB(Red, Green, Blue); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Self.Color := GenerateRandomColor; 
end; 

initialization 
    Randomize;