xlsadapter.hpp

来自「TMSPack基本上涵盖了Delphi所有的基础控件」· HPP 代码 · 共 327 行 · 第 1/2 页

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Xlsadapter.pas' rev: 10.00

#ifndef XlsadapterHPP
#define XlsadapterHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Uexceladapter.hpp>	// Pascal unit
#include <Xlsbasetemplatestore.hpp>	// Pascal unit
#include <Uflxmessages.hpp>	// Pascal unit
#include <Uexcelrecords.hpp>	// Pascal unit
#include <Xlsmessages.hpp>	// Pascal unit
#include <Uflxrowcomments.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Wole2stream.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Uxlssheet.hpp>	// Pascal unit
#include <Uflxformats.hpp>	// Pascal unit
#include <Uxlsrowcolentries.hpp>	// Pascal unit
#include <Utextdelim.hpp>	// Pascal unit
#include <Uxlsxf.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Xlsadapter
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TExcelSaveFormatNative { snXLS, snCSVComma, snCSVSemiColon, snTabDelimited };
#pragma option pop

typedef Set<TExcelSaveFormatNative, snXLS, snTabDelimited>  TSetOfExcelSaveFormatNative;

class DELPHICLASS TXLSAdapter;
class PASCALIMPLEMENTATION TXLSAdapter : public Uexceladapter::TExcelAdapter 
{
	typedef Uexceladapter::TExcelAdapter inherited;
	
private:
	Xlsbasetemplatestore::TXlsBaseTemplateStore* FTemplateStore;
	TSetOfExcelSaveFormatNative FSaveFormat;
	bool FAllowOverwritingFiles;
	void __fastcall SetTemplateStore(const Xlsbasetemplatestore::TXlsBaseTemplateStore* Value);
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
public:
	__fastcall virtual TXLSAdapter(Classes::TComponent* AOwner);
	virtual Uexceladapter::TExcelFile* __fastcall GetWorkbook(void);
	
__published:
	__property TSetOfExcelSaveFormatNative SaveFormat = {read=FSaveFormat, write=FSaveFormat, default=1};
	__property Xlsbasetemplatestore::TXlsBaseTemplateStore* TemplateStore = {read=FTemplateStore, write=SetTemplateStore};
	__property bool AllowOverwritingFiles = {read=FAllowOverwritingFiles, write=FAllowOverwritingFiles, nodefault};
public:
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TXLSAdapter(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXLSFile;
class PASCALIMPLEMENTATION TXLSFile : public Uexceladapter::TExcelFile 
{
	typedef Uexceladapter::TExcelFile inherited;
	
private:
	TXLSAdapter* FAdapter;
	int FActiveSheet;
	Uexcelrecords::TWorkbook* FWorkbook;
	Xlsbasetemplatestore::TXlsStorageList* FTemplate;
	Xlsbasetemplatestore::TXlsStorageList* FTmpTemplate;
	int FirstColumn;
	int LastColumn;
	bool AllowOverwritingFiles;
	bool IsFileModified;
	Uflxrowcomments::TRowComments* RowPictures;
	void __fastcall ParsePictures(void);
	void __fastcall PasteFromStream(const int Row, const int Col, const Classes::TStream* Stream);
	void __fastcall OpenFileOrStream(const AnsiString FileName, const Classes::TStream* aStream);
	void __fastcall PasteFromBiff8(const int Row, const int Col);
	void __fastcall PasteFromText(const int Row, const int Col);
	void __fastcall SaveAsXls(const AnsiString FileName, const Classes::TStream* DataStream);
	void __fastcall SaveAsTextDelimited(const AnsiString FileName, const Classes::TStream* DataStream, const char Delim);
	void __fastcall InternalSetCellString(const int aRow, const int aCol, const WideString Text, const Uflxformats::PFlxFormat Fm, const WideString DateFormat, const WideString TimeFormat);
	void __fastcall SetCellValueAndFmt(const int aRow, const int aCol, const Variant &v, const Uflxformats::PFlxFormat Fm);
	AnsiString __fastcall SkipThousands(const AnsiString s);
	void __fastcall RestoreObjectSizes(void);
	
protected:
	virtual int __fastcall GetActiveSheet(void);
	virtual void __fastcall SetActiveSheet(const int Value);
	virtual WideString __fastcall GetActiveSheetName();
	virtual void __fastcall SetActiveSheetName(const WideString Value);
	virtual WideString __fastcall GetActiveSheetCodeName();
	virtual void __fastcall SetActiveSheetCodeName(const WideString Value);
	virtual Uflxmessages::TXlsSheetVisible __fastcall GetActiveSheetVisible(void);
	virtual void __fastcall SetActiveSheetVisible(const Uflxmessages::TXlsSheetVisible Value);
	virtual int __fastcall GetColumnWidth(int aCol);
	virtual int __fastcall GetColumnWidthHiddenIsZero(int aCol);
	virtual int __fastcall GetRowHeight(int aRow);
	virtual int __fastcall GetRowHeightHiddenIsZero(int aRow);
	virtual void __fastcall SetColumnWidth(int aCol, const int Value);
	virtual void __fastcall SetRowHeight(int aRow, const int Value);
	virtual bool __fastcall GetRowHidden(const int aRow);
	virtual bool __fastcall GetColumnHidden(const int aCol);
	virtual void __fastcall SetRowHidden(const int aRow, const bool Value);
	virtual void __fastcall SetColumnHidden(const int aCol, const bool Value);
	virtual int __fastcall GetDefaultColWidth(void);
	virtual int __fastcall GetDefaultRowHeight(void);
	virtual int __fastcall GetCommentsCount(int Row);
	virtual WideString __fastcall GetCommentText(int Row, int aPos);
	virtual int __fastcall GetCommentColumn(int Row, int aPos);
	virtual WideString __fastcall GetPictureName(int Row, int aPos);
	virtual int __fastcall GetPicturesCount(int Row);
	virtual Variant __fastcall GetCellValue(int aRow, int aCol);
	virtual void __fastcall SetCellValue(int aRow, int aCol, const Variant &Value);
	virtual Uflxmessages::TXlsCellValue __fastcall GetCellValueX(int aRow, int aCol);
	virtual void __fastcall SetCellValueX(int aRow, int aCol, const Uflxmessages::TXlsCellValue &Value);
	virtual WideString __fastcall GetCellFormula(int aRow, int aCol);
	virtual void __fastcall SetCellFormula(int aRow, int aCol, const WideString Value);
	virtual bool __fastcall GetAutoRowHeight(int Row);
	virtual void __fastcall SetAutoRowHeight(int Row, const bool Value);
	virtual int __fastcall GetColumnFormat(int aColumn);
	virtual int __fastcall GetRowFormat(int aRow);
	virtual void __fastcall SetColumnFormat(int aColumn, const int Value);
	virtual void __fastcall SetRowFormat(int aRow, const int Value);
	virtual int __fastcall GetCellFormat(int aRow, int aCol);
	virtual void __fastcall SetCellFormat(int aRow, int aCol, const int Value);
	virtual unsigned __fastcall GetColorPalette(Uflxmessages::TColorPaletteRange Index);
	virtual void __fastcall SetColorPalette(Uflxmessages::TColorPaletteRange Index, const unsigned Value);
	virtual Uflxformats::TFlxFont __fastcall GetFontList(int index);
	virtual void __fastcall SetFontList(int index, const Uflxformats::TFlxFont &Value);
	virtual Uflxformats::TFlxFormat __fastcall GetFormatList(int index);
	virtual void __fastcall SetFormatList(int index, const Uflxformats::TFlxFormat &Value);
	virtual WideString __fastcall GetPageFooter();
	virtual WideString __fastcall GetPageHeader();
	virtual void __fastcall SetPageFooter(const WideString Value);
	virtual void __fastcall SetPageHeader(const WideString Value);
	virtual bool __fastcall GetShowGridLines(void);
	virtual void __fastcall SetShowGridLines(const bool Value);
	virtual bool __fastcall GetShowGridHeaders(void);
	virtual void __fastcall SetShowGridHeaders(const bool Value);
	virtual bool __fastcall GetPrintGridLines(void);
	virtual void __fastcall SetPrintGridLines(const bool Value);
	virtual int __fastcall GetSheetZoom(void);
	virtual void __fastcall SetSheetZoom(const int Value);
	virtual Uflxmessages::TXlsMargins __fastcall GetMargins();
	virtual void __fastcall SetMargins(const Uflxmessages::TXlsMargins &Value);