david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
85 lines
2.9 KiB
C++
85 lines
2.9 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
#include "PivotGridRLMain.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "cxControls"
|
|
#pragma link "cxCustomPivotGrid"
|
|
#pragma link "cxPivotGrid"
|
|
#pragma link "dxPSCore"
|
|
#pragma link "dxPScxCommon"
|
|
#pragma link "dxPScxPivotGridLnk"
|
|
#pragma resource "*.dfm"
|
|
TPivotGridRLMainForm *PivotGridRLMainForm;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TPivotGridRLMainForm::TPivotGridRLMainForm(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TPivotGridRLMainForm::FormCreate(TObject *Sender)
|
|
{
|
|
TStream * AStream = new TResourceStream((int)HInstance, "PIVOTPREVIEWDATA", "PIVOTDATA");
|
|
try {
|
|
AStream->Position = 0;
|
|
PivotGrid->DataController->LoadFromStream(AStream);
|
|
}
|
|
__finally{
|
|
delete AStream;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPivotGridRLMainForm::miDXClick(TObject *Sender)
|
|
{
|
|
ShellExecute(Handle, "OPEN", "http://www.devexpress.com", NULL, NULL, SW_SHOWMAXIMIZED);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPivotGridRLMainForm::miPageSetupClick(TObject *Sender)
|
|
{
|
|
dxComponentPrinter1->PageSetup(NULL);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPivotGridRLMainForm::miPrintPreviewClick(TObject *Sender)
|
|
{
|
|
dxComponentPrinter1->Preview(true, NULL);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPivotGridRLMainForm::miPrintClick(TObject *Sender)
|
|
{
|
|
dxComponentPrinter1->Print(true, NULL, NULL);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPivotGridRLMainForm::miDesignerClick(TObject *Sender)
|
|
{
|
|
dxComponentPrinter1->DesignReport(NULL);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TPivotGridRLMainForm::miExitClick(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
void __fastcall TPivotGridRLMainForm::pgfPaymentTypeGetGroupImageIndex(
|
|
TcxPivotGridField *Sender, const TcxPivotGridViewDataItem *AItem,
|
|
int &AImageIndex, TAlignment &AImageAlignHorz,
|
|
TcxAlignmentVert &AImageAlignVert)
|
|
{
|
|
AnsiString Card = VarToStr(AItem->Value);
|
|
if (SameText(Card, "AmEx")) AImageIndex = 0;
|
|
else if (SameText(Card, "Cash")) AImageIndex = 1;
|
|
else if (SameText(Card, "Master")) AImageIndex = 2;
|
|
else if (SameText(Card, "Visa")) AImageIndex = 3;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|