david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
101 lines
3.5 KiB
C++
101 lines
3.5 KiB
C++
//---------------------------------------------------------------------------
|
|
#include "..\cxDemosBCB.inc"
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "AggregateDemoMainUnit.h"
|
|
#include "SelectStorageUnit.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#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 "cxLookAndFeelPainters"
|
|
#pragma link "cxSchedulerAggregateStorage"
|
|
#pragma link "cxSchedulerGanttView"
|
|
#pragma link "cxSchedulerHolidays"
|
|
#pragma link "cxSchedulerTimeGridView"
|
|
#pragma link "cxSchedulerUtils"
|
|
#pragma link "cxSchedulerWeekView"
|
|
#pragma link "cxSchedulerYearView"
|
|
#pragma resource "*.dfm"
|
|
TAggregateDemoMainForm *AggregateDemoMainForm;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TAggregateDemoMainForm::TAggregateDemoMainForm(TComponent* Owner)
|
|
: TDemoBasicMainForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAggregateDemoMainForm::FormCreate(TObject *Sender)
|
|
{
|
|
TDateTime ADate = Date();
|
|
TDemoBasicMainForm::FormCreate(Sender);
|
|
Scheduler->GoToDate(ADate);
|
|
ADate = ADate + Scheduler->OptionsView->WorkStart;
|
|
Scheduler->SelectTime(ADate, ADate, NULL);
|
|
SchedulerDBStorage->Clear();
|
|
cxButton1->LookAndFeel = Scheduler->LookAndFeel;
|
|
cxButton2->LookAndFeel = Scheduler->LookAndFeel;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
void __fastcall TAggregateDemoMainForm::cxButton1Click(TObject *Sender)
|
|
{
|
|
GenerateRandomEvents(500, false, SchedulerDBStorage, EventLabelColors[3]);
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TAggregateDemoMainForm::SchedulerAggregateStorageEventInserting(TcxSchedulerAggregateStorage *Sender, TcxSchedulerEvent *AEvent,
|
|
TcxCustomSchedulerStorage *&AStorage)
|
|
{
|
|
TSelectStorage * AEditor = new TSelectStorage(NULL);
|
|
if (AEditor->ShowModal() == mrOk)
|
|
{
|
|
if (AEditor->rbDBStorage->Checked) AStorage = SchedulerDBStorage;
|
|
else AStorage = SchedulerStorage;
|
|
}
|
|
AEditor->Free();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAggregateDemoMainForm::LookAndFeelChange(TObject *Sender)
|
|
{
|
|
TDemoBasicMainForm::LookAndFeelChange(Sender);
|
|
cxButton1->LookAndFeel = Scheduler->LookAndFeel;
|
|
cxButton2->LookAndFeel = Scheduler->LookAndFeel;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TAggregateDemoMainForm::cxButton2Click(TObject *Sender)
|
|
{
|
|
GenerateRandomEvents(500, false, SchedulerStorage, EventLabelColors[1]);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|