home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kolekce / d3456 / ALEXSOFT.ZIP / REGCOMPS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-29  |  2.0 KB  |  60 lines
  1. unit RegComps;
  2.  
  3. interface
  4.  
  5. procedure Register;
  6.  
  7. implementation
  8.  
  9. uses Classes, dbGrids, FrmDSrce, dbBoxGrd, dbXgrid, dbEdFld, dbPanel, dbXNav,
  10.      dbInsert, DbSearch, {$IFDEF PROFI}DBImage, TMultiP, {$ENDIF}
  11.      dbForms, QRaCtrls,
  12.      {$IFDEF VER140}
  13.      DesignEditors, Designintf
  14.      {$ELSE}
  15.      Dsgnintf
  16.      {$ENDIF};
  17.  
  18. procedure Register;
  19. begin
  20.    RegisterClasses([TDBPanelGrid, TDBPanelBox, TDBForm]);
  21.    RegisterComponents('AlexSoft',
  22.                         [TRaDBEdit,
  23.                          TRaDBBox,
  24.                          TRaDBGrid,
  25.                          TRaDBPanel,
  26.                          TRaDBNavigator,
  27.                          TRaDBInsert,
  28.                          TRaTable,
  29.                          TRaQuery,
  30.                          TRaStoredProc,
  31.                          TRaClientDataSet,
  32.                          {$IFNDEF VER120}
  33.                          {$IFNDEF VER110}
  34.                          TRaADODataSet,
  35.                          TRaADOTable,
  36.                          TRaADOQuery,
  37.                          TRaADOStoredProc,
  38.                          {$ENDIF}
  39.                          {$ENDIF}
  40.                          TDBSmartImage,
  41.                          TRaDBSearch,
  42.                          TQRaLabel,
  43.                          TQRaSysData,
  44.                          TQRaHLine,
  45.                          TQRaExpr,
  46.                          TQRaDBText,
  47.                          TQRaBand,
  48.                          TQRaSubDetail,
  49.                          TQRaGroup
  50.                          ]);
  51.    {$IFDEF PROFI}RegisterComponents('Additional', [TPMultiImage]);{$ENDIF}
  52.    RegisterPropertyEditor(TypeInfo(String), TRaDBPanelField,
  53.                                                 'DataField', TFieldsProperty);
  54.    RegisterPropertyEditor(TypeInfo(String), TQRaDBText,
  55.                                                 'DataField', TQRaFieldsProperty);
  56.    RegisterComponentEditor(TRaDBSearch, TFieldsEditor);
  57. end;
  58.  
  59.  
  60. end.