Главная » Delphi, Графика, Исходники » Цветовой генератор
Дек
18

Цветовой генератор

Цвет
[sourcecode language=»css»]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ScrollBar1: TScrollBar;
ScrollBar2: TScrollBar;
ScrollBar3: TScrollBar;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Button1: TButton;
Panel4: TPanel;
procedure red(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure ScrollBar3Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.red(Sender: TObject);
begin
Panel1.Color := TColorRef(Rgb(ScrollBar1.Position, 0 , 0));
Edit1.Text := IntToStr(ScrollBar1.Position);
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Panel2.Color := TColorRef(RGB(0,ScrollBar2.Position,0));
Edit2.Text := IntToStr(ScrollBar2.Position);
end;
procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
Panel3.Color := TColorRef(Rgb(0,0,ScrollBar3.Position));
Edit3.Text := IntToStr(ScrollBar3.Position);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel4.Color := TColorRef(Rgb(ScrollBar1.Position,ScrollBar2.Position,ScrollBar3.Position));





end;
end.
[/sourcecode]
[download id=»24″]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.