TAlphaTrackBar - Настройка цвета.

[伝説の]

Как правильно изменять альфу (прозрачность) у цвета используя TAlphaTrackBar?

Например у TRectangle

Rectangle1.Fill.Color := ?

 

[dnekrasov]

Примерно так:

var
  cl: TAlphaColor;
begin
  cl := Rectangle1.Fill.Color;
  TAlphaColorRec(cl).A := Round(AlphaTrackBar1.Value * 255);
  Rectangle1.Fill.Color := cl;
end;