anchor.diff:    if fSwatch.Visible then
     begin
       ListHide(nil);
  -    exit;
  +    Exit;
     end;
   
     fSwatch.Show;
  
positive.code: begin
    inherited;
    if ListVisible or (Count < 1) then Exit;
  
    UpdateDropPosition;
  
    //Make sure the selected item is visible when list is opened
    if (ItemIndex <> -1) then
  
negative.code: //When new items are added to the list we must update the drop height and position
  procedure TKMDropColumns.UpdateDropPosition;
  begin
    if Count > 0 then
    begin
      fList.Height := Math.min(fDropCount, fList.RowCount) * fList.ItemHeight + fList.Header.Height * Ord(fList.ShowHeader);
  
      if fDropUp then
        fList.AbsTop := AbsTop - fList.Height
      else
  