//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SetBrushStyle.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TBrushStyleDlg *BrushStyleDlg;
//---------------------------------------------------------------------------
__fastcall TBrushStyleDlg::TBrushStyleDlg(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TBrushStyleDlg::SetBrushStyle(TObject *Sender)
{
  if (Sender == SolidBrush)  {
     Image->Canvas->Brush->Style = bsSolid;
  }
  else if (Sender == ClearBrush)  {
       Image->Canvas->Brush->Style = bsClear;
  }
  else if (Sender == HorizontalBrush)  {
       Image->Canvas->Brush->Style = bsHorizontal;
  }
  else if (Sender == VerticalBrush)   {
       Image->Canvas->Brush->Style = bsVertical;
  }
  else if (Sender == FDiagonalBrush)  {
       Image->Canvas->Brush->Style = bsFDiagonal;
  }
  else if (Sender == BDiagonalBrush)  {
       Image->Canvas->Brush->Style = bsBDiagonal;
  }
  else if (Sender == CrossBrush)  {
       Image->Canvas->Brush->Style = bsCross;
  }
  else if (Sender == DiagCrossBrush)  {
       Image->Canvas->Brush->Style = bsDiagCross;
  }
  TRect rect;
  rect.Left = 10;
  rect.Top = 10;
  rect.Right = Image->Width - 10;
  rect.Bottom = Image->Height- 10;
  Image->Canvas->FillRect(rect);
  Image->Canvas->Rectangle(rect);
}
//---------------------------------------------------------------------------
void __fastcall TBrushStyleDlg::BrushColorClick(TObject *Sender)
{
  ColorDialog1->Color = Image->Canvas->Brush->Color;
  if (ColorDialog1->Execute())
  {
    Image->Canvas->Brush->Color = ColorDialog1->Color;
    TRect rect;
    rect.Left = 10;
    rect.Top = 10;
    rect.Right = Image->Width - 10;
    rect.Bottom = Image->Height- 10;
    Image->Canvas->FillRect(rect);
    Image->Canvas->Rectangle(rect);
  }
}
//---------------------------------------------------------------------------
void __fastcall TBrushStyleDlg::FormShow(TObject *Sender)
{
  TRect rect;
  rect.Left = 10;
  rect.Top = 10;
  rect.Right = Image->Width - 10;
  rect.Bottom = Image->Height- 10;
  Image->Canvas->FillRect(rect);
  Image->Canvas->Rectangle(rect);
}
//---------------------------------------------------------------------------