Как выбрать цвет пользуя TTrackBar

Материал из DRKB


Разместите три TrackBar для каждого цвета (red, green, blue) на форме. Установите свойства Min на 0, Max на 255.

С помощью функции RGB() создаем цвет из значений каждого TrackBar.

interface

type
  TForm1 = class(TForm)
    redTrackBar: TTrackBar;
    greenTrackBar: TTrackBar;
    blueTrackBar: TTrackBar;
    Panel1: TPanel;
    procedure blueTrackBarChange(Sender: TObject);
    procedure greenTrackBarChange(Sender: TObject);
    procedure redTrackBarChange(Sender: TObject);
  public
    { Public declarations }
    procedure ChangeColor;
  end;

implementation

procedure TForm1.ChangeColor;
begin
  Panel1.Color := RGB(redTrackBar.Position, greenTrackBar.Position, blueTrackBar.Position);
end;

procedure TForm1.blueTrackBarChange(Sender: TObject);
begin
  ChangeColor;
end;

procedure TForm1.greenTrackBarChange(Sender: TObject);
begin
  ChangeColor;
end;

procedure TForm1.redTrackBarChange(Sender: TObject);
begin
  ChangeColor;
end;


Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 03697
ID: 03696