Как программно поменять яркость шрифта?

[Господин ПэЖэ]

То есть, какую арифметику надо проделать над колором? У меня в программе есть TrackBar, я таскаю движок туда/сюда и надо, чтобы при этом текст в Memo становился светлее/темнее, без изменения оттенка.

[cheef]

Я недавно пользовался RBG.
Что-то типо того будет

form1.color:=rbg(значение трекбара)//под рукой нету делфи так бы сделал до конца

[russian-stalker]

Так?

procedure TForm1.FormCreate(Sender: TObject);
begin
   TrackBar1.Min := 0;
   TrackBar1.Max := 255;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
   Memo1.Font.Color := rgb(TrackBar1.Position, TrackBar1.Position, TrackBar1.Position);
end;

[BeJIuKuu_Hexo4yxa]

Сообщение от russian-stalker

Memo1.Font.Color := rgb(TrackBar1.Position, TrackBar1.Position, TrackBar1.Position);

Так будут всегда оттенки серого.
Чтобы сохранился изначальный цвет, надо три составляющих (красный, зеленый, синий) менять пропорционально относительно начального состояния.

[DomiNick]

Чтобы сохранился изначальный цвет, надо три составляющих (красный, зеленый, синий)

Ну тогда уж в HSB переводить.....