void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
StrToInt(Edit1->Text)=ScrollBar1->Position;
Panel1->Color=RGB(ScrollBar1->Position,ScrollBar2->Position,ScrollBar3->Position);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar2Change(TObject *Sender)
{
StrToInt(Edit2->Text)=ScrollBar2->Position;
Panel1->Color=RGB(ScrollBar1->Position,ScrollBar2->Position,ScrollBar3->Position);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar3Change(TObject *Sender)
{
StrToInt(Edit3->Text)=ScrollBar3->Position;
Panel1->Color=RGB(ScrollBar1->Position,ScrollBar2->Position,ScrollBar3->Position);
}