david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
90 lines
3.0 KiB
C++
90 lines
3.0 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#include "shellapi.hpp"
|
|
#pragma hdrstop
|
|
|
|
#include "MasterDetailDemoMain.h"
|
|
#include "MasterDetailDemoData.h"
|
|
#include "AboutDemoForm.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "cxClasses"
|
|
#pragma link "cxControls"
|
|
#pragma link "cxCustomData"
|
|
#pragma link "cxData"
|
|
#pragma link "cxDBData"
|
|
#pragma link "cxEdit"
|
|
#pragma link "cxFilter"
|
|
#pragma link "cxGraphics"
|
|
#pragma link "cxGrid"
|
|
#pragma link "cxGridCustomTableView"
|
|
#pragma link "cxGridCustomView"
|
|
#pragma link "cxGridDBTableView"
|
|
#pragma link "cxGridLevel"
|
|
#pragma link "cxGridTableView"
|
|
#pragma link "cxStyles"
|
|
#pragma link "cxGridCardView"
|
|
#pragma link "cxGridDBCardView"
|
|
#pragma link "cxLookAndFeels"
|
|
#pragma resource "*.dfm"
|
|
TMasterDetailDemoMainForm *MasterDetailDemoMainForm;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TMasterDetailDemoMainForm::TMasterDetailDemoMainForm(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TMasterDetailDemoMainForm::miAboutClick(TObject *Sender)
|
|
{
|
|
ShowAboutDemoForm();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TMasterDetailDemoMainForm::miExitClick(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TMasterDetailDemoMainForm::FormShow(TObject *Sender)
|
|
{
|
|
if (MasterDetailDemoDataDM->tblFilms->Active){
|
|
MasterDetailDemoDataDM->tblFilms->First();
|
|
if (tvFilms->Controller->FocusedRecord != NULL)
|
|
tvFilms->Controller->FocusedRecord->Expanded = true;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TMasterDetailDemoMainForm::miShowPreviewDataClick(
|
|
TObject *Sender)
|
|
{
|
|
if ((tvFilms->Preview->Column) == NULL)
|
|
tvFilms->Preview->Column = tvFilmsPLOTOUTLINE;
|
|
tvFilms->Preview->Visible = !tvFilms->Preview->Visible;
|
|
((TMenuItem*)Sender)->Checked = !((TMenuItem*)Sender)->Checked;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TMasterDetailDemoMainForm::miTabsPositionClick(
|
|
TObject *Sender)
|
|
{
|
|
((TMenuItem*)Sender)->Checked = True;
|
|
lvFilms->Options->DetailTabsPosition =
|
|
(TcxGridDetailTabsPosition)(((TMenuItem*)Sender)->MenuIndex + 1);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TMasterDetailDemoMainForm::miDetailViewsSynchronizationClick(
|
|
TObject *Sender)
|
|
{
|
|
((TMenuItem*)Sender)->Checked = !((TMenuItem*)Sender)->Checked;
|
|
for (int I = 0; I < Grid->ViewCount; I++)
|
|
Grid->Views[I]->Synchronization = ((TMenuItem*)Sender)->Checked;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|