aligridr.pas

来自「一个STRINGGRID 控件,比原DELPHI自带的STRINGGRID 功能」· PAS 代码 · 共 65 行

unit aligridr;
  (*$i ah_def.inc *)
(*@/// interface *)
interface

uses
  classes,
  (*$ifdef delphi_ge_6 *)
  designintf,
  (*$else *)
  dsgnintf,
  (*$endif *)
  aligrid,
  aligredi;

procedure Register;
(*@\\\0000000914*)
(*@/// implementation *)
implementation

{$ifdef delphi_1}
  {$R aligrid.d16}
{$else}
  {$R aligrid.d32}
{$endif}

(*@/// procedure Register;  // To display the grid in the IDE *)
procedure Register;
(*$ifdef delphi_ge_6 *)
const
  TInputCategory = 'Input';
  TVisualCategory = 'Visual';
  TLocalizableCategory = 'Localizable';
  THelpCategory = 'Help and Hints';
  TActionCategory = 'Action';
  TMiscellaneousCategory = 'Miscellaneous';
(*$endif *)
begin
  RegisterComponents('Custom', [TStringAlignGrid]);
  RegisterComponentEditor(TStringAlignGrid,TGridComponentEditor);
(*$ifdef delphi_ge_5 *)
  RegisterPropertiesInCategory(TInputCategory, TStringAlignGrid,
    ['OnAfterEdit','OnCancelEdit','OnBeforeEdit','OnValidateEdit',
     'SelectEditText','EditMultiline','Editable','PasteEditableOnly',
     'AllowCutnPaste','AutoEditNextCell','NextCellEdit','AfterLastCellEdit']);
  RegisterPropertiesInCategory(TVisualCategory, TStringAlignGrid,
    ['Alignment','Wordwrap','FixedColor','RedrawWhileScroll',
     'DrawSelection','AutoAdjustLastCol','SelectedCellColor',
     'SelectedFontColor']);
  RegisterPropertiesInCategory(TLocalizableCategory, TStringAlignGrid,
    ['HTMLCaption']);
  RegisterPropertiesInCategory(THelpCategory, TStringAlignGrid,
    ['ShowCellHints','OnShowHintCell']);
  RegisterPropertiesInCategory(TActionCategory, TStringAlignGrid,
    ['OnFixedColClick','OnFixedRowClick']);
  RegisterPropertiesInCategory(TMiscellaneousCategory, TStringAlignGrid,
    ['HTMLBorder','OnCompareRow','OnCompareCol',
     'NextCellTab','AfterLastCellTab']);
(*$endif *)
  end;
(*@\\\003E000C01000C01000D07000D18000701000701*)
(*@\\\0000000901*)
end.
(*@\\\0001000011000401*)