Как выбрать цвет пользуя 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