qexport4xlsfile.pas

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

    procedure SetPaperSize(Value: word);
    function GetScalingFactor: word;
    procedure SetScalingFactor(Value: word);
    function GetStartingPageNumber: word;
    procedure SetStartingPageNumber(Value: word);
    function GetFitToWidth: word;
    procedure SetFitToWidth(Value: word);
    function GetFitToHeight: word;
    procedure SetFitToHeight(Value: word);
    function GetOptionFlags: word;
    procedure SetOptionFlags(Value: word);
    function GetPrintResolution: word;
    procedure SetPrintResolution(Value: word);
    function GetVerticalPrintResolution: word;
    procedure SetVerticalPrintResolution(Value: word);
    function GetHeaderMargin: double;
    procedure SetHeaderMargin(Value: double);
    function GetFooterMargin: double;
    procedure SetFooterMargin(Value: double);
    function GetNumberOfCopies: word;
    procedure SetNumberOfCopies(Value: word);
  public
    property PaperSize: word read GetPaperSize
      write SetPaperSize;
    property ScalingFactor: word read GetScalingFactor
      write SetScalingFactor;
    property StartingPageNumber: word read GetStartingPageNumber
      write SetStartingPageNumber;
    property FitToWidth: word read GetFitToWidth
      write SetFitToWidth;
    property FitToHeight: word read GetFitToHeight
      write SetFitToHeight;
    property OptionFlags: word read GetOptionFlags
      write SetOptionFlags;
    property PrintResolution: word read GetPrintResolution
      write SetPrintResolution;
    property VerticalPrintResolution: word
      read GetVerticalPrintResolution
      write SetVerticalPrintResolution;
    property HeaderMargin: double read GetHeaderMargin
      write SetHeaderMargin;
    property FooterMargin: double read GetFooterMargin
      write SetFooterMargin;
    property NumberOfCopies: word read GetNumberOfCopies
      write SetNumberOfCopies;
  end;

  TmsoObject = class
  private
    FVersion: word;
    FInstance: word;

    function GetDataSize: integer;
  protected
    function GetSize: integer; virtual; abstract;
  public
    constructor Create(Version, Instance: word);
    procedure Save(Stream: TStream); virtual; abstract;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); virtual; abstract;

    property Version: word read FVersion write FVersion;
    property Instance: word read FInstance write FInstance;
    property Size: integer read GetSize;
    property DataSize: integer read GetDataSize;
  end;

  TmsoList = class(TList)
  private
    function GetItems(Index: integer): TmsoObject;
    procedure SetItems(Index: integer; Value: TmsoObject);
  public
    function Add(Item: TmsoObject): integer;
    procedure Delete(Index: integer);
    {$IFDEF VCL5}
    function Extract(Item: TmsoObject): TmsoObject;
    {$ENDIF}
    function First: TmsoObject;
    function IndexOf(Item: TmsoObject): integer;
    procedure Insert(Index: integer; Item: TmsoObject);
    function Last: TmsoObject;
    function Remove(Item: TmsoObject): integer;

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

  TmsoContainer = class(TmsoObject)
  private
    FFBT: word;
    FAddSize: integer;
    FChildren: TmsoList;
  protected
    function GetSize: integer; override;
  public
    constructor Create(FBT, Version, Instance: word);
    destructor Destroy; override;
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;

    property FBT: word read FFBT write FFBT;
    property AddSize: integer read FAddSize write FAddSize;
    property Children: TmsoList read FChildren;
  end;

  TmsoDgg = class(TmsoObject)
  private
    FPicCount: integer;
  protected
    function GetSize: integer; override;
  public
    constructor Create(Version, Instance: word; PicCount: integer);
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;

    property PicCount: integer read FPicCount;
  end;

  TmsoDg = class(TmsoObject)
  protected
    function GetSize: integer; override;
  public
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
  end;

  TmsoSpgr = class(TmsoObject)
  protected
    function GetSize: integer; override;
  public
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
  end;

  TmsoSp = class(TmsoObject)
  private
    FID: word;
    FFlags: word;
  protected
    function GetSize: integer; override;
  public
    constructor Create(Version, Instance, ID, Flags: word);
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;

    property ID: word read FID write FID;
    property Flags: word read FFlags write FFlags;
  end;

  TmsoOPTData = class
  private
    FOptions: word;
    FValue: cardinal;
    FStrValue: WideString;
  public
    constructor Create(Options: word; Value: DWORD);
    constructor CreateStr(Options: word; const Value: WideString);

    property Options: word read FOptions write FOptions;
    property Value: cardinal read FValue write FValue;
    property StrValue: WideString read FStrValue write FStrValue;
  end;

  TmsoOPTDataList = class(TList)
  private
    function GetItems(Index: integer): TmsoOPTData;
    procedure SetItems(Index: integer; Value: TmsoOPTData);
  public
    function Add(Item: TmsoOPTData): integer;
    procedure Delete(Index: integer);
    {$IFDEF VCL5}
    function Extract(Item: TmsoOPTData): TmsoOPTData;
    {$ENDIF}
    function First: TmsoOPTData;
    function IndexOf(Item: TmsoOPTData): integer;
    procedure Insert(Index: integer; Item: TmsoOPTData);
    function Last: TmsoOPTData;
    function Remove(Item: TmsoOPTData): integer;

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

  TmsoOPT = class(TmsoObject)
  protected
    FValues: TmsoOPTDataList;
    function GetSize: integer; override;
  public
    constructor Create(Version, Instance: word);
    destructor Destroy; override;
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
    procedure AddStrValue(ID: word; const Str: WideString);

    property Values: TmsoOPTDataList read FValues;
  end;

  TmsoClientAnchor = class(TmsoObject)
  private
    FOptions: word;
    FAnchor: PMSO_Anchor;
  protected
    function GetSize: integer; override;
  public
    constructor Create(Version, Instance, Options: word; Anchor: TMSO_Anchor);
    destructor Destroy; override;
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;

    property Options: word read FOptions write FOptions;
  end;

  TmsoClientData = class(TmsoObject)
  protected
    function GetSize: integer; override;
  public
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
  end;

  TmsoBLIPData = class(TmsoObject)
  private
    FFileName: string;
    FPicture: TStream;
    FPictureType: integer;

    function GetPictureSize: integer;
  protected
    function GetSize: integer; override;
  public
    constructor Create(Version, Instance: word; const FileName: string;
      Picture: TStream; PictureType: integer);
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
  end;

  TmsoBSEData = class(TmsoBLIPData)
  private
    FRefCount: integer;
  protected
    function GetSize: integer; override;
  public
    constructor Create(Version, Instance: word; const FileName: string;
      Picture: TStream; PictureType, RefCount: integer);
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
  end;

  TmsoClientTextBox = class(TmsoObject)
  protected
    function GetSize: integer; override;
  public
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
  end;

  TmsoSplitMenuColors = class(TmsoObject)
  protected
    function GetSize: integer; override;
  public
    procedure Save(Stream: TStream); override;
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;
  end;

  TxlsMSODrawing = class
  private
    FDgContainer: TmsoContainer;
    FSpgrContainer: TmsoContainer;
    FData: TmsoList;
  public
    constructor Create;
    destructor Destroy; override;
    function GetSize(Index: integer): integer;
    procedure Save(Stream: TStream; Index: integer);
    function CreateByteArray(Index: integer): PByteArray;

    property DgContainer: TmsoContainer read FDgContainer;
    property SpgrContainer: TmsoContainer read FSpgrContainer;
    property Data: TmsoList read FData;
  end;

  TbiffMSODrawing = class(TbiffRecord);

  TbiffMSODrawingGroup = class(TbiffRecord)
  private
    FDataSize: integer;
  protected
    function GetDataSize: integer; override;
  public
    constructor CreateEx(Section: TxlsSection; ID, DataSize: integer;
      Data: PByteArray);
  end;

  TobjRecord = class
  private
    FID: word;
    FLength: word;
  public
    constructor Create(ID, Length: word);
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); virtual;

    property ID: word read FID;
    property Length: word read FLength;
  end;

  TobjRecordList = class(TList)
  private
    function GetItems(Index: integer): TobjRecord;
    procedure SetItems(Index: integer; Value: TobjRecord);
  public
    function Add(Item: TobjRecord): integer;
    procedure Insert(Index: integer; Item: TobjRecord);

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

  TobjCmo = class(TobjRecord)
  private
    FObjectType: word;
    FObjectID: word;
    FOptionFlags: word;
  public
    procedure AssignToByteArray(ByteArray: PByteArray;
      var Position: integer); override;

    property ObjectType: word read FObjectType write FObjectType;
    property ObjectID: word read FObjectID write FObjectID;
    property OptionFlags: word read FOptionFlags write FOptionFlags;
  end;

  TobjEnd = class(TobjRecord);
  TobjNts = class(TobjRecord);

  TbiffObj = class(TbiffRecord);

  TbiffTXO = class(TbiffRecord)
  private
    function GetOptions: word;
    procedure SetOptions(Value: word);
    function GetOrientation: word;
    procedure SetOrientation(Value: word);
    function GetTextLength: word;
    procedure SetTextLength(Value: word);
    function GetFormatLength: word;
    procedure SetFormatLength(Value: word);
  public
    property Options: word read GetOptions write SetOptions;
    property Orientation: word read GetOrientation write SetOrientation;
    property TextLength: word read GetTextlength write SetTextLength;
    property FormatLength: word read GetFormatLength write SetFormatLength;
  end;

  TbiffTXORUN = class(TbiffRecord)
  private
    function GetCharIndex1: word;
    procedure SetCharIndex1(Value: word);
    function GetFontIndex1: word;
    procedure SetFontIndex1(Value: word);
    function GetCharIndex2: word;
    procedure SetCharIndex2(Value: word);
    function GetFontIndex2: word;
    procedure SetFontIndex2(Value: word);
  public
    property CharIndex1: word read GetCharIndex1 write SetCharIndex1;
    property FontIndex1: word read getFontIndex1 write SetFontIndex1;
    property CharIndex2: word read GetCharIndex2 write SetCharIndex2;