home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kolekce / d456 / DCSLIB25.ZIP / DCRegistry.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-06-26  |  5.0 KB  |  117 lines
  1. {
  2.  BUSINESS CONSULTING
  3.  s a i n t - p e t e r s b u r g
  4.  
  5.          Components Library for Borland Delphi 4.x, 5.x
  6.          Copyright (c) 1998-2001 Alex'EM
  7.  
  8. }
  9. unit DCRegistry;
  10.  
  11. interface
  12. {$I DCConst.inc}
  13.  
  14. uses
  15.   Classes, 
  16.   {$IFDEF DELPHI_V6}
  17.     DesignIntf, DesignEditors, DesignWindows, VCLEditors,
  18.   {$ELSE}
  19.     Dsgnintf, DsgnWnds,
  20.   {$ENDIF}
  21.   Controls;
  22.  
  23. procedure Register;
  24.  
  25. implementation
  26.  
  27. uses
  28.   DCResource, DCChoice, DCDBGrids, DCCapProp, DCTray, DCDBGridEdit,
  29.   DCGridColEdit, DCColumnEdit, DCListColEdit, DCKnots, DCKnotColEdit,
  30.   DCCombo, DCStdCtrls, DCOutBarEdit, DCEditButton, DCStringGrid, DCPageColEdit,
  31.   DCFileCtrl {$IFDEF DELPHI_V5UP}, DCADOCtrl {$ENDIF}, DCChecklst, DCDataGrid,
  32.   DCDataGridEdit;
  33.  
  34. procedure Register;
  35. begin
  36.   RegisterClass(TDCPage);
  37.   RegisterClass(TDCOutBarPanel);
  38.   RegisterClass(TDCPaleteBarPanel);
  39.  
  40.   RegisterComponents('DCsp Controls', [TDCEdit]);
  41.   RegisterComponents('DCsp Controls', [TDCChoiceEdit]);
  42.   RegisterComponents('DCsp Controls', [TDCDateEdit]);
  43.   RegisterComponents('DCsp Controls', [TDCFloatEdit]);
  44.   RegisterComponents('DCsp Controls', [TDCComboBox]);
  45.   RegisterComponents('DCsp Controls', [TDCGridEdit]);
  46.   RegisterComponents('DCsp Controls', [TDCTreeEdit]);
  47.   RegisterComponents('DCsp Controls', [TDCDBGrid]);
  48.   RegisterComponents('DCsp Controls', [TDCLabel]);
  49.   RegisterComponents('DCsp Controls', [TDCHeaderPanel]);
  50.   RegisterComponents('DCsp Controls', [TDCTreeGrid]);
  51.   RegisterComponents('DCsp Controls', [TDCOutBar]);
  52.   RegisterComponents('DCsp Controls', [TDCPageControl]);
  53.  
  54. //  RegisterComponents('DCsp Controls', [TDCCustomFormEdit]);
  55.  
  56.   RegisterPropertyEditor(TypeInfo(String), TDCCustomGridEdit, 'DataField', TDCGridFieldEdit);
  57.   RegisterPropertyEditor(TypeInfo(String), TDCCustomGridEdit, 'KeyField' , TDCGridFieldEdit);
  58.   RegisterPropertyEditor(TypeInfo(String), TDCCustomGridEdit, 'InfoField' , TDCGridFieldEdit);
  59.  
  60.   RegisterComponents('DCsp Controls', [TDCTrayIcon]);
  61.  
  62.   RegisterPropertyEditor(TypeInfo(String), TColumn, 'FieldName', TDBGridDataField);
  63.   RegisterPropertyEditor(TypeInfo(String), TColumn, 'Comment', TCapProperty);
  64.   RegisterPropertyEditor(TypeInfo(String), TColumnTitle, 'Caption', TCapProperty);
  65.   RegisterPropertyEditor(TypeInfo(String), TControl, 'Hint', TCapProperty);
  66.   RegisterPropertyEditor(TypeInfo(String), TDCCustomEdit, 'ErrorHint', TCapProperty);
  67.   RegisterPropertyEditor(TypeInfo(String), TDCTrayIcon, 'Hint', TCapProperty);
  68.   RegisterPropertyEditor(TypeInfo(TCaptionProperty), TDCCustomLabel, 'Caption', TCapProperty);
  69.   RegisterPropertyEditor(TypeInfo(TCaptionProperty), TDCCustomPanel, 'Caption', TCapProperty);
  70.  
  71.   RegisterComponentEditor(TDCDBGrid, TGridColEditor);
  72.   RegisterComponentEditor(TDCCustomGridEdit, TColumnsEditor);
  73.   RegisterComponentEditor(TDCTreeGrid, TKnotColEditor);
  74.   RegisterComponentEditor(TDCCustomLabel, TCapEditor);
  75.   RegisterComponentEditor(TDCCustomPanel, TCapEditor);
  76.  
  77.   RegisterPropertyEditor(TypeInfo(TDBGridColumns), TDCDBGrid  , 'Columns', TGridColProperty);
  78.   RegisterPropertyEditor(TypeInfo(TDBGridColumns), TDCCustomGridEdit, 'Columns', TColumnsProperty);
  79.   RegisterPropertyEditor(TypeInfo(TKnotColumns)  , TDCTreeGrid, 'Columns', TKnotColProperty);
  80.   RegisterPropertyEditor(TypeInfo(TDBGridColumns), TDCCustomGridEdit, 'ListBoxColumns', TListColProperty);
  81.   RegisterPropertyEditor(TypeInfo(TDCEditButtons), TDCCustomOutBarPanel, 'Items', TOutPanelProperty);
  82.   RegisterPropertyEditor(TypeInfo(String), TDCCustomGridEdit, 'SQLText', TCapProperty);
  83.   RegisterPropertyEditor(TypeInfo(TKnotColumns)  , TDCDataGrid, 'Columns', TKnotColProperty);
  84.  
  85.   RegisterPropertyEditor(TypeInfo(String), TKnotColumn, 'Comment', TCapProperty);
  86.   RegisterPropertyEditor(TypeInfo(String), TKnotColumnTitle, 'Caption', TCapProperty);
  87.  
  88.   RegisterComponents('DCsp Additional', [TDCColorComboBox]);
  89.   RegisterComponents('DCsp Additional', [TDCFontComboBox]);
  90.   RegisterComponents('DCsp Additional', [TDCStringGrid]);
  91.   RegisterComponents('DCsp Additional', [TDCBrowseFolder]);
  92.   RegisterComponents('DCsp Additional', [TDCPaleteBar]);
  93.   RegisterComponents('DCsp Additional', [TDCListComboBox]);
  94.   RegisterComponents('DCsp Additional', [TDCDataGrid]);
  95.  
  96.   RegisterComponentEditor(TDCCustomPage, TPageControlEditor);
  97.   RegisterComponentEditor(TDCCustomPageControl, TPageControlEditor);
  98.   RegisterComponentEditor(TDCOutBar, TOutBarEditor);
  99.   RegisterComponentEditor(TDCCustomOutBarPanel, TOutPanelEditor);
  100.   RegisterComponentEditor(TDCCustomDataGrid, TDataGridEditor);
  101.  
  102.   RegisterPropertyEditor(TypeInfo(TDCCustomPage), TDCCustomPageControl, 'ActivePage', TActivePageField);
  103.   RegisterPropertyEditor(TypeInfo(TDataFields), TDCCustomDataGrid, 'DataFields', TDataFieldsProperty);
  104.   RegisterPropertyEditor(TypeInfo(String), TDataColumn, 'FieldName', TDataGridDataField);
  105.  
  106.   RegisterComponentEditor(TDCPaleteBar, TPaleteBarEditor);
  107.  
  108.   {$IFDEF DELPHI_V5UP}
  109.   RegisterComponents('DCsp Additional', [TDCADOGridEdit]);
  110.   {$ENDIF}
  111.   
  112.   RegisterNoIcon([TDataField]);
  113.   RegisterDataFields;
  114. end;
  115.  
  116. end.
  117.