TKGridAxisItem

type TKGridAxisItem = class(TCollectionItem)

protected

  FBackExtent: Integer;

  procedure BeginDrag(); virtual;

  procedure CheckDrag(); virtual;

  procedure EndDrag(); virtual;

  function GetObjects(); virtual; abstract;

  function GetStrings(); virtual; abstract;

  function GetVisible; virtual;

  procedure GridChanged; virtual;

  procedure SetExtent(); virtual; abstract;

  procedure SetObjects(); virtual; abstract;

  procedure SetSortArrowIndex(); virtual; abstract;

  procedure SetSortMode(); virtual; abstract;

  procedure SetStrings(); virtual; abstract;

  procedure SetVisible(); virtual; abstract;

  procedure ValidateInitialPos; virtual; abstract;

public

  constructor Create(); override;

  procedure Assign(); override;

  procedure AssignStrings(); virtual; abstract; overload;

  procedure AssignPublished(); virtual;

  procedure Clear; virtual; abstract;

  function Equals(); virtual;

  property Grid: TKCustomGrid; [rw]

  property InitialPos: Integer; [rw]

  property Objects []: TObject; [rw]

  property Strings []: TKString; default; [rw]

  property SortMode: TKGridSortMode; [rw]

  property Tag: TObject; [rw]

  property Visible: Boolean; [rw]

published

  property CanResize: Boolean; [rw]

  property Extent: Integer; [rw]

  property MaxExtent: Integer; [rw]

  property MinExtent: Integer; [rw]

  property SortArrowIndex: Integer; [rw]

end;

TKGridAxisItem

TObject