qexport4xlsfile.pas

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

    property FontIndex2: word read getFontIndex2 write SetFontIndex2;
  end;

  TbiffNote = class(TbiffColRow)
  private
    function GetOptions: word;
    procedure SetOptions(Value: word);
    function GetObjID: word;
    procedure SetObjID(Value: word);
//    function GetAuthorLength: word;
//    procedure SetAuthorLength(Value: word);
  public
    property Options: word read GetOptions write SetOptions;
    property ObjID: word read GetObjID write SetObjID;
//    property AuthorLength: word read GetAuthorLength write SetAuthorLength;
  end;

  TbiffSupbookInternal = class(TbiffRecord)
  private
    function GetSheetCount: word;
    procedure SetSheetCount(Value: word);
  public
    constructor Create(Section: TxlsSection; ID, DataSize: word;
      Data: PByteArray); override;
    property SheetCount: word read GetSheetCount write SetSheetCount;
  end;

  TbiffExternSheet = class(TbiffRecord)
  private
    function GetRefCount: word;
    procedure SetRefCount(const Value: word);
  public
    property RefCount: word read GetRefCount write SetRefCount;
  end;

  TchartFBI = class(TbiffRecord)
  private
    function GetWidth: word;
    procedure SetWidth(Value: word);
    function GetHeight: word;
    procedure SetHeight(Value: word);
    function GetHeightApplied: word;
    procedure SetHeightApplied(Value: word);
    function GetScale: word;
    procedure SetScale(Value: word);
    function GetFontIndex: word;
    procedure SetFontIndex(Value: word);
  public
    property Width: word read GetWidth write SetWidth;
    property Height: word read GetHeight write SetHeight;
    property HeightApplied: word read GetHeightApplied write SetHeightApplied;
    property Scale: word read GetScale write SetScale;
    property FontIndex: word read GetFontIndex write SetFontIndex;
  end;

  TchartChart = class(TbiffRecord)
  private
    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);
  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;
  end;

  TchartPlotGrowth = class(TbiffRecord)
  private
    function GetHorizontal: cardinal;
    procedure SetHorizontal(Value: cardinal);
    function GetVertical: cardinal;
    procedure SetVertical(Value: cardinal);
  public
    property Horizontal: cardinal read GetHorizontal write SetHorizontal;
    property Vertical: cardinal read GetVertical write SetVertical;
  end;

  TchartFrame = class(TbiffRecord)
  private
    function GetFrameType: word;
    procedure SetFrameType(Value: word);
    function GetFlags: word;
    procedure SetFlags(Value: word);
  public
    property FrameType: word read GetFrameType write SetFrameType;
    property Flags: word read GetFlags write SetFlags;
  end;

  TchartLineFormat = class(TbiffRecord)
  private
    function GetColor: cardinal;
    procedure SetColor(Value: cardinal);
    function GetPattern: word;
    procedure SetPattern(Value: word);
    function GetWeight: word;
    procedure SetWeight(Value: word);
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
    function GetColorIndex: word;
    procedure SetColorIndex(Value: word);
  public
    property Color: cardinal read GetColor write SetColor;
    property Pattern: word read GetPattern write SetPattern;
    property Weight: word read GetWeight write SetWeight;
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
    property ColorIndex: word read GetColorIndex write SetColorIndex;
  end;

  TchartAreaFormat = class(TbiffRecord)
  private
    function GetForegroundColor: cardinal;
    procedure SetForegroundColor(Value: cardinal);
    function GetBackgroundColor: cardinal;
    procedure SetBackgroundColor(Value: cardinal);
    function GetPattern: word;
    procedure SetPattern(Value: word);
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
    function GetForegroundColorIndex: word;
    procedure SetForegroundColorIndex(Value: word);
    function GetBackgroundColorIndex: word;
    procedure SetBackgroundColorIndex(Value: word);
  public
    property ForegroundColor: cardinal read GetForegroundColor
      write SetForegroundColor;
    property BackgroundColor: cardinal read GetBackgroundColor
      write SetBackgroundColor;
    property Pattern: word read GetPattern write SetPattern;
    property FormatFlags: word read GetFormatFlags
      write SetFormatFlags;
    property ForegroundColorIndex: word read GetForegroundColorIndex
      write SetForegroundColorIndex;
    property BackgroundColorIndex: word read GetBackgroundColorIndex
      write SetBackgroundColorIndex;
  end;

  TchartSeries = class(TbiffRecord)
  private
    function GetCategoryType: word;
    procedure SetCategoryType(Value: word);
    function GetValueType: word;
    procedure SetValueType(Value: word);
    function GetCategoryCount: word;
    procedure SetCategoryCount(Value: word);
    function GetValueCount: word;
    procedure SetValueCount(Value: word);
    function GetBubbleType: word;
    procedure SetBubbleType(Value: word);
    function GetBubbleCount: word;
    procedure SetBubbleCount(Value: word);
  public
    property CategoryType: word read GetCategoryType write SetCategoryType;
    property ValueType: word read GetValueType write SetValueType;
    property CategoryCount: word read GetCategoryCount write SetCategoryCount;
    property ValueCount: word read GetValueCount write SetValueCount;
    property BubbleType: word read GetBubbleType write SetBubbleType;
    property BubbleCount: word read getBubbleCount write SetBubbleCount;
  end;

  TchartAI = class(TbiffRecord)
  private
    function GetLinkType: byte;
    procedure SetLinkType(Value: byte);
    function GetReferenceType: byte;
    procedure SetReferenceType(Value: byte);
    function GetFlags: word;
    procedure SetFlags(Value: word);
    function GetFormatIndex: word;
    procedure SetFormatIndex(Value: word);
    function GetFormulaSize: word;
    procedure SetFormulaSize(Value: word);
  public
    property LinkType: byte read GetLinkType write SetLinkType;
    property ReferenceType: byte read GetReferenceType write SetReferenceType;
    property Flags: word read GetFlags write SetFlags;
    property FormatIndex: word read GetFormatIndex write SetFormatIndex;
    property FormulaSize: word read GetFormulaSize write SetFormulaSize;
  end;

  TchartDataFormat = class(TbiffRecord)
  private
    function GetPointNumber: word;
    procedure SetPointNumber(Value: word);
    function GetSeriesIndex: word;
    procedure SetSeriesIndex(Value: word);
    function GetSeriesNumber: word;
    procedure SetSeriesNumber(Value: word);
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
  public
    property PointNumber: word read GetPointNumber write SetPointNumber;
    property SeriesIndex: word read GetSeriesIndex write SetSeriesIndex;
    property SeriesNumber: word read GetSeriesNumber write SetSeriesNumber;
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
  end;

  TchartSeriesText = class(TbiffRecord)
  private
    function GetTextID: word;
    procedure SetTextID(Value: word);
    function GetLength: byte;
    procedure SetLength(Value: byte);
    function GetText: string;
    procedure SetText(const Value: string);
  public
    property TextID: word read GetTextID write SetTextID;
    property Length: byte read GetLength write SetLength;
    property Text: string read GetText write SetText;
  end;

  TchartSerToCRT = class(TbiffRecord)
  private
    function GetChartGroupIndex: word;
    procedure SetChartGroupIndex(Value: word);
  public
    property ChartGroupIndex: word read GetChartGroupIndex
      write SetChartGroupIndex;
  end;

  TchartShtProps = class(TbiffRecord)
  private
    function GetPropertyFlags: word;
    procedure SetPropertyFlags(Value: word);
    function GetEmptyAs: byte;
    procedure SetEmptyAs(Value: byte);
    function GetUnknown: byte;
    procedure SetUnknown(Value: byte);
  public
    property PropertyFlags: word read GetPropertyFlags write SetPropertyFlags;
    property EmptyAs: byte read GetEmptyAs write SetEmptyAs;
    property Unknown: byte read GetUnknown write SetUnknown; 
  end;

  TchartDefaultText = class(TbiffRecord)
  private
    function GetObjectID: word;
    procedure SetObjectID(Value: word);
  public
    property ObjectID: word read GetObjectID write SetObjectID;
  end;

  TchartText = class(TbiffRecord)
  private
    function GetHorizontalAlignment: byte;
    procedure SetHorizontalAlignment(Value: byte);
    function GetVerticalAlignment: byte;
    procedure SetVerticalAlignment(Value: byte);
    function GetBackgroundMode: word;
    procedure SetBackgroundMode(Value: word);
    function GetColor: cardinal;
    procedure SetColor(Value: cardinal);
    function GetLeft: cardinal;
    procedure SetLeft(Value: cardinal);
    function GetTop: cardinal;
    procedure SetTop(Value: cardinal);
    function GetWidth: cardinal;
    procedure SetWidth(Value: cardinal);
    function GetHeight: cardinal;
    procedure SetHeight(Value: cardinal);
    function GetOptionFlags1: word;
    procedure SetOptionFlags1(Value: word);
    function GetColorIndex: word;
    procedure SetColorIndex(Value: word);
    function GetOptionFlags2: word;
    procedure SetOptionFlags2(Value: word);
    function GetRotation: word;
    procedure SetRotation(Value: word);
  public
    property HorizontalAlignment: byte read GetHorizontalAlignment
      write SetHorizontalAlignment;
    property VerticalAlignment: byte read GetVerticalAlignment
      write SetVerticalAlignment;
    property BackgroundMode: word read GetBackgroundMode
      write SetBackgroundMode;
    property Color: cardinal read GetColor write SetColor;
    property Left: cardinal read GetLeft write SetLeft;
    property Top: cardinal read GetTop write SetTop;
    property Width: cardinal read GetWidth write SetWidth;
    property Height: cardinal read GetHeight write SetHeight;
    property OptionFlags1: word read GetOptionFlags1
      write SetOptionFlags1;
    property ColorIndex: word read GetColorIndex write SetColorIndex;
    property OptionFlags2: word read GetOptionFlags2
      write SetOptionFlags2;
    property Rotation: word read GetRotation write SetRotation;
  end;

  TchartPos = class(TbiffRecord)
  private
    function GetTopLt: word;
    procedure SetTopLt(Value: word);
    function GetBotRt: word;
    procedure SetBotRt(Value: word);
    function GetX1: cardinal;
    procedure SetX1(Value: cardinal);
    function GetY1: cardinal;
    procedure SetY1(Value: cardinal);
    function GetX2: cardinal;
    procedure SetX2(Value: cardinal);
    function GetY2: cardinal;
    procedure SetY2(Value: cardinal);
  public
    property TopLt: word read GetTopLt write SetTopLt;
    property BotRt: word read GetBotRt write SetBotRt;
    property X1: cardinal read GetX1 write SetX1;
    property Y1: cardinal read GetY1 write SetY1;
    property X2: cardinal read GetX2 write SetX2;
    property Y2: cardinal read GetY2 write SetY2;
  end;

  TchartFontX = class(TbiffRecord)
  private
    function GetFontIndex: word;
    procedure SetFontIndex(Value: word);
  public
    property FontIndex: word read GetFontIndex write SetFontIndex;
  end;

  TchartAxesUsed = class(TbiffRecord)
  private
    function GetAxesCount: word;
    procedure SetAxesCount(Value: word);
  public
    property AxesCount: word read GetAxesCount write SetAxesCount;
  end;

  TchartAxisParent = class(TbiffRecord)
  private
    function GetAxisIndex: word;
    procedure SetAxisIndex(Value: word);
    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);
  public
    property AxisIndex: word read GetAxisIndex write SetAxisIndex;
    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;
  end;

  TchartAxis = class(TbiffRecord)
  private
    function GetAxisType: word;
    procedure SetAxisType(Value: word);
  public
    property AxisType: word read GetAxisType write SetAxisType;
  end;

  TchartCatSerRange = class(TbiffRecord)
  private
    function GetCrossingPoint: word;
    procedure SetCrossingPoint(Value: word);
    function GetFrequencyLabels: word;
    procedure SetFrequencyLabels(Value: word);
    function GetFrequencyMarks: word;
    procedure SetFrequencyMarks(Value: word);
    function GetFormatFlags: word;
    procedure SetFormatFlags(Value: word);
  public
    property CrossingPoint: word read GetCrossingPoint
      write SetCrossingPoint;
    property FrequencyLabels: word read GetFrequencyLabels
      write SetFrequencyLabels;
    property FrequencyMarks: word read GetFrequencyMarks
      write SetFrequencyMarks;
    property FormatFlags: word read GetFormatFlags write SetFormatFlags;
  end;