david
637d8e92fd
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@26 05c56307-c608-d34a-929d-697000501d7a
604 lines
27 KiB
C++
604 lines
27 KiB
C++
//---------------------------------------------------------------------------
|
|
#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);
|
|
}
|
|
//---------------------------------------------------------------------------
|