Программная пауза - C++ Builder - Ответ 4445957

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   Timer1->Enabled= false;
   Timer1->Interval= 10;
}
//---------------------------------------------------------------------------
const int max_value= 255;
const int c = 25;
int r= 0, g= 0, b= 0;
//---------------------------------------------------------------------------
int gen_value(int f,int q,int a,int value)
 {
   for (int s=0; f <= q; f++)
     {
       s += a;
       if (value < s) return  s-a/2;
     }
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  int k = Edit1->Text.ToIntDef(10); //кол-во цветов
  double t = 1.0 / 3.0;
  double q = pow(k, t);          //кол-во отрезков
  double a = 255 / q;               //размер отрезка
  int f=1;
 
  Label2->Caption = q;
  Label4->Caption = a;
 
  int r1= gen_value(f,q,a,r);
  int g1= gen_value(f,q,a,g);
  int b1= gen_value(f,q,a,b);
 
  TColor color= RGB(r,g,b);
  TColor newcolor= RGB(r1,g1,b1);
 
  Canvas->Brush->Color = color;
  Canvas->Rectangle(225, 25, 250, 50);
  Canvas->Brush->Color = newcolor;
  Canvas->Rectangle(300, 25, 325, 50);
 
  Memo1->Lines->Add(String(r)+"\t"+String(g)+"\t"+String(b)+"\t->\t"+
                    String(r1)+"\t"+String(g1)+"\t"+String(b1));
 
  b+=c;
  if( b> max_value)
   {
     b= 0;
     g+= c;
 
     if(g> max_value)
       {
        b= g= 0;
        r+= c;
 
        if( r> max_value)
          { g= b= r= 0; Timer1->Enabled= false; }
       }
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled= !Timer1->Enabled;
}
//---------------------------------------------------------------------------