david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
95 lines
2.7 KiB
C++
95 lines
2.7 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "MultipleTotalsMain.h"
|
|
//---------------------------------------------------------------------------
|
|
#include "DemoBasicDM.h"
|
|
#pragma package(smart_init)
|
|
#pragma link "cxLookAndFeels"
|
|
#pragma link "DemoBasicMain"
|
|
#pragma link "cxControls"
|
|
#pragma link "cxCustomPivotGrid"
|
|
#pragma link "cxDBPivotGrid"
|
|
#pragma resource "*.dfm"
|
|
TfrmMultipleTotals *frmMultipleTotals;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TfrmMultipleTotals::TfrmMultipleTotals(TComponent* Owner)
|
|
: TfrmDemoBaisicMain(Owner)
|
|
{
|
|
}
|
|
|
|
void __fastcall TfrmMultipleTotals::FormCreate(TObject* Sender)
|
|
{
|
|
PivotGrid()->ApplyBestFit();
|
|
}
|
|
|
|
TcxCustomPivotGrid* __fastcall TfrmMultipleTotals::PivotGrid()
|
|
{
|
|
return DBPivotGrid;
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
double VarToDoubleEx(Variant AValue)
|
|
{
|
|
if (!VarIsNull(AValue)) {
|
|
return ((double)AValue);
|
|
}
|
|
else {
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
void __fastcall TfrmMultipleTotals::CalculateCustomSummary(
|
|
TcxPivotGridField *Sender, TcxPivotGridCrossCellSummary *ASummary)
|
|
{
|
|
TcxPivotGridGroupItem *ARow;
|
|
TcxPivotGridGroupItem *AColumn;
|
|
if (pgfCompanyName->Area == faRow) {
|
|
ARow = ASummary->Owner->Row;
|
|
AColumn = ASummary->Owner->Column;
|
|
}
|
|
else {
|
|
ARow = ASummary->Owner->Column;
|
|
AColumn = ASummary->Owner->Row;
|
|
}
|
|
if (AColumn->Parent == NULL){
|
|
ASummary->Custom = 100;
|
|
}
|
|
else{
|
|
double ASum = VarToDoubleEx(ASummary->Sum);
|
|
double AGrandTotalValue = VarToDoubleEx(ARow->GetCellByCrossItem(
|
|
AColumn->Parent)->GetSummaryByField(Sender, stSum));
|
|
if (AGrandTotalValue != 0) {
|
|
ASummary->Custom = (ASum / AGrandTotalValue * 100);
|
|
}
|
|
else {
|
|
ASummary->Custom = NULL;
|
|
}
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TfrmMultipleTotals::PivotGridStylesGetGroupHeaderStyle(
|
|
TcxCustomPivotGrid *Sender, TcxPivotGridViewDataItem *AItem,
|
|
TcxStyle *&AStyle)
|
|
{
|
|
if (AItem->IsTotal || !AItem->Expanded & (AItem->Field == pgfCompanyName)) {
|
|
AStyle = dmOrders->stBoldBlueFont;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TfrmMultipleTotals::PivotGridStylesGetContentStyle(
|
|
TcxCustomPivotGrid *Sender, TcxPivotGridDataCellViewInfo *ACell,
|
|
TcxStyle *&AStyle)
|
|
{
|
|
if (ACell->SummaryType == stCustom) {
|
|
AStyle = dmOrders->stBoldRedFont;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|