www.pudn.com > dfs.zip > ELV_Reg.pas, change:2001-06-27,size:843b


{$I DFS.INC} 
 
unit ELV_Reg; 
 
interface 
 
procedure Register; 
 
implementation 
 
uses 
  {$IFDEF DFS_NO_DSGNINTF} 
  DesignIntf, 
  DesignEditors, 
  {$ELSE} 
  DsgnIntf, 
  {$ENDIF} 
  Classes, DFSAbout, EnhListView, 
  {$IFDEF DFS_COMPILER_2} 
  ExtColEd, 
  {$ENDIF} 
  ExtListView; 
 
procedure Register; 
begin 
  RegisterComponents('DFS', [TdfsEnhListView]); 
  RegisterPropertyEditor(TypeInfo(TdfsEnhLVSaveSettings), NIL, '', TClassProperty); 
  RegisterComponents('DFS', [TdfsExtListView]); 
  RegisterPropertyEditor(TypeInfo(TdfsExtLVSaveSettings), NIL, '', TClassProperty); 
{$IFDEF DFS_COMPILER_2} 
  RegisterPropertyEditor(TypeInfo(TdfsExtListColumns), NIL, '', 
     TdfsExtListColumnsProperty); 
{$ENDIF} 
  RegisterPropertyEditor(TypeInfo(string), TCustomEnhListView, 'Version', 
     TDFSVersionProperty); 
end; 
 
end.