home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kolekce / d456 / VOLGAPAK.ZIP / Source / VolDBGridre.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-09  |  1.3 KB  |  35 lines
  1. //---------------------------------------------------------------------------
  2. //  Registering unit for TVolgaDBGrid
  3. //---------------------------------------------------------------------------
  4. //  Copyright ⌐ 2000, Olga Vlasova, Russia
  5. //  http://volgatable.chat.ru
  6. //  E-mail: volgatable@chat.ru
  7. //---------------------------------------------------------------------------
  8. unit VolDBGridRe;
  9.  
  10. interface
  11.  
  12. {$I Volga.INC}
  13.  
  14. procedure Register;
  15.  
  16. implementation
  17.  
  18. uses Classes, TypInfo,
  19.   {$IFDEF VER140} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF}
  20.   VolDBGrid, VolDBGridEd;
  21.  
  22. procedure Register;
  23. begin
  24.   RegisterComponents('Volga', [TVolgaDBGrid]);
  25.   RegisterComponentEditor(TVolgaDBGrid, TVolgaDBGridEditor);
  26.   RegisterPropertyEditor(TypeInfo(TCollection), TVolgaDBGrid, 'Columns',
  27.     TVolgaDBGridColumnsProperty);
  28.   RegisterPropertyEditor(TypeInfo(string), TVolgaColumn, 'FieldName', TVolgaColumnDataFieldProperty);
  29.   RegisterPropertyEditor(TypeInfo(string), TVolgaColumn, 'LookupKeyField', TVolgaColumnDataFieldProperty);
  30.   RegisterPropertyEditor(TypeInfo(string), TVolgaColumn, 'LookupLinkField', TVolgaColumnLookupKeyProperty);
  31.   RegisterPropertyEditor(TypeInfo(string), TVolgaColumn, 'LookupDropDownFields', TVolgaColumnLookupKeyProperty);
  32. end;
  33.  
  34. end.
  35.