Componentes.Terceros.DevExpressVCL/official/x.26/ExpressQuantumGrid 6/Demos/CBuilder/ColumnsShareDemo/ColumnsShareDemoMain.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "ColumnsShareDemoMain.h"
#include "ColumnsShareDemoData.h"
#include "AboutDemoForm.h"
#include "ColumnsShareDemoLookupCustomize.h"
#include "shellapi.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 "cxGridCustomPopupMenu"
#pragma link "cxGridDBCardView"
#pragma link "cxGridPopupMenu"
#pragma link "cxDBEditRepository"
#pragma link "cxDBExtLookupComboBox"
#pragma link "cxLookAndFeels"
#pragma resource "*.dfm"
TColumnsShareDemoMainForm *ColumnsShareDemoMainForm;
//---------------------------------------------------------------------------
__fastcall TColumnsShareDemoMainForm::TColumnsShareDemoMainForm(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TColumnsShareDemoMainForm::miAboutClick(TObject *Sender)
{
  ShowAboutDemoForm();
}
//---------------------------------------------------------------------------

void __fastcall TColumnsShareDemoMainForm::miExitClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TColumnsShareDemoMainForm::FormShow(TObject *Sender)
{
  ColumnsShareDemoLookupCustomizeForm->Show();
}
//---------------------------------------------------------------------------

void __fastcall TColumnsShareDemoMainForm::miCustomizePersonsLookupComboboxClick(
      TObject *Sender)
{
  ColumnsShareDemoLookupCustomizeForm->Show();
}
//---------------------------------------------------------------------------


void __fastcall TColumnsShareDemoMainForm::miLookupEditorClick(
      TObject *Sender)
{
  if (!((TMenuItem*)Sender)->Checked) {
    tvItemsCREATORID->RepositoryItem = cxEditRepository->Items[1];
    tvItemsOWNERID->RepositoryItem = cxEditRepository->Items[1];
    tvProjectsMANAGERID->RepositoryItem = cxEditRepository->Items[1];
    tvTeamUSERID->RepositoryItem = cxEditRepository->Items[1];
    tvProjects->DataController->ClearDetails();
    ((TMenuItem*)Sender)->Checked = true;
    miCustomizePersonsLookupCombobox->Enabled = true;
  }
}
//---------------------------------------------------------------------------

void __fastcall TColumnsShareDemoMainForm::miExtLookupEditorClick(
      TObject *Sender)
{
  if (!((TMenuItem*)Sender)->Checked) {
    tvItemsCREATORID->RepositoryItem = cxEditRepository->Items[0];
    tvItemsOWNERID->RepositoryItem = cxEditRepository->Items[0];
    tvProjectsMANAGERID->RepositoryItem = cxEditRepository->Items[0];
    tvTeamUSERID->RepositoryItem = cxEditRepository->Items[0];
    tvProjects->DataController->ClearDetails();
    ((TMenuItem*)Sender)->Checked = true;
    if ((ColumnsShareDemoLookupCustomizeForm) &&
      ColumnsShareDemoLookupCustomizeForm->Showing)
      ColumnsShareDemoLookupCustomizeForm->Hide();
    miCustomizePersonsLookupCombobox->Enabled = false;
  }
}
//---------------------------------------------------------------------------

void __fastcall TColumnsShareDemoMainForm::miLookAndFeelKindClick(TObject *Sender)
{
  LookAndFeelController->Kind = (TcxLookAndFeelKind)((TMenuItem*)Sender)->MenuIndex;
  ((TMenuItem*)Sender)->Checked = true;
}
//---------------------------------------------------------------------------

void __fastcall TColumnsShareDemoMainForm::miNativeStyleClick(
      TObject *Sender)
{
  LookAndFeelController->NativeStyle = !LookAndFeelController->NativeStyle;
  ((TMenuItem*)Sender)->Checked = LookAndFeelController->NativeStyle;
}
//---------------------------------------------------------------------------