home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 25 / nopv25.iso / 040A / CBPLUS32.ZIP / CBPLUS32.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-20  |  1.4 KB  |  58 lines
  1. {
  2.    TDBComboBoxPlus & TDBComboBoxPlus Component
  3.          Registration Module
  4.    Advanced Components for Delphi
  5.  
  6.    Copyright (c) 1995 Out & About Production, All Rights Reserved
  7.  
  8.    Version 2.1  (3/96)
  9. }
  10.  
  11. unit Cbplus32;
  12.  
  13. interface
  14.  
  15. uses Classes, DsgnIntf, DBLup1a, DBLup1b, Dialogs;
  16.  
  17. Type
  18.   TComboPlusComponentEditor = class(TDefaultEditor)
  19.   public
  20.     procedure ExecuteVerb(Index: Integer); override;
  21.     function GetVerb(Index: Integer): string; override;
  22.     function GetVerbCount: Integer; override;
  23.   end;
  24.  
  25. procedure Register;
  26.  
  27. implementation
  28.  
  29. procedure TComboPlusComponentEditor.ExecuteVerb(Index: Integer);
  30. begin
  31.   MessageDlg('TComboBoxPlus && TDBComboBoxPlus'
  32.              +#10#13+ '(c) 1995, 1996, Out && About Productions'
  33.              +#10#13+ '75664.1224@compuserve.com'
  34.              +#10#13+ 'Fax 619.566.0210' ,mtInformation,[mbOK],0);
  35. end;
  36.  
  37. function TComboPlusComponentEditor.GetVerb(Index: Integer): string;
  38. begin
  39.   result := 'Component Info';
  40. end;
  41.  
  42. function TComboPlusComponentEditor.GetVerbCount: Integer;
  43. begin
  44.   result := 1;
  45. end;
  46.  
  47.  
  48.  
  49. procedure Register;
  50. begin
  51.   RegisterComponents('Data Controls', [TDBComboBoxPlus]);
  52.   RegisterComponents('Standard', [TComboBoxPlus]);
  53.   RegisterComponentEditor(TComboBoxPlus,TComboPlusComponentEditor);
  54.   RegisterComponentEditor(TDBComboBoxPlus,TComboPlusComponentEditor);
  55. end;
  56.  
  57. end.
  58.