Archivado/Componentes.Terceros.DevExpressVCL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
b2e7942eef
Componentes.Terceros.DevExp.../internal/x.36/1/ExpressPrinting System/Demos/CBuilder/SpreadSheetRL/SpreadSheetRLMain.cpp

604 lines
27 KiB
C++
Raw Normal View History

Versión x.36 oficial sin skins. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
2008-09-04 11:31:51 +00:00
//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdlib.h>
#pragma hdrstop
#include "SpreadSheetRLMain.h"
#include "string.h"
#include "SpreadSheetRLModify.h"
#include "dxPScxSSLnk.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxControls"
#pragma link "cxSSheet"
#pragma link "dxPSBaseGridLnk"
#pragma link "dxPSCore"
#pragma link "dxPScxSSLnk"
#pragma link "dxBkgnd"
#pragma link "dxPrnDev"
#pragma link "dxPrnPg"
#pragma link "dxPSCompsProvider"
#pragma link "dxPSEdgePatterns"
#pragma link "dxPSEngn"
#pragma link "dxPSFillPatterns"
#pragma link "dxPSGlbl"
#pragma link "dxPSUtl"
#pragma link "dxWrap"
#pragma resource "*.dfm"
TSpreadSheetRLMainForm *SpreadSheetRLMainForm;
//---------------------------------------------------------------------------
__fastcall TSpreadSheetRLMainForm::TSpreadSheetRLMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::SetCellText(int ACol, int ARow, String AText)
{
TcxSSCellObject *CellObject;
// get a cell object for the request col and row
CellObject = cxSpreadBook->ActiveSheet->GetCellObject(ACol, ARow);
try {
// edtCellEdit->Text = CellObject->Text;
CellObject->SetCellText(AText, true);
}
__finally {
delete CellObject; // and free it
}
}
void __fastcall TSpreadSheetRLMainForm::SetCellDate(int ACol, int ARow, TDateTime ADate)
{
TcxSSCellObject *ObjectCell;
// get a cell object for the request col and row
ObjectCell = cxSpreadBook->ActiveSheet->GetCellObject(ACol, ARow);
try {
ObjectCell->DateTime = ADate;
}
__finally {
delete ObjectCell; // free it
}
}
void __fastcall TSpreadSheetRLMainForm::SetCellFont(int ALeftCol, int ATopRow, int ARightCol, int ABottomRow,
TFontStyles AStyle, int ASize)
{
TcxSSCellObject *ObjectCell;
for(int i = ALeftCol; i <= ARightCol; i++) // for each column specified
for(int j = ATopRow; j <= ABottomRow; j++) { // form each row specified
ObjectCell = cxSpreadBook->ActiveSheet->GetCellObject(i, j); // get the cell
try {
ObjectCell->Style->Font->Style = AStyle; // set the font style
ObjectCell->Style->Font->Size = ASize; // and size
}
__finally {
delete ObjectCell; // free it
}
}
}
void __fastcall TSpreadSheetRLMainForm::SetCellPattern(int ALeftCol, int ATopRow, int ARightCol, int ABottomRow,
Word ABackground, Word AForeground, TcxSSFillStyle AFillStyle)
{
TcxSSCellObject *ObjectCell;
for(int i = ALeftCol; i <= ARightCol; i++) // for each column specified
for(int j = ATopRow; j <= ABottomRow; j++) { // form each row specified
ObjectCell = cxSpreadBook->ActiveSheet->GetCellObject(i, j); // get the cell
try {
ObjectCell->Style->Brush->BackgroundColor = ABackground; // set the specified background
ObjectCell->Style->Brush->ForegroundColor = AForeground; // and foreground colour
ObjectCell->Style->Brush->Style = AFillStyle; // and fill style
}
__finally {
delete ObjectCell;
}
}
}
void __fastcall TSpreadSheetRLMainForm::SetCellFormat(int ALeftCol, int ATopRow, int ARightCol, int ABottomRow, Word
AFormat)
{
TcxSSCellObject *ObjectCell;
for(int i = ALeftCol; i <= ARightCol; i++) // for each column specified
for(int j = ATopRow; j <= ABottomRow; j++) { // form each row specified
ObjectCell = cxSpreadBook->ActiveSheet->GetCellObject(i, j); // get the cell
try {
ObjectCell->Style->Format = AFormat; // set the specified cell format
}
__finally {
delete ObjectCell;
}
}
}
void __fastcall TSpreadSheetRLMainForm::SetCellAlignment(int ALeftCol, int ATopRow, int ARightCol, int ABottomRow,
TcxHorzTextAlign AHorzAlign, TcxVertTextAlign AVertAlign)
{
TcxSSCellObject *ObjectCell;
for(int i = ALeftCol; i <= ARightCol; i++) // for each column specified
for(int j = ATopRow; j <= ABottomRow; j++) { // form each row specified
ObjectCell = cxSpreadBook->ActiveSheet->GetCellObject(i, j); // get the cell
try {
ObjectCell->Style->HorzTextAlign = AHorzAlign; // set the specified horizontal text alignment
ObjectCell->Style->VertTextAlign = AVertAlign; // and vertical alignment
}
__finally {
delete ObjectCell;
}
}
}
void __fastcall TSpreadSheetRLMainForm::SetCellBorders(int ALeftCol, int ATopRow, int ARightCol, int ABottomRow,
int AEdge, TcxSSEdgeLineStyle AStyle)
{
TcxSSCellObject *ObjectCell;
for(int i = ALeftCol; i <= ARightCol; i++) // for each column specified
for(int j = ATopRow; j <= ABottomRow; j++) { // form each row specified
ObjectCell = cxSpreadBook->ActiveSheet->GetCellObject(i, j); // get the cell
try {
switch (AEdge) {
case 0: ObjectCell->Style->Borders->Left->Style = AStyle;
case 1: ObjectCell->Style->Borders->Top->Style = AStyle;
case 2: ObjectCell->Style->Borders->Right->Style = AStyle;
case 3: ObjectCell->Style->Borders->Bottom->Style = AStyle;
}
}
__finally {
delete ObjectCell;
}
}
}
void __fastcall TSpreadSheetRLMainForm::AlwaysEnabled(TObject *Sender)
{
((TCustomAction*)Sender)->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actLoadDataExecute(TObject *Sender)
{
TCursor CurCursor;
CurCursor = Screen->Cursor; // preserve the current one
Screen->Cursor = crHourGlass; // wait cursor
try {
cxSpreadBook->BeginUpdate(); // turn off updates
cxSpreadBook->ActivePage = 0; // ensure we are looking at the right page
FCurRow = 3; // set the starting current row
Query->Open(); // open the data
while (!Query->Eof) {
SetCellText(0, FCurRow, // set the company name
Query->FieldByName("CO_NAME")->AsString);
SetCellText(1,FCurRow, // the number of shares
Query->FieldByName("SHARES")->AsString);
SetCellDate(2,FCurRow, // the purchase date
Query->FieldByName("PUR_DATE")->AsDateTime);
SetCellText(3,FCurRow, // the purchase price
Query->FieldByName("PUR_PRICE")->AsString);
SetCellText(4,FCurRow, // calculate the purchase cost = number of shares * purchase price
Format("=B%d*D%d/100",
ARRAYOFCONST((FCurRow + 1, FCurRow + 1)))); // [FCurRow+1,FCurRow+1]));
SetCellText(5,FCurRow, // the current price
Query->FieldByName("CUR_PRICE")->AsString);
SetCellText(6,FCurRow, // calculate the current valuation = number of shares * current price
Format("=B%d*F%d/100", ARRAYOFCONST((FCurRow + 1, FCurRow + 1))));
SetCellText(7,FCurRow, // calculate the gain/loss = current valuation - purchase cost
Format("=G%d-E%d",ARRAYOFCONST((FCurRow + 1, FCurRow + 1))));
SetCellText(8,FCurRow, // calculate the %age gain/loss
Format("=H%d/E%d",ARRAYOFCONST((FCurRow+1,FCurRow+1))));
Query->Next(); // and the next record
FCurRow++; // and bump the row number
}
FCurRow++;
SetCellText(4, FCurRow, // set the formula for the total purchase cost
Format("=SUM(E3:E%d)",ARRAYOFCONST((FCurRow - 1))));
SetCellText(6, FCurRow, // total current valuation
Format("=SUM(G3:G%d)", ARRAYOFCONST((FCurRow - 1))));
SetCellText(7, FCurRow, // total gain/loss
Format("=SUM(H3:H%d)",ARRAYOFCONST((FCurRow - 1))));
SetCellText(8, FCurRow, // and overall percentage
Format("=H%d/E%d", ARRAYOFCONST((FCurRow + 1, FCurRow + 1))));
Query->First(); // back to the first record
cxSpreadBook->ActivePage = 1; // and move to the second page
// and repeat the process to setup the data
FCurRow = 3;
while(!Query->Eof){
SetCellText(0,FCurRow, // company name
Query->FieldByName("CO_NAME")->AsString);
SetCellText(1,FCurRow, // current price
Query->FieldByName("CUR_PRICE")->AsString);
SetCellText(2,FCurRow, // year high
Query->FieldByName("YRL_HIGH")->AsString);
SetCellText(3,FCurRow, // year low
Query->FieldByName("YRL_LOW")->AsString);
SetCellText(4,FCurRow, // average of Hi/Lo prices
Format("=(C%d+D%d)/2", ARRAYOFCONST((FCurRow + 1, FCurRow + 1))));
Query->Next();
FCurRow++;
}
FCurRow++;
Query->Close();
FIsApplyFormatting = true; // enable the formatting button
}
__finally {
cxSpreadBook->EndUpdate(); // turn update back on
cxSpreadBook->Recalc(); // auto recalc on
cxSpreadBook->ActivePage = 0; // back to first page
Screen->Cursor = CurCursor; // and back to default cursor
}
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::FormShow(TObject *Sender)
{
cxSpreadBook->BeginUpdate(); // turn off updates
try {
cxSpreadBook->AutoRecalc = false; // turn off automatic recalculation
cxSpreadBook->ActiveSheet->Caption = "Current"; // set the page caption for the first page
cxSpreadBook->AddSheetPage("HiLo"); // and a second page and set it's caption
cxSpreadBook->ActivePage = 0; // turn our attention to the first page
SetCellText(0, 0,"Current Stockholding Valuations"); // set a title in the first column, first row cell
SetCellText(0, 2,"Company"); // Col A - Set column titles
SetCellText(1, 2,"Holding"); // B
SetCellText(2, 2,"Purchased"); // C
SetCellText(3, 2,"Price"); // D
SetCellText(4, 2,"Cost"); // E = B * D
SetCellText(5, 2,"Value"); // F
SetCellText(6, 2,"Worth"); // G = B * F
SetCellText(7, 2,"Gain"); // H = G - E
SetCellText(8, 2,"%age Gain"); // I = H / E
cxSpreadBook->ActivePage = 1; // over now to the second page
SetCellText(0, 0, "High, Low and Current Stock Prices"); // and repeat the process
SetCellText(0,2,"Company"); // Col A
SetCellText(1,2,"Price"); // B
SetCellText(2,2,"High"); // C
SetCellText(3,2,"Low"); // D
SetCellText(4,2,"Average"); // E
cxSpreadBook->AutoRecalc = true; // autorecalc back on
cxSpreadBook->ActivePage = 0; // and back to the first page
cxSpreadBookSetSelection(NULL, cxSpreadBook->ActiveSheet); // call to set the current cell and cell contents display
}
__finally {
cxSpreadBook->EndUpdate();
}
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::cxSpreadBookSetSelection(TObject *Sender,
TcxSSBookSheet *ASheet)
{
TcxSSCellObject *CellObject;
CellObject = cxSpreadBook->ActiveSheet->GetCellObject(ASheet->SelectionRect.Left, ASheet->SelectionRect.Top);
try {
FIsUpdate = true;
edtCellEdit->Text = CellObject->Text;
pnCellsRect->Caption = GetCellText(ASheet->SelectionRect, cxSpreadBook->R1C1ReferenceStyle);
}
__finally {
delete CellObject;
FIsUpdate = false;
}
}
//---------------------------------------------------------------------------
String __fastcall TSpreadSheetRLMainForm::GetCellText(TRect SelectionRect, bool R1C1)
{
return cxSpreadBook->CellsNameByRef(cxSpreadBook->ActivePage, SelectionRect, R1C1);
}
void __fastcall TSpreadSheetRLMainForm::actApplyFormattingExecute(TObject *Sender)
{
TcxSSHeader *CHeader, *RHeader;
TCursor CurCursor = Screen->Cursor; // preserve the current cursor
Screen->Cursor = crHourGlass; // wait cursor
FIsSaveSpreadSheet = false;
cxSpreadBook->BeginUpdate();
try {
cxSpreadBook->ActivePage = 0; // ensure we are looking at the first page
// Firstly by setting the column widths
CHeader = cxSpreadBook->ActiveSheet->Cols;
CHeader->Size[0] = 140;
for(int i = 1; i <= 8; i++)
CHeader->Size[i] = 80;
// and then the Row heights for the title and column descriptors
RHeader = cxSpreadBook->ActiveSheet->Rows;
RHeader->Size[0] = 30;
RHeader->Size[2] = 30;
// and how about some cell formatting
// setting the title and column header fonts
SetCellFont(0, 0, 0, 0, TFontStyles() << fsBold << fsUnderline, 12);
// and now adding some cell shading
// for the sheet title
SetCellPattern(0, 0, 8, 1, 16, 1, fsSolid);
// for the column headers
SetCellPattern(0, 2, 8, 2, 23, 1, fsSolid);
// and the company names
SetCellPattern(0, 2, 0, FCurRow - 2, 23, 1, fsSolid);
// and now some number formatting
SetCellFormat(1,3,1,FCurRow-1, 3); // Holding Column #,##0
SetCellFormat(2,3,2,FCurRow-1,15); // Date Purchased d-mmm-yy
SetCellFormat(3,3,6,FCurRow-1, 4); // Price/Cost/Value & Worth Column #,##0.00
SetCellFormat(7,3,7,FCurRow-1, 8); // Gain/(Loss) value (#,##0.00_);[Red](#,##0.00)
SetCellFormat(8,3,8,FCurRow-1,10); // Gain/(Loss) percentage 0.00%
// and now for the totals
SetCellFormat(4,FCurRow,4,FCurRow, 8); // Total Purchase Cost ($#,##0.00_);[Red]($#,##0.00)
SetCellFormat(6,FCurRow,7,FCurRow, 8); // Total Current Valuation ($#,##0.00_);[Red]($#,##0.00)
SetCellFormat(8,FCurRow,8,FCurRow,10); // Total Gain/(Loss) percentage 0.00%
// now lets align all the data
SetCellAlignment(1,3,8,FCurRow, haRIGHT, vaCENTER); // Right Align all the numeric fields
// and how about some borders for the totals
SetCellBorders(4, FCurRow, 4, FCurRow, 1, lsThin); // thin single line at the top of the cell
SetCellBorders(6, FCurRow, 6, FCurRow, 1, lsThin);
SetCellBorders(7, FCurRow, 7, FCurRow, 1, lsThin);
SetCellBorders(4, FCurRow, 4, FCurRow, 3, lsDouble); // double line at the bottom of the cell
SetCellBorders(6, FCurRow, 6, FCurRow, 3, lsDouble); // double line at the bottom of the cell
SetCellBorders(7, FCurRow, 7, FCurRow, 3, lsDouble); // double line at the bottom of the cell
// and now a similar process for the Hi/Lo valuations page
cxSpreadBook->ActivePage = 1; // ensure we are looking at the second page
// Firstly by setting the column widths
CHeader = cxSpreadBook->ActiveSheet->Cols;
CHeader->Size[0] = 140;
for(int i = 1; i<=4; i++) CHeader->Size[i] = 80;
// and then the Row heights for the title and column descriptors
RHeader = cxSpreadBook->ActiveSheet->Rows;
RHeader->Size[0] = 30;
RHeader->Size[2] = 30;
// and how about some cell formatting
// setting the title and column header fonts
SetCellFont(0, 0, 0, 0, TFontStyles() << fsBold << fsUnderline, 12);
// and now adding some cell shading
// for the sheet title
SetCellPattern(0, 0, 4, 1, 16, 1, fsSolid);
// for the column headers
SetCellPattern(0, 2, 4, 2, 23, 1, fsSolid);
// and the company names
SetCellPattern(0, 2, 0, FCurRow - 2, 23, 1, fsSolid);
// and now some number formatting
SetCellFormat(1, 3, 4, FCurRow - 1, 4); // Current, Hi, Lo and Average #,##0.00
// now lets align all the data
SetCellAlignment(1, 3, 4, FCurRow, haRIGHT, vaCENTER); // Right Align all the numeric fields
FIsSaveSpreadSheet = true; // enable the save spreadsheet button
}
__finally {
cxSpreadBook->ActivePage = 0; // and back to the first page
cxSpreadBook->EndUpdate();
Screen->Cursor = CurCursor; // and reset cursor
}
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actApplyFormattingUpdate(TObject *Sender)
{
((TCustomAction*)Sender)->Enabled = FIsApplyFormatting;
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::cxSpreadBookSheetPopupMenu(
TObject *Sender, int X, int Y)
{
pmSheetPopup->Popup(X, Y);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::edtCellEditChange(TObject *Sender)
{
if (FIsUpdate) return;
TcxSSCellObject *CellObject = cxSpreadBook->ActiveSheet->GetCellObject(cxSpreadBook->ActiveSheet->SelectionRect.Left,
cxSpreadBook->ActiveSheet->SelectionRect.Top);
try {
CellObject->SetCellText(((TEdit*)Sender)->Text, false);
}
__finally {
delete CellObject;
}
cxSpreadBook->UpdateControl();
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::edtCellEditExit(TObject *Sender)
{
TcxSSCellObject *CellObject = cxSpreadBook->ActiveSheet->GetCellObject(cxSpreadBook->ActiveSheet->SelectionRect.Left,
cxSpreadBook->ActiveSheet->SelectionRect.Top);
try {
CellObject->Text = CellObject->Text;
}
__finally {
delete CellObject;
}
cxSpreadBook->UpdateControl();
cxSpreadBook->SetFocus();
cxSpreadBookSetSelection(this, cxSpreadBook->ActiveSheet);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::edtCellEditKeyPress(TObject *Sender,
char &Key)
{
if (Key == 13)
{
_WINUSER_::SetFocus(cxSpreadBook->Handle);
edtCellEditExit(Sender);
}
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actCutExecute(TObject *Sender)
{
TRect rec;
rec = cxSpreadBook->SelectionRect;
cxSpreadBook->ActiveSheet->Copy(rec, true);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actCopyExecute(TObject *Sender)
{
TRect rec;
rec = cxSpreadBook->ActiveSheet->SelectionRect;
cxSpreadBook->ActiveSheet->Copy(rec, false);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actPasteExecute(TObject *Sender)
{
TRect rec;
rec = cxSpreadBook->SelectionRect;
cxSpreadBook->ActiveSheet->Paste(Point(rec.left, rec.top));
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::FormCreate(TObject *Sender)
{
FIsApplyFormatting = false;
FIsSaveSpreadSheet = false;
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actSaveSpeadSheetUpdate(TObject *Sender)
{
((TCustomAction*)Sender)->Enabled = FIsSaveSpreadSheet;
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actCellsExecute(TObject *Sender)
{
TSpreadSheetRLModifyForm *Modify;
Modify = new TSpreadSheetRLModifyForm(this);
try {
div_t sHeight, mHeight, sWidth, mWidth;
sHeight = div(cxSpreadBook->Height, 2);
mHeight = div(cxSpreadBook->Height, 2);
Modify->Top = (cxSpreadBook->Top + sHeight.quot) + mHeight.quot;
sWidth = div(cxSpreadBook->Width, 2);
mWidth = div(Modify->Width, 2);
Modify->Left = (cxSpreadBook->Left + sWidth.quot) + mWidth.quot;
TcxSSModifyType ModifyType = mtDelete;
if (((TComponent*)Sender)->Tag)
ModifyType = mtInsert;
if (Modify->Execute(ModifyType))
if (ModifyType == mtInsert)
cxSpreadBook->ActiveSheet->InsertCells(cxSpreadBook->ActiveSheet->SelectionRect, Modify->Modify);
else
cxSpreadBook->ActiveSheet->DeleteCells(cxSpreadBook->ActiveSheet->SelectionRect, Modify->Modify);
}
__finally {
Modify->Free();
}
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actFormatCellsExecute(TObject *Sender)
{
if (FIsUpdate) return;
cxSpreadBook->ActiveSheet->FormatCells(cxSpreadBook->ActiveSheet->SelectionRect);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actHideCellsExecute(TObject *Sender)
{
if (FIsUpdate) return;
cxSpreadBook->ActiveSheet->SetVisibleState(cxSpreadBook->ActiveSheet->SelectionRect, true, true, false);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actShowCellsExecute(TObject *Sender)
{
if (FIsUpdate) return;
cxSpreadBook->ActiveSheet->SetVisibleState(cxSpreadBook->ActiveSheet->SelectionRect, true, true, true);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actHideColExecute(TObject *Sender)
{
if (FIsUpdate) return;
cxSpreadBook->ActiveSheet->SetVisibleState(cxSpreadBook->ActiveSheet->SelectionRect, true, false, false);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actShowColExecute(TObject *Sender)
{
if (FIsUpdate) return;
cxSpreadBook->ActiveSheet->SetVisibleState(cxSpreadBook->ActiveSheet->SelectionRect, true, false, false);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actHideRowExecute(TObject *Sender)
{
if (FIsUpdate) return;
cxSpreadBook->ActiveSheet->SetVisibleState(cxSpreadBook->ActiveSheet->SelectionRect, false, true, false);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actShowRowExecute(TObject *Sender)
{
if (FIsUpdate) return;
cxSpreadBook->ActiveSheet->SetVisibleState(cxSpreadBook->ActiveSheet->SelectionRect, false, true, true);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actExitExecute(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actSaveSpeadSheetExecute(TObject *Sender)
{
String AFileName;
if (SaveDialog->Execute())
{
AFileName = ChangeFileExt(SaveDialog->FileName, ".xls");
cxSpreadBook->SaveToFile(AFileName);
ActiveMDIChild->Caption = ExtractFileName(AFileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actPreviewExecute(TObject *Sender)
{
dxComponentPrinter->ReportLink[0]->Preview(true);
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actPrintSetupExecute(
TObject *Sender)
{
dxComponentPrinter->ReportLink[0]->PageSetup();
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actSetPrintAreaExecute(
TObject *Sender)
{
String sdxInvalidPrintArea;
sdxInvalidPrintArea = "You've selected a single cell for print area.\r\rIf this is correct, click OK.\r";
sdxInvalidPrintArea += "If you selected single cell by mistake, click Cancel, select the cell you want to include, and then click Set Print Area again.";
TRect R = cxSpreadBook->ActiveSheet->SelectionRect;
if ((R.Right != R.Left) || (R.Bottom != R.Top) || (MessageDlg(sdxInvalidPrintArea, mtWarning, TMsgDlgButtons() << mbOK << mbCancel, 0) == mrOk))
((TCustomdxSpreadSheetReportLink*)dxComponentPrinter->ReportLink[0])->PrintArea = R;
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::actClearPrintAreaExecute(
TObject *Sender)
{
((TCustomdxSpreadSheetReportLink*)dxComponentPrinter->ReportLink[0])->ClearPrintArea();
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::cxSpreadBookActiveSheetChanging(
TcxCustomSpreadSheetBook *Sender, const int ActiveSheet,
bool &CanSelect)
{
if (CanSelect)
((TCustomdxSpreadSheetReportLink*)dxComponentPrinter->ReportLink[0])->ClearPrintArea();
}
//---------------------------------------------------------------------------
void __fastcall TSpreadSheetRLMainForm::Print1Click(TObject *Sender)
{
dxComponentPrinter->ReportLink[0]->Print(true, NULL);
}
//---------------------------------------------------------------------------
Reference in New Issue Copy Permalink