anchor.diff:      property ColumnCount: Integer read fCount;
       property Columns[aIndex: Integer]: TKMListHeaderColumn read GetColumn;
       property SortIndex: Integer read fSortIndex write fSortIndex;
  -    property SortDirection: TSortDirection read fSortDirection write fSortDirection;
  +    property SortDirection: TKMSortDirection read fSortDirection write fSortDirection;
       property TextAlign: TKMTextAlign read fTextAlign write fTextAlign;
       property ColumnWidth[aIndex: Integer]: Integer read GetColumnWidth;
   
  
positive.code: end;
  
  
  function TKMColumnBox.GetSortDirection: TSortDirection;
  begin
    Result := fHeader.SortDirection;
  end;
  
negative.code:     property OnCellClick: TPointEventFunc read fOnCellClick write fOnCellClick;
      property OnCellClickShift: TPointEventShiftFunc read fOnCellClickShift write fOnCellClickShift;
      property SortIndex: Integer read GetSortIndex write SetSortIndex;
      property SortDirection: TKMSortDirection read GetSortDirection write SetSortDirection;
  
      procedure JumpToSelected;
  
  