调色板
void __fastcall Tf7_2_1::FormCreate(TObject *Sender)
{
hsbR->Position=0;
hsbG->Position=0;
hsbB->Position=0;
lblRGB->Color=RGB(0,0,0);
}
//---------------------------------------------------------------------------
void __fastcall Tf7_2_1::hsbRChange(TObject *Sender)
{
lblR->Caption="R = "+IntToStr(hsbR->Position);
lblRGB->Color=RGB(hsbR->Position,hsbG->Position,hsbB->Position);
}
//---------------------------------------------------------------------------
void __fastcall Tf7_2_1::hsbGChange(TObject *Sender)
{
lblG->Caption="G = "+IntToStr(hsbG->Position);
lblRGB->Color=RGB(hsbR->Position,hsbG->Position,hsbB->Position);
}
//---------------------------------------------------------------------------
void __fastcall Tf7_2_1::hsbBChange(TObject *Sender)
{
lblB->Caption="B = "+IntToStr(hsbB->Position);
lblRGB->Color=RGB(hsbR->Position,hsbG->Position,hsbB->Position);
}
//---------------------------------------------------------------------------
void __fastcall Tf7_2_1::cmdEndClick(TObject *Sender)
{
Close();
}
附件列表
