david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
103 lines
3.3 KiB
C++
103 lines
3.3 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "ChartConnectionDemoMain.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "cxLookAndFeels"
|
|
#pragma link "DemoBasicMain"
|
|
#pragma link "cxControls"
|
|
#pragma link "cxCustomPivotGrid"
|
|
#pragma link "cxDBPivotGrid"
|
|
#pragma link "cxClasses"
|
|
#pragma link "cxCustomData"
|
|
#pragma link "cxGraphics"
|
|
#pragma link "cxStyles"
|
|
#pragma link "cxData"
|
|
#pragma link "cxDataStorage"
|
|
#pragma link "cxDBData"
|
|
#pragma link "cxEdit"
|
|
#pragma link "cxFilter"
|
|
#pragma link "cxGrid"
|
|
#pragma link "cxGridChartView"
|
|
#pragma link "cxGridCustomTableView"
|
|
#pragma link "cxGridCustomView"
|
|
#pragma link "cxGridDBTableView"
|
|
#pragma link "cxGridLevel"
|
|
#pragma link "cxGridTableView"
|
|
#pragma link "cxPivotGridChartConnection"
|
|
#pragma resource "*.dfm"
|
|
TfrmChartConnection *frmChartConnection;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TfrmChartConnection::TfrmChartConnection(TComponent* Owner)
|
|
: TfrmDemoBaisicMain(Owner)
|
|
{
|
|
}
|
|
|
|
void __fastcall TfrmChartConnection::FormCreate(TObject* Sender)
|
|
{
|
|
PivotGrid()->ApplyBestFit();
|
|
InitializeDiagramList();
|
|
}
|
|
|
|
TcxCustomPivotGrid* __fastcall TfrmChartConnection::PivotGrid()
|
|
{
|
|
return DBPivotGrid;
|
|
}
|
|
|
|
void __fastcall TfrmChartConnection::InitializeDiagramList()
|
|
{
|
|
TcxGridChartDiagram *ADiagram;
|
|
TMenuItem *AMenuItem;
|
|
miChartType->Clear();
|
|
for (int I = 0; I < cxGridChartView->DiagramCount; I++)
|
|
{
|
|
ADiagram = cxGridChartView->Diagrams[I];
|
|
AMenuItem = new TMenuItem(miChartType);
|
|
AMenuItem->AutoCheck = True;
|
|
AMenuItem->RadioItem = True;
|
|
AMenuItem->Checked = ADiagram == cxGridChartView->ActiveDiagram;
|
|
AMenuItem->OnClick = miChartColumDiagramClick;
|
|
AMenuItem->Caption = ADiagram->DisplayText;
|
|
AMenuItem->Tag = I;
|
|
miChartType->Add(AMenuItem);
|
|
}
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TfrmChartConnection::pgfPaymentTypeGetGroupImageIndex(
|
|
TcxPivotGridField *Sender, const TcxPivotGridViewDataItem *AItem,
|
|
int &AImageIndex, TAlignment &AImageAlignHorz,
|
|
TcxAlignmentVert &AImageAlignVert)
|
|
{
|
|
AnsiString Card = ((TcxPivotGridViewDataItem *)AItem)->Value;
|
|
if (SameText(Card, "Cash")) AImageIndex = 0;
|
|
else if (SameText(Card, "AmEx")) AImageIndex = 1;
|
|
else if (SameText(Card, "Master")) AImageIndex = 2;
|
|
else if (SameText(Card, "Visa")) AImageIndex = 3;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TfrmChartConnection::miVisibleCellsClick(TObject *Sender)
|
|
{
|
|
cxPivotGridChartConnection->SourceData = ((TMenuItem*)Sender)->Tag;
|
|
}
|
|
void __fastcall TfrmChartConnection::miSourceColumnClick(TObject *Sender)
|
|
{
|
|
cxPivotGridChartConnection->SourceForCategories = TcxPivotGridChartViewSourceForCategories(((TMenuItem*)Sender)->Tag);
|
|
|
|
}
|
|
void __fastcall TfrmChartConnection::miChartColumDiagramClick(TObject *Sender)
|
|
{
|
|
cxGridChartView->ActiveDiagram = cxGridChartView->Diagrams[((TMenuItem*)Sender)->Tag];
|
|
}
|
|
|
|
void __fastcall TfrmChartConnection::cxGridChartViewActiveDiagramChanged(TcxGridChartView *Sender,
|
|
TcxGridChartDiagram *ADiagram)
|
|
{
|
|
InitializeDiagramList();
|
|
}
|
|
|
|
|