tmsuflxmessages.pas

TMS Component Pack V5.0包含了超过 280 个为 Delphi 以及 C++Builder 设计的 TMS 生产控件

        ///<summary>Super B/A3 - 305mm x 487mm</summary>
        TExcelPaperSize_SuperB_A3=58;
        ///<summary>Letter Plus - 812"" x 1211/16""</summary>
        TExcelPaperSize_LetterPlus=59;
        ///<summary>A4 Plus - 210mm x 330mm</summary>
        TExcelPaperSize_A4Plus=60;
        ///<summary>A5 Transverse - 148mm x 210mm</summary>
        TExcelPaperSize_A5Transverse=61;
        ///<summary>B5 (JIS) Transverse - 182mm x 257mm</summary>
        TExcelPaperSize_B5_JIS_Transverse=62;
        ///<summary>A3 Extra - 322mm x 445mm</summary>
        TExcelPaperSize_A3Extra=63;
        ///<summary>A5 Extra - 174mm x 235mm</summary>
        TExcelPaperSize_A5Extra=64;
        ///<summary>B5 (ISO) Extra - 201mm x 276mm</summary>
        TExcelPaperSize_B5_ISO_Extra=65;
        ///<summary>A2 - 420mm x 594mm</summary>
        TExcelPaperSize_A2=66;
        ///<summary>A3 Transverse - 297mm x 420mm</summary>
        TExcelPaperSize_A3Transverse=67;
        ///<summary>A3 Extra Transverse - 322mm x 445mm</summary>
        TExcelPaperSize_A3ExtraTransverse=68;
        ///<summary>Dbl. Japanese Postcard - 200mm x 148mm</summary>
        TExcelPaperSize_DblJapanesePostcard=69;
        ///<summary>A6 - 105mm x 148mm</summary>
        TExcelPaperSize_A6=70;
        ///<summary>Letter Rotated - 11"" x 81/2""</summary>
        TExcelPaperSize_LetterRotated=75;
        ///<summary>A3 Rotated - 420mm x 297mm</summary>
        TExcelPaperSize_A3Rotated=76;
        ///<summary>A4 Rotated - 297mm x 210mm</summary>
        TExcelPaperSize_A4Rotated=77;
        ///<summary>A5 Rotated - 210mm x 148mm</summary>
        TExcelPaperSize_A5Rotated=78;
        ///<summary>B4 (JIS) Rotated - 364mm x 257mm</summary>
        TExcelPaperSize_B4_JIS_Rotated=79;
        ///<summary>B5 (JIS) Rotated - 257mm x 182mm</summary>
        TExcelPaperSize_B5_JIS_Rotated=80;
        ///<summary>Japanese Postcard Rot. - 148mm x 100mm</summary>
        TExcelPaperSize_JapanesePostcardRot=81;
        ///<summary>Dbl. Jap. Postcard Rot. - 148mm x 200mm</summary>
        TExcelPaperSize_DblJapPostcardRot=82;
        ///<summary>A6 Rotated - 148mm x 105mm</summary>
        TExcelPaperSize_A6Rotated=83;
        ///<summary>B6 (JIS) - 128mm x 182mm</summary>
        TExcelPaperSize_B6_JIS=88;
        ///<summary>B6 (JIS) Rotated - 182mm x 128mm</summary>
        TExcelPaperSize_B6_JIS_Rotated=89;
        ///<summary>12x11 - 12"" x 11""</summary>
        TExcelPaperSize_s12x11=90;

const
  /// <summary>
	/// Convert the DEFAULT column width to pixels. This is different from ColMult, that goes in a column by column basis.
	/// </summary>
  DefColWidthAdapt: integer=Round(256*8/7);  //font used here is 8 pixels wide, not 7

  //Printer Options
  ///Print over, then down
  fpo_LeftToRight = $01;

  ///0= landscape, 1=portrait
  fpo_Orientation = $02;

  /// if 1, then PaperSize, Scale, Res, VRes, Copies, and Landscape data have not been obtained from the printer, so they are not valid.
  /// MAKE SURE YOU MAKE THIS BIT = 0 *BEFORE* CHANGING ANY OTHER OPTION. THEY WILL NOT CHANGE IF THIS IS NOT SET.
  fpo_NoPls       = $04;

  ///1= Black and white
  fpo_NoColor     = $08;

  ///1= Draft quality
  fpo_Draft       = $10;

  ///1= Print Notes
  fpo_Notes       = $20;

  ///1=orientation not set
  fpo_NoOrient    = $40;

  ///1=use custom starting page number.
  fpo_UsePage     = $80;

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Consolidate_Area  = AnsiChar($00);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Auto_Open         = AnsiChar($01);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Auto_Close        = AnsiChar($02);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Extract           = AnsiChar($03);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Database          = AnsiChar($04);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Criteria          = AnsiChar($05);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Print_Area        = AnsiChar($06);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Print_Titles      = AnsiChar($07);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Recorder          = AnsiChar($08);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Data_Form         = AnsiChar($09);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Auto_Activate     = AnsiChar($0A);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Auto_Deactivate   = AnsiChar($0B);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Sheet_Title       = AnsiChar($0C);

  /// <summary>
  /// Internal range name.
  /// On Excel, internal range names like "Print_Range" are stored as a 1 character string.
  /// </summary>
  InternalNameRange_Filter_DataBase = AnsiChar($0D);



var
  /// <summary>
  /// Factor to convert from <see cref="Excel Internal Units" /> to pixels or viceversa. Look at <see cref="Excel Internal Units" />
  /// for more information.
  /// </summary>
  ColMult:extended=256/7; //36.6;

  /// <summary>
  /// Factor to convert from <see cref="Excel Internal Units" /> to pixels or viceversa. Look at <see cref="Excel Internal Units" />
  /// for more information.
  /// </summary>                                                                                                                    
  RowMult:extended=15;


type
  /// <summary>
  /// The range of color indexes allowed by Excel 2003 or older.
  /// </summary>                                                
  TColorPaletteRange=1..56;

	/// <summary>
	/// An Excel Cell range, 1-based.
	/// </summary>
  TXlsCellRange=record
		/// <summary>
		/// First column on range.
		/// </summary>
    Left: integer;

		/// <summary>
		/// First row on range.
		/// </summary>
    Top: integer;

		/// <summary>
		/// Last column on range.
		/// </summary>
    Right: integer;

		/// <summary>
		/// Last row on range.
		/// </summary>
    Bottom: integer;
  end;

  {$IFDEF FLX_NO_TSIZE}     //delphi 5
  TSize = tagSIZE;
  {$ENDIF}


  /// <summary>
  /// An Excel named range.
  /// </summary>
  TXlsNamedRange=record
    /// <summary>
    /// The name of the range.
    /// </summary>
    Name: string;

    /// <summary>
    /// This is a formula defining the range. It can be used to define complex ranges.
    /// For example you can use "=Sheet1!$A1:$B65536,Sheet1!$A1:$IV2".
    /// </summary>
    /// <remarks>
    /// Do not use ranges like "A:B" this is not supported by FlexCel. Always use the full name (A1:B65536).
    /// </remarks>
    RangeFormula: string;

    /// <summary>
    /// Options of the range as an integer.
    /// Bit   Mask   Description
    ///   0  0001h   = 1 if the name is hidden
    ///   1  0002h   = 1 if the name is a function
    ///   2  0004h   = 1 if the name is a Visual Basic procedure
    ///   3  0008h   = 1 if the name is a function or command name on a macro sheet
    ///   4  0010h   = 1 if the name contains a complex function
    ///   5  0020h   = 1 if the name is a built-in name. (NOTE: When setting a built in named range, this bit is automatically set)
    /// </summary>
    OptionFlags: integer;

    /// <summary>
    /// The sheet index for the name (1 based). A named range can have the same name than other
    /// as long as they are on different sheets. The default value(0) means a global named range, not tied to
    /// any specific sheet.
    /// </summary>
    NameSheetIndex: integer;
  end;

  /// <summary>
  /// Initializes a TXlsNamedRange record with the default values.
  /// </summary>
  /// <remarks>
  /// Use this method always after creating a new TXlsNamedRange record if you are not getting the value
  /// from other function.<para></para>
  /// \Note that initializing the record yourself by setting all the members might fail in the future if
  /// new members are added to the record.
  /// </remarks>
  /// <param name="NamedRange">Record you want to initialize.</param>                                   
  procedure InitializeNamedRange(out NamedRange: TXlsNamedRange);

  type
	/// <summary>
	/// Sheet margin for printing, in inches.
	/// </summary>
  TXlsMargins=packed record  //C++ builder gets this struct wrong if we use a normal record.
		/// <summary>
		/// Left Margin in inches.
		/// </summary>
    Left: extended;

		/// <summary>
		/// Top Margin in inches.
		/// </summary>
    Top: extended;

		/// <summary>
		/// Right Margin in inches.
		/// </summary>
    Right: extended;

		/// <summary>
		/// Bottom Margin in inches.
		/// </summary>
    Bottom: extended;

		/// <summary>
		/// Header Margin in inches. Space for the header at top of page, it is taken from Top margin.
		/// </summary>
    Header: extended;

		/// <summary>
		/// Footer Margin in inches. Space for the footer at bottom of page, it is taken from Bottom margin.
		/// </summary>
    Footer: extended;
  end;

	/// <summary>
	/// Sheet visibility.
	/// </summary>
  TXlsSheetVisible= (
		/// <summary>Sheet is visible to the user.</summary>
    sv_Visible,

		/// <summary>Sheet is hidden, can be shown by the user with excel.</summary>
    sv_Hidden,

		/// <summary>Sheet is hidden, only way to show it is with a macro. (user can't see it with excel)</summary>
    sv_VeryHidden);

	/// <summary>
	/// One RTF run for the text in a cell. FirstChar is the first (base 0) character to apply the format, and FontIndex is the font index for the text
	/// </summary>
  TRTFRun= record
		/// <summary>
		/// First character on the string where we will apply the font. (0 based)
		/// </summary>
    FirstChar: word;

		/// <summary>
		/// Font index for this string part.
		/// </summary>
    FontIndex: word;
  end;

	/// <summary>
	/// An array of TRTFRun structures, where each struct identifies a font style for a portion of text.<para></para>
	/// For example, if you have: <c>Value=&quot;Hello&quot; RTFRuns={FirstChar:1 FontIndex=1, FirstChar=3,
	/// FontIndex=2}</c><para></para>
	/// &quot;H&quot; (char 0) will be formatted with the specific cell format. &quot;el&quot; (chars 1 and
	/// 2) will have font number 1 &quot;lo&quot; (chars 3 and 4) will have font number 2
	/// </summary>                                                                                                   
  TRTFRunList= array of TRTFRun;

	/// <summary>
	/// A string cell value with its rich text information.
	/// </summary>
  TRichString= record

		/// <summary>
		/// Cell text.
		/// </summary>
    Value: UTF16String;

		/// <summary>
		/// Rich text info.
		/// </summary>
    RTFRuns: TRTFRunList;
  end;

  /// <summary>
  /// Possible types of cell hyperlinks.
  /// </summary>
  THyperLinkType= (

    /// <summary>
    /// Web, file or mail URL. (like http://, file://, mailto://, ftp://)
    /// </summary>
    hl_URL,

    /// <summary>
    /// A file on the local disk. Not an url or unc file.
    /// </summary>
    hl_LocalFile,