ucpreview.cpp

Delphi/BCB 各种版本都支持的Excel 读写控件.一成功应用在N个项目中 .

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "UCPreview.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "UFlexCelPreview"
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
__fastcall TFPreview::TFPreview(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFPreview::FlexCelPreview1PageChange(
      const TFlexCelPreview *Sender, const int PageNumber,
      const int TotalPages)
{
  StatusBar->SimpleText=Format("Page %d of %d",ARRAYOFCONST((PageNumber, TotalPages)));
}
//---------------------------------------------------------------------------

void __fastcall TFPreview::ActionCloseExecute(TObject *Sender)
{
  ModalResult=mrCancel;
}
//---------------------------------------------------------------------------

void __fastcall TFPreview::ActionPrintExecute(TObject *Sender)
{
 ModalResult=mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TFPreview::ComboZoomChange(TObject *Sender)
{
  FlexCelPreview1->ZoomPreview=StrToInt(Trim(ComboZoom->Text.SubString(1, ComboZoom->Text.Length()-1)));
}
//---------------------------------------------------------------------------