unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Hcolorcampas1: THcolorcampas;
    Label1: TLabel;
    Hcolorcampas2: THcolorcampas;
    Label2: TLabel;
    Memo1: TMemo;
    ScrollBar1: TScrollBar;
    procedure ScrollBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
HcolorCampas2.RGBPositioner.ptR:=Scrollbar1.Position;
//HcolorCampas2.Refresh;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//HcolorCampas2.DoubleBuffered:=true;
end;

{
ちらつきをさせず、再描画させるにはコメントを外せばＯＫ
（とはいうもののかなりスタンダードなやり方・・・）

連絡先
urithan@katch.ne.jp

このソフトはフリーソフトです（笑）

}



end.