u7_2_1.cpp

来自「《C++ Builder 5程序设计——基础教学篇》程序源代码2.」· C++ 代码 · 共 51 行

//----------------  u7_2_1  -----------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "u7_2_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf7_2_1 *f7_2_1;
//---------------------------------------------------------------------------
__fastcall Tf7_2_1::Tf7_2_1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
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();
}
//---------------------------------------------------------------------------