home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / ABC1COMP.ZIP / DELPHI1.ZIP / ABC1Reg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-14  |  7.6 KB  |  159 lines
  1. unit ABC1Reg;
  2. (*******************************************************************************
  3.  
  4. Advanced Business Components
  5. ABC for Delphi
  6. Version 1.0b
  7.  
  8. Copyright (c) 1995,1996 Objective Software Technology Pty Ltd
  9. Functionality derived from Delphi VCL Source Code
  10. is Copyright (c) 1995,1996 Borland International
  11.  
  12. Components Registered by this file:
  13.  
  14. TDBTableGrid:       Aggregate Table/Datasource/Grid/Navigator
  15. TDBQueryGrid:       Aggregate Query/Datasource/Grid/Navigator
  16. TDBSuperNav:        Super fast DBNavigator with speed control, moveby and bookmarks
  17. TDBEditLabel:       Aggregate TDBEdit and TLabel component
  18. TDBRecordCount:     Datasource connected label showing recordcount and Paradox logical record position
  19. TDBState:           Datasource connected label showing current state information
  20.  
  21. TAppException:      Application global exception handling and logging component
  22. TDBAppException:    Application global exception handling and logging component
  23.                     with database message lookup and logging
  24.  
  25. TClockLabel:        Label showing date/time information
  26. TSuperLabel:        Label with extended alignment and border options
  27. TAutoLabel:         Label with border and auto separator character
  28. TEditLabel:         Aggregate Label and Edit component
  29. TPopupSelect:       Edit Box with popup menu selection
  30. TBackground:        Shaded background bitmap
  31. TMDIBackground:     Client aligned TBackground for MDI main forms
  32. TTiledImage:        Image component supporting tiling and other alignment effects
  33. TMDITiledImage:     Client aligned TiledImage component for MDI main forms
  34. TPicBtn:            Custom BitBtn supports BMP, ICO or WMF format glyphs
  35. TPicSpeedBtn:       Custom SpeedButton supports BMP, ICO or WMF format glyphs
  36. TRepSpeedBtn:       Custom PicSpeedBtn supports AutoRepeat functionality
  37. TMouseRegion:       Transparent button for registering mouse events over pictures
  38.  
  39. TStopWatch:         Performance tuning component to report and log execution times
  40.  
  41. TLauncher:          Launches at command line at a specified date and time.
  42. TRSExit:            Component to close down ReportSmith when your App exits.
  43. TSingleInstance:    Component to ensure single instance of your application
  44. TWin3D:             Component for subclassing all Windows dialogs in CTL3D style.
  45. TWinAbout:          Standard Windows About dialog box
  46. TWinMsgBox:         Component wrapper for Windows MessageBox function
  47.  
  48. New in Version 1.0a:
  49. TDBFixedGrid:     DBGrid with optional fixed columns and bug in FixedColor property corrected.
  50. TSubQuery:        Component registered with no icon for query embedded within TDBQueryGrid.
  51. TSubTable:        Component registered with no icon for table embedded within TDBTableGrid.
  52. TSubDataSource:   Component registered with no icon for datasource embedded in TDBQueryGrid & TDBTableGrid.
  53. TMDIScroll:       Disables or enables scroll bars on MDI Main forms.
  54. *******************************************************************************)
  55. interface
  56.  
  57. uses Classes, DsgnIntf, ABC1Prop;
  58.  
  59. procedure Register;
  60.  
  61. {
  62.  Resource files for component palette bitmaps.
  63.  Note DCR naming standard is not used to allow 16 and 32 names to be used
  64.  with a single registration source file.
  65.  }
  66.  
  67. {$IFDEF Win32}
  68.   {$R ABC1R32.RES}
  69. {$ELSE}
  70.   {$R ABC1R16.RES}
  71. {$ENDIF}
  72.  
  73. implementation
  74.  
  75. uses SysUtils, Forms, Dialogs, Qbinddlg , strEdit, dsDesign, QBE, DBConsts, DB, DBTables,
  76.      ABCExcep, ABCDBCtl, ABCDBGrd, ABCExCtl, ABCUtil, StopWtch;
  77.  
  78. {Register}
  79.  
  80. procedure Register;
  81. begin
  82.   RegisterPropertyEditor(TypeInfo(TFileName), TExcepLog, 'FileName', TExcepLogFileNameProperty);
  83.   RegisterPropertyEditor(TypeInfo(TFileName), TDBAppException, 'DatabaseName', TAppExcDatabaseNameProperty);
  84.   RegisterPropertyEditor(TypeInfo(TFileName), TDBAppException, 'MsgTableName', TMsgTableNameProperty);
  85.   RegisterPropertyEditor(TypeInfo(TFileName), TDBAppException, 'LogTableName', TLogTableNameProperty);
  86.   RegisterComponentEditor(TDBAppException, TDBAppExceptionEditor);
  87.   RegisterPropertyEditor(TypeInfo(string), TClockLabel, 'Format', TDateTimeFormatProperty);
  88.   RegisterPropertyEditor(TypeInfo(TFileName), TDBQueryGrid, 'A1DatabaseName', TDatabaseNameProperty);
  89.   RegisterPropertyEditor(TypeInfo(TStrings), TDBQueryGrid, 'A2SQL', TQuerySQLProperty);
  90.   RegisterPropertyEditor(TypeInfo(Boolean), TDBQueryGrid, 'A3Active', TActiveProperty);
  91.   RegisterPropertyEditor(TypeInfo(TParams), TDBQueryGrid, 'Params', TQueryParamsProperty);
  92.   RegisterPropertyEditor(TypeInfo(TFileName), TDBTableGrid, 'A1DatabaseName', TDatabaseNameProperty);
  93.   RegisterPropertyEditor(TypeInfo(TFileName), TDBTableGrid, 'A2TableName', TTableNameProperty);
  94.   RegisterPropertyEditor(TypeInfo(Boolean), TDBTableGrid, 'A3Active', TActiveProperty);
  95.   RegisterPropertyEditor(TypeInfo(TDataSource), TDBTableGrid, 'MasterSource', TMasterSourceProperty);
  96.   RegisterPropertyEditor(TypeInfo(string), TDBTableGrid, 'IndexName', TIndexNameProperty);
  97.   RegisterPropertyEditor(TypeInfo(string), TDBTableGrid, 'IndexFieldNames', TIndexFieldNamesProperty);
  98.  
  99. {$IFDEF Win32}
  100.   RegisterComponentEditor(TDBFixedGrid, TABCDBGridEditor);
  101. {$ENDIF}
  102.   RegisterComponentEditor(TDBQueryGrid, TABCDBQueryGridEditor);
  103.   RegisterComponentEditor(TDBTableGrid, TABCDBTableGridEditor);
  104.  
  105.   RegisterPropertyEditor(TypeInfo(string), TDBEditLabel, 'DataField', TDataFieldProperty);
  106.   RegisterPropertyEditor(TypeInfo(TDataSource), TDBEditLabel, 'DataSource', TDataSourceProperty);
  107.   RegisterComponentEditor(TAutoLabel, TAutoLabelEditor);
  108.   RegisterPropertyEditor(TypeInfo(TFileName), TStopWatch, 'LogFile', TExcepLogFileNameProperty);
  109.  
  110. (*** VCN001 *******************************************************************)
  111.   RegisterClass(TSubQuery);
  112.   RegisterClass(TSubTable);
  113.   RegisterClass(TSubDataSource);
  114.   RegisterNoIcon([TSubQuery, TSubTable, TSubDataSource]);
  115. (*** VCN001 *******************************************************************)
  116.  
  117.   RegisterComponents('ABC', [TAppException]);
  118.   RegisterComponents('ABC', [TDBAppException]);
  119.   RegisterComponents('ABC', [TStopWatch]);
  120.   RegisterComponents('ABC', [TDBTableGrid]);
  121.   RegisterComponents('ABC', [TDBQueryGrid]);
  122. (*** VCN002 *******************************************************************)
  123.   RegisterComponents('ABC', [TDBFixedGrid]);
  124. (*** VCN002 *******************************************************************)
  125.   RegisterComponents('ABC', [TDBSuperNav]);
  126.   RegisterComponents('ABC', [TDBEditLabel]);
  127.   RegisterComponents('ABC', [TDBRecordCount]);
  128.   RegisterComponents('ABC', [TDBState]);
  129.   RegisterComponents('ABC', [TClockLabel]);
  130.   RegisterComponents('ABC', [TSuperLabel]);
  131.   RegisterComponents('ABC', [TAutoLabel]);
  132.   RegisterComponents('ABC', [TEditLabel]);
  133.   RegisterComponents('ABC', [TPopupSelect]);
  134.   RegisterComponents('ABC', [TBackground]);
  135.   RegisterComponents('ABC', [TMDIBackground]);
  136.   RegisterComponents('ABC', [TTiledImage]);
  137.   RegisterComponents('ABC', [TMDITiledImage]);
  138. (*** VCN006 *******************************************************************)
  139.   RegisterComponents('ABC', [TMDIScroll]);
  140. (*** VCN006 *******************************************************************)
  141.   RegisterComponents('ABC', [TPicBtn]);
  142.   RegisterComponents('ABC', [TPicSpeedBtn]);
  143.   RegisterComponents('ABC', [TRepSpeedBtn]);
  144.   RegisterComponents('ABC', [TMouseRegion]);
  145.   RegisterComponents('ABC', [TSingleInstance]);
  146.   RegisterComponents('ABC', [TLauncher]);
  147.   RegisterComponents('ABC', [TRSExit]);
  148. {$IFDEF WIN32}
  149.   {TWin3D removed for Delphi 2.0}
  150. {$ELSE}
  151.   RegisterComponents('ABC', [TWin3D]);
  152. {$ENDIF}
  153.   RegisterComponents('ABC', [TWinAbout]);
  154.   RegisterComponents('ABC', [TWinMsgBox]);
  155.  
  156. end;
  157.  
  158. end.
  159.