//---------------------------------------------------------------------------
#include "..\cxDemosBCB.inc"

#include <vcl.h>
#pragma hdrstop

#include "DBDemoMainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Dialogs"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxScheduler"
#pragma link "cxSchedulerCustomControls"
#pragma link "cxSchedulerCustomResourceView"
#pragma link "cxSchedulerDateNavigator"
#pragma link "cxSchedulerDayView"
#pragma link "cxStyles"
#pragma link "DemoBasicMain"
#pragma link "cxSchedulerDBStorage"
#pragma link "cxSchedulerStorage"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxScheduler"
#pragma link "cxSchedulerCustomControls"
#pragma link "cxSchedulerCustomResourceView"
#pragma link "cxSchedulerDateNavigator"
#pragma link "cxSchedulerDayView"
#pragma link "cxSchedulerDBStorage"
#pragma link "cxSchedulerStorage"
#pragma link "cxStyles"
#pragma link "DemoBasicMain"
#pragma link "cxButtons"
#pragma link "cxCheckBox"
#pragma link "cxContainer"
#pragma link "cxGroupBox"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxSchedulerGanttView"
#pragma link "cxSchedulerHolidays"
#pragma link "cxSchedulerTimeGridView"
#pragma link "cxSchedulerUtils"
#pragma link "cxSchedulerWeekView"
#pragma link "cxSchedulerYearView"
#pragma resource "*.dfm"
TDBDemoMainForm *DBDemoMainForm;
//---------------------------------------------------------------------------
__fastcall TDBDemoMainForm::TDBDemoMainForm(TComponent* Owner)
        : TDemoBasicMainForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TDBDemoMainForm::FormCreate(TObject *Sender)
{
  TDemoBasicMainForm::FormCreate(Sender);
  Scheduler->GoToDate(EncodeDate(2005, 9, 20));
  FEventCount = SchedulerDBStorage->EventCount;
  FMaxID = 0;
  for (int i = 0; i < SchedulerDBStorage->EventCount; i++)
	FMaxID = Max(FMaxID, SchedulerDBStorage->Events[i]->ID);
}
//---------------------------------------------------------------------------

void __fastcall TDBDemoMainForm::chDataModeClick(TObject *Sender)
{
  SchedulerDBStorage->SmartRefresh = cxCheckBox1->Checked;
//
}
//---------------------------------------------------------------------------

void __fastcall TDBDemoMainForm::cxButton1Click(TObject *Sender)
{
  MaxRandomPeriod = 720;
  GenerateRandomEvents(5000, false);
  MaxRandomPeriod = 60;
}
//---------------------------------------------------------------------------
void __fastcall TDBDemoMainForm::FormClose(TObject *Sender, TCloseAction &Action)
{
  if ((FEventCount < SchedulerDBStorage->EventCount) &&
	(MessageDlg("Do you want to delete previously created events?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes))
  {
	SchedulerDBStorage->BeginUpdate();
	int i = 0;
	while (i < SchedulerDBStorage->EventCount)
	  if (SchedulerDBStorage->Events[i]->ID > FMaxID) SchedulerDBStorage->Events[i]->Delete();
	  else i++;
	SchedulerDBStorage->EndUpdate();
  }
}