RGB цвет(!!!)

[Sibedir]

а лучше исползуи SpinEdit на вкладке Samples

Кстати, не на всех сборках есть. У меня нет. Ну это так, к слову. Его и скачать можно.

КАК ВЫВЕСТИ ЭТОТ ЦВЕТ НА PAINTBOX

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.Brush.Color := RGB;
  PaintBox1.Canvas.FillRect (Rect (0, 0, PaintBox1.Width, PaintBox1.Height));
end;

[Dima DDM]

спасибо работает

[Vaigard]

Просто вывести цвет нельзя. Можно окрасить какой-либо компонент, или нарисовать фигуру такого цвета. Пример окраски формы смотри у ArtGrek. Пример рисования:

var
red:tcolor;
begin
  Red:=RGB (SpinEdit1.Value,SpinEdit.Value,SpinEdit.Value);
paintbox1.canvas.pen.color:=red;
paintbox1.canvas.brush.color:=red;
paintbox1.canvas.rectangle(10,10,100,100);
end;

Таким образом, мы определяем цвет в переменную "red", потом у холста рисования меняем цвета карандаша(контур) и кисти(закраска) на полученный (red), а далее рисуем на компоненте прямоугольник с координатами (10,10,100,100). Он должен получиться цвета переменной

У Sibedir то же самое, только он закрашивает область, а я рисую прямоугольник.