64 lines
1.4 KiB
Plaintext
64 lines
1.4 KiB
Plaintext
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.
|