ProgressBar进度条与颜色RGB

unit Unit2;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;


type
  TForm2 = class(TForm)
    TrackBar1: TTrackBar;
    ProgressBar1: TProgressBar;
    Panel1: TPanel;
    ScrollBar1: TScrollBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    TrackBar4: TTrackBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure ScrollBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
    procedure TrackBar4Change(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form2: TForm2;


implementation


{$R *.dfm}


procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
   Panel1.Width:=ScrollBar1.Position*2;
   Panel1.Height:=ScrollBar1.Position;
   ProgressBar1.Position:=ScrollBar1.Position;
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
   panel1.Color:=0;
end;


procedure TForm2.TrackBar2Change(Sender: TObject);
begin
    panel1.Color:=TrackBar2.Position+
    TrackBar3.Position*256+
    TrackBar4.Position*65536;
    TrackBar2.SelEnd:=TrackBar2.Position;
    Edit1.Text:=IntToStr(TrackBar2.Position);
end;


procedure TForm2.TrackBar3Change(Sender: TObject);
begin
    panel1.Color:=TrackBar2.Position+
    TrackBar3.Position*256+
    TrackBar4.Position*65536;
    TrackBar3.SelEnd:=TrackBar3.Position;
    Edit2.Text:=IntToStr(TrackBar3.Position);
end;


procedure TForm2.TrackBar4Change(Sender: TObject);
begin
   panel1.Color:=TrackBar2.Position+
    TrackBar3.Position*256+
    TrackBar4.Position*65536;
    TrackBar4.SelEnd:=TrackBar4.Position;
    Edit3.Text:=IntToStr(TrackBar4.Position);
end;


procedure TForm2.TrackBar1Change(Sender: TObject);
begin
    panel1.Color:=TrackBar1.Position;
end;


end.