home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / ALIGRID.ZIP / ALIGRIDR.PAS < prev    next >
Pascal/Delphi Source File  |  2001-07-06  |  2KB  |  65 lines
  1. unit aligridr;
  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.   aligrid,
  14.   aligredi;
  15.  
  16. procedure Register;
  17. (*@\\\0000000914*)
  18. (*@/// implementation *)
  19. implementation
  20.  
  21. {$ifdef delphi_1}
  22.   {$R aligrid.d16}
  23. {$else}
  24.   {$R aligrid.d32}
  25. {$endif}
  26.  
  27. (*@/// procedure Register;  // To display the grid in the IDE *)
  28. procedure Register;
  29. (*$ifdef delphi_ge_6 *)
  30. const
  31.   TInputCategory = 'Input';
  32.   TVisualCategory = 'Visual';
  33.   TLocalizableCategory = 'Localizable';
  34.   THelpCategory = 'Help and Hints';
  35.   TActionCategory = 'Action';
  36.   TMiscellaneousCategory = 'Miscellaneous';
  37. (*$endif *)
  38. begin
  39.   RegisterComponents('Custom', [TStringAlignGrid]);
  40.   RegisterComponentEditor(TStringAlignGrid,TGridComponentEditor);
  41. (*$ifdef delphi_ge_5 *)
  42.   RegisterPropertiesInCategory(TInputCategory, TStringAlignGrid,
  43.     ['OnAfterEdit','OnCancelEdit','OnBeforeEdit','OnValidateEdit',
  44.      'SelectEditText','EditMultiline','Editable','PasteEditableOnly',
  45.      'AllowCutnPaste','AutoEditNextCell','NextCellEdit','AfterLastCellEdit']);
  46.   RegisterPropertiesInCategory(TVisualCategory, TStringAlignGrid,
  47.     ['Alignment','Wordwrap','FixedColor','RedrawWhileScroll',
  48.      'DrawSelection','AutoAdjustLastCol','SelectedCellColor',
  49.      'SelectedFontColor']);
  50.   RegisterPropertiesInCategory(TLocalizableCategory, TStringAlignGrid,
  51.     ['HTMLCaption']);
  52.   RegisterPropertiesInCategory(THelpCategory, TStringAlignGrid,
  53.     ['ShowCellHints','OnShowHintCell']);
  54.   RegisterPropertiesInCategory(TActionCategory, TStringAlignGrid,
  55.     ['OnFixedColClick','OnFixedRowClick']);
  56.   RegisterPropertiesInCategory(TMiscellaneousCategory, TStringAlignGrid,
  57.     ['HTMLBorder','OnCompareRow','OnCompareCol',
  58.      'NextCellTab','AfterLastCellTab']);
  59. (*$endif *)
  60.   end;
  61. (*@\\\003E000C01000C01000D07000D18000701000701*)
  62. (*@\\\0000000901*)
  63. end.
  64. (*@\\\0001000011000401*)
  65.