anchor.diff: -unit KM_Controls;
  +﻿unit KM_Controls;
   {$I KaM_Remake.inc}
   interface
   uses
  
positive.code: end;
  
  
  procedure TKMColumnListBox.SetSortDirection(aDirection: TSortDirection);
  begin
    fHeader.SortDirection := aDirection;
  
negative.code:     function GetSortDirection: TSortDirection;
      procedure SetSortDirection(aDirection: TSortDirection);
      function GetRow(aIndex: Integer): TKMListRow;
      procedure UpdateScrollBar;
      procedure SetShowHeader(aValue: Boolean);
      function GetOnColumnClick: TIntegerEvent;
      procedure SetOnColumnClick(const Value: TIntegerEvent);
    protected
      procedure SetTop(aValue: Integer); override;
      procedure SetHeight(aValue: Integer); override;
      procedure SetEnabled(aValue: Boolean); override;
      procedure SetVisible(aValue: Boolean); override;
    public
      constructor Create(aParent: TKMPanel; aLeft,aTop,aWidth,aHeight: Integer; aFont: TKMFont);
  
      procedure SetColumns(aFont: TKMFont; aColumns: array of string; aColumnOffsets: array of Word);
  