Изменение цвета через ScrollBar - Delphi - Ответ 11906735

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Spin;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BtnRectangle: TBitBtn;
    BtnEllipse: TBitBtn;
    BtnRoundRect: TBitBtn;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    sbRedScroll: TScrollBar;
    sbGreenScroll: TScrollBar;
    sbBlueScroll: TScrollBar;
    shShape: TShape;
    SpinEditRed: TSpinEdit;
    SpinEditGreen: TSpinEdit;
    SpinEditBlue: TSpinEdit;
    ScrollBar1: TScrollBar;
    procedure FormCreate(Sender: TObject);
    procedure BtnRectangleClick(Sender: TObject);
    procedure BtnEllipseClick(Sender: TObject);
    procedure BtnRoundRectClick(Sender: TObject);
    procedure EditRedChange(Sender: TObject);
    procedure EditGreenChange(Sender: TObject);
    procedure EditBlueChange(Sender: TObject);
    procedure sbRedScrollChange(Sender: TObject);
    procedure sbGreenScrollChange(Sender: TObject);
    procedure sbBlueScrollChange(Sender: TObject);
    procedure vsevodnom_spedit(a: TColor; q: TScrollBar; w: TSpinEdit;
      l: integer);
    procedure vsevodnom_scroll(a: TColor; q: TScrollBar; w: TSpinEdit);
    procedure sbScaleScrollqChange(Sender: TObject);
 
  private
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  RedColor, GreenColor, BlueColor: TColor;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.vsevodnom_scroll(a: TColor; q: TScrollBar; w: TSpinEdit);
begin
 
  a := q.Position;
  w.Value := a;
  w.Text := IntToStr(a);
  shShape.Brush.Color := RGB(RedColor, GreenColor, BlueColor);
 
end;
 
procedure TForm1.vsevodnom_spedit(a: TColor; q: TScrollBar; w: TSpinEdit;
  l: integer);
var
  s: string;
begin
  case l of
    0:
      begin
        a := 127;
        w.Value := a;
        q.Position := a;
        w.Text := IntToStr(a);
        shShape.Brush.Color := RGB(RedColor, GreenColor, BlueColor);
      end;
 
    1:
      begin
        s := w.Text;
        while Pos(' ', s) > 0 do
          Delete(s, Pos(' ', s), 1);
        if s = ' ' then
          Exit;
        a := StrToInt(s);
        if a < 0 then
          a := 0;
        if a > 255 then
          a := 255;
        q.Position := a;
        w.Value := a;
        shShape.Brush.Color := RGB(RedColor, GreenColor, BlueColor);
 
      end;
    2:
      begin
        a := q.Position;
        w.Value := a;
        w.Text := IntToStr(a);
        shShape.Brush.Color := RGB(RedColor, GreenColor, BlueColor);
      end;
  end;
end;
 
procedure TForm1.BtnRectangleClick(Sender: TObject);
begin
  shShape.Shape := stRectangle;
end;
 
procedure TForm1.BtnEllipseClick(Sender: TObject);
begin
  shShape.Shape := stEllipse;
end;
 
procedure TForm1.BtnRoundRectClick(Sender: TObject);
begin
  shShape.Shape := stRoundRect;
end;
 
procedure TForm1.EditRedChange(Sender: TObject);
 
begin
  vsevodnom_spedit(RedColor, sbRedScroll, SpinEditRed, 1);
end;
 
procedure TForm1.EditGreenChange(Sender: TObject);
 
begin
  vsevodnom_spedit(GreenColor, sbGreenScroll, SpinEditGreen, 1);
 
end;
 
procedure TForm1.EditBlueChange(Sender: TObject);
 
begin
  vsevodnom_spedit(BlueColor, sbBlueScroll, SpinEditBlue, 1);
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  vsevodnom_spedit(RedColor, sbRedScroll, SpinEditRed, 0);
  vsevodnom_spedit(GreenColor, sbGreenScroll, SpinEditGreen, 0);
  vsevodnom_spedit(BlueColor, sbBlueScroll, SpinEditBlue, 0);
end;
 
procedure TForm1.sbRedScrollChange(Sender: TObject);
begin
  vsevodnom_spedit(RedColor, sbRedScroll, SpinEditRed, 2);
end;
 
procedure TForm1.sbGreenScrollChange(Sender: TObject);
begin
  vsevodnom_spedit(GreenColor, sbGreenScroll, SpinEditGreen, 2);
end;
 
procedure TForm1.sbBlueScrollChange(Sender: TObject);
begin
  vsevodnom_spedit(BlueColor, sbBlueScroll, SpinEditBlue, 2);
end;
 
procedure TForm1.sbScaleScrollqChange(Sender: TObject);
var
  s: string;
begin
 
end;
 
end.