anchor.diff:  procedure TKMEdit.Paint;
   var
     Col: TColor4;
  -  RText, BeforeSelectionText, SelectionText: UnicodeString;
  -  OffX, BeforeSelectionW, SelectionW: Integer;
  +  RText: UnicodeString;
  +  OffX: Integer;
   begin
     inherited;
   
  
positive.code:     function GetColumnIndex(X: Integer): Integer;
      function GetColumn(aIndex: Integer): TKMListHeaderColumn;
      procedure ClearColumns;
      procedure DoClick(X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
      function GetColumnWidth(aIndex: Integer): Integer;
    public
      BackAlpha: Single; //Alpha of background
      EdgeAlpha: Single; //Alpha of background outline
  
negative.code: 
  
  function TKMNumericEdit.KeyDown(Key: Word; Shift: TShiftState): Boolean;
  begin
    Result := KeyEventHandled(Key, Shift);
    inherited KeyDown(Key, Shift);
  