anchor.diff:  end;
   
   
  +procedure TKMDropCommon.ListChange(Sender: TObject);
  +begin
  +  if (ItemIndex <> -1) then
  +    if Assigned(fOnChange) then fOnChange(Self);
  +end;
  +
  +
   procedure TKMDropCommon.ListHide(Sender: TObject);
   begin
     fShape.Hide;
  
positive.code:   fList.AutoHideScrollBar := True; //A drop box should only have a scrollbar if required
    fList.BackAlpha := 0.85;
    fList.fOnClick := ListClick;
  
    ListHide(nil);
  end;
  
negative.code:     procedure UpdateDropPosition; override;
      procedure ListShow(Sender: TObject); override;
      procedure ListClick(Sender: TObject); override;
      procedure ListChange(Sender: TObject); override;
      procedure ListHide(Sender: TObject); override;
      function ListVisible: Boolean; override;
      function GetItem(aIndex: Integer): string;
  