unit UGrayForce;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, IEGradientBar, HSVBox;

type
  TGrayForce = class(TForm)
    GroupBox1: TGroupBox;
    IEGradientBar1: TIEGradientBar;
    IEGradientBar2: TIEGradientBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    HSVBox1: THSVBox;
    Label6: TLabel;
    procedure IEGradientBar1Change(Sender: TObject);
    procedure IEGradientBar2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HSVBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GrayForce: TGrayForce;

implementation

uses Main;

{$R *.DFM}

procedure TGrayForce.IEGradientBar1Change(Sender: TObject);
begin
  Label3.Caption := IntToStr(IEGradientBar1.ColorIndex);
end;

procedure TGrayForce.IEGradientBar2Change(Sender: TObject);
begin
  Label4.Caption := IntToStr(IEGradientBar2.ColorIndex);
end;

procedure TGrayForce.FormCreate(Sender: TObject);
begin
  IEGradientBar1.ColorIndex := 0;
  IEGradientBar2.ColorIndex := 255;
end;

procedure TGrayForce.HSVBox1Change(Sender: TObject);
begin
  Label6.Caption := 'R:' + IntToStr(HSVBox1.Red) + ', G:' + IntToStr(HSVBox1.Green) + ', B:' + IntToStr(HSVBox1.Blue);
end;

end.