//---------------------------------------------------------------------
#include "all.h"

//---------------------------------------------------------------------
#pragma resource "*.dfm"
TPatternDlg *PatternDlg;
//---------------------------------------------------------------------
__fastcall TPatternDlg::TPatternDlg(TComponent* AOwner)
	: TForm(AOwner)
{
}
void __fastcall TPatternDlg::ForgroundClick(TObject *Sender)
{
   if(MainForm->ColorDialog->Execute())
      Foreground->Color = MainForm->ColorDialog->Color;
}

void __fastcall TPatternDlg::BackGroundClick(TObject *Sender)
{
   if(MainForm->ColorDialog->Execute())
      Background->Color = MainForm->ColorDialog->Color;
}
//---------------------------------------------------------------------------
L_UINT TPatternDlg::FindStyle()
{
   //given a style, get the index
   L_UINT uStyles[]=
   {
      EFX_PATTERN_SOLID,
      EFX_PATTERN_TRANSPARENT,
      EFX_PATTERN_HORZ_LINE,
      EFX_PATTERN_VERT_LINE,
      EFX_PATTERN_DOWNWARD_DIAG,
      EFX_PATTERN_UPWARD_DIAG,
      EFX_PATTERN_CROSS,
      EFX_PATTERN_DIAG_CROSS
   };

   m_uStyle = uStyles[m_nPattern];

   return m_uStyle;
}

L_INT TPatternDlg::FindIndex()
{
   //given an index, get the style
   L_UINT uStyles[]=
   {
      EFX_PATTERN_SOLID,
      EFX_PATTERN_TRANSPARENT,
      EFX_PATTERN_HORZ_LINE,
      EFX_PATTERN_VERT_LINE,
      EFX_PATTERN_DOWNWARD_DIAG,
      EFX_PATTERN_UPWARD_DIAG,
      EFX_PATTERN_CROSS,
      EFX_PATTERN_DIAG_CROSS
   };

   for (L_UINT i=0; i<sizeof(uStyles)/sizeof(uStyles[0]);i++)
   {
      if (m_uStyle == uStyles[i])
      {
         m_nPattern = i;
         break;
      }
   }
   return m_nPattern;
}

void __fastcall TPatternDlg::onShow(TObject *Sender)
{
	m_nPattern = 0;
   ComboBoxStyle->ItemIndex = FindIndex();
}
//---------------------------------------------------------------------------
void __fastcall TPatternDlg::OnStyleChange(TObject *Sender)
{
   FindStyle();
}