Расширить цветовую палитру

[MyLastHit]

Здравствуйте, помогите разобраться с проблеммой.
Тот цвет который мне нужет отстствует в палитре Делфи. Как можно его загрузить, чтобы впоследствии использовать?

[856100]

Возможно эта функция поможет
RGB(Red, Green, Blue: Byte):TColor;

[MyLastHit]

Спасибо, Куда это прописать?

[spamer]

Смотря, что вы хотите...
Ну например вот:

Form1.Color := RGB($CC,$FF,$99);

[DomiNick]

Что подразумевается под "палитрой Делфи"?
Всякие clRed - это ж просто константы...

const
  clRed = TColor($0000FF);

Как-то так чтоль попробуйте:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Randomize;
Form1.Color:=RGB(Random(255), Random(255), Random(255));
End;

[MyLastHit]

Вы извините...не втыкает меня вручную подбирать RGB... А возможно вообще добавить допустим в палитру цвета "Font" к примеру темно синий цвет? Или бюрюзовый? чтобы програмный код не описывать, а сразу в режиме конструктора подобрать цвет.

[DomiNick]

Хм... Всё равно не понимаю что есть "палитра"...

Ну попробуйте TColorDialog из вкладки Dialogs...
Делать примерно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
      Label1.Font.Color:=ColorDialog1.Color;
end;

[MyLastHit]

Эм..вы немного не поняли...мне ненужно вызывать палитру цветов в "моей программе", мне нужно только расширить спектр Стандартных цветов делфи:

их очень мало..и они все невзрачные. Хотелось бы расширить цветовой дипазон в этой палитре.

[DomiNick]

А это TFontDialog из вкладки Dialogs...

Ну не знаю... Разве что в исходники VCL залезть...
Хотя это кажется не от Делфи вообще зависит, а от операционки (в ВордПаде такой же набор цветов)...

[MyLastHit]

спасибо большое за советы и коды!)
Решил задачу так: Дважды кликнул по Color(в Font) открылась расширенная палитра. Яху...