qexport4xlscommon.pas

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

'# ??/??',
'm/d/yy',
'd-mmm-y',
'd-mmm',
'mmmm-yy',
'h:mm AM/PM',
'h:mm:ss AM/PM',
'h:mm',
'h:mm:SS',
'm/d/yy h:mm',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'(#,##0_);(#,##0)',
'(#,##0_);[Red](#,##0)',
'(#,##0.00_);(#,##0.00)',
'(#,##0.00_);[Red](#,##0.00)',
'_(* #,##0_);_(* (#,##0);_(* "-"_);_(@_)',
'_($* #,##0_);_($* (#,##0);_($* "-"_);_(@_)',
'_(* #,##0.00_);_(* (#,##0.00);_(* "-"??_);_(@_)',
'_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)',
'mm:ss',
'[h]:mm:ss',
'mm:ss.0',
'# #0.0E+0',
'@');

type
  PBIFF_Header = ^TBIFF_Header;
  TBIFF_Header = packed record
    ID    : word;
    Length: word;
  end;

  PBIFF_BOF = ^TBIFF_BOF;
  TBIFF_BOF = packed record
    Version     : word;
    DataType    : word;
    BuildID     : word;
    BuildYear   : word;
    HistoryFlags: integer;
    LowVersion  : integer;
  end;

  PBIFF_FONT = ^TBIFF_FONT;
  TBIFF_FONT = packed record
    Height      : word;
    Option      : word;
    PaletteIndex: word;
    Boldness    : word;
    Script      : word;
    Underline   : byte;
    Family      : byte;
    Charset     : byte;
    NotUsed     : byte;
    NameLen     : byte;
    NameOpt     : byte;
    Name        : array[0..65535] of byte;
  end;

  PBIFF_XF = ^TBIFF_XF;
  TBIFF_XF = packed record
    FontIndex  : word;
    FormatIndex: word;
    Data1      : word;
    Data2      : word;
    Data3      : word;
    Data4      : word;
    Data5      : word;
    Data6      : longint;
    Data7      : word;
  end;

  PBIFF_STYLE = ^TBIFF_STYLE;
  TBIFF_STYLE = packed record
    Index  : word;
    BuiltIn: byte;
    Level  : byte;
  end;

  PBIFF_FORMAT = ^TBIFF_FORMAT;
  TBIFF_FORMAT = packed record
    ID       : word;
    FormatLen: word;
    FormatOpt: byte;
    Format   : array[0..65535] of byte;
  end;

  PBIFF_DEFAULTROWHEIGHT = ^TBIFF_DEFAULTROWHEIGHT;
  TBIFF_DEFAULTROWHEIGHT = packed record
    Options: word;
    Height : word;
  end;

  PBIFF_DEFCOLWIDTH = ^TBIFF_DEFCOLWIDTH;
  TBIFF_DEFCOLWIDTH = packed record
    Width: word;
  end;

  PBIFF_COLINFO = ^TBIFF_COLINFO;
  TBIFF_COLINFO = packed record
    FirstCol: word;
    LastCol : word;
    Width   : word;
    XF      : word;
    Options : word;
    Reserved: byte;
  end;

  PBIFF_DIMENSIONS = ^TBIFF_DIMENSIONS;
  TBIFF_DIMENSIONS = packed record
    FirstRow: integer;
    LastRow : integer;
    FirstCol: word;
    LastCol : word;
    Reserved: word;
  end;

  PBIFF_SST = ^TBIFF_SST;
  TBIFF_SST = packed record
    Total : integer;
    Unique: integer;
  end;

  PBIFF_BLANK = ^TBIFF_BLANK;
  TBIFF_BLANK = packed record
    Row: word;
    Col: word;
    XF : word;
  end;

  PBIFF_WINDOW1 = ^TBIFF_WINDOW1;
  TBIFF_WINDOW1 = packed record
    Left        : word;
    Top         : word;
    Width       : word;
    Height      : word;
    Options     : word;
    ActiveSheet : word;
    FirstVisible: word;
    SelectCount : word;
    TabWidth    : word;
  end;

  PBIFF_CELL_RANGE = ^TBIFF_CELL_RANGE;
  TBIFF_CELL_RANGE = packed record
    FirstRow: word;
    LastRow: word;
    FirstCol: word;
    LastCol: word;
  end;

  PBIFF_WINDOW2 = ^TBIFF_WINDOW2;
  TBIFF_WINDOW2 = packed record
    Options      : word;
    TopRow       : word;
    LeftCol      : word;
    GridLineColor: integer;
    ZoomInPreview: word;
    ZoomInNormal : word;
    Reserved     : integer;
  end;

  PBIFF_SELECTION = ^TBIFF_SELECTION;
  TBIFF_SELECTION = packed record
    Pane     : byte;
    ActiveRow: word;
    ActiveCol: word;
    ActiveRef: word;
    Refs     : word;
    Row1     : word;
    Row2     : word;
    Col1     : word;
    Col2     : byte
  end;

  PBIFF_SCL = ^TBIFF_SCL;
  TBIFF_SCL = packed record
    Numerator  : word;
    Denominator: word;
  end;

  PBIFF_LABELSST = ^TBIFF_LABELSST;
  TBIFF_LABELSST = packed record
    Row     : word;
    Col     : word;
    XFIndex : word;
    SSTIndex: integer;
  end;

  PBIFF_BOOLERR = ^TBIFF_BOOLERR;
  TBIFF_BOOLERR = packed record
    Row    : word;
    Col    : word;
    XFIndex: word;
    BoolErr: byte;
    Error  : byte;
  end;

  PBIFF_NUMBER = ^TBIFF_NUMBER;
  TBIFF_NUMBER = packed record
    Row    : word;
    Col    : word;
    XFIndex: word;
    Value  : double;
  end;

  PBIFF_BOUNDSHEET = ^TBIFF_BOUNDSHEET;
  TBIFF_BOUNDSHEET = packed record
    BOFPos    : integer;
    Visibility: byte;
    // $00 - Visible
    // $01 - Hidden
    // $02 - Strong visible
    SheetType : byte;
    // $00 - WorkSheet
    // $02 - Chart
    // $06 - Visual Basic module
    NameLen   : byte;
    NameOpt   : byte;
    Name      : array[0..65535] of byte;
  end;

  PBIFF_COUNTRY = ^TBIFF_COUNTRY;
  TBIFF_COUNTRY = packed record
    CountryDef   : word;
    CountryWinIni: word;
  end;

  PBIFF_TXO = ^TBIFF_TXO;
  TBIFF_TXO = packed record
    Options     : word;
    Orientation : word;
    Reserved1   : array[0..5] of byte;
    TextLength  : word;
    FormatLength: word;
    Reserved2   : array[0..3] of byte;
  end;

  PBIFF_TXORUN = ^TBIFF_TXORUN;
  TBIFF_TXORUN = packed record
    CharIndex1: word;
    FontIndex1: word;
    Reserved1 : cardinal;
    CharIndex2: word;
    FontIndex2: word;
    Reserved2 : cardinal;
  end;

  PBIFF_NOTE = ^TBIFF_NOTE;
  TBIFF_NOTE = packed record
    Row          : word;
    Col          : word;
    Options      : word;
    ObjID        : word;
//    AuthorLength : word;
  end;

  PBIFF_SUPBOOK_INTERNAL = ^TBIFF_SUPBOOK_INTERNAL;
  TBIFF_SUPBOOK_INTERNAL = packed record
    SheetCount: word;
    Relict: word; {Value: $0104}
  end;

  PBIFF_SETUP = ^TBIFF_SETUP;
  TBIFF_SETUP = packed record
    PaperSize              : word;
    ScalingFactor          : word;
    StartingPageNumber     : word;
    FitToWidth             : word;
    FitToHeight            : word;
    OptionFlags            : word;
    PrintResolution        : word;
    VerticalPrintResolution: word;
    HeaderMargin           : double;
    FooterMargin           : double;
    NumberOfCopies         : word;
  end;

  PBIFF_BITMAP = ^TBIFF_BITMAP;
  TBIFF_BITMAP = packed record
    Unknown1: word; {0009}
    Unknown2: word; {0001}
    NextPartSize: cardinal;
    Unknown3: word; {000C}
    Unknown4: word; {0000}
    Width: word;
    Height: word;
    PlaneCount: word; {0001}
    ColorDepth: word; {0018 - 24 bits}
  end;

  PBIFF_AGGREGATE = ^TBIFF_AGGREGATE;
  TBIFF_AGGREGATE = packed record
    Row: word;
    Col: word;
    XF: word;
    Value: double;
    Options: word;
    Reserved: integer;
    ParseLen: word; // = $OD
    TokenID: byte; // = $25
    StartRow: word;
    FinishRow: word;
    StartCol: byte;
    StartColFlag: byte;  // = $C0
    FinishCol: byte;
    FinishColFlag: byte; // = $C0
    PtgFuncVarV: byte; // = $42
    Arguments: byte;  // = $01
    InternalFunction: word;
  end;

  PBIFF_XTI = ^TBIFF_XTI;
  TBIFF_XTI = packed record
    Supbook : word;
    FirstTab: word;
    LastTab : word;
  end;

  PBIFF_PTGRef = ^TBIFF_PTGRef;
  TBIFF_PTGRef = packed record
    Row: word;
    Col: word;
  end;

  PBIFF_PTGRef3D = ^TBIFF_PTGRef3D;
  TBIFF_PTGRef3D = packed record
    Index: word;
    Row: word;
    Col: word;
  end;

  PBIFF_PTGArea = ^TBIFF_PTGArea;
  TBIFF_PTGArea = packed record
    Row1: word;
    Row2: word;
    Col1: word;
    Col2: word;
  end;

  PPTG_AREA3D = ^TPTG_AREA3D;
  TPTG_AREA3D = packed record
    Index: word;
    Row1 : word;
    Row2 : word;
    Col1 : word;
    Col2 : word;
  end;

  PBIFF_PTGName = ^TBIFF_PTGName;
  TBIFF_PTGName = packed record
    NameIndex: word;
    Reserved: word;
  end;

  PBIFF_PTGNameX = ^TBIFF_PTGNameX;
  TBIFF_PTGNameX = packed record
    ExternSheetIndex: word;
    ExternNameIndex: word; // 1 based
    Reserved: word;
  end;

  PCHART_FBI = ^TCHART_FBI;
  TCHART_FBI = packed record
    Width        : word;
    Height       : word;
    HeightApplied: word;
    Scale        : word;
    FontIndex    : word;
  end;

  PCHART_CHART = ^TCHART_CHART;
  TCHART_CHART = packed record
    Top   : cardinal;
    Left  : cardinal;
    Width : cardinal;
    Height: cardinal;
  end;

  PCHART_PLOTGROWTH = ^TCHART_PLOTGROWTH;