home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 25 / nopv25.iso / 040A / CROSS32.ZIP / CROSSREG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-11  |  741 b   |  26 lines
  1. Unit CrossReg;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes, DsgnIntf, SysUtils, Cross, Crossrpt;
  7.  
  8. procedure Register;
  9. implementation
  10.  
  11. procedure Register;
  12. begin
  13.   RegisterComponents('CrossTab', [TCrossSQL]);
  14.   RegisterComponents('CrossTab', [TCrossTab]);
  15.   RegisterComponents('CrossTab', [TCrossReport]);
  16.   RegisterPropertyEditor(TypeInfo(TFileName),TCross,'DatabaseName',
  17.       TDatabaseNameProperty );
  18.   RegisterPropertyEditor(TypeInfo(TFileName), TCrossTab, 'TableName', 
  19.           TTableNameProperty);
  20.   RegisterPropertyEditor(TypeInfo(TStrings), TCrossTab, 'CTCrossFields', 
  21.           TCTCrossFieldsProperty);
  22.   RegisterPropertyEditor(TypeInfo(TStrings), TCrossSQL, 'CSCrossFields', 
  23.           TCSCrossFieldsProperty);
  24. end;
  25. end.
  26.