wuregcontrol.pas

来自「Delphi功能强的DBGRID构件,支持钱币网格,从DBGRIDEH中继承.比」· PAS 代码 · 共 46 行

unit wuRegControl;

{$I wuComp.inc}

interface

uses
  Classes, TypInfo, SysUtils,ComboBox,
  {$IFDEF SDComp7} DesignIntf, DesignEditors, VCLEditors, Variants, CMoneyDBGridEd6,
  {$ELSE} DsgnIntf, CSDBGridEd,{$ENDIF} CMoneyDBGrids;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('wuComponent', [TMoneyDBGrid]);
  RegisterComponentEditor(TMoneyDBGrid, TCSDBGridEditor);
  RegisterPropertyEditor(TypeInfo(TCollection), TMoneyDBGrid, 'Columns', TCSDBGridColumnsProperty);

  RegisterPropertyEditor(TypeInfo(string), TCSColumn, 'FieldName', TCSDBGridFieldProperty);

  {$IFDEF SDComp7}
  RegisterPropertiesInCategory(sDatabaseCategoryName,[TypeInfo(TCMoneyDBGridColumns)]);
  RegisterPropertyInCategory(sDatabaseCategoryName, TCSColumn, 'FieldName');
  RegisterPropertiesInCategory(sLocalizableCategoryName, TCSColumn, ['Picklist','KeyList']);
  RegisterPropertiesInCategory(sLocalizableCategoryName, [TypeInfo(TCSColumnTitle)]);
  RegisterPropertiesInCategory(sVisualCategoryName, TCSColumn,['AlwaysShowEditButton',
      'AutoFitColWidth','WordWrap','EndEllipsis','Checkboxes']);
  {$ELSE}
  {$IFDEF SDComp5}
  RegisterPropertiesInCategory(TDatabaseCategory, [TypeInfo(TCSDBGridColumns)]);
  RegisterPropertyInCategory(TDatabaseCategory, TCSColumn, 'FieldName');
  RegisterPropertiesInCategory(TLocalizableCategory, TCSColumn, ['Picklist', 'KeyList']);
  RegisterPropertiesInCategory(TLocalizableCategory, [TypeInfo(TCSColumnTitle)]);
  RegisterPropertiesInCategory(TVisualCategory, TCSColumn, ['AlwaysShowEditButton',
    'AutoFitColWidth', 'WordWrap', 'EndEllipsis', 'CheckBoxes']);
  {$ENDIF}
  {$ENDIF}

end;

end.