xlsreadwritereg2.pas

来自「一个经典的读写Excel的控件」· PAS 代码 · 共 51 行

unit XLSReadWriteReg2;

{
********************************************************************************
******* XLSReadWriteII V2.00                                             *******
*******                                                                  *******
******* Copyright(C) 1999,2004 Lars Arvidsson, Axolot Data               *******
*******                                                                  *******
******* email: [e-mail]                                     *******
******* URL:   http://www.axolot.com                                     *******
********************************************************************************
** Users of the XLSReadWriteII component must accept the following            **
** disclaimer of warranty:                                                    **
**                                                                            **
** XLSReadWriteII is supplied as is. The author disclaims all warranties,     **
** expressedor implied, including, without limitation, the warranties of      **
** merchantability and of fitness for any purpose. The author assumes no      **
** liability for damages, direct or consequential, which may result from the  **
** use of XLSReadWriteII.                                                     **
********************************************************************************
}

{$B-}

{$I XLSRWII2.inc}

interface

uses Classes, XLSReadWriteII2, BIFFRecsII2, PropEditorsReg2, CellFormats2,
     XLSExportHTML2, PropEdExcelColorsD50_2,

{$ifdef OLD_COMPILER}
DsgnIntf;
{$else}
DesignIntf;
{$endif}

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('XLS', [TXLSReadWriteII2, TXLSExportHTML2]);
  RegisterPropertyEditor(TypeInfo(TExcelColor), nil, '', TExcelColorsProperty);
//  RegisterPropertyEditor(TypeInfo(string), TSheetPicture, 'PictureName', TPictureNameProperty);
//  RegisterPropertyEditor(TypeInfo(string), TXLSPicture, 'Filename', TFilenameProperty);
end;

end.