Программирование графики

void __fastcall TForm1::PolotnoMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
if ((Sender == SBlack)||(Sender == SBlue)||(Sender == SFuchsia)||(Sender == SGray)||(Sender == SGreen)||(Sender == SHighlight)||(Sender == SHotLight)||(Sender == SLime)||(Sender == SMaroon)||(Sender == SMedGray)||(Sender == SMoneyGreen)||(Sender == SNavy)||(Sender == SOlive)||(Sender == SPurple)||(Sender == SRed)||(Sender == SSilver)||(Sender == SSkyBlue)||(Sender == STeal)||(Sender == SWhite)||(Sender == SYellow))
    {
      if (Button == mbLeft) SOsnovnoy->Brush->Color = ((TShape*)Sender)->Brush->Color;
      else if (Button == mbRight) SDopolnitelniy->Brush->Color = ((TShape*)Sender)->Brush->Color;
    }
  if (SBColor->Down == true)
    {
      if (Button == mbLeft)
        {
          SOsnovnoy->Brush->Color = Polotno->Canvas->Brush->Color;
        }
          else if (Button == mbRight) SDopolnitelniy->Brush->Color = ((TImage*)Sender)->Canvas->Pixels[X][Y];
    }
}

SOsnovnoy->Brush->Color = ((TShape*)Sender)->Brush->Color;

SOsnovnoy->Brush->Color = Polotno->Canvas->Brush->Color;

if ((Sender == SBlack)||(Sender == SBlue)||(Sender == SFuchsia)||(Sender == SGray)||(Sender == SGreen)||(Sender == SHighlight)||(Sender == SHotLight)||(Sender == SLime)||(Sender == SMaroon)||(Sender == SMedGray)||(Sender == SMoneyGreen)||(Sender == SNavy)||(Sender == SOlive)||(Sender == SPurple)||(Sender == SRed)||(Sender == SSilver)||(Sender == SSkyBlue)||(Sender == STeal)||(Sender == SWhite)||(Sender == SYellow))

__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
  IOsnovnoy->Canvas->Brush->Color = clBlack;
  IDopolnitelniy->Canvas->Brush->Color = clWhite;
  IBlack->Canvas->Brush->Color = clBlack;
  IBlue->Canvas->Brush->Color = clBlue;
  IFuchsia->Canvas->Brush->Color = clFuchsia;
  IGray->Canvas->Brush->Color = clGray;
  IGreen->Canvas->Brush->Color = clGreen;
  IHighlight->Canvas->Brush->Color = clHighlight;
  IHotLight->Canvas->Brush->Color = clHotLight;
  ILime->Canvas->Brush->Color = clLime;
  IMaroon->Canvas->Brush->Color = clMaroon;
  IMedGray->Canvas->Brush->Color = clMedGray;
  IMoneyGreen->Canvas->Brush->Color = clMoneyGreen;
  INavy->Canvas->Brush->Color = clNavy;
  IOlive->Canvas->Brush->Color = clOlive;
  IPurple->Canvas->Brush->Color = clPurple;
  IRed->Canvas->Brush->Color = clRed;
  ISilver->Canvas->Brush->Color = clSilver;
  ISkyBlue->Canvas->Brush->Color = clSkyBlue;
  ITeal->Canvas->Brush->Color = clTeal;
  IWhite->Canvas->Brush->Color = clWhite;
  IYellow->Canvas->Brush->Color = clYellow;
  IOsnovnoy->Canvas->FillRect(Rect(0,0,IOsnovnoy->Width,IOsnovnoy->Height));
  IDopolnitelniy->Canvas->FillRect(Rect(0,0,IDopolnitelniy->Width,IDopolnitelniy->Height));
  IBlack->Canvas->FillRect(Rect(0,0,IBlack->Width,IBlack->Height));
  IBlue->Canvas->FillRect(Rect(0,0,IBlue->Width,IBlue->Height));
  IFuchsia->Canvas->FillRect(Rect(0,0,IFuchsia->Width,IFuchsia->Height));
  IGray->Canvas->FillRect(Rect(0,0,IGray->Width,IGray->Height));
  IGreen->Canvas->FillRect(Rect(0,0,IGreen->Width,IGreen->Height));
  IHighlight->Canvas->FillRect(Rect(0,0,IHighlight->Width,IHighlight->Height));
  IHotLight->Canvas->FillRect(Rect(0,0,IHotLight->Width,IHotLight->Height));
  ILime->Canvas->FillRect(Rect(0,0,ILime->Width,ILime->Height));
  IMaroon->Canvas->FillRect(Rect(0,0,IMaroon->Width,IMaroon->Height));
  IMedGray->Canvas->FillRect(Rect(0,0,IMedGray->Width,IMedGray->Height));
  IMoneyGreen->Canvas->FillRect(Rect(0,0,IMoneyGreen->Width,IMoneyGreen->Height));
  INavy->Canvas->FillRect(Rect(0,0,INavy->Width,INavy->Height));
  IOlive->Canvas->FillRect(Rect(0,0,IOlive->Width,IOlive->Height));
  IPurple->Canvas->FillRect(Rect(0,0,IPurple->Width,IPurple->Height));
  IRed->Canvas->FillRect(Rect(0,0,IRed->Width,IRed->Height));
  ISilver->Canvas->FillRect(Rect(0,0,ISilver->Width,ISilver->Height));
  ISkyBlue->Canvas->FillRect(Rect(0,0,ISkyBlue->Width,ISkyBlue->Height));
  ITeal->Canvas->FillRect(Rect(0,0,ITeal->Width,ITeal->Height));
  IWhite->Canvas->FillRect(Rect(0,0,IWhite->Width,IWhite->Height));
  IYellow->Canvas->FillRect(Rect(0,0,IYellow->Width,IYellow->Height));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PolotnoMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if ((Sender == IBlack)||(Sender == IBlue)||(Sender == IFuchsia)||(Sender == IGray)||(Sender == IGreen)||(Sender == IHighlight)||(Sender == IHotLight)||(Sender == ILime)||(Sender == IMaroon)||(Sender == IMedGray)||(Sender == IMoneyGreen)||(Sender == INavy)||(Sender == IOlive)||(Sender == IPurple)||(Sender == IRed)||(Sender == ISilver)||(Sender == ISkyBlue)||(Sender == ITeal)||(Sender == IWhite)||(Sender == IYellow))
    {
      if (Button == mbLeft)
        {
          IOsnovnoy->Canvas->Brush->Color = ((TImage *)Sender)->Canvas->Pixels[X][Y];
          IOsnovnoy->Canvas->FillRect(Rect(0,0,IOsnovnoy->Width,IOsnovnoy->Height));
        }
      else if (Button == mbRight)
        {
          IDopolnitelniy->Canvas->Brush->Color = ((TImage *)Sender)->Canvas->Pixels[X][Y];
          IDopolnitelniy->Canvas->FillRect(Rect(0,0,IDopolnitelniy->Width,IDopolnitelniy->Height));
        }
    }
  if (SBColor->Down == true)
    {
      if (Sender == Polotno)
        {
           if (Button == mbLeft)
             {
               IOsnovnoy->Canvas->Brush->Color = Polotno->Canvas->Pixels[X][Y];
               IOsnovnoy->Canvas->FillRect(Rect(0,0,IOsnovnoy->Width,IOsnovnoy->Height));
             }
           else if (Button == mbRight)
             {
               IDopolnitelniy->Canvas->Brush->Color = Polotno->Canvas->Pixels[X][Y];
               IDopolnitelniy->Canvas->FillRect(Rect(0,0,IDopolnitelniy->Width,IDopolnitelniy->Height));
             }
        }
    }
 
}
//---------------------------------------------------------------------------