home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / BCB.EXE / RCDATA / OCXSOURCE < prev    next >
Text File  |  1997-01-16  |  460b  |  36 lines
  1. unit %A;
  2.  
  3. %Binterface
  4.  
  5. uses Ole2, OleCtl, Classes, Graphics, OleCtrls;
  6.  
  7. %Gtype
  8.  
  9. %Cprocedure Register;
  10.  
  11. implementation
  12.  
  13. {$J+}
  14.  
  15. %Dprocedure Register;
  16. begin
  17.   RegisterComponents('%E', [%F]);
  18. end;
  19.  
  20. end.
  21. |%A  %B = class(TOleControl)
  22.   private
  23. %C%D  protected
  24.     procedure InitControlData; override;
  25.   public
  26. %E%F%G  published
  27. %H%I%J  end;
  28.  
  29. |procedure %B.InitControlData;
  30. const
  31. %Kbegin
  32.   ControlData := @CControlData;
  33. end;
  34.  
  35. %L%M|
  36.