home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / GTSIZE32.ZIP / GT32REG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-19  |  1.7 KB  |  54 lines
  1. {*******************************************}
  2. { GTForm Component Registration unit        }
  3. { By GenoTechs, Inc.                        }
  4. { Copyright(c) GenoTechs, Inc. 1996         }
  5. { All rights reserved                       }
  6. {*******************************************}
  7.  
  8. unit Gt32reg;
  9.  
  10. {$B-,P+,W-,X+}
  11.  
  12. interface
  13.  
  14. procedure Register;
  15.  
  16. implementation
  17.  
  18. {If using the GTStringGrid, remove braces from the unit name GT32SGRD below}
  19. uses
  20.   Classes, GTSize32, {GT32SGRD,} GTDBSizr ;
  21.  
  22. {$R GTSize32.dcr}
  23.  
  24. {Remove one left brace from the following line if using GTStringGrid}
  25. {{$R GT32SGrd.dcr}
  26.  
  27. procedure Register;
  28. begin
  29.   { The RegisterComponents line below adds both GTForm and GTDBForm }
  30.   { components to the same page on the component palette }
  31.   { Remove comments from around the line. Replace 'GTControls' with }
  32.   { the name of the page you want the GTSizer components to appear on. }
  33.   { Compile and save this unit, then use OPTIONS>INSTALL COMPONENTS }
  34.   { command to add this unit to the component palette }
  35.  
  36.   { RegisterComponents('GTControls', [GTForm,  GTDBForm]);{}
  37.  
  38.   { To separate the GTDBForm from the GTForm remove comments from around }
  39.   { the following 2 lines. Enter the page of the component palette }
  40.   { for each one. Be sure to comment out the RegisterComponents line above.}
  41.   { Compile and save this unit, then use OPTIONS>INSTALL COMPONENTS }
  42.   { command to add this unit to the component palette }
  43.  
  44.   RegisterComponents('Additional', [GTForm]);
  45.   RegisterComponents('Data Controls', [GTDBForm]);
  46.  
  47.  {If you want to use the GTStringGrid, uncomment the following line}
  48.  { RegisterComponents('Additional', [GTStringGrid]);{}
  49.  
  50.  
  51. end;
  52.  
  53. end.
  54.