home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / MOON20.ZIP / MOON_REG.PAS < prev    next >
Pascal/Delphi Source File  |  2001-07-07  |  1KB  |  53 lines
  1. unit moon_reg;
  2.   (*$i ah_def.inc *)
  3. (*@/// interface *)
  4. interface
  5.  
  6. uses
  7.   classes,
  8.   (*$ifdef delphi_ge_6 *)
  9.   designintf,
  10.   (*$else *)
  11.   dsgnintf,
  12.   (*$endif *)
  13.   mooncomp,
  14.   ah_ide;
  15.  
  16. procedure Register;
  17. (*@\\\000000060B*)
  18. (*@/// implementation *)
  19. implementation
  20.  
  21. {$ifdef delphi_1}
  22.   {$R moon.d16}
  23. {$else}
  24.   {$R moon.d32}
  25. {$endif}
  26.  
  27.  
  28. (*@/// procedure Register; *)
  29. procedure Register;
  30. (*$ifdef delphi_ge_6 *)
  31. const
  32.   TInputCategory = 'Input';
  33.   TVisualCategory = 'Visual';
  34.   TMiscellaneousCategory = 'Miscellaneous';
  35. (*$endif *)
  36. begin
  37.   RegisterPropertyEditor(TypeInfo(TDateTime),NIL,'',t_ah_datetimeproperty);
  38.   RegisterComponents('Custom', [TMoon]);
  39. (*$ifdef delphi_ge_5 *)
  40.   RegisterPropertiesInCategory(TInputCategory, TMoon,
  41.     ['Date']);
  42.   RegisterPropertiesInCategory(TVisualCategory, TMoon,
  43.     ['MoonStyle','MoonSize','Rotation']);
  44.   RegisterPropertiesInCategory(TMiscellaneousCategory, TMoon,
  45.     ['ShowApollo11']);
  46. (*$endif *)
  47.   end;
  48. (*@\\\*)
  49. (*@\\\0000000A01*)
  50. (*$ifdef delphi_ge_2 *) (*$warnings off *) (*$endif *)
  51. end.
  52. (*@\\\003F000501000501000501000601000501000011000501*)
  53.