qexport4xlsfile.pas

Advanced.Export.Component.v4.01.rar,delphi 第三方控件

  TbiffLabelSST = class(TbiffCell)
  private
    FSSTEntry: TxlsSSTEntry;
    procedure DestroySSTEntry(Sender: TObject);
    function GetSSTIndex: integer;
    procedure SetSSTIndex(Value: integer);
  protected
    function GetCellType: TbiffCellType; override;

    function GetAsString: WideString; override;
    procedure SetAsString(const Value: WideString); override;
    function GetAsVariant: variant; override;
    procedure SetAsVariant(Value: variant); override;
  public
    constructor Create(Section: TxlsSection; ID, DataSize: word;
      Data: PByteArray); override;
    destructor Destroy; override;

    property SSTIndex: integer read GetSSTIndex write SetSSTIndex;
  end;

  TbiffFormula = class(TbiffCell)
  private
    FValue: variant;
    FExprLen: word;
    FExpression: PByteArray;
  protected
    function GetIsFormula: boolean; override;
    function GetAsVariant: variant; override;
    procedure SetAsVariant(Value: variant); override;
    function GetAsString: WideString; override;
    procedure SetAsString(const Value: WideString); override;
  public
    constructor Create(Section: TxlsSection; ID, DataSize: word;
      Data: PByteArray); override;
    destructor Destroy; override;
    property ExprLen: word read FExprLen;
    property Expression: PByteArray read FExpression;
  end;

  TbiffShrFmla = class(TbiffRecord)
  private
    function GetFirstRow: word;
    function GetLastRow: word;
    function GetFirstCol: word;
    function GetLastCol: word;
    function GetKey: cardinal;
  public
    property FirstRow: word read GetFirstRow;
    property LastRow: word read GetLastRow;
    property FirstCol: word read GetFirstCol;
    property LastCol: word read GetLastCol;
    property Key: cardinal read GetKey;
  end;

  TbiffName = class(TbiffRecord)
  private
    function GetName: WideString;
    function GetNameLength: byte;
    function GetNameSize: integer;
    function GetOptionFlags: byte;
    function GetRow1: integer;
    function GetRow2: integer;
    function GetCol1: integer;
    function GetCol2: integer;
  public
    property Name: WideString read GetName;
    property NameLength: byte read GetNameLength;
    property NameSize: integer read GetNameSize;
    property OptionFlags: byte read GetOptionFlags;
    property Row1: integer read GetRow1;
    property Row2: integer read GetRow2;
    property Col1: integer read GetCol1;
    property Col2: integer read GetCol2;
  end;

  TbiffMultiple = class(TbiffRecord)
  protected
    FCol: integer;
    function GetEOF: boolean; virtual; abstract;
    function GetCell: TbiffCell; virtual; abstract;
  public
    constructor Create(Section: TxlsSection; ID, DataSize: word;
      Data: PByteArray); override;
    property EOF: boolean read GetEOF;
    property Cell: TbiffCell read GetCell;
  end;

  TbiffMulBlank = class(TbiffMultiple)
  protected
    function GetEOF: boolean; override;
    function GetCell: TbiffCell; override;
  end;

  TbiffMulRK = class(TbiffMultiple)
  protected
    function GetEOF: boolean; override;
    function GetCell: TbiffCell; override;
  end;

  TbiffFont = class(TbiffRecord)
  private
    function GetHeight: word;
    procedure SetHeight(Value: word);
    function GetOption: word;
    procedure SetOption(Value: word);
    function GetPaletteIndex: word;
    procedure SetPaletteIndex(Value: word);
    function GetBoldness: word;
    procedure SetBoldness(Value: word);
    function GetScript: word;
    procedure SetScript(Value: word);
    function GetUnderline: byte;
    procedure SetUnderline(Value: byte);
    function GetFamily: byte;
    procedure SetFamily(Value: byte);
    function GetCharset: byte;
    procedure SetCharset(Value: byte);
    function GetNotUsed: byte;
    procedure SetNotUsed(Value: byte);
    function GetNameLen: byte;
    procedure SetNameLen(Value: byte);
    function GetNameOpt: byte;
    procedure SetNameOpt(Value: byte);
    function GetName: WideString;
    procedure SetName(const Value: WideString);
  public
    property Height: word read GetHeight write SetHeight;
    property Option: word read GetOption write SetOption;
    property PaletteIndex: word read GetPaletteIndex write SetPaletteIndex;
    property Boldness : word read GetBoldness write SetBoldness;
    property Script: word read GetScript write SetScript;
    property Underline: byte read GetUnderline write SetUnderline;
    property Family: byte read GetFamily write SetFamily;
    property Charset: byte read GetCharset write SetCharset;
    property NotUsed: byte read GetNotUsed write SetNotUsed;
    property NameLen: byte read GetNameLen write SetNameLen;
    property NameOpt: byte read GetNameOpt write SetNameOpt;
    property Name: WideString read GetName write SetName;
  end;

  TbiffStyle = class(TbiffRecord);

  TbiffXF = class(TbiffRecord)
  private
    function GetFontIndex: word;
    procedure SetFontIndex(Value: word);
    function GetFormatIndex: word;
    procedure SetFormatIndex(Value: word);
    function GetData1: word;
    procedure SetData1(Value: word);
    function GetData2: word;
    procedure SetData2(Value: word);
    function GetData3: word;
    procedure SetData3(Value: word);
    function GetData4: word;
    procedure SetData4(Value: word);
    function GetData5: word;
    procedure SetData5(Value: word);
    function GetData6: longint;
    procedure SetData6(Value: longint);
    function GetData7: word;
    procedure SetData7(Value: word);
  public
    property FontIndex: word read GetFontIndex write SetFontIndex;
    property FormatIndex: word read GetFormatIndex write SetFormatIndex;
    property Data1: word read GetData1 write SetData1;
    property Data2: word read GetData2 write SetData2;
    property Data3: word read GetData3 write SetData3;
    property Data4: word read GetData4 write SetData4;
    property Data5: word read GetData5 write SetData5;
    property Data6: longint read GetData6 write SetData6;
    property Data7: word read GetData7 write SetData7;
  end;

  TbiffFormat = class(TbiffRecord)
  private
    function GetID: word;
    procedure SetID(Value: word);
    function GetFormatLen: word;
    procedure SetFormatLen(Value: word);
    function GetFormatOpt: byte;
    procedure SetFormatOpt(Value: byte);
    function GetFormat: WideString;
    procedure SetFormat(const Value: WideString);
  public
    constructor Create(Section: TxlsSection; ID, DataSize: word;
      Data: PByteArray); override;

    property ID: word read GetID write SetID;
    property FormatLen: word read GetFormatLen write SetFormatLen;
    property FormatOpt: byte read GetFormatOpt write SetFormatOpt;
    property Format: WideString read GetFormat write SetFormat;
  end;

  TbiffHLink = class(TbiffRecord);
{  private
    function GetFirstRow: word;
    procedure SetFirstRow(Value: word);
    function GetLastRow: word;
    procedure SetLastRow(Value: word);
    function GetFirstCol: word;
    procedure SetFirstCol(Value: word);
    function GetLastCol: word;
    procedure SetLastCol(Value: word);
  public
    property FirstRow: word read GetFirstRow write SetFirstRow;
    property LastRow: word read GetLastRow write SetLastRow;
    property FirstCol: word read GetFirstCol write SetFirstCol;
    property LastCol: word read GetLastCol write SetLastCol;
  end;}

  TbiffDefColWidth = class(TbiffRecord)
  private
    function GetWidth: word;
  public
    property Width: word read GetWidth;
  end;

  TbiffDefRowHeight = class(TbiffRecord)
  private
    function GetHeight: word;
  public
    property Height: word read GetHeight;
  end;

  TxlsColInfo = class
  private
    FColumn: word;
    FWidth: word;
    FXF: word;
    FOptions: word;
  public
    property Column: word read FColumn write FColumn; // zero-based
    property Width: word read FWidth write FWidth;
    property XF: word read FXF write FXF;
    property Options: word read FOptions write FOptions;

    constructor Create(Column, Width, XF, Options: word);
    function IsEqual(ColInfo: TxlsColInfo): boolean;
  end;

  TbiffColInfo = class(TbiffRecord);

  TbiffDimensions = class(TbiffRecord)
  private
    function GetFirstRow: integer;
    procedure SetFirstRow(Value: integer);
    function GetLastRow: integer;
    procedure SetLastRow(Value: integer);
    function GetFirstCol: word;
    procedure SetFirstCol(Value: word);
    function GetLastCol: word;
    procedure SetLastCol(Value: word);
    function GetReserved: word;
    procedure SetReserved(Value: word);
  public
    property FirstRow: integer read GetFirstRow write SetFirstRow;
    property LastRow: integer read GetLastRow write SetLastRow;
    property FirstCol: word read GetFirstCol write SetFirstCol;
    property LastCol: word read GetLastCol write SetLastCol;
    property Reserved: word read GetReserved write SetReserved;
  end;

  TbiffSST = class(TbiffRecord)
  private
    FCount: cardinal;
  public
    property Count: cardinal read FCount;
    constructor Create(Section: TxlsSection; ID, DataSize: word;
      Data: PByteArray); override;
  end;

  TbiffWindow1 = class(TbiffRecord)
  private
    function GetLeft: word;
    procedure SetLeft(Value: word);
    function GetTop: word;
    procedure SetTop(Value: word);
    function GetWidth: word;
    procedure SetWidth(Value: word);
    function GetHeight: word;
    procedure SetHeight(Value: word);
    function GetOptions: word;
    procedure SetOptions(Value: word);
    function GetActiveSheet: word;
    procedure SetActiveSheet(Value: word);
    function GetFirstVisible: word;
    procedure SetFirstVisible(Value: word);
    function GetSelectCount: word;
    procedure SetSelectCount(Value: word);
    function GetTabWidth: word;
    procedure SetTabWidth(Value: word);
  public
    property Left: word read GetLeft write SetLeft;
    property Top: word read GetTop write SetTop;
    property Width: word read GetWidth write SetWidth;
    property Height: word read GetHeight write SetHeight;
    property Options: word read GetOptions write SetOptions;
    property ActiveSheet: word read GetActiveSheet write SetActiveSheet;
    property FirstVisible: word read GetFirstVisible write SetFirstVisible;
    property SelectCount : word read GetSelectCount write SetSelectCount;
    property TabWidth: word read GetTabWidth write SetTabWidth;
  end;

  TbiffWindow2 = class(TbiffRecord)
  private
    function GetOptions: word;
    procedure SetOptions(Value: word);
    function GetTopRow: word;
    procedure SetTopRow(Value: word);
    function GetLeftCol: word;
    procedure SetLeftCol(Value: word);
    function GetGridLineColor: integer;
    procedure SetGridLineColor(Value: integer);
    function GetZoomInPreview: word;
    procedure SetZoomInPreview(Value: word);
    function GetZoomInNormal: word;
    procedure SetZoomInNormal(Value: word);
    function GetReserved: integer;
    procedure SetReserved(Value: integer);
  public
    property Options: word read GetOptions write SetOptions;
    property TopRow: word read GetTopRow write SetTopRow;
    property LeftCol: word read GetLeftCol write SetLeftCol;
    property GridLineColor: integer read GetGridLineColor
      write SetGridLineColor;
    property ZoomInPreview: word read GetZoomInPreview
      write SetZoomInPreview;
    property ZoomInNormal: word read GetZoomInNormal
      write SetZoomInNormal;
    property Reserved: integer read GetReserved write SetReserved;
  end;

  TbiffSelection = class(TbiffRecord)
  private
    function GetPane: byte;
    procedure SetPane(Value: byte);
    function GetActiveRow: word;
    procedure SetActiveRow(Value: word);
    function GetActiveCol: word;
    procedure SetActiveCol(Value: word);
    function GetActiveRef: word;
    procedure SetActiveRef(Value: word);
    function GetRefs: word;
    procedure SetRefs(Value: word);
    function GetRow1: word;
    procedure SetRow1(Value: word);
    function GetRow2: word;
    procedure SetRow2(Value: word);
    function GetCol1: word;
    procedure SetCol1(Value: word);
    function GetCol2: byte;
    procedure SetCol2(Value: byte);
  public
    property Pane: byte read GetPane write SetPane;
    property ActiveRow: word read GetActiveRow write SetActiveRow;
    property ActiveCol: word read GetActiveCol write SetActiveCol;
    property ActiveRef: word read GetActiveRef write SetActiveRef;
    property Refs: word read GetRefs write SetRefs;
    property Row1: word read GetRow1 write SetRow1;
    property Row2: word read GetRow2 write SetRow2;
    property Col1: word read GetCol1 write SetCol1;
    property Col2: byte read GetCol2 write SetCol2;
  end;

  TbiffSCL = class(TbiffRecord)
  private
    function GetNumerator: word;
    procedure SetNumerator(Value: word);
    function GetDenominator: word;
    procedure SetDenominator(Value: word);
  public
    property Numerator: word read GetNumerator write SetNumerator;
    property Denominator: word read GetDenominator write SetDenominator;
  end;

  TbiffSetup = class(TbiffRecord)
  private
    function GetPaperSize: word;