ehlibreg.pas

来自「Dbgrid 增强(附源码):支持多表头,多固定列,按表头排序,支持合计列,并支」· PAS 代码 · 共 50 行

{*******************************************************}
{                                                       }
{                       EhLib v1.52                     }
{                    Registration unit                  }
{                                                       }
{   Copyright (c) 1998, 1999 by Dmitry V. Bolshakov     }
{                                                       }
{*******************************************************}

unit EhLibReg;

{$I EhLib.Inc}

interface

procedure Register;

implementation

uses Classes, TypInfo, DsgnIntf, DBGridEh, GridEhEd, DBSumLst, PrViewEh,
     PrnDbgEh;

procedure Register;
begin
  RegisterComponents('Data Controls', [TDBGridEh]);
  RegisterComponentEditor(TDBGridEh, TDBGridEhEditor);
  RegisterPropertyEditor(TypeInfo(TCollection), TDBGridEh, 'Columns', TDBGridEhColumnsProperty);
  RegisterPropertyEditor(TypeInfo(string), TColumnEh, 'FieldName', TDBGridEhFieldProperty);
  RegisterPropertyEditor(TypeInfo(string), TColumnFooterEh, 'FieldName', TDBGridEhFieldProperty);

  RegisterPropertyEditor(TypeInfo(string), TPrintDBGridEh, 'PrintFontName', TFontNameProperty);

  RegisterComponents('Data Controls', [TDBSumList]);
  RegisterComponents('Data Controls', [TPrintDBGridEh]);
  RegisterComponents('System', [TPreviewBox]);

{$IFDEF EH_LIB_5}
  { Property Category registration }
  RegisterPropertiesInCategory(TDatabaseCategory,[TypeInfo(TDBGridColumnsEh)]);
  RegisterPropertyInCategory(TDatabaseCategory, TColumnEh, 'FieldName');
  RegisterPropertiesInCategory(TLocalizableCategory, TColumnEh, ['Picklist','KeyList']); { Do not localize }
  RegisterPropertiesInCategory(TLocalizableCategory, [TypeInfo(TColumnTitleEh)]);
  RegisterPropertiesInCategory(TVisualCategory, TColumnEh,['AlwaysShowEditButton',
    'AutoFitColWidth','WordWrap','EndEllipsis','Checkboxes']);
{$ENDIF}

end;

end.