qexport4xlsfile.pas

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

  TchartAxcExt = class(TbiffRecord)
  private
    function GetMinCategory: word;
    procedure SetMinCategory(Value: word);
    function GetMaxCategory: word;
    procedure SetMaxCategory(Value: word);
    function GetMajorValue: word;
    procedure SetMajorValue(Value: word);
    function GetMajorUnits: word;
    procedure SetMajorUnits(Value: word);
    function GetMinorValue: word;
    procedure SetMinorValue(Value: word);
    function GetMinorUnits: word;
    procedure SetMinorUnits(Value: word);
    function GetBaseUnit: word;
    procedure SetBaseUnit(Value: word);
    function GetCrossingPoint: word;
    procedure SetCrossingPoint(Value: word);
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
  public
    property MinCategory: word read GetMinCategory write SetMinCategory;
    property MaxCategory: word read GetMaxCategory write SetMaxCategory;
    property MajorValue: word read GetMajorValue write SetMajorValue;
    property MajorUnits: word read GetMajorUnits write SetMajorUnits;
    property MinorValue: word read GetMinorValue write SetMinorValue;
    property MinorUnits: word read GetMinorUnits write SetMinorUnits;
    property BaseUnit: word read GetBaseUnit write SetBaseUnit;
    property CrossingPoint: word read GetCrossingPoint write SetCrossingPoint;
    property OptionFlags: word read GetOptionFlags write SetOptionFlags;
  end;

  TchartTick = class(TbiffRecord)
  private
    function GetMajorMarkType: byte;
    procedure SetMajorMarkType(Value: byte);
    function GetMinorMarkType: byte;
    procedure SetMinorMarkType(Value: byte);
    function GetLabelPosition: byte;
    procedure SetLabelPosition(Value: byte);
    function GetBackgroundMode: byte;
    procedure SetBackgroundMode(Value: byte);
    function GetColor: cardinal;
    procedure SetColor(Value: cardinal);
    function GetDisplayFlags: word;
    procedure SetDisplayFlags(Value: word);
    function GetColorIndex: word;
    procedure SetColorIndex(Value: word);
  public
    property MajorMarkType: byte read GetMajorMarkType
      write SetMajorMarkType;
    property MinorMarkType: byte read GetMinorMarkType
      write SetMinorMarkType;
    property LabelPosition: byte read GetLabelPosition
      write SetLabelPosition;
    property BackgroundMode: byte read GetBackgroundMode
      write SetBackgroundMode;
    property Color: cardinal read GetColor write SetColor;
    property DisplayFlags: word read GetDisplayFlags
      write SetDisplayFlags;
    property ColorIndex: word read GetColorIndex
      write SetColorIndex;
  end;

  TchartValueRange = class(TbiffRecord)
  private
    function GetMinValue: double;
    procedure SetMinValue(Value: double);
    function GetMaxValue: double;
    procedure SetMaxValue(Value: double);
    function GetMajorInc: double;
    procedure SetMajorInc(Value: double);
    function GetMinorInc: double;
    procedure SetMinorInc(Value: double);
    function GetAxisCrosses: double;
    procedure SetAxisCrosses(Value: double);
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
  public
    property MinValue: double read GetMinValue write SetMinValue;
    property MaxValue: double read GetMaxValue write SetMaxValue;
    property MajorInc: double read GetMajorInc write SetMajorInc;
    property MinorInc: double read GetMinorInc write SetMinorInc;
    property AxisCrosses: double read GetAxisCrosses write SetAxisCrosses;
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
  end;

  TchartAxisLineFormat = class(TbiffRecord)
  private
    function GetLineID: word;
    procedure SetLineID(Value: word);
  public
    property LineID: word read GetLineId write SetLineID;
  end;

  TchartChartFormat = class(TbiffRecord)
  private
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
    function GetDrawingOrder: word;
    procedure SetDrawingOrder(Value: word);
  public
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
    property DrawingOrder: word read GetDrawingOrder write SetDrawingOrder;
  end;

  TchartBar = class(TbiffRecord)
  private
    function GetSpaceBars: word;
    procedure SetSpaceBars(Value: word);
    function GetSpaceCategories: word;
    procedure SetSpaceCategories(Value: word);
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
  public
    property SpaceBars: word read GetSpaceBars write SetSpaceBars;
    property SpaceCategories: word read GetSpaceCategories
      write SetSpaceCategories;
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
  end;

  TchartLine = class(TbiffRecord)
  private
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
  public
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
  end;

  TchartPie = class(TbiffRecord)
  private
    function GetAngle: word;
    procedure SetAngle(Value: word);
    function GetDonut: word;
    procedure SetDonut(Value: word);
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
  public
    property Angle: word read GetAngle write SetAngle;
    property Donut: word read GetDonut write SetDonut;
    property OptionFlags: word read GetOptionFlags write SetOptionFlags;
  end;

  TchartArea = class(TbiffRecord)
  private
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
  public
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
  end;

  TchartSurface = class(TbiffRecord)
  private
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
  public
    property OptionFlags: word read GetOptionFlags write SetOptionFlags;
  end;

  TchartRadar = class(TbiffRecord)
  private
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
  public
    property OptionFlags: word read GetOptionFlags write SetOptionFlags;
  end;

  TchartRadarArea = class(TbiffRecord)
  private
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
  public
    property OptionFlags: word read GetOptionFlags write SetOptionFlags;
  end;

  Tchart3d = class(TbiffRecord)
  private
    function GetRotation: word;
    procedure SetRotation(Value: word);
    function GetElevation: word;
    procedure SetElevation(Value: word);
    function GetDistance: word;
    procedure SetDistance(Value: word);
    function GetPlotHeight: word;
    procedure SetPlotHeight(Value: word);
    function GetDepth: word;
    procedure SetDepth(Value: word);
    function GetSpace: word;
    procedure SetSpace(Value: word);
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
  public
    property Rotation: word read GetRotation write SetRotation;
    property Elevation: word read GetElevation write SetElevation;
    property Distance: word read GetDistance write SetDistance;
    property PlotHeight: word read GetPlotHeight write SetPlotHeight;
    property Depth: word read GetDepth write SetDepth;
    property Space: word read GetSpace write SetSpace;
    property OptionFlags: word read GetOptionFlags write SetOptionFlags;
  end;

  TchartLegend = class(TbiffRecord)
    function GetTop: cardinal;
    procedure SetTop(Value: cardinal);
    function GetLeft: cardinal;
    procedure SetLeft(Value: cardinal);
    function GetWidth: cardinal;
    procedure SetWidth(Value: cardinal);
    function GetHeight: cardinal;
    procedure SetHeight(Value: cardinal);
    function GetLegendType: byte;
    procedure SetLegendType(Value: byte);
    function GetSpacing: byte;
    procedure SetSpacing(Value: byte);
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
  public
    property Top: cardinal read GetTop write SetTop;
    property Left: cardinal read GetLeft write SetLeft;
    property Width: cardinal read GetWidth write SetWidth;
    property Height: cardinal read GetHeight write SetHeight;
    property LegendType: byte read GetLegendType write SetLegendType;
    property Spacing: byte read GetSpacing write SetSpacing;
    property OptionFlags: word read GetOptionFlags write SetOptionFlags;
  end;

  TchartObjectLink = class(TbiffRecord)
  private
    function GetLinkedTo: word;
    procedure SetLinkedTo(Value: word);
    function GetSeriesIndex: word;
    procedure SetSeriesIndex(Value: word);
    function GetDataIndex: word;
    procedure SetDataIndex(Value: word);
  public
    property LinkedTo: word read GetLinkedTo write SetLinkedTo;
    property SeriesIndex: word read GetSeriesIndex write SetSeriesIndex;
    property DataIndex: word read GetDataIndex write SetDataIndex;
  end;

  TchartSIIndex = class(TbiffRecord)
  private
    function GetIndex: word;
    procedure SetIndex(Value: word);
  public
    property Index: word read GetIndex write SetIndex;
  end;

  TxlsWorkbook = class;

  TxlsList = class(TList)
  private
    FWorkbook: TxlsWorkbook;
    function GetItems(Index: integer): TObject;
    procedure SetItems(Index: integer; Value: TObject);
  public
    constructor Create(Workbook: TxlsWorkbook);
    function Add(Item: TObject): integer;
    procedure Delete(Index: integer);
    {$IFDEF VCL5}
    function Extract(Item: TObject): TObject;
    {$ENDIF}
    function First: TObject;
    function IndexOf(Item: TObject): integer;
    procedure Insert(Index: integer; Item: TObject);
    function Last: TObject;
    function Remove(Item: TObject): integer;

    property Items[Index: integer]: TObject read GetItems write SetItems;
    property Workbook: TxlsWorkbook read FWorkbook;
  end;

  TbiffRecordList = class(TxlsList)
  private
    function GetItems(Index: integer): TbiffRecord;
    procedure SetItems(Index: integer; Value: TbiffRecord);
  protected
    function GetTotalSize: integer; virtual;
  public
    function Add(Item: TbiffRecord): integer;
    procedure Insert(Index: integer; Item: TbiffRecord);
    procedure Save(Stream: TStream);

    property Items[Index: integer]: TbiffRecord read GetItems
      write SetItems; default;
    property TotalSize: integer read GetTotalSize;
  end;

  TbiffColRowList = class(TbiffRecordList)
  private
    function GetItems(Index: integer): TbiffColRow;
    procedure SetItems(Index: integer; Value: TbiffColRow);
  public
    property Items[Index: integer]: TbiffColRow read GetItems
      write SetItems; default;
    function Add(Item: TbiffColRow): integer;
    procedure Insert(Index: integer; Item: TbiffColRow);
  end;

  TbiffColRowListClass = class of TbiffColRowList;

  TbiffCellList = class(TbiffColRowList)
  private
    FSorted: boolean;
    function GetItems(Index: integer): TbiffCell;
    procedure SetItems(Index: integer; Value: TbiffCell);
    procedure OnDestroyItem(Sender: TObject);
  protected
    procedure SetMinAndMaxCells(Item: TbiffCell); virtual;
    procedure SetColRowNumber(Item: TbiffCell); virtual;
    property Sorted: boolean read FSorted write FSorted;
  public
    function Add(Item: TbiffCell): integer;
    procedure Insert(Index: integer; Item: TbiffCell);

    property Items[Index: integer]: TbiffCell read GetItems
      write SetItems; default;
  end;

  TxlsRow = class(TbiffCellList)
  private
    FRowNumber: integer;
    FMinCol: integer;
    FMaxCol: integer;
  protected
    procedure SetMinAndMaxCells(Item: TbiffCell); override;
    procedure SetColRowNumber(Item: TbiffCell); override;
  public
    constructor Create(Workbook: TxlsWorkbook);
    function Find(Col: integer; var Index: integer): boolean;
    procedure Sort;

    property RowNumber: integer read FRowNumber;
    property MinCol: integer read FMinCol;
    property MaxCol: integer read FMaxCol;
  end;

  TxlsCol = class(TbiffCellList)
  private
    FColNumber: integer;
    FMinRow: integer;
    FMaxRow: integer;
  protected
    procedure SetMinAndMaxCells(Item: TbiffCell); override;
    procedure SetColRowNumber(Item: TbiffCell); override;
  public
    constructor Create(Workbook: TxlsWorkbook);
    function Find(Row: integer; var Index: integer): boolean;
    procedure Sort;

    property ColNumber: integer read FColNumber;
    property MinRow: integer read FMinRow;
    property MaxRow: integer read FMaxRow;
  end;

  TbiffShrFmlaList = class(TbiffRecordList)
  private
    FSorted: boolean;

    function GetItems(Index: integer): TbiffShrFmla;
    procedure SetItems(Index: integer; Value: TbiffShrFmla);
  public
    function Add(Item: TbiffShrFmla): integer;
    procedure Insert(Index: integer; Item: TbiffShrFmla);
    function Find(Key: cardinal; var Index: integer): boolean;
    procedure Sort;

    property Items[Index: integer]: TbiffShrFmla read GetItems
      write SetItems; default;
  end;

  TbiffNameList = class(TbiffRecordList)
  private
    function GetItems(Index: integer): TbiffName;
    procedure SetItems(Index: integer; Value: TbiffName);
  public
    function Add(Item: TbiffName): integer;
    procedure Insert(Index: integer; Item: TbiffName);

    property Items[Index: in